FLTSIM2D.lst

0DIMA$(1):A=.1:CLS:?:?,"FLIGHT SIMULATOR 2D":POKE752,1:REP.:B=TIME:C=1-D*8e-5:E=(2*G+F>29)!(D<1):H=(F*F+I*I)*8.1*1.225*C›1J=1/((F=0)+F):K=I*J:K=-(K<=-1)+(K>-1)*K:K=(K>=1)+(K<1)*K:L=K-K^3*.22:M=N*J*4.3+L+833e-5*O+.0863*P-.0873:Q=.4*M-M^3*.24›2P=.16*G+.3+4.8*L+12*L*ABS(L)-L^3*46:P=P*E:R=P+Q:S=.0575*R*R+.025:T=(C-.05)*U*J*1100:T=(T<=2e3)*T+(T>2e3)*2e3›3V=((.28-.1*G)*P+.0308+Q*4.3)*-H:N=V*548e-7+N:N=(D>.01)!(N>0)*N:F=((T-H*S)*1e-3-W*9.81-N*I)*A+F›4I=(-H*R*1e-3+X*9.81+N*F)*A+I:I=(D>.01)!(I<0)*I:Y=Y+A:Z=N*A+Z:X=1-.49*Z*Z:W=Z-Z^3*.15:_=F*X+I*W:A0=F*W-I*X:A1=_*A+A1›5D=A0*A+D:D=(D>0)*D:A2=(D>9)!A2:A$=INKEY$:U=(A$=""*(U<100)-A$=""*(U>0))*5+U:O=(A$="T"*(O<23)-A$="B"*(O>-28))*.5+O›6A3=A$="N"*(A3<3)-A$="Y"*(A3>0)+A3:G=.05*A3+.95*G:POS.2,3:?"KTAS",INT(F*1.94)," ":?"PITCH",INT(Z*573)*.1," "›7?"ALT.",INT(D*3.28)," ":?"VRATE",INT(A0*197)," ":?:?"ELEV.",O," ":?"POWER",U," ":?"FLAPS ",INT(G*10+.5)," ":?›8?"STALL ",CHR$(161-116*E);:?CHR$(253-221*E):?:?"DIST.",INT(A1*.9)," ":?"TIME",Y,,INT(600/(TIME-B));"% ":U.(D=0)&A2:?›9IFA0>-2:?"TOUCHDOWN":EL.:?"YOU CRASHED!ýýý":END.›