Fighter `J<?~~~<~~<$,<<<00000000 <23675{\,23635S\+5:23676|\,23636T\ 510008 &3;" " &3;" " (&3;" " 2&3;" " <+'"Ein Programm von Werner Spahl  1983" Fc'"In diesem Spiel kaempfen Sie ge-gen Ufos,die versuchen durch Er-reichen Ihrer Tankstationen an" PK"Beweglichkeit zu gewinnen. Achten Sie auch auf feindliche Bomber!" ZR"Steuerung:1=H,2=R,8=L,9=R,0=F"''"=10 =20 =30 Punkte" d"" n;18,0;" Bitte eine Taste druecken!":0 x0:0:0: USR=510008 ?Fighter 88:8>!"%!+o!,"#!"'!"+!"/!"3!"7!";!?[G!!"C*C!ѧR*CK?) !G*C!K?) !-! *C!!f!ѧRJG*C!K?) !G*C!ѧR͟*C!<ѧR% *C!?ѧR6s*C!KѧRG͟*C!iѧRX *C!lѧRis*C!xѧRz *C!{ѧRs*C!ѧR͟ù*CK?) ! !!>fJG*C!K?) !f!0ѧRG*C!K?) !G*CK?) ! !!>fJG*C!K?) !f!0ѧRG*C!K?) !G*CK?) !G*C!K?) !G*C!K?) !G*C!"C*C!ѧRÎck oo!!$sCM >!}ͭoc!$!KE"c!!w$c!!w$c!!w$c!!w$c!$!KE"c!!w$M >!}ͭoo>!}!!SCORE:s*+@!! !HIGH:s*#@!!DSHIPS:>s*'@C!"G! "K!"O!"S!K?) L"W*K!KE̓%͙`i!ѧR*K!KE̓%͙`i!ѧRä*K!KE̓%͙`i!ѧR*K!KE̓%͙`i!ѧRäo*K! sCc>!}>!}!Q*WѧR!*KѧRKE"c>!}>!}!R*WѧR!*KѧRKE"!K?) L"W>å1Hͭ*K!ѧR*K!ѧR"K>2Hͭ*K!ѧR*K!"K>#8"HͭX!K?) L!(ѧRXX!"O>h9gHͭ !K?) L!ѧR!"O*O!ѧRo*K!sC*O!ѧRo*K!sCc>!}!Q!K?) LѧR!*KѧRKE"c>!}!R!K?) LѧR!*KѧRKE">Á0Hͭ–z*3!"3*3!ѧR*7ѧR*3"7*;!";!"/*;!ѧRf!"C*C*;ѧR)*C!K?) *C!K?) L*OGâ*CK?) L!ѧRIâ*C!K?) L!ѧR(*C!K?) L!ѧRo*CK?) L!f*C!K?) L sCc>!}>!}!B*WѧR*C!K?) L!*CK?) L!fѧRKE"*C!K?) L!ѧRPÄ*C!K?) L!ѧRsì*C!K?) L!ѧR–*C!K?) *C!K?) L*OG*C!K?) L!ѧR!"S*C!K?) L!ѧR!"S*S!ѧR)â*C!K?) L!ѧR*C!K?) L!ѧR(*C!K?) L!ѧRo*CK?) L!f*C!K?) LsC*C!K?) L!ѧR}*C!K?) L!ѧR(}*C!K?) L!ѧR}o*CK?) L!f*C!K?) LqlsC*C!K?) L!ѧR'*C!K?) L!ѧR('*C!K?) L!ѧR'o*CK?) L!f*C!K?) LsC*C!K?) L!ѧR*C!K?) L!ѧR(*C!K?) L!ѧRo*CK?) L!f*C!K?) L sC*C!K?) L!ѧRƒ*C!K?) L!ѧR(*C!K?) L!ѧRo*CK?) L!f*C!K?) LwrsCc>!}!B!K?) LѧR*C!K?) L!*CK?) L!fѧRKE"*G!ѧRB*C!K?) L!ѧRBB*C!K?) L!ѧRB!"[*G!ѧR¢*C!K?) L!ѧRʢ*C!K?) L!ѧR¢!"[*C!"C*C!ѧR*S!ѧR*O"O!"S*G!ѧRÆo*G*_ sC*G*c"G*_*["_*_*[ѧR!ѧRI!"GÆo*G*_]ZsC!!8!-Æ*CK?) L!ѧR¡*CK?) *CK?) L!GÖ*C!K?) *C!K?) L!G!@ѧR9*C!K?) *C!K?) L!ѧRG!"g*C!K?) L*g!K?) LѧRŒ*C!K?) !GÖ*g!"g*g!ѧR?Ö*C!K?) L!ѧR>*C!K?) L!ѧR>>*K*CK?) L!fѧR>>*CK?) *CK?) L!ѧRGk*C!K?) L!ѧR*C!K?) L!ѧR*K*CK?) L!fѧR*CK?) *CK?) L!Gk*CK?) L! ѧR!@ѧR*CK?) *CK?) L!ѧRGk*CK?) L!ѧRkk!@ѧRk*CK?) *CK?) L!G!*C!K?) LѧR*C!K?) *C!K?) L!G!*C!K?) LѧR*C!K?) *C!K?) L!ѧRGÖ*CK?) L!ѧRF*CK?) !Gâ*CK?) *CK?) L!G!0uѧR{~Ö*/!"/*/! ѧRÖ*C*/K?) *CK?) LG*C*/!DMi`K?) *C!K?) LG*C*/!DMi`K?) !GÖ*CK?) L!f"G*C!K?) L"_*K*CK?) L!fѧR!f"c!"k!"o*O!ѧR¦!"k!"o*K*kKE̓%͙`i!ѧR*K*kKE̓%͙`i!ѧR*k*o"k*k!ѧR*k!ѧRæ!v"C*O!ѧR1!"Cc>!}*C!*KѧR!J!KE"*C*o"C*C*k!J!ѧRʋ1!!8!<!!8!7!!8!2!v"C*O!ѧR!"Cc>!}*C!*KѧR!J!KE"*C*o"C*C*k!J!ѧRJ!"C*CK?) L!f*KѧR*C!K?) L*kѧR*C!K?) L!ѧR*CK?) !G*+*C!K?) L! J"+o>!}!!*+@C0*C!"C*C*;ѧR/Po*K*kB AsC!"s!*s#SC"E!!8! *CѧRM >!}ͭo*K*CѧR!ѧR(*k*CѧR!ѧR(o*K*CѧR*k*CѧR.sC*K*CѧR!ѧR(;o*K*CѧR*k/..sC*K*CѧR!ѧR(*k*C!ѧRo*K*CѧR*k*CÉ.sC*k*CѧR!ѧR(o*K*k*CѧR.sC*k*C!ѧR o*K*k*C.sC*K*C!ѧRg*k*CѧR!ѧR(go*K*C*k*CѧR[.ZsC*K*C!ѧRo*K*C*kÓ.sC*K*C!ѧR*k*C!ѧRo*K*C*k*C.sCM >!}ͭo*K*CѧR!ѧR(d*k*CѧR!ѧR(do*K*CѧR*k*CѧRX WsC*K*CѧR!ѧR(o*K*CѧR*kØ sC*K*CѧR!ѧR(*k*C!ѧRo*K*CѧR*k*C sC*k*CѧR!ѧR(>o*K*k*CѧR2 1sC*k*C!ѧRvo*K*k*Cj isC*K*C!ѧR*k*CѧR!ѧR(o*K*C*k*CѧR sC*K*C!ѧRo*K*C*k sC*K*C!ѧRZ*k*C!ѧRZo*K*C*k*CN MsC*C#"C[ERdc>!}>!}!B*WѧR*k!*KѧRKE"!"ko*K!ý sCM >!}ͭo!"sT!*'!ѧR"'*'!ѧR!*+*#ѧR,*+"#o>!}!!S Werner SpahlEsCvNoch ein Spiel?(j/n)bsC>ÒjHͭ§T>÷nHͭÂo>!}!! Sie haben den Highscore gebrochen!"sC, sC*j*BѧR!ѧR(o*J*j*BѧR sC*j*B!ѧRo*J*j*B sC*J*B!ѧRu*j*BѧR!ѧR(uo*J*B*j*BѧRi hsC*J*B!ѧRo*J*B*jç sC*J*B!ѧR*j*B!ѧRo*J*B*j*B sC*B#"B[DRc>!}>!}!B*VѧR*j!*JѧRKE"!"jo*J!À ~sCM >!}ͭo!"r̈́!*&!ѧR"&*&!ѧR!`***"ѧR**""o>!}!!= Werner Spahl/sC`Noch ein Spiel?(j/n)LsC>j~Hͭ—T>ênHͭlo>!}!!Sie haben den Highscore gebrochen!"sCaRnmj1Xy1Y2YrRrhxi(ZhP2Z1ZbcSsiH((*e\d "!ok o,>s> *\#6#ͫͪ> *("ͪ:G~ > YYYl s> Yzs*([\RPs> Ys*\P> YYY,>sK(z:z8x:ǁvw ZX COMPILER V2.0  1983 THRELFALL and HODGSON Compiled OK Program Length = bytes To run enter RAND USR "[!!G!"#"%">2**"(*#>!t!%>"t !or2X<2*S\###"]\>2\͕$(̣i~V ̃̾̊M̯ʕ̪̫by̴ 80!M r!r!or*]\~:Y ͕*]\~:Y J͕*]\#~# ͕͕;}2*!Z++6>!*t.:gw!+r w# ! "(*e\d ""z(J{!90){ ͲKB#))yx0|g}o(yxyOxGxD||G||/g}/o#!r=| }l&@R0?jj\jgW< U>?YU*6!7͵!r K(y( *T]6 >Y>2'Y>"Y2͍[(*w (ZSS :j\2j\) :A\2A\) 8 0{(y8Yw#2͍>?͍ͦyS+~(-()6 >Y>Y> YY>YYY2͍S2'6 + 6 >?͍ͦS>"Y> YLq#px y*2>Y:A\ :j\_(>C >L¯>Gͦ˗2'y8ï6#y8ï>YYw#>Y:'Y2͍S>Y:'Y>"Y>YYUYUU>LY>YUw (. (e+(-( 0^:^ y nY* w* 6 !* ~ (+(-(0)))_*~-yʶ> Y>YY> Y>Y öU>?YU>YxY *(w#"([[Rѯɯ͂+( -( *(/2>~͕+(- #gx !DMw>!i`t/(*-!Jr-!f>~+(-!w!Rw->~>~) ͕!͕( ( J:00O *]\"]\>~}~|~V#^"l\"I\C@> YQG[(G[R"[\RK(:*(>*l\t!r!r>To*\*\>ׯ>U,s>ׯ>PU"\"\h!|+s#r#^#V#*!#LB*R#>͕;QLt>*]\#~: > ͕*]\#~ ("]\ (( 8:(Y:> !r>2+͕!r>DM >2\2\o:k\GD>2k\Do[v\c.zRR_PR0#"v\˼DM͂ (>*!x\t>"!v\t|( >-Y'͏0͏0d͏0 ͏0͕͕d͕ ͕͕R>0R8<Y͕R>!t>~>[!t!Gr͘!r)#*J8 T]*\%R06S!Kww!) w>~!Lr!w͕R>*t!#"ww##>~>[t>!Rt>Lt͕R͕>#~!Sww>"##t[(G͏!sw,*6#6'#[(Gͪ>~!cr!k r!or!r| =͘!r*]\#~ (((PP"P#~$P !r>I !w>!Rt= >Y >Y>(< >e !(w>>e͕~*I\#QLw|z7|(7z7͚.K&Ew!"r!cr͕8 ͕͕ ͕͏m!srLL!or͕ +>2+͕ 1"ʘ'H,;(~3:+(@R(!r ">~!Gr>!t͕!r>"t*]\#~$ʾ !@rp!r(ͣ!sr]>~*(w*]\#~Y"(~"]\[(G>t>t͘!r>}|͏!r>{}͕, >>.&t;+'+!Cr!Cr>}~!Yr> Y!CrA˯[[*]\#~08:8 A8˯[0͕˯(2($  Ͳ&o))K G:$(( x>!Z[2 o :n +n+([!4~ w+[[Ro(w":͕ >!t!r:!FwLz[GG*(["T]*\%R͕R >~&͕=͘1| !w!Gr>"t !~ow!&w C͕"( !r͕˯A&o>t>*!{\t͕"> ~`i!>*t>~.8>~!r*SRgoo#!r !|w>!t]͕R͕>!t!Vr##L !jr||.&“>~>&h.t!&w !r "!%͕.K&Ewr!r.`&iw !"ç͕(0>!&jte͕͘>~͘>~͕-̕((0 A5B/͌͘!rR >*t;>!tN#F #:K\:L\o:\2\>M n(:\ > :\ <͎ 0_3>ͽ͏ͽ!r1!r͕/!r>.&8tÕ_|(ULGö*o>>&t͘.}&w͘>}~!"r>͏ͽ !w$r ͏ͽ!#r>.&t1>.&t!cr͕8͕ >͏ͽ͏ͽ!-#r*l\#QL>t*#| *("#*%[(G͕" ͣ>~-̕;w͕ ( ͏>~ί~*("%!w1͕;QL###>!t>"!%t͕R !Wr>~!Gr' ͕!tr>!t!r !Wr>"t͕ 1*%| L~# L"%!*%|  ~Lx(8*%  ~# L"%͏>~>!it!r>2+͕>!r͕͂(s!w!#r͕6!w!-r͕6>!t!r*]T6 *x.+͕((" ͣü !rü !rümüR͕͂( 4͕͘*]\~) !]Tw ͕!r>!t!r>!t!r!r͂)( ͕6͕͕"͍2 ɧRDML*"x*S*[RLx(*q#pH""*>w#!r6͕!>r6!Hr!r= >Y >Y> >e<( >Y!(w>Y*K <4#> Y͕͕R͕"(͕" > Y>:Y> Y(( $( "(  4>AY> YP> Y>PY> YP> Y^#V(wFIGHTER BGBD#0 HI=300, "S=3:SC=0:B=0 3Z1=0:Z2=0:PH=30:Z(150) ( I=1 2rI15Z(I)=160:Z(I+1)=45-+(32 *((I+1)/3-3)):Z(I+2)=0 <I>15160 FI>60<170 PI>63?180 ZI>75K160 dI>105i170 nI>108l180 xI>120x170 I>123{180 I>135160 190 bZ(I)=32 +8*(/16000>):Z(I+1)=/260-480:Z(I+2)=1: bZ(I)=32 +8*(/16000>):Z(I+1)=/260-480:Z(I+2)=3: ?Z(I)=-500:Z(I+1)=0:Z(I+2)=4: $I=I+3:I150502  :21,0;"" ܙ7:36$,175:0,-20:188,0:0,20:-188,0:36$,156:188,0:0 a7;3,0;"SCORE:";SC;3,13 ;"HIGH:";HI;3,25;"SHIPS:";S >X=-1:H=12 :R=2:RR=0:Y2=Z(2) 280 :(H,15)4(H,15)01360P :(H,16)4(H,16)01360P H,15;" " "/7;1;(81Q-Y2),(177-H) ,/7;1;(82R-Y2),(177-H) 6Y2=Z(2) @="1"H>4H=H-1 J ="2"H<20H=H+1 T'="8"Z(2)<40(R=2 ^*="9"Z(2)>-140R=-2 h!R=2H,15;"" r"R=-2H,15;"" |.7;(81Q-Z(2)),(177-H) .7;(82R-Z(2)),(177-H) ="0"940 ZZ1=Z1+1:Z1-200=Z2Z2=Z1:PH=PH+15:B=0:PH=17530  I=1 .I>PHZ(I+1)=Z(I+1)+R:620l Z(I)=-500620l OZ(I+1)0Z(I+1)30(Z(I)/8),Z(I+1);" " I7;1;((66B-Y2)+Z(I+1)),(177-Z(I)/8) !Z(I+2)=1700 !Z(I+2)=2780  !Z(I+2)=3850R Z(I+1)=Z(I+1)+R $Z(I+1)>170RR=1 %Z(I+1)<-140RR=1 RR=1620l iZ(I+2)=0Z(I+1)0Z(I+1)30(Z(I)/8),Z(I+1);"" &iZ(I+2)=1Z(I+1)0Z(I+1)30(Z(I)/8),Z(I+1);"" 0iZ(I+2)=2Z(I+1)0Z(I+1)30(Z(I)/8),Z(I+1);"" :qZ(I+2)=3Z(I+1)0Z(I+1)30(Z(I)/8),Z(I+1);"" DiZ(I+2)=4Z(I+1)0Z(I+1)30(Z(I)/8),Z(I+1);"" NH7;((66B-Z(2))+Z(I+1)),(177-Z(I)/8) XOX=-1Z(I+2)<3Z(I+1)=0Y1=3:910 bQX=-1Z(I+2)<3Z(I+1)=30Y1=-3:910 l%I=I+3:I150430 vRR=1R=-R:RR=0 X=-1260  X,Y;" " X=X+X1:Y=Y+Y1 ((Y-Y1)=15X=-1:260 )X,Y;"":1/1000,45-  260 Z(I)=160720 Z(I)=Z(I)+1:500 #Z(I+1)=Z(I+1)+1 2>16400@Z(I+1)=Z(I+1)-2  J=1 <Z(I+1)=Z(J+1)Z(I+2)=2:500 $J=J+3:J15750  500  [Z(I+1)>0Z(I+1)<30H0Z(I+1)<30H>Z(I)/8Z(I)=Z(I)+4:8204  <Z(I)>32 >16400@Z(I)=Z(I)-4:8204 *2Z(I)<160>16400@Z(I)=Z(I)+4 4:15>Z(I+1)Z(I+1)=Z(I+1)+1 >:16300000u880p f 500 p$B=B+3:B>12 500 zBZ(I+B)=Z(I):Z(I+B+1)=Z(I+1):Z(I+B+2)=4  500  X=Z(I)/8:Y=Z(I+1) X1=(H-(Z(I)/8))/5  M=14:N=-1 #R=-2M=17:N=1 ,(H,M)0(H,M)71010 M=M+N M=01010 M=301010  960 &I=118v:R=-2I=138 +6;I,((21-H)*8+2) (I=I+N:IM*8+41020 T1/500,60<:1/500,557:1/500,502 &I=118v:R=-2I=138 $-1;I,(((21-H)*8)+2) .(I=I+N:IM*8+41060$ 8 I=16 BZ(I)/8=HZ(I+1)=MZ(I+2)<4Z(I)=-500:SC=SC+Z(I+2)*10 :7;3,6;SC:1120` LI=I+3:IPH1090B V ` H,M;" " j RA=7 tI=1RA ~*1/200,(-10 -I):6 (H-I4M-I0H-I,M-I;"." H-I4H-I,M;"." )H-I4M+I30H-I,M+I;"." M-I0H,M-I;"." M+I30H,M+I;"." )H+I20M-I0H+I,M-I;"." H+I20H+I,M;"." *H+I20M+I30H+I,M+I;"."  0 (H-I4M-I0H-I,M-I;" " H-I4H-I,M;" " )H-I4M+I30H-I,M+I;" " M-I0H,M-I;" "  M+I30H,M+I;" " )H+I20M-I0H+I,M-I;" " H+I20H+I,M;" " (*H+I20M+I30H+I,M+I;" " 2I <37;1;((66B-Y2)+M),(177-H) F P@M=15:H,15;" ":7:RA=15:1140t Z 0 d-S=S-1:S<00:1400x n 200 xSC>HIHI=SC:1450 C7;6,0;" Werner Spahl"'"Noch ein Spiel?(j/n)" ="j"20 ="n"1470  1420 @7;4,0;"Sie haben den Highscore gebrochen!"  1410