0DI.QQ$(1):GOS.30000›01DI.A$(100),BOARD(3)›02 GOS.21000›03 A$="hÉÐQh…áh…àh…ãh…âh…åh…ä©…æ…ç¨±à‘â©eà…à©eá…á©eâ…â©eã…ã©eæ…æ©eç…ç¥äÅæÐÎ¥åÅçÐÈ`"›36C.1›37GR.6:POK.756,BASE:SE.2,0,0:SE.4,0,0:SE.0,8,5:POK.752,1:POK.559,0›39R.POKE (PEEK(560)+PEEK(561)*256+4)+85,›40POK.(PEEK(560)+PEEK(561)*256+3)+85,7›41PL.25,65:DR.10,30:DR.0,30:POS.0,65:POK.765,5:X.18,#6,0,0,"S:"›42PL.159,65:DR.159,30:DR.158,30:POS.80,65:POK.765,5:X.18,#6,0,0,"S:"›43PL.75,20:DR.150,0:DR.20,0:POS.75,20:POK.765,5:X.18,#6,0,0,"S:":PL.0,79:DR.159,79›44C.0:PL.0,70:DR.80,70›45 GOS.3000:SHAPE=PMB:SHAPE1=PMB+20:PIV=SHAPE:SHAPE2=PMB+40:MEN=5:BONUS=200:CO=0›46?"óãïòå 0 íåî ";MEN›50T.40000:T.2000›60 DL=PEEK(560)+256*PEEK(561)›70 DL4=DL+4:DL5=DL+5›80 PDL4=PEEK(DL+4):PD=PDL4›85POK.53279,8›90 ST=STICK(0)›91IF ST=11 THEN PIV=SHAPE1:DIR=-1›92IF ST=7 THEN PIV=SHAPE:DIR=1›93IF STRIG(0)=0 THEN GOS.4500›94 FOR C=1 TO 3:SO.0,255,10,15:N.C›95 FOR C=1 TO 3:SO.0,225,12,15:N.C›0100 Z=Z+(ST=13)*4-(ST=14)*4›0111 D=USR(ADR(A$),PIV,PMB+512+Z,19)›0112IF PEEK(53252)<>0 THEN PIV=SHAPE2:GOS.4000›0116IF PDL4<=224 THEN PDL4=243:GOS.10000›0117IF PDL4>=244 THEN PDL4=225:GOS.10000›0119 PDL4=PDL4+DIR*LV›0120POK.DL4,PDL4›0121IF MEN=1 THEN GOS.21024›0140 G.90›3000 A=PEEK(106)-31:POK.54279,A:PMB=A*256›3001POK.53277,3:Z=40:X=100›3002POK.53248,X:POK.704,88:POK.53256,1:POK.705,103›3003 FOR I=PMB TO PMB+1024:POK.I,0:N.I›3004 FOR I=PMB TO PMB+12:REA.R:POK.I,R:N.I›3005D.0,0,0,0,224,120,60,120,224,0,0,0,0,0,0,0,0,28,120,240,120,28,0,0,0,0›3006 FOR I=PMB+20 TO PMB+32:REA.R:POK.I,R:N.I›3007 FOR I=PMB+40 TO PMB+50:REA.R:POK.I,R:N.I›3008 FOR I=PMB+60 TO PMB+70:REA.R:POK.I,R:N.I›3010POK.559,46:POK.53278,1:RET.›3011D.0,0,136,80,32,80,136,0,0,0,0›3012D.0,0,0,28,62,42,62,107,73,0,0›4000 D=USR(ADR(A$),PIV,PMB+512+Z,10)›4001 FOR SO=14 TO 255 STEP 20:SO.0,SO,10,15:N.SO:POK.712,RND(0)*255›4002 D=USR(ADR(A$),PMB+200,PMB+512+Z,10)›4003SO.0,0,0,0:F.C=1 TO 100:N.C:POK.712,CO›4004 PIV=SHAPE:Z=40:PDL4=PD:POK.DL4,PDL4:DIR=0:MEN=MEN-1:?"";MEN:IF MEN=0 THEN G.21026›4005 D=USR(ADR(A$),PIV,PMB+512+Z,10)›4006POK.53278,1:RET.›4500IF DIR=1 THEN GOS.5000:RET.›4501IF DIR=-1 THEN GOS.5500:RET.›5000POK.PMB+384+(Z+5),0:POK.PMB+383+(Z+5),3›5003 FOR C=100 TO 200 STEP 5:POK.53252,C:IF PEEK(53248)=1 THEN G.6000›5004IF PEEK(53256)>1 THEN GOS.9000:POK.53278,1›5005SO.0,C,12,15:N.C:SO.0,0,0,0:POK.53252,0:POK.PMB+383+(Z+5),0:RET.›5500POK.PMB+384+(Z+5),0:POK.PMB+383+(Z+5),3›5503 FOR C=100 TO 40 STEP -5:POK.53252,C:IF PEEK(53248)=1 THEN G.6000›5504IF PEEK(53256)>1 THEN GOS.9000:POK.53278,1›5505SO.0,C,12,15:N.C:SO.0,0,0,0:POK.53252,0:POK.PMB+383+(Z+5),0:RET.›6000IF PEEK(53248)=1 THENSO.0,46,10,15:POK.53252,0:POK.PMB+383+(Z+5),O:POK.53278,1:SO.0,0,0,0:RET.›9000 SCORE=SCORE+10:?"";SCORE:IF SCORE=BONUS THEN GOS.20000›9001 D=USR(ADR(A$),SHAPE2,PMB+768+RN1,10):POK.53249,ND1:POK.53278,1:POK.PMB+383+(Z+5),0›9002 D=USR(ADR(A$),SHAPE2,PMB+640+RN,10):POK.53249,ND:POK.53278,1:POK.PMB+383+(Z+5),0›9003 FOR C=100 TO 1 STEP -1:SO.0,C,10,15:N.C›010000 PE=PIV:PIV=PMB+60:D=USR(ADR(A$),PMB+200,PMB+640+RN,10):POK.53249,ND›010001 RN=RND(0)*60:ND=RND(0)*230:D=USR(ADR(A$),PIV,PMB+640+RN,10):POK.53249,ND:POK.705,RND(0)*255:PIV=PE›010002 PE=PIV:PIV=PMB+60:D=USR(ADR(A$),PMB+200,PMB+768+RN1,10):POK.53250,ND1›010003 RN1=RND(0)*60:ND1=RND(0)*230:D=USR(ADR(A$),PIV,PMB+768+RN1,10):POK.53250,ND1:POK.706,RND(0)*255:PIV=PE›010004RET.›020000IF BB=1 THEN G.20500›020001 BONUS=BONUS+200:F.C=100 TO 1 STEP -0.5:SO.0,C,10,15:SO.1,C,12,10:N.C›020002 FOR C=0 TO 3:SO.C,0,0,0:N.C›020003SE.0,6,8:POK.712,132:CO=132:C.0:F.C=40 TO 55:PL.0,C:DR.159,C:N.C:C.1›020004PL.10,30:DR.95,55:C.0:F.C=57 TO 77:PL.70,C:DR.120,C:N.C:BB=1:RET.›020500 BONUS=BONUS+1020:F.C=100 TO 1 STEP -0.5:SO.0,C,10,15:SO.1,C,12,10:N.C:BB=2›020502 FOR C=0 TO 3:SO.C,0,0,0:N.C›020503SE.0,4,15:POK.712,15:CO=15›020504C.0:F.C=2 TO 77:PL.0,C:DR.159,C:N.C›020505C.1›020506R.PLOT 159,80:DR.159,55:DR.159,55:POS.106,80:POK.765,5:X.18,#6,0,0,"S:"›020507R.PLOT 53,80:DR.0,55:DR.0,55:POS.0,80:POK.765,5:X.18,#6,0,0,"S:"›020508PL.0,25:DR.53,0:DR.0,0:POS.0,25:POK.765,5:X.18,#6,0,0,"S:"›020509PL.159,25:DR.159,0:DR.106,0:POS.158,25:POK.765,5:X.18,#6,0,0,"S:"›020510R.PLOT 106,55:DR.80,25:DR.80,25:POS.53,55:POK.765,5:X.18,#6,0,0,"S:":RETURN›020511PL.0,55:DR.50,35:PL.159,25:DR.95,25:PL.159,55:DR.50,65:POK.704,0›020520RET.›021000GR.2:SE.0,6,8:SE.2,0,0:POK.752,1:POK.756,BASE›021001?#6;" *****************"›021002POS.2,4:?#6;" PHAMTOM FIGHTER ":?" by WALTER NEUSCHAEFER"›021003?#6;" _______________ "›021004?#6:?#6:?#6;" ***************** "›021010 FOR C=1 TO 3:F.TI=1 TO 255:POK.708,TI:N.TI:N.C›021020GR.2+16:?#6:?#6;" SKILL LEVEL ?":?#6;" (1,2,3)":GOS.21050:O.#1,4,0,"K:":GET#1,LV:CL.#1›021021IF LV<>49 AND LV<>50 AND LV<>51 THEN 21020›021022 LV=VAL(CHR$(LV))/2›021023 FOR C=0 TO 3:SE.C,0,0:N.C:SE.LV*2,4,8:F.C=1 TO 1000:N.C:RET.›021024SE.0,RND(0)*15,(RND(0)*7)*2:POK.712,RND(0)*255:RET.›021025?#6;" ":?#6;" LEVEL 1=slow":?#6;" LEVEL 2=ÆÁÓÔ":?#6;" LEVEL 3=öåòù æáóô":RET.›021026POK.53277,0:GR.2+16:SE.4,4,3:POK.756,BASE›021027?#6:?#6;" YOUR ÓÃÏÒÅ WAS ";SCORE›021028?#6›021029?#6;" DO YOU TO PLAY":?#6;" AGAIN?(ù/î)"›021030O.#1,4,0,"K:":GET#1,DUMP:CL.#1›021031IF DUMP=ASC("Y") THEN RUN ›021032IF DUMP=ASC("N") THENEND›021033 G.21030›021050POK.756,BASE:GOS.21025:RET.›030000 VT=PEEK(134)+256*PEEK(135):AT=PEEK(140)+256*PEEK(141):B=PEEK(106):IF B/2=INT(B/2) THENPOK.106,B-5›030010 BASE=PEEK(106)+1:OFFSET=256*BASE-AT:V3=INT(OFFSET/256):V2=OFFSET-256*V3›030020POK.VT+2,V2:POK.VT+3,V3:POK.VT+4,0:POK.VT+5,4:POK.VT+6,0:POK.VT+7,4›030100 QQ$="88îîDDfÿffÿf>"›030200 QQ$(LEN(QQ$)+1)="`<|fl0fF68of;888>x|<~ZZ~ÿÛ™~0~"›030300 QQ$(LEN(QQ$)+1)="0`@ccccc8>>>``~ppppw``|l`cc>66wwcc<<<<<"›030400 QQ$(LEN(QQ$)+1)="<<<<<<00~~`00`ccooo`?33sss~ffgggg`cc~ffwww``pp"›030500 QQ$(LEN(QQ$)+1)="``pppc`oggssssssn~fflggg000ppp~gwggggwogggccgggccpppc"›030600 QQ$(LEN(QQ$)+1)="cggg~ffwww`ssggggggggggo>gggogsss>ggggggfl7g@`0"›030700 QQ$(LEN(QQ$)+1)="xx6cÿ6>øøøøøø8pàÀÀàp8"›030800 QQ$(LEN(QQ$)+1)="?ÿ€Ààðøüþÿððððÿÿÿÿððððwwÿÿ"›030900 QQ$(LEN(QQ$)+1)="ÿÿ<~~~<ÿÿÿÿÀÀÀÀÀÀÀÀÿÿÿÿððððððððx`x`~<~~<"›031000 QQ$(LEN(QQ$)+1)="0~0~<~~<>~v~```~fn~>20:>~fv~~f~p~>~fv~~```~fvv"›031100 QQ$(LEN(QQ$)+1)="~006|vwfkc|fvvv~fvv~~fv~``~fn~>0888> >~~"›031200 QQ$(LEN(QQ$)+1)="ffnn~fnn>ck>6f>>nfff~~~6~<~~<~x|nf8x8"›031300GR.0:POK.756,BASE:RET.›