home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 January
/
Ahoy_Magazine_86-01_1986_Double_L.d64
/
microsim
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
9KB
|
264 lines
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]