ZXTape! 0Created with Ramsoft MakeTZXRB  =0:0:0:55998:23659k\,0 )10 ,11 ;7;"RED BARON" ,12 ,9 ;7;"By Keith Hunt" 522,11 ;7;" 1983 M.C.Lothlorien" 0,0;:"" 0,0;:"" RBCODE A% C%>??q@@@@@;{ 0?ϟƂ089=73'6?88  ??88 !߿?   ??T|@@@?а @@@@@AO? "}@@@@@@> @00pp?߸> = ߿` 0??``|???~@@@@@}?WcA ;? l?O_@>~>>???<<|~p`````o??ܰ~`?Ą?@ >0?w? x@ 7(0 @  ?|?7wP߿?#!#; ~? @@@px#/<0>|~C$!$߀@ G~8|)> #< #,Z5  ɵ@ @0lf٦Y$g0p? {_0 pd 1bD#aaf```PS+ ?`b0@?;?@0  C?p7//?""?""""""?x׷{{x7w@  ????/// ?""?""}gx?̼xx;@ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU^U?UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW__<~UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW_|P~<UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW]_|<:wooooow{}> @__OOOGGUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_7: @CCAAAAAAժUUUUUUUUUUUUUUUUUUUUǻ?w`px??????????UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU?woo:UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW_奥%@ ?|> UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW__%%%%%%%%>־}}}=>UժUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWWW‚%%%%%%%%@ ?޾|UUUUUUUUUUUUUUUUUUUUUUUURBG P@ue-R0??01P b;/?};@l{daS?@/"" b``+?xx7 /""@f?0 @ ?"" ?x`, ٘Da0p""Zg #` 7??? g5 Y p?0??C/""{?xx` @$0p_f`@/""{w??<|~x|<|~BB@DBBBBb DH88@BDx8(BBBfB@BB@BB@bB|B|BBBRBB@@BB@B|@JD@DBBDBF"<D@DBDDBBBB@BB@BD@FB~x|BB<<<B<~<B~~B8<(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((`aa`(((((((((((((((((((((((((````aa````((((((((((((((((((((```fff``ffff``(((((((((((((((((``fffff``fffff``((((((((@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WWWWWWWWW@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pppppppppppppppp@@@@@@@@((((((((((((((((((((((![~( (6}R# # <@''{\\\{\И!ФБ\ZX![!HP!!8 K SR PF:0::g$="":i=132 :g$=g$+" ":i:c$=g$+g$+g$+g$ last=10 :r$(4,2):m$(4,20):q(12 ,8):p(8,6):c(17,3):e(5,2) 4i=18:j=16:p(i,j):j:i 5i=112 :j=18:q(i,j):j:i i=14:m$(i):i Blast=10 :1700:800 :(3500 +opt*100d) opt=110 0opt>1opt<6700:1800 opt=210 2ywon=1scene=19100d:10 iywon=1(opt=3opt=4)300,:scene=scene+1:800 :3900<:20 (5opt=5300,:10 +(i$="y")*190 2#ewon=1300,:10 d n0::0:7:1:7,8;"CONGRATULATIONS!";11 ,8;"we never thought";13 ,7;"anyone would do it" odi=120:j=110 :.005y# =,(20+i+j):.005y# =,(20+i-j):j:i p 500: Cag=1:4002:j=1c(11 ,1):4023 ti=13:j=13 16:c(j,i)=0:j:j=15:e(j,(i/2)+1)=0:i Ec(8,1)=rz:c(8,2)=qz:c(8,3)=pz last=10 :20 , 65:1,0;c$;c$:i=502-502-1:.05|L,i:i:i=120:.05|L,(-502+((*20))):i @ewon=10::7:6,0;"The countryside is covered with"''"the shattered remnants of your"''"Sopwith Camel , and yet another"''"valiant pilot is removed from"''"the roster.":500 Enywon=15,0;"Is it all over.....OH NO..........there's another over there....":500 JH:opt=59 :3,5;"Same game again?(y/n)":i$: T  8:8:8 10 ,0;""; (cp=59000x+e(4,v)*1536 j=011 :23675{\,(j*128+cp)-256*((j*128+cp)/256):23676|\,((j*128+cp)/256) & ;a$;:j 00:5:0:  0:5:0: w=c(12 ,1) ov=1c(11 ,1):a=(c(3,1)/2):b=a*2:bc(3,1)1100L "b=c(3,1)1300 v  6000p  1500    *=i=13:j=116:c(j,i)=0:j:i 4<i=12:j=15:e(j,i)=0:j:i > -2,0,-1,1,0,2,-1,1,0,2,1,1,0,2,1,1,2,0,1,1,2,0,1,-1,2,0,1,-1,0,-2,1,-1,0,-2,-1,-1,0,2,-1,-1,-2,0,-1,-1,-2,0,-1,1 E11 ,1,0,-1,9 ,9 ,12 ,12 F11 ,11 ,11 ,0,-1,9 ,9 ,12 F11 ,11 ,11 ,1,0,-1,9 ,12 G11 ,1,0,-1,-1,-9 ,12 ,12 A1,1,1,5,7,4,4,2 A2,1,1,1,0,4,4,2 D1,1,0,-1,-1,-1,2,2 D1,1,1,0,-1,-1,-1,2 C2,1,1,1,0,-1,-1,2 D6,6,0,-1,-1,-1,2,2 E6,6,6,5,-1,-1,-1,12 E12 ,11 ,1,1,0,-1,9 ,12 Q"ailerons have jammed","throttle has stuck","now unconcious","guns have jammed" L VXdx=c(1,1+v)-c(1,1):dy=c(2,1+v)-c(2,1) `'dx>0ƽ(dx)>(dy)fac=1-a j'dx<0ƽ(dx)>(dy)fac=3-a t'dy>0ƽ(dx)ǽ(dy)fac=0-a ~'dy<0ƽ(dx)ǽ(dy)fac=2-a %dx=0dy=0oh=1: fac<0fac=fac+4 @dx=0dy=0epos=0:edis=(dx+dy):1200 <(dx)>(dy)epos=-1*(dy/dx):edis=(dx):1200 '(dx)ǽ(dy)epos=(dx/dy):edis=(dy) :e(1,v)=epos:e(2,v)=edis:e(4,v)=fac:  Xdx=c(1,1+v)-c(1,1):dy=c(2,1+v)-c(2,1) (&dx<0dy>0fac=0-a 2&dx0dy0fac=1-a <&dx>0dy<0fac=2-a F&dx0dy0fac=3-a Pfac<0fac=fac+4 U%dx=0dy=0oh=1: Z>ax=(dx):ay=(dy):ax=ayepos=1:edis=ax:1411 d*ax=ayepos=0:edis=ax:1430 nax>ayty=ax-ay:tx=ax xax0dy>0dx0dy<0ax>ayepos=-epos )dx<0dy>0ax>ayepos=-epos :e(1,v)=epos:e(2,v)=edis:e(4,v)=fac:  Iv=1c(11 ,1):c(8,v+1)01610J 0e(1,v)=15+(e(1,v)*15) Se(3,v)=c(3,1+v)-c(3,1)-1-2*e(4,v) 9e(3,v)<0e(3,v)=e(3,v)+8 9e(3,v)<0e(3,v)=e(3,v)+8 #e(2,v)<20size=3:loc=56000:ju=64@:stp=260:no=3:e(1,v)=e(1,v)-(e(1,v)>22)*(e(1,v)-22):e(5,v)=(e(1,v)<5)+(e(1,v)>4e(1,v)<19)*2+(e(1,v)>18)*3 "8e(2,v)20e(2,v)<80Psize=2:loc=58100:ju=32 :stp=70F:no=1:e(1,v)=e(1,v)-(e(1,v)>26)*(e(1,v)-26):e(5,v)=(e(1,v)<9 )+(e(1,v)>8e(1,v)<20)*2+(e(1,v)>19)*3 ,e(2,v)80Psize=1:loc=58700L:ju=16:stp=16:no=0:e(5,v)=(e(1,v)<9 )+(e(1,v)>8e(1,v)<24)*2+(e(1,v)>23)*3 1#wc(12 ,1)1610J 6@a$="":i=0(ju/8)-1:a$=a$+(144+i):i @75000:3200 :last=e(4,v):5200P Jv:6010z T  W0::1:6:7:0:2,11 ;"RED BARON":0 56:4,4;"choose your option(1-6)"  1 †1740:i=16:n$:0:7:1:5+i*2,1;i;:0:;"------";:i:9 :;n$:i  0 m"Enemy aircraft spotting","Training flight","Level of play","Campaign game","Design your own game","Finish" i$=:i$=""1750 i$<"1"i$>"6"1750 0.01z# =,502 opt=(i$):scene=1 D6:0:20,3;"option ";opt;" chosen....OK?" i$=:i$=""1790 )i$="y"0.01z# =,502:1799 )i$="n"0.01z# =,502:1700  1790   'w=1:ewon=0:ywon=0 D:v=1c(11 ,1):3000 :2200:v N 2000 Oov=1c(11 ,1):a=(c(3,1)/2):b=a*2:bc(3,1)1100L P"b=c(3,1)1300 Qv S51500:5100:ewon=1ywon=1 X0w*502<1c(16,1)=(*6)+1 4cal=0:max=c(4,1):count=0 cc(15,1)0(c(13 ,1)0c(14,1)0)2110> `7:0:1:16,5;"do your manoever NOW":0:0:5 |i$=:count=count+1:0.005y# =,(count/c(5,1))+40(:count10 *c(5,1)2110> i$=""2010 2i$="1"opt=2c(8,2)=0: 8c(14,1)=0cal=cal+(i$="c")-(i$="d") i$="f"c(14,1)=0c(4,1)1c(14,1)=0c(4,1)>max-c(7,1)c(4,1)=c(4,1)-1:2010 "i$"5"i$"7"i$"8"2010 )c(13 ,1)02090*  7i$="5"c(3,1)=c(3,1)-1  7i$="8"c(3,1)=c(3,1)+1 *Kc(3,1)<0c(3,1)=c(3,1)+8 4Kc(3,1)>7c(3,1)=c(3,1)-8 >c(1,1)=c(1,1)+p(c(3,1)+1,3)*c(4,1):c(2,1)=c(2,1)+p(c(3,1)+1,4)*c(4,1) HN0:0:16,0;" ":5 RNc(13 ,1)0c(13 ,1)=c(13 ,1)-1 \Nc(14,1)0c(14,1)=c(14,1)-1 fNc(15,1)0c(15,1)=c(15,1)-1 pNc(16,1)0c(16,1)=c(16,1)-1 qcal<-2cal=-2 rcal>2cal=2 sgc(17,1)=c(17,1)+cal:c(17,1)>9 c(17,1)=9 t:c(17,1)<1c(17,1)=1 z  !c(11 ,v+1)=0 ?c(8,v+1)00:17,0;g$: [7:0:17,0;g$:1:17,5;"Enemy ";v;" moving "; !cd=-1"left":2260 $cd=0"forwards":2260 cd=1"right" 2c(11 ,1)=2v=1100d   ecal=0:cd=0:cs=0:*502<1c(16,v+1)=(*6)+1 *c(8,v+1)03180l +c(15,v+1)03130: Ic(13 ,v+1)0c(14,v+1)03130: :*10 3tac<7)+(tac-10 )*(tac>8tac<12 )+((*3)-1)*(tac=2tac=7tac=12 ) cs=c(7,v+1)*(tac>8)-c(7,v+1)*(tac>2tac<8)+(tac<3)*(((*c(7,v+1)+1))*(c(4,v+1)1e(3,v)<5cal=2*(c(17,v+1)c(17,1)):3063 cal=(*5)-2 *c(14,1)0cal=0 oc(17,v+1)=c(17,v+1)+cal:c(17,v+1)<1c(17,v+1)=1 >c(17,v+1)>9 c(17,v+1)=9 Ncd=cd*(c(13 ,v+1)=0):cs=cs*(c(14,v+1)=0) \c(3,v+1)=c(3,v+1)+cd:c(4,v+1)=c(4,v+1)+cs fc(4,v+1)>3*c(6,v+1)c(4,v+1)=3*c(6,v+1) <c(4,v+1)<1c(4,v+1)=1 &Qc(3,v+1)<0c(3,v+1)=c(3,v+1)+8 0Qc(3,v+1)>7c(3,v+1)=c(3,v+1)-8 :Tc(13 ,v+1)0c(13 ,v+1)=c(13 ,v+1)-1 DTc(14,v+1)0c(14,v+1)=c(14,v+1)-1 NTc(15,v+1)0c(15,v+1)=c(15,v+1)-1 XTc(16,v+1)0c(16,v+1)=c(16,v+1)-1 bc(1,v+1)=c(1,v+1)+p(c(3,v+1)+1,3)*c(4,v+1):c(2,v+1)=c(2,v+1)+p(c(3,v+1)+1,4)*c(4,v+1) l  '0:5:last=e(4,v) 10 ,0;c$;g$;g$; 4a$="":i=015:a$=a$+(144+i):i D(3220 +e(4,v)*10 ):500:last=e(4,v): 4:1:13 ,11 ;" ";14,9 ;" ";15,8;" ";12 ,14;" " 6:15,10 ;" ";15,17;" ";14,12 ;" ";14,17;" ":1:13 ,15;" ";12 ,15;" ": 3:1:13 ,0;g$;g$;g$;:i=11 12 :i,0;" ":i:4:11 ,11 ;" ";12 ,9 ;" ";13 ,8;" ";14,7;" ";15,7;" " C0:4:i=13 15:i,14;" ":i v1:6:12 ,11 ;" ";13 ,9 ;" ";14,9 ;" ";15,9 ;" ": k3:10 ,0;c$;g$;g$:1:15,12 ;" ";:8:8:8: 1:3:13 ,0;g$;g$;g$:i=11 12 :i,18;" ":i:0:4:i=13 15:i,9 ;" ":i 1:4:11 ,18;" ";12 ,18;" ";13 ,18;" ";14,18;" ";15,18;" ":6:12 ,19;" ";13 ,19;" ";14,20;" ";15,20;" ": m3616 :0:5:0:0::7:1,5;"ENEMY PLANE SPOTTING":5 |4,0;" Enemy planes may adopt any of 8basic directions , each of whichcan be at any one of 3 differentranges." h::" What follows is a short course to aid you in determining an enemy planes range and direction" u20,2;"Press Any Key To Continue":0::7:0,7;"ENEMY PLANE SPOTTING":5 "v=1:e(1,v)=12 Ci=07:x$:c(10 ,v)=(*4):e(3,v)=i 4v$=" ":u$=" ":i=7i=3v$="directly" %i<3u$=" from left to right" /i>3i<7u$=" from right to left" u13 ,0;c$;g$;13 ,7;"Enemy plane moving";15,7;v$;x$;" you ";17,6;u$ tk=13:.1}L,502:k=1loc=58700L:q$="long":ju=16:stp=16:no=0 Pk=2loc=58100:q$="medium":ju=32 :stp=70F:no=1 Pk=3loc=56000:q$="short":ju=64@:stp=260:no=3 @a$="":l=0(ju/8)-1:a$=a$+(144+l):l B5000:10 ,10 ;"RANGE ";q$;" ":200:k i  ]" away from"," across"," towards"," towards"," towards"," across"," away from"," away from" !500:0:5::13 ,0;" Beware of the above enemy planefacings and positions at short and medium ranges - they can allfire on you, so try to avoid seeing them as much as possible ----your life depends on it !!" "e11 ,0;"********************************":1:0,12 ;"WARNING":0 #_500:k=13:e(1,v),e(3,v):5000:62008:300,:k $30,2,11 ,3,22,4 s t us0:5::4:i=615:i,0;g$:i:2:i=1621:i,0;g$:i ve0:4:i=1120x:31+i,480:120x-2*i/3,79O:i wloc=58100:ju=32 :stp=70F:no=1:v=1:e(1,v)=17:e(3,v)=0:a$="":i=0(ju/8)-1:a$=a$+(144+i):i x2x=8:y=17:1:0:3 z 3796 {54:0:x=10 :y=2:3796 |A2:x=8:y=6:e(3,v)=0:3796 }loc=56000:ju=64@:no=3:e(3,v)=6:x=11 :y=22:stp=260:1:a$="":i=0(ju/8)-1:a$=a$+(144+i):i:3796 a$=(144)+(145):loc=58700L:ju=16:stp=16:no=0:x=2:y=14:0:5:e(3,v)=0:3796 (1,4;146;147 0:2:16,0;"OK this is the airfield,and yourplane is there on the runway.":"The German plane on the right isthe one that will be flying withus - one of our pilots ,he wont fire at you." p800 :16,0;c$;g$;g$;18,0;" Lets go over and look at the controls.":300, M5:0:0::0:i=1621:i,0;g$:i e(4,v)=0:3200 :7:0:16,0;" You are looking forwards with the instrument panel infront of you."::" Now have a look around.":500 3720:f=13:o$:e(4,v)=f:0:16,0;c$;g$;g$:3200 :7:0:18,8;"This is the view";20,9 ;"to your ";o$:500:f "right","rear","left" e(4,v)=0:0:16,0;c$;g$;g$:3200 :7:0:16,0;" The controls are as follows:-":3;"F go faster : S go slower":3;"5 turn left : 8 go right":9 ;"7 go forwards" M7;"C climb D dive":"(Do nothing and you go straight)":1000 16,0;c$;g$;g$:16,2;"Plane status is denoted by r(ange),al(titude),s(peed).":2;"Ignore d(amage),AJ,TS,UC,GJ.":" To end training press '1'" B1:21,7;"Press a key to go":0:0 scene=6:3900<  Ԡj=0no:23675{\,(loc+j*ju+e(3,v)*stp)-256*((loc+j*ju+e(3,v)*stp)/256):23676|\,((loc+j*ju+e(3,v)*stp)/256) x+j,y;a$;:j:0   Q0::0:7:1:1,9 ;"LEVEL OF PLAY":0 0:7:1:5,1;"There are 19 different levels"::"of play ,1 to 10 are against one"::"enemy aircraft whilst 11 to 19"::"are against two." :" The higher the level the more"::"experienced will be your enemy.":::1:"Please input your selected level":0:0 Blo=1:hi=20:o$:7000X:chk=13840  scene=a  3900<  < F53950n:y$:i=116:c(i,1):i P(3950n+scene*(scene<11 )+(scene>10 )*(scene-10 )):e$:i=116:c(i,2):i:c(5,1):c(12 ,1) Q:c(17,1)=5:c(17,2)=5 Zscene11 f$:c(17,3)=5:i=116:c(i,3):i:c(11 ,1)=2:c(12 ,2)=c(12 ,1):c(12 ,3)=c(12 ,1) n"you",500,500,7,2,0,2,4,20,4,3,1,1,0,0,0,0 o"Horst Krankel",390,485,1,2,3,2,2,20,3,2,1,1,0,0,0,0,10 ,1 p"Kurt Muller",450,650,1,3,3,2,3,20,4,3,0,1,0,0,0,0,5,1 q"Peter Kaufmann",480,320@,5,4,3,2,4,20,4,1,0,1,0,0,0,0,4,1 r"Karl Reinfeld",510,650,7,4,2,2,5,20,5,2,0,1,0,0,0,0,3,1 s"Max Fischer",440,360h,1,4,2,3,2,22,5,3,0,1,0,0,0,0,3,1 t"Ernst Udet",400,610b,4,4,2,3,3,24,6,1,0,1,0,0,0,0,2,1 u"Werner Voss",520,400,2,4,1,3,4,26,6,2,0,1,0,0,0,0,2,1 v"Bruno Loerzer",615g,585I,0,5,1,3,5,28,7,3,0,1,0,0,0,0,1,1 w"Lothar von Richtofen",585I,400,1,7,0,3,6,30,7,1,0,2,0,0,0,0,1,2 x"Manfred von Richtofen-RED BARON",660,500,7,6,0,3,8,35#,8,2,0,2,0,0,0,0,1,2 }!opt=2e$="Philip Parker" Ai=1c(11 ,1)+1:7::4500:i   ^ag=0:j=0:0:0:5::1,5;"DESIGN YOUR OWN PLANE" 7000X:c(17,1)=5:c(17,2)=5:c(17,3)=5:y$="YOU":e$="ONE":f$="TWO":c(1,1)=500:c(2,1)=500:c(3,1)=7:c(4,1)=2:ag=1 Ai=512 :a$,lo,hi:i=10 a=3:4008  :;a$;" "; )o$:7100:chk=14005 0i=77300:chk=14005 ;a c(i,1)=a:i: Fj=1c(11 ,1)::1,9 ;"ENEMY PLANE ";j: 8"Skill level of pilot (0-9) ";:hi=9 :lo=0 )o$:7100:chk=14011 $c(5,j+1)=9 -a:;a ":"Pilot gives clues (y/n) "; o$:o$"y"o$"n"4014 %;o$:c(11 ,j+1)=(o$="y") %:"Enemy plane same as you (y/n) "; o$:o$"y"o$"n"4017 M;o$:o$="y"i=610 :c(i,j+1)=c(i,1):i:4023 >7000X:a$,lo,hi:i=69 :a$,lo,hi::a$;" "; )o$:7100:chk=14020 0i=77300:chk=14020 ;a:c(i,j+1)=a:i Hc(4,j+1)=2:c(10 ,j+1)=j:c(1,j+1)=(1-2*(>.5))*((*502)+80P)+500:c(2,j+1)=(1-2*(>.5))*((*502)+80P)+500:c(3,j+1)=(*8):c(12 ,j+1)=c(12 ,1):j::ag=1 8i=1c(11 ,1)+1:4500::i $"Are you satisfied with this ?";o$ Oo$="y"rz=c(8,1):qz=c(8,2):pz=c(8,3): o$="n"4000  4025 finish u0:6:6::1:3,3;"We hope you've enjoyed it";10 ,10 ;"BYE FOR NOW"  0:0   G6:0:1,12 ;"LEVEL ";scene;2,1;"PILOT";5,1;"PLANE COLOUR";7,1;"PLANE DAMAGE POINTS";9 ,1;"MACHINE GUN SKILL";11 ,1;"PILOTS FLYING SKILL";13 ,1;"MAXIMUM SPEED";15,1;"ACCELERATION";17,1;"MOVES PER TURN" *i=119,1;"TIME BASE" ,i119,1;"GIVES CLUES" 0:7:7,23;c(8,i);9 ,23;c(9 ,i);11 ,23;(10 -c(5,i))*(i1)+scene*(i=1);13 ,23;c(6,i)*3;15,23;c(7,i);17,23;c(12 ,i) Fi=13,1;y$;19,23;c(5,1)  i=23,1;e$  i=33,1;f$ ;i1c(11 ,i)=119,23;"yes" :i1c(11 ,i)=019,23;"no" 15:c(10 ,i):5,23;"***" "Hardcopy printout?(y/n)";i$  i$="y"   p5:v=1(c(11 ,1)=2e(4,1)e(4,2))1,0;c$;c$ ?c(10 ,v+1):5:9 -v*4,0;c$ j=0no:23675{\,(loc+j*ju+e(3,v)*stp)-256*((loc+j*ju+e(3,v)*stp)/256):23676|\,((loc+j*ju+e(3,v)*stp)/256) +9 -v*4+j,e(1,v);a$:j:  *c(8,1)0ewon=1 Fc(11 ,1)=1c(8,2)0ywon=1  ac(11 ,1)=2c(8,2)0c(8,3)0ywon=1  P Qnopt=2size=1c(8,v+1)0Ž(c(17,1)-c(17,v+1))>2 S7:0 xIc(16,v+1)0c(15,v+1)05265 }1e(3,v)(e(5,v)+1)5265 16,0;g$:1:dam=((*c(9 ,1+v))/(4-size))+1-((c(17,1)-c(17,v+1))>1):16,1;"Your plane hit-";dam;" damage done":c(8,1)=c(8,1)-dam:62008:100d:16,0;g$ *15>c(8,1)ƥ*2<1spec=(*3)+13 :c(spec,1)=(*6)+1:16,2;"Your ";m$(spec-12 ):100d:16,0;g$ oc(15,1)0c(16,1)0e(5,v)2e(4,v)05290 /1:i=0:16,14;"FIRE" )0.005y# =,502:i=i+1:i$= i$="m"5275 i<205267  5290 dam=((*c(9 ,1))/(4-size))+1-((c(17,1)-c(17,v+1))>1):16,1;"Enemy plane hit-";dam;" damage done":c(8,v+1)=c(8,v+1)-dam:62008:100d:16,0;g$ *15>c(8,1+v)ƥ*2<1spec=(*3)+13 :c(spec,1+v)=(*6)+1:16,2;"Enemy ";m$(spec-12 ):100d !0:16,0;g$: pa7:0:i=16:15+i,0;" ";:i rHr$(1)="AJ":r$(2)="TS":r$(3)="UC":r$(4)="GJ" u1i=1c(11 ,1)+1:7:c(10 ,i):18+i,0;" ";18+i,5;"s2";18+i,8;"al ";18+i,12 ;"r ";18+i,17;"d ";18+i,21;"AJ";18+i,24;"TS";18+i,27;"UC";18+i,30;"GJ";:i v z7:c(10 ,1):19,0;"YOU";19,6;c(4,1);19,10 ;c(17,1);19,18;" ";19,18;c(8,1) ;c(8,2)00:20,0;g$ c(8,2)>07:c(10 ,2):20,0;"ONE";20,6;c(4,2);20,10 ;c(17,2);20,13 ;" ";20,13 ;(e(2,1));20,18;" ";20,18;c(8,2) )c(11 ,1)=16040 ;c(8,3)00:21,0;g$ c(8,3)>07:c(10 ,3):21,0;"TWO";21,6;c(4,3);21,10 ;c(17,3);21,13 ;" ";21,13 ;(e(2,2));21,18;" ";21,18;c(8,3) ai=1c(11 ,1)+1:7:c(10 ,i):c(8,i)06060 5j=14:c(12 +j,i)>01 218+i,18+j*3;r$(j):0:j i 0:5: 8 BCi=110 :0.06|u\,-15:0.06|u\,-30:i L XJ"Time base per move (119)",1,20,"Speed base for plane (13)",1,3,"Accelleration(upto 3xSpeed)",0,9 ,"Plane damage points (139)",1,40(,"Machinegun skill (18)",1,8,"a",1,1,"Number of enemy pilots (1-2)",1,2,"Moves per turn (16)",1,6  input check Ia=0:chk=0:k=1̱o$:o$(k)<"0"o$(k)>"9"chk=1 chk=17140 a=a+o$(k)*10 ^((o$)-k) k:chk=1 ahichk=1   other check :chk=0:a>c(6,j+1)*3chk=1  'i,"0":i+1,i:"RBG""16384","37200":i+1,(qw/256):i,qw-256*(i+1):qw,"0":qw+1,"91":"2" ARBi=\"":9998' RBG P@16384@ 37200P @P g