0 'FLTSIM.100/102 John Chesbrough 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS:E$=CHR$(27):R$=E$+"p":N$=E$+"q":PRINT@8,R$" MOONEY FLIGHT SIMULATOR "N$ 20 PRINT:PRINT" For instructions: "R$" press I "N$:PRINT:PRINT" For take-off & landings: "R$" press F "N$ 30 PRINT:PRINT" For vectors to landing: "R$" press V "N$ 40 I$=INKEY$:IFI$=""THEN40 50 IFI$="I"ORI$="i"THEN800 60 IFI$="F"ORI$="f"THENM=1:GOTO80 70 IFI$="V"ORI$="v"THENF=2.75:AD=2000:CLS:GOTO110 80 CLS 90 PRINT@162,"Fuel (gal)";:INPUTF:IFF>64THENCLS:PRINT"The tanks only hold 64 gallons":GOTO90 100 PRINT@202,"Altitude (ft)";:INPUTAD 110 PRINT@242,"Turbulence (0,1,2 or 3)";:INPUTTB 120 CLS:LINE(4,0)-(26,18),1,B:PRINT@41,"ASI":LINE(4,30)-(26,50),1,B:PRINT@201,"L R":LINE(28,0)-(74,37),1,B 130 LINE(34,39)-(68,57),1,B:PRINT@247,"HDG":LINE(76,0)-(109,18),1,B:PRINT@54,"ALT":LINE(76,30)-(109,50),1,B:PRINT@214,"VSI 140 LINE(112,0)-(146,25),1,B:PRINT@100,"CDI":PRINT@59,"..|..":LINE(112,30)-(146,50),1,B:PRINT@220,"DME 150 LINE(154,0)-(182,18),1,B:PRINT@66,"FUEL":LINE(154,30)-(182,50),1,B:PRINT@226,"%PWR":LINE(184,0)-(239,50),1,B:PRINT@34,"ATC 160 PRINT@71,"CLEARANCE 170 VS=000:H=350:PA=0:TD=0:C=1:HL=19:HR=19:T=0:PRINT@0,AS:PRINT@186,P:PRINT@13,AD:PRINT@173,VS:PRINT@206,H:PRINT@86,"--O-- 180 LINE(30,HL)-(72,HR):KEYON:ONKEYGOSUB520,550,560,80,590,600,610,620:P=40:AS=0:IFAD>100THENP=75:AS=162:GOTO270 190 IFAD=0THENVS=000 200 PRINT@152,"Cleared":PRINT@193,"for":PRINT@231,"take-off":IFP>99THENP=100 210 PRINT@186,P:PRINT@25,F:AS=AS+(.006*P):AS=INT(AS+.5):PRINT@0,AS 220 IFAS>60THENPRINT@152," ":PRINT@193," ":PRINT@231," 230 IFAS<65THEN240ELSE250 240 IFPA>1THEN770 250 IFAS>90THEN760 260 IFPA>3THEN270ELSE190 270 AC=AS:AS=50+(27*(P^.33)):AS=AS-(9*PA):SD=AS-AC:AS=AC+(.3*SD):SD=.7*SD:AS=AS-(VT/10):AS=INT(AS):IFAS<66THEN650 280 PRINT@0,AS:IFTB=0THENVT=0 290 IFTB=1THENVT=100*X 300 IFTB=2THENVT=200*X 310 IFTB=3THENVT=1000*X 320 IFAD<20THENVT=VT/10 330 VD=PA*AS:VC=(P-75)*10:VS=VD+VC+VT:VS=INT(VS):PRINT@173,VS 340 LINE(30,HL)-(72,HR),2:PRINT@86,"--O--":HL=19+PA:HR=19+PA:IFTD=-1THENHL=9+PA:HR=29+PA 350 IFTD=0THENHL=19+PA:HR=19+PA 360 IFTD=1THENHL=29+PA:HR=9+PA 370 IFHL<2THENHL=2 380 IFHR<2THENHR=2 390 IFHL>37THENHL=37 400 IFHR>37THENHR=37 410 LINE(30,HL)-(72,HR) 420 LINE(6,31)-(9,34),L,BF:LINE(13,31)-(16,34),C,BF:LINE(21,31)-(24,34),R,BF:LINE(30,HL)-(72,HR):H=H+TD:IFH=0THENH=360 430 IFH=361THENH=1 440 PRINT@206,H:AC=(VS+1)/62:AC=INT(AC):AD=AD+AC:IFAD<0THENAD=0:GOTO700 450 PRINT@13,AD:FD=P/5000:F=F-FD:F=INT(100*F)/100:IFF<00THENF=0.00 460 PRINT@25,F:IFF=0THENP=0:FORN=1TO100:NEXTN:GOTO490 470 IFP<10THENP=10 480 IFP>99THENP=100 490 PRINT@186,P:IFAS>220THEN740 500 IFAS<58THEN660 510 X=RND(1):X=X-.5:IFM=1THEN270ELSE980 520 IFL=1THEN540 530 L=1:C=2:R=2:LINE(30,HL)-(72,HR),2:HL=HL-10:HR=HR+10:TD=-1 540 RETURN 550 L=2:C=1:R=2:LINE(30,HL)-(72,HR),2:TD=0:RETURN 560 IFR=1THEN580 570 L=2:C=2:R=1:LINE(30,HL)-(72,HR),2:HL=HL+10:HR=HR-10:TD=1 580 RETURN 590 PA=PA-2:RETURN 600 PA=PA+2:RETURN 610 P=P-5:GOTO630:RETURN 620 P=P+5:GOTO630:RETURN:END 630 S=INT(150000/(P+11)):IFS>16000THENS=16000:IFS<16200THENS=16200 640 FORN=1TO3:SOUNDS,1:NEXTN:RETURN:GOTO270 650 PRINT@273,"STALL":SOUND1600,5:PRINT@273," ":GOTO280 660 FORN=1TO14:LINE(30,HL)-(72,HR),2:HL=HL-2:HR=HR-2:IFHL<2THENHL=2:IFHR<2THENHR=2 670 IFHL>37THENHL=37:IFHR>37THENHR=37 680 LINE(30,HL)-(72,HR):PRINT@86,"--O--":VS=-(1.6^N):VS=INT(VS):PRINT@173,VS:AD=AD+(VS/200):AD=INT(AD):PRINT@13,AD:IFAD<1THEN700 690 NEXTN:PA=PA-28:GOTO270 700 IFVS<-180 ORAS>90THEN780 710 IFM=1THEN730 720 IFD<0 ANDD=>-.6THEN730ELSE1280 730 FORN=1TO3:PRINT@252,"GOOD LANDING!":SOUND900,15:SOUND900,15:NEXTN:GOTO1370 740 FORN=200TO0STEP-50:PRINT@46,"OVERSPEED!":SOUND(800+N),20:PRINT@46," ":NEXTN:CLS:PRINT@90,"WINGS CAME OFF! 750 FORN=0TO10000STEP1000:SOUND(800+N),5:NEXTN:GOTO790 760 CLS:PRINT@84,"YOU RAN OFF THE RUNWAY AT"AS"KNOTS":GOTO790 770 CLS:PRINT@81,"YOU ROTATED AT"AS"KNOTS....WAIT FOR 65+":GOTO790 780 CLS:PRINT@84,"YOU HIT THE GROUND":GOTO790 790 PRINT@56,"CRASH!":PRINT@160,"ASI"AS:PRINT@175,"VSI"VS:PRINT@212,"Press F4 to fly again":SOUND16000,80:END:RETURN 800 CLS:PRINT@14,R$"INSTRUCTIONS"N$:PRINT"The keys that control the aircraft are: 810 PRINTR$"F1"N$"=LEFT TURN "R$"F2"N$"=STOP TURN "R$"F3"N$"=RIGHT TURN 820 PRINTR$"F4"N$"=RESTART "R$"F5"N$"=PITCH DWN "R$"F6"N$"=PITCH UP":PRINTR$"F7"N$"=power decrease "R$"F8"N$"=POWER INCREASE 830 PRINT"You can fly take-offs & landings (key F)";:PRINT" ...or fly an emergency approach (key V)"; 840 PRINT" "R$" press SPACEBAR for next page "N$; 850 I$=INKEY$:IFI$=""THEN850 860 IFI$<>""THEN870 870 CLS:PRINT@2,R$" F MODE: YOU SELECT FUEL & ALTITUDE "N$ 880 PRINT"To take off (altitude=0), increase powerto 80-100% & pitch up 2 times or more at 65-90kt."; 890 PRINT" The stalling speed is 58 kt.Recover promptly, or you will overspeed.";:PRINT"Land at <90kt, with VSI<180. 900 PRINT:PRINT" "R$" press SPACEBAR for next page "N$; 910 I$=INKEY$:IFI$=""THEN910ELSE920 920 CLS:PRINT" "R$" V MODE: VECTORED EMERGENCY APPROACH "N$:PRINT" You are caught in cloud over 930 PRINT"mountainous terrain and your fuel is":PRINT"almost exhausted. There is an airport 940 PRINT"about 10mi north. You are given radar":PRINT"vectors to an instrument landing... 950 PRINT:PRINT" "R$" press ANY KEY to start "N$; 960 I$=INKEY$:IFI$=""THEN960ELSECLS:PRINT:GOTO20 970 GOTO40 980 T=T+1:IFT<120THEND=10:PRINT@179," 990 IFT=120THENDM=3 1000 IFT>120THENDM=DM-(AS/3960):D=INT(10*DM)/10:PRINT@179,D 1010 IFT=5THENA$=" radar ":B$="contact":C$="10mi SSE ":GOSUB1310 1020 IFT=10THENA$=" ":B$="maintain ":C$=" 2000 ft ":GOSUB1310 1030 IFT=15THENA$=" turn ":B$=" to ":C$=" 320 ":GOSUB1310 1040 IFT=30THEN1330 1050 IFT=35THENA$=" descend ":B$=" to ":C$=" 1000ft ":GOSUB1310 1060 IFT=45THENA$=" weather ":B$="is below ":C$="minumums ":GOSUB1310 1070 IFT=50THENA$=" cleared ":B$="emergency":C$="approach":GOSUB1310 1080 IFT=90THENA$=" turn ":B$=" to ":C$=" 340 ":GOSUB1310 1090 IFT=120THENA$=" 3 miles ":B$=" to ":C$=" RWY 34 ":GOSUB1310 1100 IFD=2.5THENA$="altitude":B$="should be":C$=" 1000 ft ":GOSUB1310 1110 IFD=2.4THENGOSUB1320 1120 IFD=2.3THENA$=" Turn ":B$=" to ":C$=" 344 ":GOSUB1310 1130 IFD=2THENA$="altitude ":B$="should be":C$=" 800 ft ":GOSUB1310 1140 IFD=1.9THENGOSUB1320 1150 IFD=1.2THENA$=" cleared ":B$=" to ":C$=" land ":GOSUB1310 1160 IFD=1THENA$="altitude":B$="should be":C$=" 400 ft ":GOSUB1310 1170 IFD=.9THENA$=" caution:":B$="50' trees":C$="at TRSHLD":GOSUB1310 1180 IFD=.8THENGOSUB1320 1190 IFD=.5THEN:FORN=1TO6:PRINT@263,"MARKER":SOUND2400,5:PRINT@263," ":NEXTN 1200 IFD=.1THEN1210ELSE1220 1210 IFAD>40THEN1220ELSE1270 1220 IFD=0THENA$=" over ":B$="threshold":C$=" ":GOSUB1310 1230 IFD=-.2THENA$=" 2000 ft ":B$=" runway ":C$="remaining":GOSUB1310 1240 IFD=-.4THENA$=" 1000 ft ":GOSUB1310 1250 IFD=-.6THEN760 1260 GOTO270 1270 CLS:PRINT@84,"YOU HIT A TREE!":GOTO790 1280 IFD>0THEN1300 1290 IFD<-.6THEN760 1300 CLS:PRINT@84,"YOU WERE"(-D)"mi SHORT":GOTO790 1310 PRINT@151,A$:PRINT@191,B$:PRINT@231,C$:FORN=1TO3:SOUND(N*1000),3:NEXTN:RETURN 1320 PRINT@151," ":PRINT@191," ":PRINT@231," ":RETURN 1330 IFAD<1900THEN1350 1340 IFH<340THEN270 1350 CLS:LINE(24,63)-(140,4):LINE(140,4)-(180,63):LINE(160,32)-(190,16):LINE(190,16)-(220,63):PRINT@104,"* 1360 PRINT@65,"CRASH!":SOUND12000,120:CLS:PRINT@84,"YOU HIT THE MOUNTAINS!":GOTO790 1370 CLS:LINE(0,8)-(239,8):LINE(91,9)-(98,1):LINE(99,1)-(109,9):LINE(128,9)-(146,1):LINE(147,1)-(160,9) 1380 A=117:B=40:C=118:D=34:U=123:V=40:W=122:X=34:FORN=10TO30:LINE(A,B)-(C,D),2:LINE(U,V)-(W,X),2 1390 LINE(A,B)-(U,V),2:LINE(C,D)-(W,X),2:IFN>20THENPRINT@274,"“ 1400 A=A-(N/6):B=B+1:C=C-.05:D=D-1:U=U+(N/6):V=V+1:W=W+.05:X=X-1:LINE(A,B)-(C,D):LINE(U,V)-(W,X):LINE(A,B)-(U,V):LINE(C,D)-(W,X) 1410 IFN>20THENPRINT@274,"” 1420 NEXTN:PRINT@253,"TOUCHDOWN ACE!":PRINT@137,"landed":PRINT@175,(-D*6000)"ft":PRINT@213,"from threshold 1430 PRINT@81,"ASI"AS:PRINT@161,"VSI"VS:PRINT@110,"FUEL"F:GOTO40:END