home *** CD-ROM | disk | FTP | other *** search
- 10 rem micro flight simulator
- 15 rem by tim gerchmez
- 20 ifpeek(49152)=169andpeek(49158)=69then30
- 25 fort=49152to49152+36:reada:poket,a:next
- 30 poke53265,27:poke56333,127:poke788,0:poke789,192:poke53274,129
- 35 poke53281,0:poke646,1:poke650,128:poke49169,2:poke49167,255:poke49160,11
- 40 printchr$(147)chr$(9)chr$(15)chr$(8)"";:r1$="":lf$="[157][157][157][157][157][157][157]"
- 45 l6$="[157][157][157][157][157][157]":dn$=""
- 46 dimj(127):j(109)=45:j(126)=85:j(125)=68:j(123)=44:j(119)=46:j(110)=43
- 47 jy=56320:kb=631:kj=198
- 50 print"[192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][145][145]";
- 55 print"[194]micro flight simulator[194][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
- 60 print"[159][213][195][195][195][195][195][195][201]":print"[194] [194]":print"[202][195][195][195][195][195][195][203]":print"[158]time[159]"
- 65 print"[213][195][195][195][195][195][195][195][201]":print"[194] [194]":print"[202][195][195][195][195][195][195][195][203]":print"[158]erpm[159]"
- 70 print"[213][195][195][195][195][195][195][195][195][201]":print"[194] [194]":print"[202][195][195][195][195][195][195][195][195][203]":print"[158]airspeed"
- 75 print"kts[159]":print"[213][195][195][195][195][195][195][195][195][195][195][195][201]":print"[194] [194]":print"[202][195][195][195][195][195][195][195][195][195][195][195][203]"
- 80 print"[158]groundspeed":print"mph"
- 85 print"[159]"r1$"[213][195][195][195][195][195][195][195][195][195][201]":printr1$"[194] [194]":printr1$"[202][195][195][195][195][195][195][195][195][195][203]"
- 90 printr1$"[129]altimeter[159]"
- 95 printr1$"[213][195][195][195][195][195][195][201]":printr1$"[194] [194]":printr1$"[202][195][195][195][195][195][195][203]"
- 100 printr1$"[150]rudder[159][145][145][145][213][195][195][195][195][195][201]"lf$"[194] [194]"lf$"[202][195][195][195][195][195][203]"l6$"elev."
- 105 printr1$"[213][195][195][195][195][195][195][195][201]":printr1$"[194] [194]"
- 110 printr1$"[202][195][195][195][195][195][195][195][203]":printr1$"heading[159]"
- 115 r2$=""
- 120 r1$="":printr1$"[213][195][195][195][195][201][145][145][157][157][157][157][157]bi>[159]":printr1$"[194]fuel[194]"
- 125 printr1$"[194][195][195][195][195][194]":printr1$"[194]f[159] [194]":printr1$"[194] [194]":printr1$"[194] [194]"
- 130 printr1$"[194]e[159] [194]":printr1$"[202][195][195][195][195][203]"
- 135 print"[145][145][209]":print"[155]stalloil temp[145]"lf$"[157][157][159][202][195][195][195][195][195][195][195][195][203]";
- 140 print"[145]"lf$"[157][157][157][194]c h[159][194][145]"lf$"[157][157][157][213][195][195][195][195][195][195][195][195][201]";
- 145 print"[145][145][157][157][157][157][157][202][195][203][157][157]p[145][145][157][157][194] [146][159][194][145][157][157][157][213][195][201]"
- 150 printdn$""r1$"[158]flaps"
- 155 print"[159]"r1$"[213][195][195][195][201]"l6$"[194] [159][146][194]"l6$"[202][195][195][195][203]";
- 160 print""l6$"cwi"
- 165 gosub255
- 170 poke198,0
- 175 geta$:ifa$<>""then180
- 176 pokekj,1:pokekb,j(peek(jy)):geta$:ifa$=""thengosub450:goto245
- 180 ifa$="o"thenifgd=1andgs=0then935
- 185 ifa$="x"thengosub605 :goto245
- 190 ifa$="h"thengosub635 :goto245
- 195 ifa$="+"ora$="-"thengosub680 :goto245
- 200 ifa$="r"thenfp=1:goto245
- 205 ifa$="l"thenfp=0:goto245
- 210 ifa$="<"ora$=","thenru=ru+(ru>-45):printru$;ru;s$
- 215 ifa$=">"ora$="."thenru=ru-(ru<45):printru$;ru;s$
- 220 ifa$="u"thenel=el-(el<45):printel$;el;s$:goto245
- 225 ifa$="d"thenel=el+(el>-45):printel$;el;s$:goto245
- 226 ifa$>"0"anda$<"8"thengosub1200
- 228 ifa$="0"thengosub251
- 230 ifru=0thenprintp8$
- 235 ifru<0thenprintp7$
- 240 ifru>0thenprintp9$
- 245 ifdothenreturn
- 250 goto175
- 251 fy=fy+6:iffy>6thenfy=0
- 252 iffy=0 then printdn$rx$"night":poke49160,0:goto254
- 253 printdn$rx$"day ":poke49160,11
- 254 printrx$"flying":return
- 255 rem define variables + set up
- 260 mj$="":tm$="":er$=""+mj$+"":as$=dn$+""
- 265 gs$=dn$+"":at$=""+r2$
- 270 cl$=""+r1$+""
- 275 el$=""+r1$+""
- 280 fp$=dn$+""+r1$+"":fp=1
- 285 p7$=fp$+" [157][145][206][157][157][209][157][157][206]":p8$=fp$+" [157][157][157] [145][157][157][157][195][209][195]"
- 290 p9$=fp$+" [145][157][157][157][205][209][205]"
- 295 ifq0>120oras>120thenas=120:q0=120
- 300 ru$=""+mj$+r2$:he$=dn$+""+r2$:s$="[157] "
- 305 pr$=dn$+""+r2$+""
- 306 a$="":b$="":i1$=dn$+a$+b$:i2$=dn$+""+a$+b$
- 307 i3$=dn$+""+a$+b$:i4$=dn$+""+a$+b$
- 308 in$="[218]":printi1$""in$"1"i2$""in$"2"i3$in$"3"i4$""in$"4"
- 310 dimfl$(2):fl$(1)=dn$+mj$+""+r1$+"":fl$(2)=fl$(1)
- 315 ot$=dn$+mj$+""+r2$+""
- 320 er=800:as=90:gs=as:at=gs:ru=at:he=ru:el=he:f1=235:f2=2:f3=0:f4=6:w=2
- 325 sw=56180:si=f3:gd=1:q0=0:dg=q0:do=0:ml=0:i1=1:i2=1:i3=0:i4=1:bo=49169
- 327 i5=0:i6=0:i7=0:kx=0:fy=6
- 330 s=54272:fort=stos+24:poket,0:next:pokes+6,240:pokes,f1:pokes+1,f2
- 335 pokes+4,33:pokes+24,15:pokes+13,240:pokes+7,f3:pokes+8,f4:pokes+11,17
- 340 print""tm$;ti$:printp8$""
- 345 forx=90to1step-w:pokesw,2
- 350 printer$;er;s$;as$;as;s$;gs$;gs;s$;at$;at;s$;ru$;ru;s$;he$;he;s$;fl$(1)"_"
- 355 printel$;el;s$:el=el-w
- 360 printot$"^";:ifx/18=int(x/18)thenprintot$" ";:ot$=left$(ot$,len(ot$)-1)
- 365 er=er-w:as=as-w:gs=gs-w:at=at-w:ru=ru-w:he=he+w:f1=f1-.5:pokes,f1:pokesw,1
- 370 f2=f2-.021:pokes+1,f2
- 372 ifx=30orx=60orx=90thenprintfl$(1)" ":fl$(1)=fl$(1)+"[145]":fl$(2)=fl$(2)+"[145]"
- 375 next:ti$="000000":printtm$;ti$;fp$;"[158]up "
- 380 pokes+15,75:pokes+20,240:pokes+18,17:fort=1to300:next
- 385 pokes+15,50:forx=1to300:next:pokes+18,16
- 390 rx$=r1$+""
- 392 printdn$rx$"[157][145][145][172]":printdn$rx$"[157][145][172]":printdn$rx$"[157][172]"
- 395 print""rx$"[178]";:fort=1to22:print"[157][194]";:next
- 400 rx$=rx$+"":print""rx$;"+ - engine":printrx$"< > rudder"
- 405 printrx$"u d elevator":printrx$"[145]r l flaps":printrx$"h hear atis"
- 410 printrx$"x refuel":printrx$"o demo"
- 415 printrx$"[157][171][195][195][195][195][195][195][195][195][195][195][195]";:poke1463,67:poke1463+s,2
- 420 printrx$"cabin":printrx$"pressure":printrx$"on":printpr$" [146]"
- 425 pokes+15,255:pokes+18,16:pokes+18,129
- 430 printtm$;ti$:ifti$<>"000016"then430 "
- 435 [153]dn$;rx$;" "
- 440 [153]rx$" ":[153]rx$" ":[151]s[170]18,128: [151]s[170]15,90:[151]s[170]18,17
- 445 [153]pr$" wait"
- 446 t[178][181](8000[172][187](1))[170]1000:u[178][181](300[172][187](1))[170]200:y1[178]t[170]u:y2[178]t[171]u:[141]875
- 448 [142]
- 450 [153]""el$;el;s$;tm$;ti$;er$;er;s$;as$;as;s$;gs$;gs;s$;at$;at;s$
- 465 [153]ru$;ru;s$;he$;he;s$;:pc[178][187](1)
- 470 [139]at[177]31000[167][151]s[170]4,32:[141]895:[141]845:[137]820
- 475 [139]as[177]100[167][139]el[177]30[167][141]900:[141]845:[137]820
- 480 [139]pc[177].997[167][139][195](ot$)[179]38[167][153]ot$" ":ot$[178]ot$[170]"":[153]ot$"^"
- 485 [139]f2[179]1[167]gs[178]0
- 487 kx[178]kx[170]1:kx[178]kx[171].2[172](i5[178]1)[171].5[172](i6[178]1)[171].5[172](i7[178]1)
- 490 [139]pc[177].98[175]dg[178]0[175]at[177]5000[167][153]cl$" wait":dg[178]1:d3[178]he:d8[178]0:[141]890
- 495 [139]dg[178]1[167]d8[178]d8[170]1:[141]910
- 500 [139]gs[177]1[176]as[177]1[167][139]pc[177].88[167]gs[178]gs[171]1:q0[178]q0[171]2:f1[178]f1[171]10:er[178]er[170]20[172](er[177]0)
- 505 [139]f1[179]0[167]f1[178]255:f2[178]f2[171]1:[139]f2[179]0[167]f2[178]0
- 510 [151]s,f1:[151]s[170]1,f2
- 515 [139]si[167][151]sw,2:[151]s[170]18,17:[151]s[170]15,50:at[178]at[170]d9[172](at[177]0):d9[178]d9[170]24:[137]525
- 520 [151]sw,1:[151]s[170]18,16:d9[178]15:[137]530
- 525 [151]s[170]1,d9 [175]3
- 530 [139]gd[178]0[167][141]745:[139]gd[178]0[167]si[178][171](as[179]10):[139]as[179]30[167][139]el[177]20[167]si[178]1
- 535 [139]gd[178]0[175]er[179]300[167][151]s[170]4,32:[141]895 :[141]845:[137]820
- 540 [139]at[179][178]0[175]gd[178]0[167]820
- 545 [139]as[179]q0[167]as[178]q0
- 550 [139]el[177]40[175]gd[178]0[167]si[178]1
- 555 [139]fp[167][153]fp$"sysup ":[137]565
- 560 [153]fp$"sysdown":
- 565 [139]gd[178]0[167]gs[178]0:[139]at[179][178]10[167]at[178]10
- 570 [139]el[179][178]40[175]as[177][178]10[167]si[178]0
- 575 [139]gd[178]1[167][139]fp[178]0[167][139]el[177]20[167][139]gs[177]60[167]gd[178]0:at[178]30:as[178]gs:gs[178]0:[141]602
- 580 [139]at[179][178]0[167]at[178]0
- 585 [139]kx[177]300[167]kx[178]0:[141]800
- 590 [139]gd[178]0[167]as[178]as[171]1:[139]pc[177].7[167]as[178]as[170]1:[139]pc[177].8[167]as[178]as[170]1
- 595 [139]gd[178]0[167][139]as[177]120[167]as[178]120
- 600 [142]
- 602 q0[178]as:ti$[178]"000000":[151]bo,fy:co[178]0:mx[178]0:[142]
- 605 [139]gd[179][177]1[167]625
- 610 [153]fl$(i4)" ";
- 615 [139][195](fl$(1))[179]49[167]fl$(1)[178]fl$(1)[170]"on":[137]615
- 620 fl$(2)[178]fl$(1):[153]fl$(i4)"_";:[142]
- 625 [153]dn$""r2$"ground only";
- 630 [129]x[178]1[164]1000:[130]:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd ";:[142]
- 635 [153]dn$rx$"systerminal":[153]rx$"information":[153]rx$"service"
- 640 t1[178]65:[129]x[178]1[164]10:t1[178]t1[170]([187](1)[177].5):[130]:[153]rx$"temp:"t1
- 645 [153]rx$"alt:29.95":t1[178][181](15[172][187](1))[170]10:[153]rx$"vis:"t1
- 646 [153]rx$"tnmt:"ml
- 650 [139][187](1)[177].5[167]a$[178]"alpha...":[137]665
- 655 [139][187](1)[177].5[167]a$[178]"bravo...":[137]665
- 660 a$[178]"charley..."
- 665 [153]rx$"systhis":[153]rx$"is":[153]rx$;a$:z0[178][194](161)[170]2
- 670 [153]""tm$;ti$;:[145][171]([194](161)[179][177]z0)[137]670:[153]dn$;
- 675 [129]x[178]1[164]12:[153]rx$" ":[130]:[139]do[167][141]1030
- 677 [142]
- 680 [139]a$[178]"-"[167]715
- 685 [139]f2[177][178]5[167][142]
- 690 f1[178]f1[170]10:[139]f1[177]255[167]f1[178]0:f2[178]f2[170]1
- 695 [139]gd[167]gs[178]gs[170]1:q0[178]0:[137]710
- 700 q0[178]q0[170]3:[139]q0[177]120[167]q0[178]120
- 705 [139]q0[177][178]as[167]as[178]q0
- 710 er[178]er[170]20:[137]740
- 715 [139]f2[179][178].25[167]740
- 720 [139]f2[178].25 [175]f1[179][178]235[167]740
- 725 [139]gd[178]1[167]gs[178]gs[171]1:as[178]0:q0[178]0:[139]gs[179]0[167]gs[178]0
- 730 [139]gd[178]0[167]q0[178]q0[171]3:[139]q0[179]0[167]q0[178]0
- 735 f1[178]f1[171]10:er[178]er[171]20:[139]f1[179]0[167]f1[178]255:f2[178]f2[171]1
- 740 [151]s,f1:[151]s[170]1,f2:[153]""as$;as;s$;gs$;gs;s$;er$;er;s$:[142]
- 745 [139]((el[177][171]4[175]el[179]5)[175](as[179]80))[167][139](at[179]20[175]fp[178]1)[175](i1[178]1)[167]790
- 747 z7[178]at
- 750 at[178]at[170]([180](el)[172](.1[172]as)[170]2.5[172]el)[170]2[172]pc:[139]at[177]32000[167]at[178]32000
- 760 at[178]at[171]2[172](fp[178]0):at[178]at[170]2[172](ru[179][171]30 [176] ru[177]30):[139]el[178][171]1[167]at[178]z7:at[178]at[171][181](2[172]pc)
- 762 [139]as[179]40[175]el[177]30[167][141]845:[137]820
- 763 [139](ru[177]40[176]ru[179][171]40)[175]as[177]50[167][141]866:[141]845:[137]820
- 765 [139]el[178]0[167]at[178]z7:t[178][181](pc[172]5):at[178]at[170](t[172](as[179]40)):at[178]at[171](t[172](as[177]95))
- 766 [139]at[179]y1[175]at[177]y2[167][151]bo,1:[137]770
- 767 [151]bo,fy
- 770 he[178]he[170]((as[173]100)[172]ru):he[178][181](he):[139]he[179]0[167]he[178]359
- 775 [139]he[177]359[167]he[178]0
- 780 [139]as[179]30[175]el[178]0[167]zz[178]30[171]as:at[178]at[171]zz
- 785 co[178]co[170]1:mx[178]as[172](ti[173]60[173]60[173]60):mt[178]mt[170]mx[173]co:ml[178][181](mt):at[178][181](at):[142]
- 790 gd[178]1:gs[178]as:as[178]0:q0[178]0:[139][182](ru)[177]15[167]820
- 795 [151]bo,2:at[178]0:[141]875:[142]
- 800 [153]fl$(i4)" ";:[139]gd[178]0[167]fl$(i4)[178][200](fl$(i4),[195](fl$(i4))[171]1)
- 810 [139][195](fl$(i4))[179]46[167][141]845:[137]820
- 815 m2[178]m1:[153]fl$(i4)"_":[142]
- 820 [153]""rx$"crash!!":[151]54290,16:[151]54276,32
- 825 [139][195](fl$(i4))[179]46[167][153]rx$"fuel gone!"
- 830 [151]54287,5
- 835 [151]54290,129
- 840 [129]x[178]1[164]5000:[130]:[138]
- 845 as[178]300:at[178][181](at):[129]x[178]5[164]0[169][171]1:[151]s[170]1,x:[129]y[178]255[164]0[169][171]5:[151]s,y
- 850 [139]at[179][178]0[167][142]
- 855 at[178]at[171]100:[153]tm$;ti$;at$;at;s$;as$;as;s$
- 860 [130]:[139]x[178]3[167][141]870
- 865 [130]:[142]
- 866 [151]s[170]1,f2[170]1:[129]t[178]1[164]600:[130]:[151]s[170]1,f2[170]2:[129]t[178]1[164]600:[130]:[151]s[170]1,f2[170]3
- 867 [129]t[178]1[164]600:[130]:[142]
- 870 [151]s[170]18,129:[151]s[170]15,200:[142]
- 875 [141]880:[129]x[178]1[164]500:[130]:[137]880
- 880 [129]x[178]20[164]1[169][171]1:[151]s[170]1,x:[130]:[151]s[170]4,32:[151]s[170]4,129:[129]x[178]1[164]500:[130]
- 885 [151]s[170]4,128:[151]s[170]4,33:[142]
- 890 l4[178][181](50[172][187](1))[170]16:v[178][181](10[172][187](1))[170]1:v1[178]d3[170]v:v2[178]d3[171]v:[142]
- 895 [129]t[178]1[164]2000:[130]
- 900 [153]""rx$"engine":[153]rx$"failure":[151]s[170]18,33
- 905 [129]x[178]1[164]2000:[130]:[151]s[170]4,33:[142]
- 910 [139]he[177]v1[176]he[179]v2[167]dg[178]0:[153]cl$" wait":[142]
- 915 [139]d8[179]120[171]as[167][142]
- 920 [153]dn$""rx$"collision!":[141]845:[137]820
- 925 [131]169,1,141,25,208,162,69,160,11,173,18,208,48,4,162,255,160,2,142,18
- 930 [131]208,140,32,208,173,13,220,41,1,240,3,76,49,234,76,188,254
- 935 [141]1030:do[178]1
- 940 [151]kj,1:[151]kb,[198]("+"):[141]175:[139]gs[179]65[167]940
- 950 [151]kj,1:[151]kb,[198]("u"):[141]175:[139]el[179]29[167]950
- 955 [151]kj,1:[151]kb,[198]("l"):[141]175:[141]450:[141]450:[141]450
- 960 [151]kj,1:[151]kb,[198]("1"):[141]175
- 965 [151]kj,1:[151]kb,[198]("d"):[141]175:[139]el[177]4[167]965
- 970 d5[178]0:px[178]0
- 975 [141]175
- 980 [139]as[179]60[167][151]kj,1:[151]kb,[198]("+"):[141]175:[137]980
- 985 [139]dg[178]1[167]rn[178][181](10[172][187](1)):ru[178]ru[170]rn:[141]450:ru[178]ru[171]rn
- 990 [139]d5[178]100[167]px[178]1:[151]kj,1:[151]kb,[198]("d"):[141]175:[139]el[179][177][171]6[167]990
- 995 [139]el[177]6 [167] el[178]el[171]1:[141]450:[137]995
- 1000 d5[178]d5[170]1:[139]px[178]0[167]975
- 1002 [141]175:[139]as[179]40[167][151]kj,1:[151]kb,[198]("+"):[141]175:[137]1002
- 1003 [139]at[177]200[167]1002
- 1005 [151]kj,1:[151]kb,[198]("u"):[141]175:[139]el[179][171]2[167]1005
- 1007 [151]kj,1: [151]kb,[198]("1"):[141]175
- 1010 [151]kj,1:[151]kb,[198]("r")
- 1015 [141]175:[139]gd[179][177]1[167]1015
- 1020 [141]175:[151]kj,1:[151]kb,[198]("-"):[139]gs[177]0[167]1020
- 1025 ru[178]0:[141]1035:[153]rx$"onon ":do[178]0:el[178]0:[137]175
- 1030 [153]dn$""rx$"demo":[153]rx$"flight":[142]
- 1035 [153]dn$""rx$" ":[142]
- 1200 [139]a$[177]"4"[167]1400
- 1202 [139]a$[178]"1"[167]i1[178]1[171]i1:[141]1300:[141]1220:[142]
- 1205 [139]a$[178]"2"[167]i2[178]1[171]i2:[141]1230:[142]
- 1210 [139]a$[178]"3"[167]i3[178]1[171]i3:[141]1240:[142]
- 1217 [139]a$[178]"4"[167][141]1350:[141]1260:[142]
- 1220 [139]i1[178]1[167][153]i1$"(NULL)":[142]
- 1225 [153]i1$"(NULL)":[139]gd[178]1[167]820
- 1227 [142]
- 1230 [139]i2[178]1[167][153]i2$"(NULL)":[142]
- 1235 [153]i2$"(NULL)":[142]
- 1240 [139]i3[178]1[167][153]i3$"(NULL)":[141]1310:[142]
- 1250 [153]i3$"(NULL)":[141]1330:[142]
- 1260 [139]i4[178]1[167][153]i4$"(NULL)":[142]
- 1270 [153]i4$"(NULL)":[142]
- 1300 [151]s[170]11,33:[151]s[170]8,4:[129]u[178]1[164]2000:[130]:[151]s[170]11,32
- 1305 [151]s[170]7,f3:[151]s[170]8,f4:[151]s[170]11,17:[142]
- 1310 f1[178]f1[171]40:er[178]er[170]80[172](er[177]0):[139]f1[179]0[167]f1[178]255:f2[178]f2[171]1:[139]f2[179]0[167]f2[178]0
- 1320 [151]s,f1:[151]s[170]1,f2:[142]
- 1330 f1[178]f1[170]40:er[178]er[170]80:[139]f1[177]255[167]f1[178]0:f2[178]f2[170]1
- 1335 [137]1320
- 1350 [153]fl$(i4)" ":i4[178]i4[170]1:[139]i4[178]3[167]i4[178]1
- 1355 [153]fl$(i4)"_":[142]
- 1400 [139]a$[178]"5"[167]i5[178]1[171]i5
- 1402 [139]a$[178]"6"[167]i6[178]1[171]i6
- 1404 [139]a$[178]"7"[167]i7[178]1[171]i7
- 1406 [139] i5[178]1 [167] [153]dn$rx$"ononcmdcmd*":[137]1410
- 1408 [153]dn$rx$"cmdcmdonon*"
- 1410 [139]i6[178]1[167][153]dn$rx$"cmdcmdon*":[137]1414
- 1412 [153]dn$rx$"cmdcmdon*"
- 1414 [139]i7[178]1[167] [153]dn$rx$"cmdcmd*":[142]
- 1416 [153]dn$rx$"cmdcmd*":[142]
-