Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES1/WARPDATA
GAMES1/WARPDATA
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF |
| Filename: | GAMES1/WARPDATA |
| Read OK: | ✔ |
| File size: | 1F69 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
20 IF Z%=0 MODE6:PROCTT:CLEAR 30O=&71:I=&7B 40IF A%<>1 MODE6:PROCOPT:B%=1:E%=0:F%=0 50SC$=CHR$224 60MODE1 70A2=B%:B2=B%:X2=2:Y2=RND(18)+4:D1=0:X1=0:Y1=RND(20):D3=0:Y5=2:X5=1:E=0:B3=0:D5=0:X7=0:Y7=3:OA=0:OB=0:X9=0:Y9=0:EX=0:XE=0:YE=0 80VDU19,1,4;0;23;8202;0;0;0;:X=35:Y=T%:CLS:*F.4 1 90IF A%<>1 FOR ST%=1TO200:PLOT69,RND(1279),RND(960)+32:NEXT 100PROCB:VDU5 110GCOL0,2:FOR JR=1TOL%:MOVE920+JR*70,30 120PRINT"/";SC$;"/";:VDU8 130IF JR=1 GCOL0,3 140NEXT:VDU4:PROCS 150IF A%=1 X=K%:Y=U% 160 IF Y/2=INT(Y/2)Y=Y+SGN(20-Y) 170IF Y2/2=INT(Y2/2)Y2=Y2+SGN(20-Y2) 180COLOUR2:FOR S%=T%-Q% TO T%+Q%:PRINTTAB(39,S%)"[":NEXT:VDU5:FOR S%=T%-Q% TO T%+Q%:MOVE1247,(32-S%)*32:PRINT"]":NEXT:VDU4 190IF Z%=0 PRINTTAB(25,T%)"THIS IS THE";TAB(25,T%+1)"WARP-HOLE>>>>":D=INKEY200:PRINTTAB(25,T%)SPC11;TAB(25,T%+1)SPC13 200IF Z%=0 PROCD 210CALLI 220GOSUB1260 230COLOUR1:PRINTTAB(X2,Y2)CHR$233 240IFD%>TRUE VDU19,2,1;0; 250GOSUB1260 260VDU19,0,0;0; 270COLOUR2:PRINTTAB(3,31);(TIME DIV 360000)MOD24;" ";(TIME DIV6000)MOD 60;" ";(TIME DIV100)MOD60;" "; 280IF RND(20)<(20-C%) COLOUR2:GOTO380 290VDU19,1,8;0; 300GOSUB1260 310A2=E%DIV10+1 320IFV%=2 VDU19,0,14;0; 330IF Y2+B2>28 OR Y2+B2<2 B2=-B2 340COLOUR0:PRINTTAB(X2,Y2);CHR$233:COLOUR1 350X2=X2+A2:Y2=Y2+B2:SOUND&11,4,X2*4,255 360PRINTTAB(X2,Y2);CHR$233; 370VDU19,1,4;0; 380GOSUB1260 390COLOUR3:PRINTTAB(X,Y);SC$:COLOUR1 400GOSUB1260 410IFY2<Y+5 AND Y2>Y-5 AND X2<X AND D3=0 PROCX 420GOSUB1260 430IFX2>36 AND Y2<=T%+Q%+1 AND Y2>=T%-Q%-1 MODE6:PROCF:MODE1:PROCGONE1 440IF X2>38 X2=2:D%=D%-INT((C%+1)*4):SOUND0,-15,3,10:Y2=RND(26)+2 450IF X1<2 PRINTTAB(X1,Y1);" ":D1=0:X1=0 460IFX7<2 PRINTTAB(X7,Y7);" ":D5=0:X7=0 470PLOT69,RND(1279),RND(960)+32:PLOT69,RND(1279),RND(960)+32 480GOSUB1260:COLOUR1:GOTO210 490SOUND&11,4,100,20:PRINTTAB(X5,Y5)" ":E%=E%+1 500D%=D%+C%*40:PRINTTAB(X2-1,Y2);SPC(4):Y2=RND(26)+2:D3=0 510IF OB=1 VDU19,0,7;0;:SOUND&10,-15,6,30:MOVEX*32,OC:DRAW OA,OC:D%=D%-C%*10:PROCS:GOSUB530:RETURN 520IF EX=1 D%=D%+C%*60:SOUND1,4,150,20 530X2=2:IF D5=6 D5=0:X7=0 540IF D1=6 D1=0:X1=0 550VDU19;0;0;:IF V%=2 VDU19,0,24;0;19,1,4;0; 560PROCS:RETURN 570DEFPROCM 580COLOUR0:PRINTTAB(X,Y);SC$:COLOUR3 590ENDPROC 600DEFPROCF:VDU23;8202;0;0;0;:CALLI 610IF B3=10 GOTO 650 620SOUND 3,1,30,255 630A$=CHR$141:PRINT'''A$;"**TOO LATE , YOU HIT ";STR$(E%);" ASTEROIDS"'A$;"**TOO LATE , YOU HIT ";STR$(E%);" ASTEROIDS" 640D$=STR$(D%):PRINT'''A$;CHR$136"ENERGY="D$'A$" ENERGY="D$:A=INKEY(500) 650 ?&DFE=RND(5)+145:CALL&D20:CALLO 660IF B3=10 A%=1:K%=X:U%=Y:X=0:Y=0:RUN 670PROCW(120):CLG 680ENDPROC 690DEFPROCCRASH:VDU19,2,9;0;:LOCALX%,Y% 700X%=(X*32)+20:Y%=(31-Y)*32+16:VDU19;0;0;:VDU19,0,0;0;:VDU19,3,3;0; 710FORT=0TO150:MOVEX%,Y%:GCOL0,3:DRAWX%+RND(150)-75,Y%+RND(150)-75:GCOL0,2:MOVEX%,Y%:DRAWX%+RND(300)-150,Y%+RND(300)-150:NEXT 720VDU19,1,0;0;:VDU19,2,0;0;:VDU19,3,0;0; 730CALLO:PROCW(36):VDU19,3,3;0;:PROCW(26):SOUND&10,-15,6,40:VDU19,2,1;0;:PROCW(36):B3=10 740FOR T=0 TO 150:MOVE X%,Y%:GCOL0,0:DRAWX%+RND(150)-75,Y%+RND(150)-75:NEXT:ENDPROC 750DEF PROCLIV:LOCALX,Y,L$:VDU23;8202;0;0;0; 760L%=L%-1:IF L%<1 A%=0:PROCDEAD 770D$=STR$(L%):CALLI 780L$=CHR$141+CHR$136:PRINTTAB(6,4)L$;D$'TAB(6)L$;D$ 790L$=CHR$145+CHR$141+CHR$136:PRINTTAB(7,7)L$"WARP"'TAB(7)L$;"WARP" 800 PRINTTAB(9,10)L$"HOLE"'TAB(9)L$"HOLE";TAB(11,13)L$"GUARD"'TAB(11)L$"GUARD"TAB(13,16)L$"POSTS"'TAB(13)L$"POSTS" 810L$=CHR$141:PRINT'';TAB(6);CHR$149;L$;"REMAIN IN SPACE DEFENCE"'TAB(6);CHR$150;L$;"REMAIN IN SPACE DEFENCE" 820SOUND 3,1,30,&FF:PROCW(56):FOR X=1TO25:Y=INKEY(3):PRINT:NEXT:ENDPROC 830DEFPROCDEAD 840VDU23;8202;0;0;0; 850C=145:A=-1:B=1 860IF X+A>32 OR X+A<1 A=-A:G=C:REPEATC=144+RND(6):UNTIL C<>G 870IF Y+B>22 OR Y+B<1 B=-B:G=C:REPEATC=144+RND(6):UNTIL C<>G 880IF NOT INKEY(0) A%=0:VDU148,157:PRINT'"Energy banks register "D%:VDU148,157:PROCW(100):RUN 890X=X+A:Y=Y+B 900PRINTCHR$12;TAB(X-1,Y)" "CHR$141;CHR$C"DEAD "'TAB(X-1)" "CHR$141;CHR$C"DEAD " 910GOTO 860 :ENDPROC 920DEFPROCTT:SOUND0,-15,7,250 930A%=0:VDU23;8202;0;0;0; 940FORY%=1TO23:PRINTTAB(0,Y%);CHR$145;5;:PRINTTAB(38,Y%);CHR$146;5;:Y=INKEY(2):NEXT:PROCW(50) 950B1=RND(3):U=150:U1=146:CLS 960V=22:X=30:A$=" S O F T ":CLS 970FOR C=LEN(A$) TO 1 STEP -1 980B$=MID$(A$,C,1) 990FOR D=1 TO V STEP2 1000PRINTTAB(X,D)CHR$136;CHR$U;CHR$141;B$;TAB(X+1,D+1)CHR$U1;CHR$141;B$ 1010IF B1<3 PRINTTAB(X+1,D-2);SPC(6);TAB(X+1,D-1);SPC(6); 1020NEXT:X=X-1:V=V-1:NEXT 1030A$=" S N O W ":IF X=21 V=16:X=13:U=146:U1=150:GOTO970 1040PROCW(200):FORX=1TO50:FORY=1TO190:NEXT:PRINT:NEXT:CALL&71 1050CLS:PRINTTAB(13,13)CHR$145,CHR$141"PRESENTS"'TAB(13)CHR$147,CHR$141"PRESENTS":SOUND1,1,100,255 1060PROCW(300):CLS:CALL&71 1070SOUND0,-15,4,255 1080A$="*** W A R P ** H O L E ***":V=12:X=4:FOR Y=0 TO V STEP2:PRINTTAB(0,Y);CHR$149;CHR$141;TAB(0,Y+1);CHR$148;CHR$141;:NEXT 1090FORC=1TOLEN(A$):B$=MID$(A$,C,1) 1100FORD=1TOV:PRINTTAB(X,D);B$;TAB(X,D+1);B$;TAB(X,D-2);" ";TAB(X,D-1);" "; 1110NEXT:X=X+1:NEXT:CALL&71 1120PROCW(100):X=INKEY(100):FORC=1TO7:VDU31,0,0:FORY=1TO10:VDU11:PROCW(2):NEXT:CALL&71:SOUND1,3,C*4,20:VDU31,0,24:FORY=1TO12:VDU10:PROCW(2):NEXT:SOUND&11,3,C*4,20:NEXT 1130ENDPROC 1140IF ERR=17 A%=0:MODE6:VDU23;8202;0;0;0;:FORX=1TO23:PRINTTAB(X,X);CHR$(129+X MOD6)"COWARD":PROCW(1):NEXT:A=INKEY(70):FORX=1TO26:A=INKEY(5):PRINT:NEXT:RUN 1150GOTOERL+10 1160DEFPROCGONE1:VDU23;11;0;0;0; 1170FOR X%=865TO1024STEP4:GCOL0,3:VDU25,4,0;X%;25,5,250;X%;:NEXT 1180FOR X%=110 TO 140 STEP4:GCOL0,1:MOVEX%,865:DRAWX%,1024:MOVE0,X%+810:DRAW250,X%+810:NEXT 1190CALLI:COLOUR1:PRINTTAB(5,10)"THIS IS THE END OF YOUR EARTH":PROCW(300) 1200PRINTTAB(9,15)"YOUR [[ WARP ~ HOLE ]]" 1210PROCW(300):VDU19,2,4;0; 1220COLOUR2:PRINTTAB(14,21);"A N D Y O U":SOUND0,-10,7,50:PROCW(200):*F.4 0 1230FOR X=1 TO 18:COLOUR2:PRINTTAB(X,26);" ";CHR$233;:COLOUR1:PRINTTAB(X*2-3,26);" ";CHR$228:PROCW(4):NEXT 1240SOUND1,3,100,17:SOUND1,3,190,17:VDU31,29,2:PRINT"CONTINUE ":A$=CHR$(GETAND 223):A%=0:IFA$="Y" RUN 1250CLS:END 1260XX=ADVAL(1)DIV51:YY=ADVAL(2)DIV63 1270IF J%<>89 XX=640:YY=512 1280IF F% XX=RND(1279)+(X<X2)*600:YY=RND(1023)+(Y<Y2)*600-(Y>Y2)*600 1290IF XX>840 OR INKEY(-26)IF X>P%+2 PROCM:X=X-P% 1300IF XX<340 OR INKEY(-122) IF X<36-P% PROCM:X=X+P% 1310IF INKEY(-42) OR YY<312 IF Y<29-P%PROCM:Y=Y+1 1320IF INKEY(-58)OR YY>712 IFY>1+P%PROCM:Y=Y-1 1330C=C+1:IF C MOD2 = 1 SC$=CHR$224+CHR$225 ELSE SC$=CHR$224+CHR$235 1340PRINTTAB(X,Y);SC$ 1350IF INKEY(-49)OR ADVAL(0)AND3 OR FNF PRINTTAB(X1,Y1);" ":SOUND&11,1,0,10:D1=1:X1=X-1:Y1=Y 1360IF INKEY(-18)AND EX=0 AND P%=1 SOUND&11,1,200,50:EX=1:XE=X:YE=Y 1370IF EX=1 IF XE<1 EX=0:PRINTTAB(XE,YE);" ":XE=0:YE=0 1380IF EX=1 IF YE=Y2 IF XE=X2-1 OR XE=X2 GOSUB490 1390IF INKEY(-50)OR FNF PRINTTAB(X7,Y7);" ":SOUND&11,1,0,10:D5=1:X7=X-1:Y7=Y 1400IF D1=1 COLOUR0:PRINTTAB(X1,Y1);CHR$226 1410IF D5=1 COLOUR0:PRINTTAB(X7,Y7);CHR$226 1420IF I%=1 Y1=Y:Y7=Y:IF EX=1 PRINTTAB(XE,YE);" ":YE=Y 1430IF I%=0 Y1=Y 1440IF D1=1 AND X1>1 COLOUR2:X1=X1-2:PRINTTAB(X1,Y1);CHR$(226+(X1/2)MOD2) 1450IF D5=1AND X7>1 COLOUR2:X7=X7-2:PRINTTAB(X7,Y7);CHR$(226+(X7/2)MOD2) 1460IF EX=1 XE=XE-1:COLOUR2:PRINTTAB(XE,YE)CHR$250;CHR$251;" " 1470IF D3=1 COLOUR0:PRINTTAB(X5,Y5);CHR$NM:Y5=Y2:COLOUR2:X5=X5+2:PRINTTAB(X5,Y5);CHR$NM:COLOUR1:PRINTTAB(X2,Y2)CHR$233 1480IF D3=1 AND X5>36 PRINTTAB(X5,Y5);" ":D3=0:X5=1:Y5=2:COLOUR1:PRINTTAB(X2,Y2);CHR$233 1490IF INKEY(-19)OR FNF OB=1:OC=(31.5-Y)*32:D%=D%-2:OD=X*32:SOUND&11,1,50,40:PROCG:PROCS 1500IF INKEY-66PROCM:F%=NOTF%:PROCM:PROCB:X=35:Y=T%:REPEATVDU7:UNTIL NOT INKEY-66:PROCS 1510IF Y<=Y2+1 AND Y>Y2-1 IF X2>=X-1 AND X2<=X+2 GOTO1620 1520IF D3<>1 AND D5<>1 AND D1<>1 RETURN 1530IF Y>=Y2+3 OR Y<=Y2-3 IF Y1>Y2+2 ORY1<Y2-2 IF Y7>Y2+2 OR Y7<Y2-2 RETURN 1540IF X<X2 RETURN 1550IF X5>X+2 OR D3=0 IF Y=Y2 PROCX 1560IF Y1=Y2 IF X1>=X2-1 AND X1<=X2+2 D1=6:GOSUB490 1570IF Y7=Y2 IF X7>=X2-1 AND X7<=X2+2 D5=6:GOSUB490 1580IF D3=1 IF Y5=Y IF X5=X OR X5=X-1 GOSUB1660 1590IF D3=1 IF P%=1 IF X5>=X AND X5<=X+3 IF Y5=Y GOSUB1660 1600IF D3=1AND D1=1 IF Y1=Y5 IF X1>=X5 AND X1<=X5+3 PRINTTAB(X5,Y5);" ";TAB(X1,Y1);" ":X5=1:X1=0:D3=0:D1=0:SOUND&11,4,200,20:D%=D%+C% 1610IF D3=1 AND D5=1 IF Y7=Y5 IFX7>=X5 AND X7<=X5+3 PRINTTAB(X5,Y5)" ";TAB(X7,Y7)" ":X5=1:X7=0:D3=0:D5=0:SOUND&11,4,200,20:D%=D%+C% 1620IF Y=Y2 IF X2>=X-1 AND X2<=X+2 SOUND&10,-15,6,255:PROCCRASH:MODE6:PROCLIV:PROCF 1630IF P%=1 IF Y=Y2-1 OR Y=Y2+1 IF X2>=X AND X2<=X+2 SOUND&10,-15,6,255:PROCCRASH:MODE6:PROCLIV:PROCF 1640PROCS:RETURN 1650DEFPROCW(B):LOCALC:C=TIME:REPEAT UNTIL TIME>C+B:ENDPROC 1660SOUND0,-15,4,255:PROCCRASH:MODE6:PROCLIV:PROCF:PROCS:RETURN 1670DEFPROCX:PRINTTAB(X5,Y5)" ":D3=1:X5=X2:Y5=Y2:SOUND&11,3,7,(65-X5):NM=227+RND(3):ENDPROC 1680DEFPROCOPT:CALLI 1690FOR Y%=0TO24:PRINTTAB(0,Y%)CHR$(133+Y%MOD2);:NEXT:VDU28,1,24,39,0,30 1700CALLI:N=0:PRINT''"Input your name "; 1710A=GET:N=N-(N<11):IF A=13 GOTO 1780 1720IF A=127 N=N-2:N=-(N>0)*N:GOTO1750 1730IF N=1 N$=CHR$(A AND 223):GOTO1750 1740N$=N$+CHR$(A OR 32) 1750N$=LEFT$(N$,10):N$=MID$(N$,1,N):VDU-(LENN$>9)*7 1760PRINTTAB(16,2);N$;" "; 1770GOTO1710 1780IF N<3 N$="*killer*" 1790$&D02=N$ 1800PRINTTAB(0,5)"Battle cruiser OR fighter (B/F)";:FA$=CHR$(GETAND223):D%=100:L%=3:H%=RND(10):IFFA$<>"F"AND FA$<>"B" GOTO1800 1810CALLI:PRINTTAB(0,5)"Choose Level (1_9)---1 is easy ";:C%=(GETOR16)-48:IFFA$="F" P%=2 1820IF C%<1 OR C%>9 GOTO 1810 1830C%=C%*2+2 1840*FX15,1 1850PRINTTAB(6,9)"SELECT YOUR WEAPONS"'''TAB(6)"1)-Guided Missiles"''TAB(6)"2)-Direct Phasers":IFFA$="B" P%=1 1860PRINT''TAB(6)"Select appropriate number ";:I%=GET-48:IF I%<1 OR I%>2 GOTO1850 1870PRINT;I%:T%=RND(15)+7:Q%=RND(4)+1:TIME=0 1880*F.9 25 1890*F.10 25 1900PRINT'''CHR$136" Intermitant storm (Y/N) ";:G$=CHR$(GETAND223):V%=(G$="Y")*-2 1910IF V%=2:*F.9 1 1920IF V%=2:*F.10 1 1930PRINTTAB(6,21)SPC(8)"Joysticks";:J%=GETAND223 1940ENDPROC 1950DEFPROCG:VDU19,2,9;0;19,1,15;0;:GCOL0,2:IF Y=Y2 IF D3=0 OR X5>X OA=(X2+1)*32*-(X>X2) ELSE OA=X5*32*-(Y=Y2) 1960PROCL:PROCW(4) 1970IF POINT(OA-8,OC)=1 OR OB=1:GOSUB490 1980GCOL0,0:PROCL:GCOL0,3:OB=0:VDU19,2,1;0;19,1,4;0;:ENDPROC 1990DEFPROCS:COLOUR2:PRINTTAB(30,0);D%;" ";:IF D%<0 VDU19,2,9;0; 2000ENDPROC 2010DEFPROCL:MOVEOD,OC:DRAWOA,OC:MOVEOA,OC+4:DRAWOD,OC+4:ENDPROC 2020DEFPROCB:VDU19,1,4;0;19,2,1;0;19,3,6;0;:COLOUR2:PRINTTAB(1,0);SPC(20):GCOL0,1:MOVE0,992:DRAW1245,992:MOVE0,32:DRAW1280,32:GCOL0,2 2030COLOUR0:COLOUR130 2040IF F% PRINTTAB(1,0);"Auto pilot"ELSEPRINTTAB(1,0);"Pilot ";$&D02:B3=0 2050PRINTTAB(23,0);"Energy=":PROCS:COLOUR128:ENDPROC 2060DEF FNF: IF Y=Y2 AND F% AND RND(5)>3 =-1 ELSE =0 2070DEFPROCD:Z%=1:PRINTTAB(25,28)"Reserve Ships"TAB(34,29)"I I":D=INKEY200:PRINTTAB(25,28)SPC14TAB(33,29)SPC4 2080PRINTTAB(X2,Y2)CHR$230;TAB(X,Y)SC$;TAB(X2-2,Y2+2)"ASTEROID";TAB(X-6,Y+2);"YOUR SHIP":D=INKEY200:PRINTTAB(X2-2,Y2+2)SPC8;TAB(X-6,Y+2)SPC9 2090ENDPROC
� Z%=0 �6:�TT:�
O=&71:I=&7B
("� A%<>1 �6:�OPT:B%=1:E%=0:F%=0
2
SC$=�224
<�1
F}A2=B%:B2=B%:X2=2:Y2=�(18)+4:D1=0:X1=0:Y1=�(20):D3=0:Y5=2:X5=1:E=0:B3=0:D5=0:X7=0:Y7=3:OA=0:OB=0:X9=0:Y9=0:EX=0:XE=0:YE=0
P/�19,1,4;0;23;8202;0;0;0;:X=35:Y=T%:�:*F.4 1
Z/� A%<>1 � ST%=1�200:�69,�(1279),�(960)+32:�
d �B:�5
n �0,2:� JR=1�L%:�920+JR*70,30
x�"/";SC$;"/";:�8
�� JR=1 �0,3
� �:�4:�S
�� A%=1 X=K%:Y=U%
� � Y/2=�(Y/2)Y=Y+�(20-Y)
� � Y2/2=�(Y2/2)Y2=Y2+�(20-Y2)
�X�2:� S%=T%-Q% � T%+Q%:�39,S%)"[":�:�5:� S%=T%-Q% � T%+Q%:�1247,(32-S%)*32:�"]":�:�4
�Y� Z%=0 �25,T%)"THIS IS THE";�25,T%+1)"WARP-HOLE>>>>":D=�200:�25,T%)�11;�25,T%+1)�13
�
� Z%=0 �D
��I
� �dlD
��1:�X2,Y2)�233
��D%>� �19,2,1;0;
� �dlD
�19,0,0;0;
E�2:�3,31);(� � 360000)�24;" ";(� �6000)� 60;" ";(� �100)�60;" ";
� �(20)<(20-C%) �2:�D|A
"�19,1,8;0;
, �dlD
6A2=E%�10+1
@�V%=2 �19,0,14;0;
J � Y2+B2>28 � Y2+B2<2 B2=-B2
T�0:�X2,Y2);�233:�1
^%X2=X2+A2:Y2=Y2+B2:�&11,4,X2*4,255
h�X2,Y2);�233;
r�19,1,4;0;
| �dlD
��3:�X,Y);SC$:�1
� �dlD
�%�Y2<Y+5 � Y2>Y-5 � X2<X � D3=0 �X
� �dlD
�6�X2>36 � Y2<=T%+Q%+1 � Y2>=T%-Q%-1 �6:�F:�1:�GONE1
�9� X2>38 X2=2:D%=D%-�((C%+1)*4):�0,-15,3,10:Y2=�(26)+2
�!� X1<2 �X1,Y1);" ":D1=0:X1=0
� �X7<2 �X7,Y7);" ":D5=0:X7=0
�/�69,�(1279),�(960)+32:�69,�(1279),�(960)+32
��dlD:�1:�dR@
�%�&11,4,100,20:�X5,Y5)" ":E%=E%+1
�/D%=D%+C%*40:�X2-1,Y2);�(4):Y2=�(26)+2:D3=0
�K� OB=1 �19,0,7;0;:�&10,-15,6,30:�X*32,OC:� OA,OC:D%=D%-C%*10:�S:�TRB:�
"� EX=1 D%=D%+C%*60:�1,4,150,20
X2=2:� D5=6 D5=0:X7=0
� D1=6 D1=0:X1=0
&(�19;0;0;:� V%=2 �19,0,24;0;19,1,4;0;
0�S:�
:��M
D�0:�X,Y);SC$:�3
N�
X��F:�23;8202;0;0;0;:�I
b� B3=10 � �tJB
l� 3,1,30,255
vkA$=�141:�'''A$;"**TOO LATE , YOU HIT ";�(E%);" ASTEROIDS"'A$;"**TOO LATE , YOU HIT ";�(E%);" ASTEROIDS"
�;D$=�(D%):�'''A$;�136"ENERGY="D$'A$" ENERGY="D$:A=�(500)
� ?&DFE=�(5)+145:�&D20:�O
�$� B3=10 A%=1:K%=X:U%=Y:X=0:Y=0:�
�
�W(120):�
��
� ��CRASH:�19,2,9;0;:�X%,Y%
�?X%=(X*32)+20:Y%=(31-Y)*32+16:�19;0;0;:�19,0,0;0;:�19,3,3;0;
�^�T=0�150:�X%,Y%:�0,3:�X%+�(150)-75,Y%+�(150)-75:�0,2:�X%,Y%:�X%+�(300)-150,Y%+�(300)-150:�
�%�19,1,0;0;:�19,2,0;0;:�19,3,0;0;
�F�O:�W(36):�19,3,3;0;:�W(26):�&10,-15,6,40:�19,2,1;0;:�W(36):B3=10
�<� T=0 � 150:� X%,Y%:�0,0:�X%+�(150)-75,Y%+�(150)-75:�:�
�"� �LIV:�X,Y,L$:�23;8202;0;0;0;
� L%=L%-1:� L%<1 A%=0:�DEAD
D$=�(L%):�I
%L$=�141+�136:�6,4)L$;D$'�6)L$;D$
1L$=�145+�141+�136:�7,7)L$"WARP"'�7)L$;"WARP"
] �9,10)L$"HOLE"'�9)L$"HOLE";�11,13)L$"GUARD"'�11)L$"GUARD"�13,16)L$"POSTS"'�13)L$"POSTS"
*[L$=�141:�'';�6);�149;L$;"REMAIN IN SPACE DEFENCE"'�6);�150;L$;"REMAIN IN SPACE DEFENCE"
4-� 3,1,30,&FF:�W(56):� X=1�25:Y=�(3):�:�:�
>
��DEAD
H�23;8202;0;0;0;
RC=145:A=-1:B=1
\0� X+A>32 � X+A<1 A=-A:G=C:�C=144+�(6):� C<>G
f1� Y+B>22 � Y+B<1 B=-B:G=C:�C=144+�(6):� C<>G
pJ� � �(0) A%=0:�148,157:�'"Energy banks register "D%:�148,157:�W(100):�
zX=X+A:Y=Y+B
�8�12;�X-1,Y)" "�141;�C"DEAD "'�X-1)" "�141;�C"DEAD "
�
� �D\C :�
���TT:�0,-15,7,250
�A%=0:�23;8202;0;0;0;
�>�Y%=1�23:�0,Y%);�145;5;:�38,Y%);�146;5;:Y=�(2):�:�W(50)
�B1=�(3):U=150:U1=146:�
� V=22:X=30:A$=" S O F T ":�
�� C=�(A$) � 1 � -1
�B$=�A$,C,1)
�� D=1 � V �2
�/�X,D)�136;�U;�141;B$;�X+1,D+1)�U1;�141;B$
�+� B1<3 �X+1,D-2);�(6);�X+1,D-1);�(6);
��:X=X-1:V=V-1:�
:A$=" S N O W ":� X=21 V=16:X=13:U=146:U1=150:�dJC
'�W(200):�X=1�50:�Y=1�190:�:�:�:�&71
F�:�13,13)�145,�141"PRESENTS"'�13)�147,�141"PRESENTS":�1,1,100,255
$�W(300):�:�&71
.�0,-15,4,255
8cA$="*** W A R P ** H O L E ***":V=12:X=4:� Y=0 � V �2:�0,Y);�149;�141;�0,Y+1);�148;�141;:�
B�C=1��(A$):B$=�A$,C,1)
L:�D=1�V:�X,D);B$;�X,D+1);B$;�X,D-2);" ";�X,D-1);" ";
V�:X=X+1:�:�&71
`u�W(100):X=�(100):�C=1�7:�31,0,0:�Y=1�10:�11:�W(2):�:�&71:�1,3,C*4,20:�31,0,24:�Y=1�12:�10:�W(2):�:�&11,3,C*4,20:�
j�
tj� �=17 A%=0:�6:�23;8202;0;0;0;:�X=1�23:�X,X);�(129+X �6)"COWARD":�W(1):�:A=�(70):�X=1�26:A=�(5):�:�:�
~ �+10
���GONE1:�23;11;0;0;0;
�2� X%=865�1024�4:�0,3:�25,4,0;X%;25,5,250;X%;:�
�C� X%=110 � 140 �4:�0,1:�X%,865:�X%,1024:�0,X%+810:�250,X%+810:�
�9�I:�1:�5,10)"THIS IS THE END OF YOUR EARTH":�W(300)
�#�9,15)"YOUR [[ WARP ~ HOLE ]]"
��W(300):�19,2,4;0;
�9�2:�14,21);"A N D Y O U":�0,-10,7,50:�W(200):*F.4 0
�F� X=1 � 18:�2:�X,26);" ";�233;:�1:�X*2-3,26);" ";�228:�W(4):�
�M�1,3,100,17:�1,3,190,17:�31,29,2:�"CONTINUE ":A$=�(�� 223):A%=0:�A$="Y" �
��:�
�XX=�(1)�51:YY=�(2)�63
�� J%<>89 XX=640:YY=512
@� F% XX=�(1279)+(X<X2)*600:YY=�(1023)+(Y<Y2)*600-(Y>Y2)*600
'� XX>840 � �(-26)� X>P%+2 �M:X=X-P%
*� XX<340 � �(-122) � X<36-P% �M:X=X+P%
'� �(-42) � YY<312 � Y<29-P%�M:Y=Y+1
(%� �(-58)� YY>712 �Y>1+P%�M:Y=Y-1
22C=C+1:� C �2 = 1 SC$=�224+�225 � SC$=�224+�235
<�X,Y);SC$
FD� �(-49)� �(0)�3 � �F �X1,Y1);" ":�&11,1,0,10:D1=1:X1=X-1:Y1=Y
P6� �(-18)� EX=0 � P%=1 �&11,1,200,50:EX=1:XE=X:YE=Y
Z.� EX=1 � XE<1 EX=0:�XE,YE);" ":XE=0:YE=0
d*� EX=1 � YE=Y2 � XE=X2-1 � XE=X2 �djA
n;� �(-50)� �F �X7,Y7);" ":�&11,1,0,10:D5=1:X7=X-1:Y7=Y
x� D1=1 �0:�X1,Y1);�226
�� D5=1 �0:�X7,Y7);�226
�.� I%=1 Y1=Y:Y7=Y:� EX=1 �XE,YE);" ":YE=Y
�� I%=0 Y1=Y
�6� D1=1 � X1>1 �2:X1=X1-2:�X1,Y1);�(226+(X1/2)�2)
�4� D5=1� X7>1 �2:X7=X7-2:�X7,Y7);�(226+(X7/2)�2)
�+� EX=1 XE=XE-1:�2:�XE,YE)�250;�251;" "
�H� D3=1 �0:�X5,Y5);�NM:Y5=Y2:�2:X5=X5+2:�X5,Y5);�NM:�1:�X2,Y2)�233
�?� D3=1 � X5>36 �X5,Y5);" ":D3=0:X5=1:Y5=2:�1:�X2,Y2);�233
�I� �(-19)� �F OB=1:OC=(31.5-Y)*32:D%=D%-2:OD=X*32:�&11,1,50,40:�G:�S
�3� �-66�M:F%=�F%:�M:�B:X=35:Y=T%:��7:� � �-66:�S
�0� Y<=Y2+1 � Y>Y2-1 � X2>=X-1 � X2<=X+2 �DTF
� � D3<>1 � D5<>1 � D1<>1 �
�@� Y>=Y2+3 � Y<=Y2-3 � Y1>Y2+2 �Y1<Y2-2 � Y7>Y2+2 � Y7<Y2-2 �
� X<X2 �
� X5>X+2 � D3=0 � Y=Y2 �X
,� Y1=Y2 � X1>=X2-1 � X1<=X2+2 D1=6:�djA
",� Y7=Y2 � X7>=X2-1 � X7<=X2+2 D5=6:�djA
,'� D3=1 � Y5=Y � X5=X � X5=X-1 �D|F
60� D3=1 � P%=1 � X5>=X � X5<=X+3 � Y5=Y �D|F
@p� D3=1� D1=1 � Y1=Y5 � X1>=X5 � X1<=X5+3 �X5,Y5);" ";�X1,Y1);" ":X5=1:X1=0:D3=0:D1=0:�&11,4,200,20:D%=D%+C%
Jo� D3=1 � D5=1 � Y7=Y5 �X7>=X5 � X7<=X5+3 �X5,Y5)" ";�X7,Y7)" ":X5=1:X7=0:D3=0:D5=0:�&11,4,200,20:D%=D%+C%
T?� Y=Y2 � X2>=X-1 � X2<=X+2 �&10,-15,6,255:�CRASH:�6:�LIV:�F
^P� P%=1 � Y=Y2-1 � Y=Y2+1 � X2>=X � X2<=X+2 �&10,-15,6,255:�CRASH:�6:�LIV:�F
h �S:�
r ��W(B):�C:C=�:� � �>C+B:�
|(�0,-15,4,255:�CRASH:�6:�LIV:�F:�S:�
�C��X:�X5,Y5)" ":D3=1:X5=X2:Y5=Y2:�&11,3,7,(65-X5):NM=227+�(3):�
� ��OPT:�I
�4� Y%=0�24:�0,Y%)�(133+Y%�2);:�:�28,1,24,39,0,30
�!�I:N=0:�''"Input your name ";
� A=�:N=N-(N<11):� A=13 � �dtF
�"� A=127 N=N-2:N=-(N>0)*N:�dVF
� � N=1 N$=�(A � 223):�dVF
�N$=N$+�(A � 32)
�&N$=�N$,10):N$=�N$,1,N):�-(�N$>9)*7
��16,2);N$;" ";
� �tnF
�� N<3 N$="*killer*"
� $&D02=N$
h�0,5)"Battle cruiser OR fighter (B/F)";:FA$=�(��223):D%=100:L%=3:H%=�(10):�FA$<>"F"� FA$<>"B" �THG
J�I:�0,5)"Choose Level (1_9)---1 is easy ";:C%=(��16)-48:�FA$="F" P%=2
� C%<1 � C%>9 � �TRG
&
C%=C%*2+2
0 *FX15,1
:_�6,9)"SELECT YOUR WEAPONS"'''�6)"1)-Guided Missiles"''�6)"2)-Direct Phasers":�FA$="B" P%=1
DC�''�6)"Select appropriate number ";:I%=�-48:� I%<1 � I%>2 �TzG
N!�;I%:T%=�(15)+7:Q%=�(4)+1:�=0
X *F.9 25
b *F.10 25
lH�'''�136" Intermitant storm (Y/N) ";:G$=�(��223):V%=(G$="Y")*-2
v� V%=2:*F.9 1
�� V%=2:*F.10 1
�$�6,21)�(8)"Joysticks";:J%=��223
��
�^��G:�19,2,9;0;19,1,15;0;:�0,2:� Y=Y2 � D3=0 � X5>X OA=(X2+1)*32*-(X>X2) � OA=X5*32*-(Y=Y2)
� �L:�W(4)
� � �OA-8,OC)=1 � OB=1:�djA
�+�0,0:�L:�0,3:OB=0:�19,2,1;0;19,1,4;0;:�
�-��S:�2:�30,0);D%;" ";:� D%<0 �19,2,9;0;
��
�)��L:�OD,OC:�OA,OC:�OA,OC+4:�OD,OC+4:�
�^��B:�19,1,4;0;19,2,1;0;19,3,6;0;:�2:�1,0);�(20):�0,1:�0,992:�1245,992:�0,32:�1280,32:�0,2
� �0:�130
�7� F% �1,0);"Auto pilot"��1,0);"Pilot ";$&D02:B3=0
�23,0);"Energy=":�S:�128:�
(� �F: � Y=Y2 � F% � �(5)>3 =-1 � =0
L��D:Z%=1:�25,28)"Reserve Ships"�34,29)"I I":D=�200:�25,28)�14�33,29)�4
g�X2,Y2)�230;�X,Y)SC$;�X2-2,Y2+2)"ASTEROID";�X-6,Y+2);"YOUR SHIP":D=�200:�X2-2,Y2+2)�8;�X-6,Y+2)�9
*�
� 00000000 0d 00 14 14 20 e7 20 5a 25 3d 30 20 eb 36 3a f2 |.... . Z%=0 .6:.|
00000010 54 54 3a d8 0d 00 1e 0f 4f 3d 26 37 31 3a 49 3d |TT:.....O=&71:I=|
00000020 26 37 42 0d 00 28 22 e7 20 41 25 3c 3e 31 20 eb |&7B..(". A%<>1 .|
00000030 36 3a f2 4f 50 54 3a 42 25 3d 31 3a 45 25 3d 30 |6:.OPT:B%=1:E%=0|
00000040 3a 46 25 3d 30 0d 00 32 0d 53 43 24 3d bd 32 32 |:F%=0..2.SC$=.22|
00000050 34 20 0d 00 3c 06 eb 31 0d 00 46 7d 41 32 3d 42 |4 ..<..1..F}A2=B|
00000060 25 3a 42 32 3d 42 25 3a 58 32 3d 32 3a 59 32 3d |%:B2=B%:X2=2:Y2=|
00000070 b3 28 31 38 29 2b 34 3a 44 31 3d 30 3a 58 31 3d |.(18)+4:D1=0:X1=|
00000080 30 3a 59 31 3d b3 28 32 30 29 3a 44 33 3d 30 3a |0:Y1=.(20):D3=0:|
00000090 59 35 3d 32 3a 58 35 3d 31 3a 45 3d 30 3a 42 33 |Y5=2:X5=1:E=0:B3|
000000a0 3d 30 3a 44 35 3d 30 3a 58 37 3d 30 3a 59 37 3d |=0:D5=0:X7=0:Y7=|
000000b0 33 3a 4f 41 3d 30 3a 4f 42 3d 30 3a 58 39 3d 30 |3:OA=0:OB=0:X9=0|
000000c0 3a 59 39 3d 30 3a 45 58 3d 30 3a 58 45 3d 30 3a |:Y9=0:EX=0:XE=0:|
000000d0 59 45 3d 30 20 0d 00 50 2f ef 31 39 2c 31 2c 34 |YE=0 ..P/.19,1,4|
000000e0 3b 30 3b 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 |;0;23;8202;0;0;0|
000000f0 3b 3a 58 3d 33 35 3a 59 3d 54 25 3a db 3a 2a 46 |;:X=35:Y=T%:.:*F|
00000100 2e 34 20 31 0d 00 5a 2f e7 20 41 25 3c 3e 31 20 |.4 1..Z/. A%<>1 |
00000110 e3 20 53 54 25 3d 31 b8 32 30 30 3a f0 36 39 2c |. ST%=1.200:.69,|
00000120 b3 28 31 32 37 39 29 2c b3 28 39 36 30 29 2b 33 |.(1279),.(960)+3|
00000130 32 3a ed 0d 00 64 09 f2 42 3a ef 35 0d 00 6e 20 |2:...d..B:.5..n |
00000140 e6 30 2c 32 3a e3 20 4a 52 3d 31 b8 4c 25 3a ec |.0,2:. JR=1.L%:.|
00000150 39 32 30 2b 4a 52 2a 37 30 2c 33 30 0d 00 78 14 |920+JR*70,30..x.|
00000160 f1 22 2f 22 3b 53 43 24 3b 22 2f 22 3b 3a ef 38 |."/";SC$;"/";:.8|
00000170 0d 00 82 0f e7 20 4a 52 3d 31 20 e6 30 2c 33 0d |..... JR=1 .0,3.|
00000180 00 8c 0b ed 3a ef 34 3a f2 53 0d 00 96 14 e7 20 |....:.4:.S..... |
00000190 41 25 3d 31 20 58 3d 4b 25 3a 59 3d 55 25 0d 00 |A%=1 X=K%:Y=U%..|
000001a0 a0 1c 20 e7 20 59 2f 32 3d a8 28 59 2f 32 29 59 |.. . Y/2=.(Y/2)Y|
000001b0 3d 59 2b b4 28 32 30 2d 59 29 0d 00 aa 20 e7 20 |=Y+.(20-Y)... . |
000001c0 59 32 2f 32 3d a8 28 59 32 2f 32 29 59 32 3d 59 |Y2/2=.(Y2/2)Y2=Y|
000001d0 32 2b b4 28 32 30 2d 59 32 29 0d 00 b4 58 fb 32 |2+.(20-Y2)...X.2|
000001e0 3a e3 20 53 25 3d 54 25 2d 51 25 20 b8 20 54 25 |:. S%=T%-Q% . T%|
000001f0 2b 51 25 3a f1 8a 33 39 2c 53 25 29 22 5b 22 3a |+Q%:..39,S%)"[":|
00000200 ed 3a ef 35 3a e3 20 53 25 3d 54 25 2d 51 25 20 |.:.5:. S%=T%-Q% |
00000210 b8 20 54 25 2b 51 25 3a ec 31 32 34 37 2c 28 33 |. T%+Q%:.1247,(3|
00000220 32 2d 53 25 29 2a 33 32 3a f1 22 5d 22 3a ed 3a |2-S%)*32:."]":.:|
00000230 ef 34 0d 00 be 59 e7 20 5a 25 3d 30 20 f1 8a 32 |.4...Y. Z%=0 ..2|
00000240 35 2c 54 25 29 22 54 48 49 53 20 49 53 20 54 48 |5,T%)"THIS IS TH|
00000250 45 22 3b 8a 32 35 2c 54 25 2b 31 29 22 57 41 52 |E";.25,T%+1)"WAR|
00000260 50 2d 48 4f 4c 45 3e 3e 3e 3e 22 3a 44 3d a6 32 |P-HOLE>>>>":D=.2|
00000270 30 30 3a f1 8a 32 35 2c 54 25 29 89 31 31 3b 8a |00:..25,T%).11;.|
00000280 32 35 2c 54 25 2b 31 29 89 31 33 0d 00 c8 0d e7 |25,T%+1).13.....|
00000290 20 5a 25 3d 30 20 f2 44 0d 00 d2 06 d6 49 0d 00 | Z%=0 .D.....I..|
000002a0 dc 09 e4 8d 64 6c 44 0d 00 e6 13 fb 31 3a f1 8a |....dlD.....1:..|
000002b0 58 32 2c 59 32 29 bd 32 33 33 0d 00 f0 14 e7 44 |X2,Y2).233.....D|
000002c0 25 3e b9 20 ef 31 39 2c 32 2c 31 3b 30 3b 0d 00 |%>. .19,2,1;0;..|
000002d0 fa 09 e4 8d 64 6c 44 0d 01 04 0e ef 31 39 2c 30 |....dlD.....19,0|
000002e0 2c 30 3b 30 3b 0d 01 0e 45 fb 32 3a f1 8a 33 2c |,0;0;...E.2:..3,|
000002f0 33 31 29 3b 28 91 20 81 20 33 36 30 30 30 30 29 |31);(. . 360000)|
00000300 83 32 34 3b 22 20 22 3b 28 91 20 81 36 30 30 30 |.24;" ";(. .6000|
00000310 29 83 20 36 30 3b 22 20 22 3b 28 91 20 81 31 30 |). 60;" ";(. .10|
00000320 30 29 83 36 30 3b 22 20 22 3b 0d 01 18 1c e7 20 |0).60;" ";..... |
00000330 b3 28 32 30 29 3c 28 32 30 2d 43 25 29 20 fb 32 |.(20)<(20-C%) .2|
00000340 3a e5 8d 44 7c 41 0d 01 22 0e ef 31 39 2c 31 2c |:..D|A.."..19,1,|
00000350 38 3b 30 3b 0d 01 2c 09 e4 8d 64 6c 44 0d 01 36 |8;0;..,...dlD..6|
00000360 0e 41 32 3d 45 25 81 31 30 2b 31 0d 01 40 15 e7 |.A2=E%.10+1..@..|
00000370 56 25 3d 32 20 ef 31 39 2c 30 2c 31 34 3b 30 3b |V%=2 .19,0,14;0;|
00000380 0d 01 4a 1f e7 20 59 32 2b 42 32 3e 32 38 20 84 |..J.. Y2+B2>28 .|
00000390 20 59 32 2b 42 32 3c 32 20 42 32 3d 2d 42 32 0d | Y2+B2<2 B2=-B2.|
000003a0 01 54 17 fb 30 3a f1 8a 58 32 2c 59 32 29 3b bd |.T..0:..X2,Y2);.|
000003b0 32 33 33 3a fb 31 0d 01 5e 25 58 32 3d 58 32 2b |233:.1..^%X2=X2+|
000003c0 41 32 3a 59 32 3d 59 32 2b 42 32 3a d4 26 31 31 |A2:Y2=Y2+B2:.&11|
000003d0 2c 34 2c 58 32 2a 34 2c 32 35 35 0d 01 68 12 f1 |,4,X2*4,255..h..|
000003e0 8a 58 32 2c 59 32 29 3b bd 32 33 33 3b 0d 01 72 |.X2,Y2);.233;..r|
000003f0 0e ef 31 39 2c 31 2c 34 3b 30 3b 0d 01 7c 09 e4 |..19,1,4;0;..|..|
00000400 8d 64 6c 44 0d 01 86 14 fb 33 3a f1 8a 58 2c 59 |.dlD.....3:..X,Y|
00000410 29 3b 53 43 24 3a fb 31 0d 01 90 09 e4 8d 64 6c |);SC$:.1......dl|
00000420 44 0d 01 9a 25 e7 59 32 3c 59 2b 35 20 80 20 59 |D...%.Y2<Y+5 . Y|
00000430 32 3e 59 2d 35 20 80 20 58 32 3c 58 20 80 20 44 |2>Y-5 . X2<X . D|
00000440 33 3d 30 20 f2 58 0d 01 a4 09 e4 8d 64 6c 44 0d |3=0 .X......dlD.|
00000450 01 ae 36 e7 58 32 3e 33 36 20 80 20 59 32 3c 3d |..6.X2>36 . Y2<=|
00000460 54 25 2b 51 25 2b 31 20 80 20 59 32 3e 3d 54 25 |T%+Q%+1 . Y2>=T%|
00000470 2d 51 25 2d 31 20 eb 36 3a f2 46 3a eb 31 3a f2 |-Q%-1 .6:.F:.1:.|
00000480 47 4f 4e 45 31 0d 01 b8 39 e7 20 58 32 3e 33 38 |GONE1...9. X2>38|
00000490 20 58 32 3d 32 3a 44 25 3d 44 25 2d a8 28 28 43 | X2=2:D%=D%-.((C|
000004a0 25 2b 31 29 2a 34 29 3a d4 30 2c 2d 31 35 2c 33 |%+1)*4):.0,-15,3|
000004b0 2c 31 30 3a 59 32 3d b3 28 32 36 29 2b 32 0d 01 |,10:Y2=.(26)+2..|
000004c0 c2 21 e7 20 58 31 3c 32 20 f1 8a 58 31 2c 59 31 |.!. X1<2 ..X1,Y1|
000004d0 29 3b 22 20 22 3a 44 31 3d 30 3a 58 31 3d 30 0d |);" ":D1=0:X1=0.|
000004e0 01 cc 20 e7 58 37 3c 32 20 f1 8a 58 37 2c 59 37 |.. .X7<2 ..X7,Y7|
000004f0 29 3b 22 20 22 3a 44 35 3d 30 3a 58 37 3d 30 0d |);" ":D5=0:X7=0.|
00000500 01 d6 2f f0 36 39 2c b3 28 31 32 37 39 29 2c b3 |../.69,.(1279),.|
00000510 28 39 36 30 29 2b 33 32 3a f0 36 39 2c b3 28 31 |(960)+32:.69,.(1|
00000520 32 37 39 29 2c b3 28 39 36 30 29 2b 33 32 0d 01 |279),.(960)+32..|
00000530 e0 12 e4 8d 64 6c 44 3a fb 31 3a e5 8d 64 52 40 |....dlD:.1:..dR@|
00000540 0d 01 ea 25 d4 26 31 31 2c 34 2c 31 30 30 2c 32 |...%.&11,4,100,2|
00000550 30 3a f1 8a 58 35 2c 59 35 29 22 20 22 3a 45 25 |0:..X5,Y5)" ":E%|
00000560 3d 45 25 2b 31 0d 01 f4 2f 44 25 3d 44 25 2b 43 |=E%+1.../D%=D%+C|
00000570 25 2a 34 30 3a f1 8a 58 32 2d 31 2c 59 32 29 3b |%*40:..X2-1,Y2);|
00000580 89 28 34 29 3a 59 32 3d b3 28 32 36 29 2b 32 3a |.(4):Y2=.(26)+2:|
00000590 44 33 3d 30 0d 01 fe 4b e7 20 4f 42 3d 31 20 ef |D3=0...K. OB=1 .|
000005a0 31 39 2c 30 2c 37 3b 30 3b 3a d4 26 31 30 2c 2d |19,0,7;0;:.&10,-|
000005b0 31 35 2c 36 2c 33 30 3a ec 58 2a 33 32 2c 4f 43 |15,6,30:.X*32,OC|
000005c0 3a df 20 4f 41 2c 4f 43 3a 44 25 3d 44 25 2d 43 |:. OA,OC:D%=D%-C|
000005d0 25 2a 31 30 3a f2 53 3a e4 8d 54 52 42 3a f8 0d |%*10:.S:..TRB:..|
000005e0 02 08 22 e7 20 45 58 3d 31 20 44 25 3d 44 25 2b |..". EX=1 D%=D%+|
000005f0 43 25 2a 36 30 3a d4 31 2c 34 2c 31 35 30 2c 32 |C%*60:.1,4,150,2|
00000600 30 0d 02 12 19 58 32 3d 32 3a e7 20 44 35 3d 36 |0....X2=2:. D5=6|
00000610 20 44 35 3d 30 3a 58 37 3d 30 0d 02 1c 14 e7 20 | D5=0:X7=0..... |
00000620 44 31 3d 36 20 44 31 3d 30 3a 58 31 3d 30 0d 02 |D1=6 D1=0:X1=0..|
00000630 26 28 ef 31 39 3b 30 3b 30 3b 3a e7 20 56 25 3d |&(.19;0;0;:. V%=|
00000640 32 20 ef 31 39 2c 30 2c 32 34 3b 30 3b 31 39 2c |2 .19,0,24;0;19,|
00000650 31 2c 34 3b 30 3b 0d 02 30 08 f2 53 3a f8 0d 02 |1,4;0;..0..S:...|
00000660 3a 07 dd f2 4d 0d 02 44 15 fb 30 3a f1 8a 58 2c |:...M..D..0:..X,|
00000670 59 29 3b 53 43 24 3a fb 33 20 0d 02 4e 05 e1 0d |Y);SC$:.3 ..N...|
00000680 02 58 1a dd f2 46 3a ef 32 33 3b 38 32 30 32 3b |.X...F:.23;8202;|
00000690 30 3b 30 3b 30 3b 3a d6 49 0d 02 62 12 e7 20 42 |0;0;0;:.I..b.. B|
000006a0 33 3d 31 30 20 e5 20 8d 74 4a 42 0d 02 6c 10 d4 |3=10 . .tJB..l..|
000006b0 20 33 2c 31 2c 33 30 2c 32 35 35 0d 02 76 6b 41 | 3,1,30,255..vkA|
000006c0 24 3d bd 31 34 31 3a f1 27 27 27 41 24 3b 22 2a |$=.141:.'''A$;"*|
000006d0 2a 54 4f 4f 20 4c 41 54 45 20 2c 20 59 4f 55 20 |*TOO LATE , YOU |
000006e0 48 49 54 20 22 3b c3 28 45 25 29 3b 22 20 41 53 |HIT ";.(E%);" AS|
000006f0 54 45 52 4f 49 44 53 22 27 41 24 3b 22 2a 2a 54 |TEROIDS"'A$;"**T|
00000700 4f 4f 20 4c 41 54 45 20 2c 20 59 4f 55 20 48 49 |OO LATE , YOU HI|
00000710 54 20 22 3b c3 28 45 25 29 3b 22 20 41 53 54 45 |T ";.(E%);" ASTE|
00000720 52 4f 49 44 53 22 0d 02 80 3b 44 24 3d c3 28 44 |ROIDS"...;D$=.(D|
00000730 25 29 3a f1 27 27 27 41 24 3b bd 31 33 36 22 45 |%):.'''A$;.136"E|
00000740 4e 45 52 47 59 3d 22 44 24 27 41 24 22 20 45 4e |NERGY="D$'A$" EN|
00000750 45 52 47 59 3d 22 44 24 3a 41 3d a6 28 35 30 30 |ERGY="D$:A=.(500|
00000760 29 0d 02 8a 1c 20 3f 26 44 46 45 3d b3 28 35 29 |).... ?&DFE=.(5)|
00000770 2b 31 34 35 3a d6 26 44 32 30 3a d6 4f 0d 02 94 |+145:.&D20:.O...|
00000780 24 e7 20 42 33 3d 31 30 20 41 25 3d 31 3a 4b 25 |$. B3=10 A%=1:K%|
00000790 3d 58 3a 55 25 3d 59 3a 58 3d 30 3a 59 3d 30 3a |=X:U%=Y:X=0:Y=0:|
000007a0 f9 0d 02 9e 0d f2 57 28 31 32 30 29 3a da 0d 02 |......W(120):...|
000007b0 a8 05 e1 0d 02 b2 1d dd f2 43 52 41 53 48 3a ef |.........CRASH:.|
000007c0 31 39 2c 32 2c 39 3b 30 3b 3a ea 58 25 2c 59 25 |19,2,9;0;:.X%,Y%|
000007d0 0d 02 bc 3f 58 25 3d 28 58 2a 33 32 29 2b 32 30 |...?X%=(X*32)+20|
000007e0 3a 59 25 3d 28 33 31 2d 59 29 2a 33 32 2b 31 36 |:Y%=(31-Y)*32+16|
000007f0 3a ef 31 39 3b 30 3b 30 3b 3a ef 31 39 2c 30 2c |:.19;0;0;:.19,0,|
00000800 30 3b 30 3b 3a ef 31 39 2c 33 2c 33 3b 30 3b 0d |0;0;:.19,3,3;0;.|
00000810 02 c6 5e e3 54 3d 30 b8 31 35 30 3a ec 58 25 2c |..^.T=0.150:.X%,|
00000820 59 25 3a e6 30 2c 33 3a df 58 25 2b b3 28 31 35 |Y%:.0,3:.X%+.(15|
00000830 30 29 2d 37 35 2c 59 25 2b b3 28 31 35 30 29 2d |0)-75,Y%+.(150)-|
00000840 37 35 3a e6 30 2c 32 3a ec 58 25 2c 59 25 3a df |75:.0,2:.X%,Y%:.|
00000850 58 25 2b b3 28 33 30 30 29 2d 31 35 30 2c 59 25 |X%+.(300)-150,Y%|
00000860 2b b3 28 33 30 30 29 2d 31 35 30 3a ed 0d 02 d0 |+.(300)-150:....|
00000870 25 ef 31 39 2c 31 2c 30 3b 30 3b 3a ef 31 39 2c |%.19,1,0;0;:.19,|
00000880 32 2c 30 3b 30 3b 3a ef 31 39 2c 33 2c 30 3b 30 |2,0;0;:.19,3,0;0|
00000890 3b 20 0d 02 da 46 d6 4f 3a f2 57 28 33 36 29 3a |; ...F.O:.W(36):|
000008a0 ef 31 39 2c 33 2c 33 3b 30 3b 3a f2 57 28 32 36 |.19,3,3;0;:.W(26|
000008b0 29 3a d4 26 31 30 2c 2d 31 35 2c 36 2c 34 30 3a |):.&10,-15,6,40:|
000008c0 ef 31 39 2c 32 2c 31 3b 30 3b 3a f2 57 28 33 36 |.19,2,1;0;:.W(36|
000008d0 29 3a 42 33 3d 31 30 20 0d 02 e4 3c e3 20 54 3d |):B3=10 ...<. T=|
000008e0 30 20 b8 20 31 35 30 3a ec 20 58 25 2c 59 25 3a |0 . 150:. X%,Y%:|
000008f0 e6 30 2c 30 3a df 58 25 2b b3 28 31 35 30 29 2d |.0,0:.X%+.(150)-|
00000900 37 35 2c 59 25 2b b3 28 31 35 30 29 2d 37 35 3a |75,Y%+.(150)-75:|
00000910 ed 3a e1 20 0d 02 ee 22 dd 20 f2 4c 49 56 3a ea |.:. ...". .LIV:.|
00000920 58 2c 59 2c 4c 24 3a ef 32 33 3b 38 32 30 32 3b |X,Y,L$:.23;8202;|
00000930 30 3b 30 3b 30 3b 0d 02 f8 1d 4c 25 3d 4c 25 2d |0;0;0;....L%=L%-|
00000940 31 3a e7 20 4c 25 3c 31 20 41 25 3d 30 3a f2 44 |1:. L%<1 A%=0:.D|
00000950 45 41 44 0d 03 02 0f 44 24 3d c3 28 4c 25 29 3a |EAD....D$=.(L%):|
00000960 d6 49 0d 03 0c 25 4c 24 3d bd 31 34 31 2b bd 31 |.I...%L$=.141+.1|
00000970 33 36 3a f1 8a 36 2c 34 29 4c 24 3b 44 24 27 8a |36:..6,4)L$;D$'.|
00000980 36 29 4c 24 3b 44 24 0d 03 16 31 4c 24 3d bd 31 |6)L$;D$...1L$=.1|
00000990 34 35 2b bd 31 34 31 2b bd 31 33 36 3a f1 8a 37 |45+.141+.136:..7|
000009a0 2c 37 29 4c 24 22 57 41 52 50 22 27 8a 37 29 4c |,7)L$"WARP"'.7)L|
000009b0 24 3b 22 57 41 52 50 22 0d 03 20 5d 20 f1 8a 39 |$;"WARP".. ] ..9|
000009c0 2c 31 30 29 4c 24 22 48 4f 4c 45 22 27 8a 39 29 |,10)L$"HOLE"'.9)|
000009d0 4c 24 22 48 4f 4c 45 22 3b 8a 31 31 2c 31 33 29 |L$"HOLE";.11,13)|
000009e0 4c 24 22 47 55 41 52 44 22 27 8a 31 31 29 4c 24 |L$"GUARD"'.11)L$|
000009f0 22 47 55 41 52 44 22 8a 31 33 2c 31 36 29 4c 24 |"GUARD".13,16)L$|
00000a00 22 50 4f 53 54 53 22 27 8a 31 33 29 4c 24 22 50 |"POSTS"'.13)L$"P|
00000a10 4f 53 54 53 22 0d 03 2a 5b 4c 24 3d bd 31 34 31 |OSTS"..*[L$=.141|
00000a20 3a f1 27 27 3b 8a 36 29 3b bd 31 34 39 3b 4c 24 |:.'';.6);.149;L$|
00000a30 3b 22 52 45 4d 41 49 4e 20 49 4e 20 53 50 41 43 |;"REMAIN IN SPAC|
00000a40 45 20 44 45 46 45 4e 43 45 22 27 8a 36 29 3b bd |E DEFENCE"'.6);.|
00000a50 31 35 30 3b 4c 24 3b 22 52 45 4d 41 49 4e 20 49 |150;L$;"REMAIN I|
00000a60 4e 20 53 50 41 43 45 20 44 45 46 45 4e 43 45 22 |N SPACE DEFENCE"|
00000a70 0d 03 34 2d d4 20 33 2c 31 2c 33 30 2c 26 46 46 |..4-. 3,1,30,&FF|
00000a80 3a f2 57 28 35 36 29 3a e3 20 58 3d 31 b8 32 35 |:.W(56):. X=1.25|
00000a90 3a 59 3d a6 28 33 29 3a f1 3a ed 3a e1 0d 03 3e |:Y=.(3):.:.:...>|
00000aa0 0a dd f2 44 45 41 44 0d 03 48 13 ef 32 33 3b 38 |...DEAD..H..23;8|
00000ab0 32 30 32 3b 30 3b 30 3b 30 3b 0d 03 52 12 43 3d |202;0;0;0;..R.C=|
00000ac0 31 34 35 3a 41 3d 2d 31 3a 42 3d 31 0d 03 5c 30 |145:A=-1:B=1..\0|
00000ad0 e7 20 58 2b 41 3e 33 32 20 84 20 58 2b 41 3c 31 |. X+A>32 . X+A<1|
00000ae0 20 41 3d 2d 41 3a 47 3d 43 3a f5 43 3d 31 34 34 | A=-A:G=C:.C=144|
00000af0 2b b3 28 36 29 3a fd 20 43 3c 3e 47 0d 03 66 31 |+.(6):. C<>G..f1|
00000b00 e7 20 59 2b 42 3e 32 32 20 84 20 59 2b 42 3c 31 |. Y+B>22 . Y+B<1|
00000b10 20 42 3d 2d 42 3a 47 3d 43 3a f5 43 3d 31 34 34 | B=-B:G=C:.C=144|
00000b20 2b b3 28 36 29 3a fd 20 43 3c 3e 47 20 0d 03 70 |+.(6):. C<>G ..p|
00000b30 4a e7 20 ac 20 a6 28 30 29 20 41 25 3d 30 3a ef |J. . .(0) A%=0:.|
00000b40 31 34 38 2c 31 35 37 3a f1 27 22 45 6e 65 72 67 |148,157:.'"Energ|
00000b50 79 20 62 61 6e 6b 73 20 72 65 67 69 73 74 65 72 |y banks register|
00000b60 20 22 44 25 3a ef 31 34 38 2c 31 35 37 3a f2 57 | "D%:.148,157:.W|
00000b70 28 31 30 30 29 3a f9 0d 03 7a 0f 58 3d 58 2b 41 |(100):...z.X=X+A|
00000b80 3a 59 3d 59 2b 42 0d 03 84 38 f1 bd 31 32 3b 8a |:Y=Y+B...8..12;.|
00000b90 58 2d 31 2c 59 29 22 20 22 bd 31 34 31 3b bd 43 |X-1,Y)" ".141;.C|
00000ba0 22 44 45 41 44 20 22 27 8a 58 2d 31 29 22 20 22 |"DEAD "'.X-1)" "|
00000bb0 bd 31 34 31 3b bd 43 22 44 45 41 44 20 22 0d 03 |.141;.C"DEAD "..|
00000bc0 8e 0d e5 20 8d 44 5c 43 20 3a e1 0d 03 98 15 dd |... .D\C :......|
00000bd0 f2 54 54 3a d4 30 2c 2d 31 35 2c 37 2c 32 35 30 |.TT:.0,-15,7,250|
00000be0 0d 03 a2 18 41 25 3d 30 3a ef 32 33 3b 38 32 30 |....A%=0:.23;820|
00000bf0 32 3b 30 3b 30 3b 30 3b 0d 03 ac 3e e3 59 25 3d |2;0;0;0;...>.Y%=|
00000c00 31 b8 32 33 3a f1 8a 30 2c 59 25 29 3b bd 31 34 |1.23:..0,Y%);.14|
00000c10 35 3b 35 3b 3a f1 8a 33 38 2c 59 25 29 3b bd 31 |5;5;:..38,Y%);.1|
00000c20 34 36 3b 35 3b 3a 59 3d a6 28 32 29 3a ed 3a f2 |46;5;:Y=.(2):.:.|
00000c30 57 28 35 30 29 20 0d 03 b6 1a 42 31 3d b3 28 33 |W(50) ....B1=.(3|
00000c40 29 3a 55 3d 31 35 30 3a 55 31 3d 31 34 36 3a db |):U=150:U1=146:.|
00000c50 0d 03 c0 1e 56 3d 32 32 3a 58 3d 33 30 3a 41 24 |....V=22:X=30:A$|
00000c60 3d 22 20 53 20 4f 20 46 20 54 20 22 3a db 0d 03 |=" S O F T ":...|
00000c70 ca 16 e3 20 43 3d a9 28 41 24 29 20 b8 20 31 20 |... C=.(A$) . 1 |
00000c80 88 20 2d 31 0d 03 d4 0f 42 24 3d c1 41 24 2c 43 |. -1....B$=.A$,C|
00000c90 2c 31 29 0d 03 de 11 e3 20 44 3d 31 20 b8 20 56 |,1)..... D=1 . V|
00000ca0 20 88 32 20 0d 03 e8 2f f1 8a 58 2c 44 29 bd 31 | .2 .../..X,D).1|
00000cb0 33 36 3b bd 55 3b bd 31 34 31 3b 42 24 3b 8a 58 |36;.U;.141;B$;.X|
00000cc0 2b 31 2c 44 2b 31 29 bd 55 31 3b bd 31 34 31 3b |+1,D+1).U1;.141;|
00000cd0 42 24 20 0d 03 f2 2b e7 20 42 31 3c 33 20 f1 8a |B$ ...+. B1<3 ..|
00000ce0 58 2b 31 2c 44 2d 32 29 3b 89 28 36 29 3b 8a 58 |X+1,D-2);.(6);.X|
00000cf0 2b 31 2c 44 2d 31 29 3b 89 28 36 29 3b 20 0d 03 |+1,D-1);.(6); ..|
00000d00 fc 13 ed 3a 58 3d 58 2d 31 3a 56 3d 56 2d 31 3a |...:X=X-1:V=V-1:|
00000d10 ed 0d 04 06 3a 41 24 3d 22 20 20 53 20 4e 20 4f |....:A$=" S N O|
00000d20 20 57 20 20 20 20 22 3a e7 20 58 3d 32 31 20 56 | W ":. X=21 V|
00000d30 3d 31 36 3a 58 3d 31 33 3a 55 3d 31 34 36 3a 55 |=16:X=13:U=146:U|
00000d40 31 3d 31 35 30 3a e5 8d 64 4a 43 0d 04 10 27 f2 |1=150:..dJC...'.|
00000d50 57 28 32 30 30 29 3a e3 58 3d 31 b8 35 30 3a e3 |W(200):.X=1.50:.|
00000d60 59 3d 31 b8 31 39 30 3a ed 3a f1 3a ed 3a d6 26 |Y=1.190:.:.:.:.&|
00000d70 37 31 0d 04 1a 46 db 3a f1 8a 31 33 2c 31 33 29 |71...F.:..13,13)|
00000d80 bd 31 34 35 2c bd 31 34 31 22 50 52 45 53 45 4e |.145,.141"PRESEN|
00000d90 54 53 22 27 8a 31 33 29 bd 31 34 37 2c bd 31 34 |TS"'.13).147,.14|
00000da0 31 22 50 52 45 53 45 4e 54 53 22 3a d4 31 2c 31 |1"PRESENTS":.1,1|
00000db0 2c 31 30 30 2c 32 35 35 0d 04 24 12 f2 57 28 33 |,100,255..$..W(3|
00000dc0 30 30 29 3a db 3a d6 26 37 31 0d 04 2e 10 d4 30 |00):.:.&71.....0|
00000dd0 2c 2d 31 35 2c 34 2c 32 35 35 0d 04 38 63 41 24 |,-15,4,255..8cA$|
00000de0 3d 22 2a 2a 2a 20 20 57 20 41 20 52 20 50 20 20 |="*** W A R P |
00000df0 2a 2a 20 20 48 20 4f 20 4c 20 45 20 20 2a 2a 2a |** H O L E ***|
00000e00 22 3a 56 3d 31 32 3a 58 3d 34 3a e3 20 59 3d 30 |":V=12:X=4:. Y=0|
00000e10 20 b8 20 56 20 88 32 3a f1 8a 30 2c 59 29 3b bd | . V .2:..0,Y);.|
00000e20 31 34 39 3b bd 31 34 31 3b 8a 30 2c 59 2b 31 29 |149;.141;.0,Y+1)|
00000e30 3b bd 31 34 38 3b bd 31 34 31 3b 3a ed 0d 04 42 |;.148;.141;:...B|
00000e40 1a e3 43 3d 31 b8 a9 28 41 24 29 3a 42 24 3d c1 |..C=1..(A$):B$=.|
00000e50 41 24 2c 43 2c 31 29 0d 04 4c 3a e3 44 3d 31 b8 |A$,C,1)..L:.D=1.|
00000e60 56 3a f1 8a 58 2c 44 29 3b 42 24 3b 8a 58 2c 44 |V:..X,D);B$;.X,D|
00000e70 2b 31 29 3b 42 24 3b 8a 58 2c 44 2d 32 29 3b 22 |+1);B$;.X,D-2);"|
00000e80 20 20 22 3b 8a 58 2c 44 2d 31 29 3b 22 20 20 22 | ";.X,D-1);" "|
00000e90 3b 0d 04 56 12 ed 3a 58 3d 58 2b 31 3a ed 3a d6 |;..V..:X=X+1:.:.|
00000ea0 26 37 31 0d 04 60 75 f2 57 28 31 30 30 29 3a 58 |&71..`u.W(100):X|
00000eb0 3d a6 28 31 30 30 29 3a e3 43 3d 31 b8 37 3a ef |=.(100):.C=1.7:.|
00000ec0 33 31 2c 30 2c 30 3a e3 59 3d 31 b8 31 30 3a ef |31,0,0:.Y=1.10:.|
00000ed0 31 31 3a f2 57 28 32 29 3a ed 3a d6 26 37 31 3a |11:.W(2):.:.&71:|
00000ee0 d4 31 2c 33 2c 43 2a 34 2c 32 30 3a ef 33 31 2c |.1,3,C*4,20:.31,|
00000ef0 30 2c 32 34 3a e3 59 3d 31 b8 31 32 3a ef 31 30 |0,24:.Y=1.12:.10|
00000f00 3a f2 57 28 32 29 3a ed 3a d4 26 31 31 2c 33 2c |:.W(2):.:.&11,3,|
00000f10 43 2a 34 2c 32 30 3a ed 0d 04 6a 05 e1 0d 04 74 |C*4,20:...j....t|
00000f20 6a e7 20 9f 3d 31 37 20 41 25 3d 30 3a eb 36 3a |j. .=17 A%=0:.6:|
00000f30 ef 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 3a |.23;8202;0;0;0;:|
00000f40 e3 58 3d 31 b8 32 33 3a f1 8a 58 2c 58 29 3b bd |.X=1.23:..X,X);.|
00000f50 28 31 32 39 2b 58 20 83 36 29 22 43 4f 57 41 52 |(129+X .6)"COWAR|
00000f60 44 22 3a f2 57 28 31 29 3a ed 3a 41 3d a6 28 37 |D":.W(1):.:A=.(7|
00000f70 30 29 3a e3 58 3d 31 b8 32 36 3a 41 3d a6 28 35 |0):.X=1.26:A=.(5|
00000f80 29 3a f1 3a ed 3a f9 0d 04 7e 09 e5 9e 2b 31 30 |):.:.:...~...+10|
00000f90 0d 04 88 19 dd f2 47 4f 4e 45 31 3a ef 32 33 3b |......GONE1:.23;|
00000fa0 31 31 3b 30 3b 30 3b 30 3b 0d 04 92 32 e3 20 58 |11;0;0;0;...2. X|
00000fb0 25 3d 38 36 35 b8 31 30 32 34 88 34 3a e6 30 2c |%=865.1024.4:.0,|
00000fc0 33 3a ef 32 35 2c 34 2c 30 3b 58 25 3b 32 35 2c |3:.25,4,0;X%;25,|
00000fd0 35 2c 32 35 30 3b 58 25 3b 3a ed 0d 04 9c 43 e3 |5,250;X%;:....C.|
00000fe0 20 58 25 3d 31 31 30 20 b8 20 31 34 30 20 88 34 | X%=110 . 140 .4|
00000ff0 3a e6 30 2c 31 3a ec 58 25 2c 38 36 35 3a df 58 |:.0,1:.X%,865:.X|
00001000 25 2c 31 30 32 34 3a ec 30 2c 58 25 2b 38 31 30 |%,1024:.0,X%+810|
00001010 3a df 32 35 30 2c 58 25 2b 38 31 30 3a ed 0d 04 |:.250,X%+810:...|
00001020 a6 39 d6 49 3a fb 31 3a f1 8a 35 2c 31 30 29 22 |.9.I:.1:..5,10)"|
00001030 54 48 49 53 20 49 53 20 54 48 45 20 45 4e 44 20 |THIS IS THE END |
00001040 4f 46 20 59 4f 55 52 20 45 41 52 54 48 22 3a f2 |OF YOUR EARTH":.|
00001050 57 28 33 30 30 29 20 0d 04 b0 23 f1 8a 39 2c 31 |W(300) ...#..9,1|
00001060 35 29 22 59 4f 55 52 20 5b 5b 20 57 41 52 50 20 |5)"YOUR [[ WARP |
00001070 7e 20 48 4f 4c 45 20 5d 5d 22 0d 04 ba 16 f2 57 |~ HOLE ]]".....W|
00001080 28 33 30 30 29 3a ef 31 39 2c 32 2c 34 3b 30 3b |(300):.19,2,4;0;|
00001090 0d 04 c4 39 fb 32 3a f1 8a 31 34 2c 32 31 29 3b |...9.2:..14,21);|
000010a0 22 41 20 4e 20 44 20 20 59 20 4f 20 55 22 3a d4 |"A N D Y O U":.|
000010b0 30 2c 2d 31 30 2c 37 2c 35 30 3a f2 57 28 32 30 |0,-10,7,50:.W(20|
000010c0 30 29 3a 2a 46 2e 34 20 30 0d 04 ce 46 e3 20 58 |0):*F.4 0...F. X|
000010d0 3d 31 20 b8 20 31 38 3a fb 32 3a f1 8a 58 2c 32 |=1 . 18:.2:..X,2|
000010e0 36 29 3b 22 20 22 3b bd 32 33 33 3b 3a fb 31 3a |6);" ";.233;:.1:|
000010f0 f1 8a 58 2a 32 2d 33 2c 32 36 29 3b 22 20 20 20 |..X*2-3,26);" |
00001100 20 22 3b bd 32 32 38 3a f2 57 28 34 29 3a ed 0d | ";.228:.W(4):..|
00001110 04 d8 4d d4 31 2c 33 2c 31 30 30 2c 31 37 3a d4 |..M.1,3,100,17:.|
00001120 31 2c 33 2c 31 39 30 2c 31 37 3a ef 33 31 2c 32 |1,3,190,17:.31,2|
00001130 39 2c 32 3a f1 22 43 4f 4e 54 49 4e 55 45 20 22 |9,2:."CONTINUE "|
00001140 3a 41 24 3d bd 28 a5 80 20 32 32 33 29 3a 41 25 |:A$=.(.. 223):A%|
00001150 3d 30 3a e7 41 24 3d 22 59 22 20 f9 0d 04 e2 07 |=0:.A$="Y" .....|
00001160 db 3a e0 0d 04 ec 19 58 58 3d 96 28 31 29 81 35 |.:.....XX=.(1).5|
00001170 31 3a 59 59 3d 96 28 32 29 81 36 33 0d 04 f6 1a |1:YY=.(2).63....|
00001180 e7 20 4a 25 3c 3e 38 39 20 58 58 3d 36 34 30 3a |. J%<>89 XX=640:|
00001190 59 59 3d 35 31 32 0d 05 00 40 e7 20 46 25 20 58 |YY=512...@. F% X|
000011a0 58 3d b3 28 31 32 37 39 29 2b 28 58 3c 58 32 29 |X=.(1279)+(X<X2)|
000011b0 2a 36 30 30 3a 59 59 3d b3 28 31 30 32 33 29 2b |*600:YY=.(1023)+|
000011c0 28 59 3c 59 32 29 2a 36 30 30 2d 28 59 3e 59 32 |(Y<Y2)*600-(Y>Y2|
000011d0 29 2a 36 30 30 20 0d 05 0a 27 e7 20 58 58 3e 38 |)*600 ...'. XX>8|
000011e0 34 30 20 84 20 a6 28 2d 32 36 29 e7 20 58 3e 50 |40 . .(-26). X>P|
000011f0 25 2b 32 20 f2 4d 3a 58 3d 58 2d 50 25 0d 05 14 |%+2 .M:X=X-P%...|
00001200 2a e7 20 58 58 3c 33 34 30 20 84 20 a6 28 2d 31 |*. XX<340 . .(-1|
00001210 32 32 29 20 e7 20 58 3c 33 36 2d 50 25 20 f2 4d |22) . X<36-P% .M|
00001220 3a 58 3d 58 2b 50 25 0d 05 1e 27 e7 20 a6 28 2d |:X=X+P%...'. .(-|
00001230 34 32 29 20 84 20 59 59 3c 33 31 32 20 e7 20 59 |42) . YY<312 . Y|
00001240 3c 32 39 2d 50 25 f2 4d 3a 59 3d 59 2b 31 0d 05 |<29-P%.M:Y=Y+1..|
00001250 28 25 e7 20 a6 28 2d 35 38 29 84 20 59 59 3e 37 |(%. .(-58). YY>7|
00001260 31 32 20 e7 59 3e 31 2b 50 25 f2 4d 3a 59 3d 59 |12 .Y>1+P%.M:Y=Y|
00001270 2d 31 20 0d 05 32 32 43 3d 43 2b 31 3a e7 20 43 |-1 ..22C=C+1:. C|
00001280 20 83 32 20 3d 20 31 20 53 43 24 3d bd 32 32 34 | .2 = 1 SC$=.224|
00001290 2b bd 32 32 35 20 8b 20 53 43 24 3d bd 32 32 34 |+.225 . SC$=.224|
000012a0 2b bd 32 33 35 0d 05 3c 0e f1 8a 58 2c 59 29 3b |+.235..<...X,Y);|
000012b0 53 43 24 0d 05 46 44 e7 20 a6 28 2d 34 39 29 84 |SC$..FD. .(-49).|
000012c0 20 96 28 30 29 80 33 20 84 20 a4 46 20 f1 8a 58 | .(0).3 . .F ..X|
000012d0 31 2c 59 31 29 3b 22 20 20 22 3a d4 26 31 31 2c |1,Y1);" ":.&11,|
000012e0 31 2c 30 2c 31 30 3a 44 31 3d 31 3a 58 31 3d 58 |1,0,10:D1=1:X1=X|
000012f0 2d 31 3a 59 31 3d 59 0d 05 50 36 e7 20 a6 28 2d |-1:Y1=Y..P6. .(-|
00001300 31 38 29 80 20 45 58 3d 30 20 80 20 50 25 3d 31 |18). EX=0 . P%=1|
00001310 20 d4 26 31 31 2c 31 2c 32 30 30 2c 35 30 3a 45 | .&11,1,200,50:E|
00001320 58 3d 31 3a 58 45 3d 58 3a 59 45 3d 59 0d 05 5a |X=1:XE=X:YE=Y..Z|
00001330 2e e7 20 45 58 3d 31 20 e7 20 58 45 3c 31 20 45 |.. EX=1 . XE<1 E|
00001340 58 3d 30 3a f1 8a 58 45 2c 59 45 29 3b 22 20 20 |X=0:..XE,YE);" |
00001350 22 3a 58 45 3d 30 3a 59 45 3d 30 0d 05 64 2a e7 |":XE=0:YE=0..d*.|
00001360 20 45 58 3d 31 20 e7 20 59 45 3d 59 32 20 e7 20 | EX=1 . YE=Y2 . |
00001370 58 45 3d 58 32 2d 31 20 84 20 58 45 3d 58 32 20 |XE=X2-1 . XE=X2 |
00001380 e4 8d 64 6a 41 0d 05 6e 3b e7 20 a6 28 2d 35 30 |..djA..n;. .(-50|
00001390 29 84 20 a4 46 20 f1 8a 58 37 2c 59 37 29 3b 22 |). .F ..X7,Y7);"|
000013a0 20 20 22 3a d4 26 31 31 2c 31 2c 30 2c 31 30 3a | ":.&11,1,0,10:|
000013b0 44 35 3d 31 3a 58 37 3d 58 2d 31 3a 59 37 3d 59 |D5=1:X7=X-1:Y7=Y|
000013c0 0d 05 78 1b e7 20 44 31 3d 31 20 fb 30 3a f1 8a |..x.. D1=1 .0:..|
000013d0 58 31 2c 59 31 29 3b bd 32 32 36 0d 05 82 1b e7 |X1,Y1);.226.....|
000013e0 20 44 35 3d 31 20 fb 30 3a f1 8a 58 37 2c 59 37 | D5=1 .0:..X7,Y7|
000013f0 29 3b bd 32 32 36 0d 05 8c 2e e7 20 49 25 3d 31 |);.226..... I%=1|
00001400 20 59 31 3d 59 3a 59 37 3d 59 3a e7 20 45 58 3d | Y1=Y:Y7=Y:. EX=|
00001410 31 20 f1 8a 58 45 2c 59 45 29 3b 22 20 20 22 3a |1 ..XE,YE);" ":|
00001420 59 45 3d 59 0d 05 96 0f e7 20 49 25 3d 30 20 59 |YE=Y..... I%=0 Y|
00001430 31 3d 59 0d 05 a0 36 e7 20 44 31 3d 31 20 80 20 |1=Y...6. D1=1 . |
00001440 58 31 3e 31 20 fb 32 3a 58 31 3d 58 31 2d 32 3a |X1>1 .2:X1=X1-2:|
00001450 f1 8a 58 31 2c 59 31 29 3b bd 28 32 32 36 2b 28 |..X1,Y1);.(226+(|
00001460 58 31 2f 32 29 83 32 29 20 0d 05 aa 34 e7 20 44 |X1/2).2) ...4. D|
00001470 35 3d 31 80 20 58 37 3e 31 20 fb 32 3a 58 37 3d |5=1. X7>1 .2:X7=|
00001480 58 37 2d 32 3a f1 8a 58 37 2c 59 37 29 3b bd 28 |X7-2:..X7,Y7);.(|
00001490 32 32 36 2b 28 58 37 2f 32 29 83 32 29 0d 05 b4 |226+(X7/2).2)...|
000014a0 2b e7 20 45 58 3d 31 20 58 45 3d 58 45 2d 31 3a |+. EX=1 XE=XE-1:|
000014b0 fb 32 3a f1 8a 58 45 2c 59 45 29 bd 32 35 30 3b |.2:..XE,YE).250;|
000014c0 bd 32 35 31 3b 22 20 22 0d 05 be 48 e7 20 44 33 |.251;" "...H. D3|
000014d0 3d 31 20 fb 30 3a f1 8a 58 35 2c 59 35 29 3b bd |=1 .0:..X5,Y5);.|
000014e0 4e 4d 3a 59 35 3d 59 32 3a fb 32 3a 58 35 3d 58 |NM:Y5=Y2:.2:X5=X|
000014f0 35 2b 32 3a f1 8a 58 35 2c 59 35 29 3b bd 4e 4d |5+2:..X5,Y5);.NM|
00001500 3a fb 31 3a f1 8a 58 32 2c 59 32 29 bd 32 33 33 |:.1:..X2,Y2).233|
00001510 0d 05 c8 3f e7 20 44 33 3d 31 20 80 20 58 35 3e |...?. D3=1 . X5>|
00001520 33 36 20 f1 8a 58 35 2c 59 35 29 3b 22 20 22 3a |36 ..X5,Y5);" ":|
00001530 44 33 3d 30 3a 58 35 3d 31 3a 59 35 3d 32 3a fb |D3=0:X5=1:Y5=2:.|
00001540 31 3a f1 8a 58 32 2c 59 32 29 3b bd 32 33 33 0d |1:..X2,Y2);.233.|
00001550 05 d2 49 e7 20 a6 28 2d 31 39 29 84 20 a4 46 20 |..I. .(-19). .F |
00001560 4f 42 3d 31 3a 4f 43 3d 28 33 31 2e 35 2d 59 29 |OB=1:OC=(31.5-Y)|
00001570 2a 33 32 3a 44 25 3d 44 25 2d 32 3a 4f 44 3d 58 |*32:D%=D%-2:OD=X|
00001580 2a 33 32 3a d4 26 31 31 2c 31 2c 35 30 2c 34 30 |*32:.&11,1,50,40|
00001590 3a f2 47 3a f2 53 20 20 0d 05 dc 33 e7 20 a6 2d |:.G:.S ...3. .-|
000015a0 36 36 f2 4d 3a 46 25 3d ac 46 25 3a f2 4d 3a f2 |66.M:F%=.F%:.M:.|
000015b0 42 3a 58 3d 33 35 3a 59 3d 54 25 3a f5 ef 37 3a |B:X=35:Y=T%:..7:|
000015c0 fd 20 ac 20 a6 2d 36 36 3a f2 53 0d 05 e6 30 e7 |. . .-66:.S...0.|
000015d0 20 59 3c 3d 59 32 2b 31 20 80 20 59 3e 59 32 2d | Y<=Y2+1 . Y>Y2-|
000015e0 31 20 e7 20 58 32 3e 3d 58 2d 31 20 80 20 58 32 |1 . X2>=X-1 . X2|
000015f0 3c 3d 58 2b 32 20 e5 8d 44 54 46 0d 05 f0 1d e7 |<=X+2 ..DTF.....|
00001600 20 44 33 3c 3e 31 20 80 20 44 35 3c 3e 31 20 80 | D3<>1 . D5<>1 .|
00001610 20 44 31 3c 3e 31 20 f8 0d 05 fa 40 e7 20 59 3e | D1<>1 ....@. Y>|
00001620 3d 59 32 2b 33 20 84 20 59 3c 3d 59 32 2d 33 20 |=Y2+3 . Y<=Y2-3 |
00001630 e7 20 59 31 3e 59 32 2b 32 20 84 59 31 3c 59 32 |. Y1>Y2+2 .Y1<Y2|
00001640 2d 32 20 e7 20 59 37 3e 59 32 2b 32 20 84 20 59 |-2 . Y7>Y2+2 . Y|
00001650 37 3c 59 32 2d 32 20 f8 0d 06 04 0c e7 20 58 3c |7<Y2-2 ...... X<|
00001660 58 32 20 f8 0d 06 0e 1d e7 20 58 35 3e 58 2b 32 |X2 ...... X5>X+2|
00001670 20 84 20 44 33 3d 30 20 e7 20 59 3d 59 32 20 f2 | . D3=0 . Y=Y2 .|
00001680 58 0d 06 18 2c e7 20 59 31 3d 59 32 20 e7 20 58 |X...,. Y1=Y2 . X|
00001690 31 3e 3d 58 32 2d 31 20 80 20 58 31 3c 3d 58 32 |1>=X2-1 . X1<=X2|
000016a0 2b 32 20 44 31 3d 36 3a e4 8d 64 6a 41 0d 06 22 |+2 D1=6:..djA.."|
000016b0 2c e7 20 59 37 3d 59 32 20 e7 20 58 37 3e 3d 58 |,. Y7=Y2 . X7>=X|
000016c0 32 2d 31 20 80 20 58 37 3c 3d 58 32 2b 32 20 44 |2-1 . X7<=X2+2 D|
000016d0 35 3d 36 3a e4 8d 64 6a 41 0d 06 2c 27 e7 20 44 |5=6:..djA..,'. D|
000016e0 33 3d 31 20 e7 20 59 35 3d 59 20 e7 20 58 35 3d |3=1 . Y5=Y . X5=|
000016f0 58 20 84 20 58 35 3d 58 2d 31 20 e4 8d 44 7c 46 |X . X5=X-1 ..D|F|
00001700 0d 06 36 30 e7 20 44 33 3d 31 20 e7 20 50 25 3d |..60. D3=1 . P%=|
00001710 31 20 e7 20 58 35 3e 3d 58 20 80 20 58 35 3c 3d |1 . X5>=X . X5<=|
00001720 58 2b 33 20 e7 20 59 35 3d 59 20 e4 8d 44 7c 46 |X+3 . Y5=Y ..D|F|
00001730 0d 06 40 70 e7 20 44 33 3d 31 80 20 44 31 3d 31 |..@p. D3=1. D1=1|
00001740 20 e7 20 59 31 3d 59 35 20 e7 20 58 31 3e 3d 58 | . Y1=Y5 . X1>=X|
00001750 35 20 80 20 58 31 3c 3d 58 35 2b 33 20 f1 8a 58 |5 . X1<=X5+3 ..X|
00001760 35 2c 59 35 29 3b 22 20 22 3b 8a 58 31 2c 59 31 |5,Y5);" ";.X1,Y1|
00001770 29 3b 22 20 22 3a 58 35 3d 31 3a 58 31 3d 30 3a |);" ":X5=1:X1=0:|
00001780 44 33 3d 30 3a 44 31 3d 30 3a d4 26 31 31 2c 34 |D3=0:D1=0:.&11,4|
00001790 2c 32 30 30 2c 32 30 3a 44 25 3d 44 25 2b 43 25 |,200,20:D%=D%+C%|
000017a0 0d 06 4a 6f e7 20 44 33 3d 31 20 80 20 44 35 3d |..Jo. D3=1 . D5=|
000017b0 31 20 e7 20 59 37 3d 59 35 20 e7 58 37 3e 3d 58 |1 . Y7=Y5 .X7>=X|
000017c0 35 20 80 20 58 37 3c 3d 58 35 2b 33 20 f1 8a 58 |5 . X7<=X5+3 ..X|
000017d0 35 2c 59 35 29 22 20 22 3b 8a 58 37 2c 59 37 29 |5,Y5)" ";.X7,Y7)|
000017e0 22 20 22 3a 58 35 3d 31 3a 58 37 3d 30 3a 44 33 |" ":X5=1:X7=0:D3|
000017f0 3d 30 3a 44 35 3d 30 3a d4 26 31 31 2c 34 2c 32 |=0:D5=0:.&11,4,2|
00001800 30 30 2c 32 30 3a 44 25 3d 44 25 2b 43 25 20 0d |00,20:D%=D%+C% .|
00001810 06 54 3f e7 20 59 3d 59 32 20 e7 20 58 32 3e 3d |.T?. Y=Y2 . X2>=|
00001820 58 2d 31 20 80 20 58 32 3c 3d 58 2b 32 20 d4 26 |X-1 . X2<=X+2 .&|
00001830 31 30 2c 2d 31 35 2c 36 2c 32 35 35 3a f2 43 52 |10,-15,6,255:.CR|
00001840 41 53 48 3a eb 36 3a f2 4c 49 56 3a f2 46 0d 06 |ASH:.6:.LIV:.F..|
00001850 5e 50 e7 20 50 25 3d 31 20 e7 20 59 3d 59 32 2d |^P. P%=1 . Y=Y2-|
00001860 31 20 84 20 59 3d 59 32 2b 31 20 e7 20 58 32 3e |1 . Y=Y2+1 . X2>|
00001870 3d 58 20 80 20 58 32 3c 3d 58 2b 32 20 d4 26 31 |=X . X2<=X+2 .&1|
00001880 30 2c 2d 31 35 2c 36 2c 32 35 35 3a f2 43 52 41 |0,-15,6,255:.CRA|
00001890 53 48 3a eb 36 3a f2 4c 49 56 3a f2 46 20 0d 06 |SH:.6:.LIV:.F ..|
000018a0 68 0b f2 53 3a f8 20 20 20 0d 06 72 1e dd f2 57 |h..S:. ..r...W|
000018b0 28 42 29 3a ea 43 3a 43 3d 91 3a f5 20 fd 20 91 |(B):.C:C=.:. . .|
000018c0 3e 43 2b 42 3a e1 20 0d 06 7c 28 d4 30 2c 2d 31 |>C+B:. ..|(.0,-1|
000018d0 35 2c 34 2c 32 35 35 3a f2 43 52 41 53 48 3a eb |5,4,255:.CRASH:.|
000018e0 36 3a f2 4c 49 56 3a f2 46 3a f2 53 3a f8 20 0d |6:.LIV:.F:.S:. .|
000018f0 06 86 43 dd f2 58 3a f1 8a 58 35 2c 59 35 29 22 |..C..X:..X5,Y5)"|
00001900 20 22 3a 44 33 3d 31 3a 58 35 3d 58 32 3a 59 35 | ":D3=1:X5=X2:Y5|
00001910 3d 59 32 3a d4 26 31 31 2c 33 2c 37 2c 28 36 35 |=Y2:.&11,3,7,(65|
00001920 2d 58 35 29 3a 4e 4d 3d 32 32 37 2b b3 28 33 29 |-X5):NM=227+.(3)|
00001930 3a e1 0d 06 90 0c dd f2 4f 50 54 3a d6 49 0d 06 |:.......OPT:.I..|
00001940 9a 34 e3 20 59 25 3d 30 b8 32 34 3a f1 8a 30 2c |.4. Y%=0.24:..0,|
00001950 59 25 29 bd 28 31 33 33 2b 59 25 83 32 29 3b 3a |Y%).(133+Y%.2);:|
00001960 ed 3a ef 32 38 2c 31 2c 32 34 2c 33 39 2c 30 2c |.:.28,1,24,39,0,|
00001970 33 30 0d 06 a4 21 d6 49 3a 4e 3d 30 3a f1 27 27 |30...!.I:N=0:.''|
00001980 22 49 6e 70 75 74 20 79 6f 75 72 20 6e 61 6d 65 |"Input your name|
00001990 20 22 3b 0d 06 ae 20 41 3d a5 3a 4e 3d 4e 2d 28 | ";... A=.:N=N-(|
000019a0 4e 3c 31 31 29 3a e7 20 41 3d 31 33 20 e5 20 8d |N<11):. A=13 . .|
000019b0 64 74 46 0d 06 b8 22 e7 20 41 3d 31 32 37 20 4e |dtF...". A=127 N|
000019c0 3d 4e 2d 32 3a 4e 3d 2d 28 4e 3e 30 29 2a 4e 3a |=N-2:N=-(N>0)*N:|
000019d0 e5 8d 64 56 46 0d 06 c2 1d e7 20 4e 3d 31 20 4e |..dVF..... N=1 N|
000019e0 24 3d bd 28 41 20 80 20 32 32 33 29 3a e5 8d 64 |$=.(A . 223):..d|
000019f0 56 46 0d 06 cc 13 4e 24 3d 4e 24 2b bd 28 41 20 |VF....N$=N$+.(A |
00001a00 84 20 33 32 29 0d 06 d6 26 4e 24 3d c0 4e 24 2c |. 32)...&N$=.N$,|
00001a10 31 30 29 3a 4e 24 3d c1 4e 24 2c 31 2c 4e 29 3a |10):N$=.N$,1,N):|
00001a20 ef 2d 28 a9 4e 24 3e 39 29 2a 37 0d 06 e0 13 f1 |.-(.N$>9)*7.....|
00001a30 8a 31 36 2c 32 29 3b 4e 24 3b 22 20 22 3b 0d 06 |.16,2);N$;" ";..|
00001a40 ea 09 e5 8d 74 6e 46 0d 06 f4 17 e7 20 4e 3c 33 |....tnF..... N<3|
00001a50 20 4e 24 3d 22 2a 6b 69 6c 6c 65 72 2a 22 0d 06 | N$="*killer*"..|
00001a60 fe 0c 24 26 44 30 32 3d 4e 24 0d 07 08 68 f1 8a |..$&D02=N$...h..|
00001a70 30 2c 35 29 22 42 61 74 74 6c 65 20 63 72 75 69 |0,5)"Battle crui|
00001a80 73 65 72 20 4f 52 20 66 69 67 68 74 65 72 20 28 |ser OR fighter (|
00001a90 42 2f 46 29 22 3b 3a 46 41 24 3d bd 28 a5 80 32 |B/F)";:FA$=.(..2|
00001aa0 32 33 29 3a 44 25 3d 31 30 30 3a 4c 25 3d 33 3a |23):D%=100:L%=3:|
00001ab0 48 25 3d b3 28 31 30 29 3a e7 46 41 24 3c 3e 22 |H%=.(10):.FA$<>"|
00001ac0 46 22 80 20 46 41 24 3c 3e 22 42 22 20 e5 8d 54 |F". FA$<>"B" ..T|
00001ad0 48 47 0d 07 12 4a d6 49 3a f1 8a 30 2c 35 29 22 |HG...J.I:..0,5)"|
00001ae0 43 68 6f 6f 73 65 20 4c 65 76 65 6c 20 28 31 5f |Choose Level (1_|
00001af0 39 29 2d 2d 2d 31 20 69 73 20 65 61 73 79 20 22 |9)---1 is easy "|
00001b00 3b 3a 43 25 3d 28 a5 84 31 36 29 2d 34 38 3a e7 |;:C%=(..16)-48:.|
00001b10 46 41 24 3d 22 46 22 20 50 25 3d 32 0d 07 1c 18 |FA$="F" P%=2....|
00001b20 e7 20 43 25 3c 31 20 84 20 43 25 3e 39 20 e5 20 |. C%<1 . C%>9 . |
00001b30 8d 54 52 47 0d 07 26 0d 43 25 3d 43 25 2a 32 2b |.TRG..&.C%=C%*2+|
00001b40 32 0d 07 30 0b 2a 46 58 31 35 2c 31 0d 07 3a 5f |2..0.*FX15,1..:_|
00001b50 f1 8a 36 2c 39 29 22 53 45 4c 45 43 54 20 59 4f |..6,9)"SELECT YO|
00001b60 55 52 20 57 45 41 50 4f 4e 53 22 27 27 27 8a 36 |UR WEAPONS"'''.6|
00001b70 29 22 31 29 2d 47 75 69 64 65 64 20 4d 69 73 73 |)"1)-Guided Miss|
00001b80 69 6c 65 73 22 27 27 8a 36 29 22 32 29 2d 44 69 |iles"''.6)"2)-Di|
00001b90 72 65 63 74 20 50 68 61 73 65 72 73 22 3a e7 46 |rect Phasers":.F|
00001ba0 41 24 3d 22 42 22 20 50 25 3d 31 0d 07 44 43 f1 |A$="B" P%=1..DC.|
00001bb0 27 27 8a 36 29 22 53 65 6c 65 63 74 20 61 70 70 |''.6)"Select app|
00001bc0 72 6f 70 72 69 61 74 65 20 6e 75 6d 62 65 72 20 |ropriate number |
00001bd0 22 3b 3a 49 25 3d a5 2d 34 38 3a e7 20 49 25 3c |";:I%=.-48:. I%<|
00001be0 31 20 84 20 49 25 3e 32 20 e5 8d 54 7a 47 0d 07 |1 . I%>2 ..TzG..|
00001bf0 4e 21 f1 3b 49 25 3a 54 25 3d b3 28 31 35 29 2b |N!.;I%:T%=.(15)+|
00001c00 37 3a 51 25 3d b3 28 34 29 2b 31 3a d1 3d 30 0d |7:Q%=.(4)+1:.=0.|
00001c10 07 58 0b 2a 46 2e 39 20 32 35 0d 07 62 0c 2a 46 |.X.*F.9 25..b.*F|
00001c20 2e 31 30 20 32 35 0d 07 6c 48 f1 27 27 27 bd 31 |.10 25..lH.'''.1|
00001c30 33 36 22 20 20 20 20 20 49 6e 74 65 72 6d 69 74 |36" Intermit|
00001c40 61 6e 74 20 73 74 6f 72 6d 20 28 59 2f 4e 29 20 |ant storm (Y/N) |
00001c50 22 3b 3a 47 24 3d bd 28 a5 80 32 32 33 29 3a 56 |";:G$=.(..223):V|
00001c60 25 3d 28 47 24 3d 22 59 22 29 2a 2d 32 20 0d 07 |%=(G$="Y")*-2 ..|
00001c70 76 11 e7 20 56 25 3d 32 3a 2a 46 2e 39 20 31 0d |v.. V%=2:*F.9 1.|
00001c80 07 80 12 e7 20 56 25 3d 32 3a 2a 46 2e 31 30 20 |.... V%=2:*F.10 |
00001c90 31 0d 07 8a 24 f1 8a 36 2c 32 31 29 89 28 38 29 |1...$..6,21).(8)|
00001ca0 22 4a 6f 79 73 74 69 63 6b 73 22 3b 3a 4a 25 3d |"Joysticks";:J%=|
00001cb0 a5 80 32 32 33 0d 07 94 05 e1 0d 07 9e 5e dd f2 |..223........^..|
00001cc0 47 3a ef 31 39 2c 32 2c 39 3b 30 3b 31 39 2c 31 |G:.19,2,9;0;19,1|
00001cd0 2c 31 35 3b 30 3b 3a e6 30 2c 32 3a e7 20 59 3d |,15;0;:.0,2:. Y=|
00001ce0 59 32 20 e7 20 44 33 3d 30 20 84 20 58 35 3e 58 |Y2 . D3=0 . X5>X|
00001cf0 20 4f 41 3d 28 58 32 2b 31 29 2a 33 32 2a 2d 28 | OA=(X2+1)*32*-(|
00001d00 58 3e 58 32 29 20 8b 20 4f 41 3d 58 35 2a 33 32 |X>X2) . OA=X5*32|
00001d10 2a 2d 28 59 3d 59 32 29 0d 07 a8 0c f2 4c 3a f2 |*-(Y=Y2).....L:.|
00001d20 57 28 34 29 0d 07 b2 1e e7 20 b0 4f 41 2d 38 2c |W(4)..... .OA-8,|
00001d30 4f 43 29 3d 31 20 84 20 4f 42 3d 31 3a e4 8d 64 |OC)=1 . OB=1:..d|
00001d40 6a 41 0d 07 bc 2b e6 30 2c 30 3a f2 4c 3a e6 30 |jA...+.0,0:.L:.0|
00001d50 2c 33 3a 4f 42 3d 30 3a ef 31 39 2c 32 2c 31 3b |,3:OB=0:.19,2,1;|
00001d60 30 3b 31 39 2c 31 2c 34 3b 30 3b 3a e1 0d 07 c6 |0;19,1,4;0;:....|
00001d70 2d dd f2 53 3a fb 32 3a f1 8a 33 30 2c 30 29 3b |-..S:.2:..30,0);|
00001d80 44 25 3b 22 20 20 22 3b 3a e7 20 44 25 3c 30 20 |D%;" ";:. D%<0 |
00001d90 ef 31 39 2c 32 2c 39 3b 30 3b 0d 07 d0 05 e1 0d |.19,2,9;0;......|
00001da0 07 da 29 dd f2 4c 3a ec 4f 44 2c 4f 43 3a df 4f |..)..L:.OD,OC:.O|
00001db0 41 2c 4f 43 3a ec 4f 41 2c 4f 43 2b 34 3a df 4f |A,OC:.OA,OC+4:.O|
00001dc0 44 2c 4f 43 2b 34 3a e1 0d 07 e4 5e dd f2 42 3a |D,OC+4:....^..B:|
00001dd0 ef 31 39 2c 31 2c 34 3b 30 3b 31 39 2c 32 2c 31 |.19,1,4;0;19,2,1|
00001de0 3b 30 3b 31 39 2c 33 2c 36 3b 30 3b 3a fb 32 3a |;0;19,3,6;0;:.2:|
00001df0 f1 8a 31 2c 30 29 3b 89 28 32 30 29 3a e6 30 2c |..1,0);.(20):.0,|
00001e00 31 3a ec 30 2c 39 39 32 3a df 31 32 34 35 2c 39 |1:.0,992:.1245,9|
00001e10 39 32 3a ec 30 2c 33 32 3a df 31 32 38 30 2c 33 |92:.0,32:.1280,3|
00001e20 32 3a e6 30 2c 32 0d 07 ee 0b fb 30 3a fb 31 33 |2:.0,2.....0:.13|
00001e30 30 0d 07 f8 37 e7 20 46 25 20 f1 8a 31 2c 30 29 |0...7. F% ..1,0)|
00001e40 3b 22 41 75 74 6f 20 70 69 6c 6f 74 22 8b f1 8a |;"Auto pilot"...|
00001e50 31 2c 30 29 3b 22 50 69 6c 6f 74 20 22 3b 24 26 |1,0);"Pilot ";$&|
00001e60 44 30 32 3a 42 33 3d 30 0d 08 02 1f f1 8a 32 33 |D02:B3=0......23|
00001e70 2c 30 29 3b 22 45 6e 65 72 67 79 3d 22 3a f2 53 |,0);"Energy=":.S|
00001e80 3a fb 31 32 38 3a e1 0d 08 0c 28 dd 20 a4 46 3a |:.128:....(. .F:|
00001e90 20 e7 20 59 3d 59 32 20 80 20 46 25 20 80 20 b3 | . Y=Y2 . F% . .|
00001ea0 28 35 29 3e 33 20 3d 2d 31 20 8b 20 3d 30 20 0d |(5)>3 =-1 . =0 .|
00001eb0 08 16 4c dd f2 44 3a 5a 25 3d 31 3a f1 8a 32 35 |..L..D:Z%=1:..25|
00001ec0 2c 32 38 29 22 52 65 73 65 72 76 65 20 53 68 69 |,28)"Reserve Shi|
00001ed0 70 73 22 8a 33 34 2c 32 39 29 22 49 20 49 22 3a |ps".34,29)"I I":|
00001ee0 44 3d a6 32 30 30 3a f1 8a 32 35 2c 32 38 29 89 |D=.200:..25,28).|
00001ef0 31 34 8a 33 33 2c 32 39 29 89 34 0d 08 20 67 f1 |14.33,29).4.. g.|
00001f00 8a 58 32 2c 59 32 29 bd 32 33 30 3b 8a 58 2c 59 |.X2,Y2).230;.X,Y|
00001f10 29 53 43 24 3b 8a 58 32 2d 32 2c 59 32 2b 32 29 |)SC$;.X2-2,Y2+2)|
00001f20 22 41 53 54 45 52 4f 49 44 22 3b 8a 58 2d 36 2c |"ASTEROID";.X-6,|
00001f30 59 2b 32 29 3b 22 59 4f 55 52 20 53 48 49 50 22 |Y+2);"YOUR SHIP"|
00001f40 3a 44 3d a6 32 30 30 3a f1 8a 58 32 2d 32 2c 59 |:D=.200:..X2-2,Y|
00001f50 32 2b 32 29 89 38 3b 8a 58 2d 36 2c 59 2b 32 29 |2+2).8;.X-6,Y+2)|
00001f60 89 39 0d 08 2a 05 e1 0d ff |.9..*....|
00001f69 
GAMES1/WARPDATA.m0
GAMES1/WARPDATA.m1
GAMES1/WARPDATA.m2
GAMES1/WARPDATA.m4
GAMES1/WARPDATA.m5
.