1000 REM FLIES
1010 SCREEN 12:CLS
?"Нажмите <Esc> - для выхода"
1102 XC=320:YC=240:KY=(800/(3*640))*(480/200)
1106 A=400
1110 V=8
1112 C=9
1114 DT=.5
1118 F=0
1122 DIM X(4),Y(4),A(4),B(4)
1125 X(1)=-A/2:X(2)=-X(1):X(3)=X(2):X(4)=X(1):Y(1)=X(1):Y(2)=Y(1):Y(3)=-Y(1)
1126 Y(4)=Y(3)
1136 GOSUB 2000
1140 GOSUB 3000
1144 DA=-V*DT:A=A+DA
1148 DF=V*DT/A:F=F+DF
1154 IF A<10 THEN BEEP 1:goto 1999
1158 GOTO 1125
1999 if inkey$<>chr$(27) then goto 1999 else stop
2000 FOR I=1 TO 4
2002 CF=COS(F):SF=SIN(F)
2004 A(I)=XC+X(I)*CF-Y(I)*SF:B(I)=YC+KY*(X(I)*SF+Y(I)*CF)
2006 NEXT I
2008 RETURN
3000 LINE(A(2),B(2))-(A(1),B(1)),9:LINE(A(3),B(3))-(A(2),B(2)),10
3002 LINE(A(4),B(4))-(A(3),B(3)),11:LINE(A(1),B(1))-(A(4),B(4)),12
3010 RETURN