BeebDisk/SUMVADE

Home » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » BeebDisk/SUMVADE

BeebDisk/SUMVADE

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 » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s
Filename:	BeebDisk/SUMVADE
Read OK:	✔
File size:	11C9 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » BeebDisk/SUMVADE
AEW website » mu » mu_5_25_discs_Micro_User_11_13_D-MU11_13.ssd » SUMVADE

File contents

    1REM Sumvaders
    2REM by Adrian Jackson
    3REM (C) Acorn Computing
   10MODE2:*FX229,1
   20VDU23;8202;0;0;0;:HIMEM=&2E00:sprite=&2E00:calc_loc=&2E57:column=&2E17:*L. S.SPRITE1
   30*L. S.SPRITE2
   40*L.SPRCODE
   50FOR I=0 TO &FF:?(&E00+I)=?(&3000+I):NEXT:FOR I=0 TO &70:?(&F00+I)=?(&880+I):NEXT:PROCinit:CLS:REPEAT:COLOUR4:PRINT'''''''''"    SUMVADERS II":COLOUR6:PRINT'''"Best Score:";H%:PRINT"By ";$&1000:COLOUR10:PRINT''''"Press SPACE to start";:REPEAT:IF INKEY(-36)ANDINKEY(-35)ANDINKEY(-66)ANDINKEY(-83)ANDINKEY(-85) PROCteach
   60UNTIL INKEY(-99):CLS:PROCgminit:GCOL0,5:MOVE 0,0:DRAW 0,1023:DRAW 1279,1023:DRAW 1279,0:DRAW 0,0:PROCdata:PROClivesdraw:MOVE0,80:DRAW1279,80:MOVE0,928:DRAW1279,928:PROCscreenset:REPEAT:REPEAT:PROCsum:PROCmove:IF ?&86=1 PROCshootal
   70IF ?&86=0 PROCdie
   80UNTIL G%=11 OR ?&85=0:IF G%=11 G%=1:PROCnewlevel
   90UNTIL ?&85=0:PROCgameover:UNTIL0
  100DEFPROCgminit:D%=1:E%=36:F%=50:G%=1:I%=0:?&85=3:ENDPROC
  110DEFPROCdata:COLOUR3:PRINT TAB(1,30);"SC:";I%:PRINT TAB(10,30);"LEV:";D%:ENDPROC
  120DEFPROClivesdraw:FOR J%=1 TO ?&85:K%=(J%*4)-4:PROCsprp(K%+146,23,&E0,&E,4,8):NEXT:ENDPROC
  130DEFPROCteach:CLS:COLOUR1:PRINT"Max addition=";B%:PRINT"Max subtraction=";C%:PRINT"Selected:";:IF ?&83=0 AND ?&84=0 ?&83=1
  140IF ?&83=1 AND ?&84=0 PRINT;"Addition"
  150IF ?&83=0 AND ?&84=1 PRINT;"Subtraction"
  160IF ?&83=1 AND ?&84=1 PRINT;"Both"
  170FORZ=1TO1000:NEXT:*FX20,1
  180*FX138,0,21
  190INPUT"Addition max="B%:IF B%<2 B%=10
  200INPUT"Subtraction max="C%:IF C%<2 C%=10
  210PRINT"Addition?(Y/N)":REPEAT:G$=GET$:UNTIL INSTR("yYnN",G$)>0:IF INSTR("yY",G$)>0 PRINT"Addition on":?&83=1 ELSE PRINT "Addition off":?&83=0
  220PRINT"Subtraction?(Y/N)":REPEAT:G$=GET$:UNTIL INSTR("yYnN",G$)>0:IF INSTR("yY",G$)>0 PRINT"Addition on":?&84=1 ELSE PRINT "Addition off":?&84=0
  230COLOUR9:PRINT"Press SPACE to start":ENDPROC
  240DEFPROCinit:aloc=&F81:ENVELOPE1,130,1,-3,-5,10,10,30,0,0,0,-127,100,0:FOR N%=1 TO 5:aloc?N%=(N%-1)*15+6:aloc?(10+N%)=210:aloc?(N%+5)=(N%-1)*15+6:aloc?(15+N%)=230:NEXT:H%=20:$&1000="Adrian":?&83=1:?&84=0:B%=10:C%=10:ENDPROC
  250DEFPROCsprp(A,B,C,D,E,F):X%=A:Y%=B:CALL calc_loc:*FX19
  260column?1=C:column?2=D:X%=E:Y%=F:CALL sprite:ENDPROC
  270DEFPROCsum:PRINTTAB(1,1);"                  ":*FX21,0
  280IF ?&83=1 AND ?&84=1 N%=RND(2):IF N%=1 PROCadd ELSE IF ?&83=1 AND ?&84=1 PROCsub
  290IF ?&83=1 AND ?&84=0 PROCadd
  300IF ?&83=0 AND ?&84=1 PROCsub
  310ENDPROC
  320DEFPROCadd:J%=RND(B%+(2*D%-2)):K%=RND(B%+(2*D%-2)):L%=J%+K%:B$=STR$(J%)+"+"+STR$(K%):PRINTTAB(1,1);J%;"+";K%;"=";:INPUT;M%:IF L%=M% ?&86=1 ELSE ?&86=0
  330ENDPROC
  340DEFPROCsub:J%=RND(C%+(2*D%-2)):K%=RND(C%+(2*D%-2)):IF J%<K% N%=K%:K%=J%:J%=N%
  350L%=J%-K%:B$=STR$(J%)+"-"+STR$(K%):PRINTTAB(1,1);J%;"-";K%;"=";:INPUT;M%:IF L%=M% ?&86=1 ELSE ?&86=0
  360ENDPROC
  370DEFPROCscreenset:FOR AL%=1 TO 5:SOUND1,-10,50,3:PROCsprp(aloc?AL%,aloc?(AL%+10),&0,&F,7,16):FOR I=1TO503:NEXT:SOUND1,-10,50,3:PROCsprp(aloc?(AL%+5),aloc?(AL%+15),0,&F,7,16):FOR I=1TO503:NEXT:NEXT:SOUND1,-10,150,3:PROCsprp(E%,F%,&70,&A,7,16):ENDPROC
  380DEFPROCmove:GOSUB 610:IF B%<36 PROCmovel
  390IF B%>36 PROCmover
  400ENDPROC
  410DEFPROCmovel:PROCsprp(36,F%,&70,&A,7,16):FOR N%=35 TO B%+1 STEP -1:PROCsprp(N%,F%,&70,&A,7,16):PROCsprp(N%,F%,&70,&A,7,16):NEXT:PROCsprp(N%,F%,&70,&A,7,16):ENDPROC
  420DEFPROCmover:PROCsprp(36,F%,&70,&A,7,16):FOR N%=37 TO B%-1:PROCsprp(N%,F%,&70,&A,7,16):PROCsprp(N%,F%,&70,&A,7,16):NEXT:PROCsprp(N%,F%,&70,&A,7,16):ENDPROC
  430DEFPROCshootal:GOSUB610:SOUND0,1,1,5:FOR O%=53 TO C%-16 STEP3:PROCsprp(B%+1,O%,&00,&E,4,8):PROCsprp(B%+1,O%,&00,&E,4,8):NEXT:SOUND1,1,150,5:PROCsprp(B%,C%,0,&F,7,16):PROCsprp(B%,C%,&F0,8,8,16):FORZ%=0TO200:NEXT:PROCsprp(B%,C%,&F0,8,8,16):PROCsprp(B%,C%,&70,&9,8,16):FORZ%=0TO200:NEXT
  440PROCsprp(B%,C%,&70,&9,8,16):PROCsprp(B%,C%,&F0,&9,8,16):FORZ%=0TO200:NEXT:PROCsprp(B%,C%,&F0,&9,8,16):G%=G%+1:I%=I%+10:PROCdata:IF B%<36 PROCbackr
  450IF B%>36 PROCbackl
  460ENDPROC
  470DEFPROCbackr:PROCsprp(B%,F%,&70,&A,7,16):FORZ%=B%+1 TO 35:PROCsprp(Z%,F%,&70,&A,7,16):PROCsprp(Z%,F%,&70,&A,7,16):NEXT:PROCsprp(E%,F%,&70,&A,7,16):ENDPROC
  480DEFPROCbackl:PROCsprp(B%,F%,&70,&A,7,16):FORZ%=B%-1 TO 37 STEP-1:PROCsprp(Z%,F%,&70,&A,7,16):PROCsprp(Z%,F%,&70,&A,7,16):NEXT:PROCsprp(E%,F%,&70,&A,7,16):ENDPROC
  490DEFPROCdie:GOSUB610:FOR Z%=C%-16 TO 66 STEP-3:PROCsprp(B%,Z%,&E0,&A,6,16):PROCsprp(B%,Z%,&E0,&A,6,16):NEXT:PROCsprp(B%,66,&80,&E,6,16):SOUND0,-15,4,5:FORW%=1TO100:NEXT:PROCsprp(B%,66,&80,&E,6,16):PROCsprp(B%,66,&20,&E,6,16):FORW%=1TO100:NEXT:PROCsprp(B%,66,&20,&E,6,16):PROCsprp(B%,66,&80,&E,6,16)
  500FORW%=1TO100:NEXT:PROCsprp(B%,66,&80,&E,6,16):FORW%=1TO1000:NEXT:PROCsprp(B%,50,&70,&A,7,16):PROCsprp(B%,50,&40,&B,7,16):FORW%=1TO100:NEXT:PROCsprp(B%,50,&40,&B,7,16):PROCsprp(B%,50,&B0,&B,7,16):FORW%=1TO100:NEXT:PROCsprp(B%,50,&B0,&B,7,16):PROCsprp(B%,50,&20,&C,7,16):FORW%=1TO100:NEXT
  510PROCsprp(B%,50,&20,&C,7,16):PROCsprp(B%,50,&90,&C,7,16):FORW%=1TO1000:NEXT:PROCsprp(B%,50,&90,&C,7,16):PROCloselife:PROCdata:IF ?&85>0 PROCsprp(E%,F%,&70,&A,7,16)
  520ENDPROC
  530DEFPROCloselife:PROCsprp((?&85*4)+142,23,&E0,&E,4,8):?&85=?&85-1:ENDPROC
  540DEFPROCgameover:CLS:PRINT''''''''''"     SCORE:";I%:IF I%<=H% GOTO 570
  550COLOUR12:PRINT"A NEW HIGH SCORE!":COLOUR1:*FX21,0
  560INPUT"What is your name?"'$&1000:H%=I%
  570COLOUR10:PRINT"    Press SPACE":REPEAT UNTIL INKEY(-99):CLS:ENDPROC
  580DEFPROCnewlevel:RESTORE 590:FOR L%=1 TO 18:READJ%,K%:SOUND1,-15,J%-48,K%*2:SOUND1,0,0,1:NEXT
  590DATA109,2,109,1,129,6,157,3,149,1,145,1,137,1,177,6,157,3,149,1,145,1,137,1,177,6,157,3,177,1,177,1,177,1,177,1
  600PROCsprp(E%,F%,&70,&A,7,16):FOR Z%=F%+3 TO 230 STEP 3:PROCsprp(E%,Z%,&70,&A,7,16):PROCsprp(E%,Z%,&70,&A,7,16):NEXT:PROCscreenset:I%=I%+20*D%:D%=D%+1:PROCdata:ENDPROC
  610LOCALB%,C%:B%=aloc?G%:C%=aloc?(G%+10):RETURN

� Sumvaders
� by Adrian Jackson
� (C) Acorn Computing

�2:*FX229,1
R�23;8202;0;0;0;:�=&2E00:sprite=&2E00:calc_loc=&2E57:column=&2E17:*L. S.SPRITE1
*L. S.SPRITE2
(*L.SPRCODE
2�� I=0 � &FF:?(&E00+I)=?(&3000+I):�:� I=0 � &70:?(&F00+I)=?(&880+I):�:�init:�:�:�4:�'''''''''"    SUMVADERS II":�6:�'''"Best Score:";H%:�"By ";$&1000:�10:�''''"Press SPACE to start";:�:� �(-36)��(-35)��(-66)��(-83)��(-85) �teach
<�� �(-99):�:�gminit:�0,5:� 0,0:� 0,1023:� 1279,1023:� 1279,0:� 0,0:�data:�livesdraw:�0,80:�1279,80:�0,928:�1279,928:�screenset:�:�:�sum:�move:� ?&86=1 �shootal
F� ?&86=0 �die
P+� G%=11 � ?&85=0:� G%=11 G%=1:�newlevel
Z� ?&85=0:�gameover:�0
d0��gminit:D%=1:E%=36:F%=50:G%=1:I%=0:?&85=3:�
n5��data:�3:� �1,30);"SC:";I%:� �10,30);"LEV:";D%:�
xI��livesdraw:� J%=1 � ?&85:K%=(J%*4)-4:�sprp(K%+146,23,&E0,&E,4,8):�:�
�b��teach:�:�1:�"Max addition=";B%:�"Max subtraction=";C%:�"Selected:";:� ?&83=0 � ?&84=0 ?&83=1
�"� ?&83=1 � ?&84=0 �;"Addition"
�%� ?&83=0 � ?&84=1 �;"Subtraction"
�� ?&83=1 � ?&84=1 �;"Both"
��Z=1�1000:�:*FX20,1
�*FX138,0,21
�#�"Addition max="B%:� B%<2 B%=10
�&�"Subtraction max="C%:� C%<2 C%=10
�j�"Addition?(Y/N)":�:G$=�:� �"yYnN",G$)>0:� �"yY",G$)>0 �"Addition on":?&83=1 � � "Addition off":?&83=0
�m�"Subtraction?(Y/N)":�:G$=�:� �"yYnN",G$)>0:� �"yY",G$)>0 �"Addition on":?&84=1 � � "Addition off":?&84=0
� �9:�"Press SPACE to start":�
����init:aloc=&F81:�1,130,1,-3,-5,10,10,30,0,0,0,-127,100,0:� N%=1 � 5:aloc?N%=(N%-1)*15+6:aloc?(10+N%)=210:aloc?(N%+5)=(N%-1)*15+6:aloc?(15+N%)=230:�:H%=20:$&1000="Adrian":?&83=1:?&84=0:B%=10:C%=10:�
�2��sprp(A,B,C,D,E,F):X%=A:Y%=B:� calc_loc:*FX19
.column?1=C:column?2=D:X%=E:Y%=F:� sprite:�
-��sum:�1,1);"                  ":*FX21,0
B� ?&83=1 � ?&84=1 N%=�(2):� N%=1 �add � � ?&83=1 � ?&84=1 �sub
"� ?&83=1 � ?&84=0 �add
,� ?&83=0 � ?&84=1 �sub
6�
@|��add:J%=�(B%+(2*D%-2)):K%=�(B%+(2*D%-2)):L%=J%+K%:B$=�(J%)+"+"+�(K%):�1,1);J%;"+";K%;"=";:�;M%:� L%=M% ?&86=1 � ?&86=0
J�
TG��sub:J%=�(C%+(2*D%-2)):K%=�(C%+(2*D%-2)):� J%<K% N%=K%:K%=J%:J%=N%
^RL%=J%-K%:B$=�(J%)+"-"+�(K%):�1,1);J%;"-";K%;"=";:�;M%:� L%=M% ?&86=1 � ?&86=0
h�
r���screenset:� AL%=1 � 5:�1,-10,50,3:�sprp(aloc?AL%,aloc?(AL%+10),&0,&F,7,16):� I=1�503:�:�1,-10,50,3:�sprp(aloc?(AL%+5),aloc?(AL%+15),0,&F,7,16):� I=1�503:�:�:�1,-10,150,3:�sprp(E%,F%,&70,&A,7,16):�
| ��move:� �DbB:� B%<36 �movel
�� B%>36 �mover
��
����movel:�sprp(36,F%,&70,&A,7,16):� N%=35 � B%+1 � -1:�sprp(N%,F%,&70,&A,7,16):�sprp(N%,F%,&70,&A,7,16):�:�sprp(N%,F%,&70,&A,7,16):�
����mover:�sprp(36,F%,&70,&A,7,16):� N%=37 � B%-1:�sprp(N%,F%,&70,&A,7,16):�sprp(N%,F%,&70,&A,7,16):�:�sprp(N%,F%,&70,&A,7,16):�
����shootal:�DbB:�0,1,1,5:� O%=53 � C%-16 �3:�sprp(B%+1,O%,&00,&E,4,8):�sprp(B%+1,O%,&00,&E,4,8):�:�1,1,150,5:�sprp(B%,C%,0,&F,7,16):�sprp(B%,C%,&F0,8,8,16):�Z%=0�200:�:�sprp(B%,C%,&F0,8,8,16):�sprp(B%,C%,&70,&9,8,16):�Z%=0�200:�
���sprp(B%,C%,&70,&9,8,16):�sprp(B%,C%,&F0,&9,8,16):�Z%=0�200:�:�sprp(B%,C%,&F0,&9,8,16):G%=G%+1:I%=I%+10:�data:� B%<36 �backr
�� B%>36 �backl
��
ց��backr:�sprp(B%,F%,&70,&A,7,16):�Z%=B%+1 � 35:�sprp(Z%,F%,&70,&A,7,16):�sprp(Z%,F%,&70,&A,7,16):�:�sprp(E%,F%,&70,&A,7,16):�
���backl:�sprp(B%,F%,&70,&A,7,16):�Z%=B%-1 � 37 �-1:�sprp(Z%,F%,&70,&A,7,16):�sprp(Z%,F%,&70,&A,7,16):�:�sprp(E%,F%,&70,&A,7,16):�
���die:�DbB:� Z%=C%-16 � 66 �-3:�sprp(B%,Z%,&E0,&A,6,16):�sprp(B%,Z%,&E0,&A,6,16):�:�sprp(B%,66,&80,&E,6,16):�0,-15,4,5:�W%=1�100:�:�sprp(B%,66,&80,&E,6,16):�sprp(B%,66,&20,&E,6,16):�W%=1�100:�:�sprp(B%,66,&20,&E,6,16):�sprp(B%,66,&80,&E,6,16)
���W%=1�100:�:�sprp(B%,66,&80,&E,6,16):�W%=1�1000:�:�sprp(B%,50,&70,&A,7,16):�sprp(B%,50,&40,&B,7,16):�W%=1�100:�:�sprp(B%,50,&40,&B,7,16):�sprp(B%,50,&B0,&B,7,16):�W%=1�100:�:�sprp(B%,50,&B0,&B,7,16):�sprp(B%,50,&20,&C,7,16):�W%=1�100:�
���sprp(B%,50,&20,&C,7,16):�sprp(B%,50,&90,&C,7,16):�W%=1�1000:�:�sprp(B%,50,&90,&C,7,16):�loselife:�data:� ?&85>0 �sprp(E%,F%,&70,&A,7,16)
�
>��loselife:�sprp((?&85*4)+142,23,&E0,&E,4,8):?&85=?&85-1:�
<��gameover:�:�''''''''''"     SCORE:";I%:� I%<=H% � �TzB
&'�12:�"A NEW HIGH SCORE!":�1:*FX21,0
0&�"What is your name?"'$&1000:H%=I%
:)�10:�"    Press SPACE":� � �(-99):�:�
DE��newlevel:� �DNB:� L%=1 � 18:�J%,K%:�1,-15,J%-48,K%*2:�1,0,0,1:�
Np�109,2,109,1,129,6,157,3,149,1,145,1,137,1,177,6,157,3,149,1,145,1,137,1,177,6,157,3,177,1,177,1,177,1,177,1
X��sprp(E%,F%,&70,&A,7,16):� Z%=F%+3 � 230 � 3:�sprp(E%,Z%,&70,&A,7,16):�sprp(E%,Z%,&70,&A,7,16):�:�screenset:I%=I%+20*D%:D%=D%+1:�data:�
b'�B%,C%:B%=aloc?G%:C%=aloc?(G%+10):�
�

00000000  0d 00 01 0f f4 20 53 75  6d 76 61 64 65 72 73 0d  |..... Sumvaders.|
00000010  00 02 17 f4 20 62 79 20  41 64 72 69 61 6e 20 4a  |.... by Adrian J|
00000020  61 63 6b 73 6f 6e 0d 00  03 19 f4 20 28 43 29 20  |ackson..... (C) |
00000030  41 63 6f 72 6e 20 43 6f  6d 70 75 74 69 6e 67 0d  |Acorn Computing.|
00000040  00 0a 0f eb 32 3a 2a 46  58 32 32 39 2c 31 0d 00  |....2:*FX229,1..|
00000050  14 52 ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |.R.23;8202;0;0;0|
00000060  3b 3a d3 3d 26 32 45 30  30 3a 73 70 72 69 74 65  |;:.=&2E00:sprite|
00000070  3d 26 32 45 30 30 3a 63  61 6c 63 5f 6c 6f 63 3d  |=&2E00:calc_loc=|
00000080  26 32 45 35 37 3a 63 6f  6c 75 6d 6e 3d 26 32 45  |&2E57:column=&2E|
00000090  31 37 3a 2a 4c 2e 20 53  2e 53 50 52 49 54 45 31  |17:*L. S.SPRITE1|
000000a0  0d 00 1e 11 2a 4c 2e 20  53 2e 53 50 52 49 54 45  |....*L. S.SPRITE|
000000b0  32 0d 00 28 0e 2a 4c 2e  53 50 52 43 4f 44 45 0d  |2..(.*L.SPRCODE.|
000000c0  00 32 e7 e3 20 49 3d 30  20 b8 20 26 46 46 3a 3f  |.2.. I=0 . &FF:?|
000000d0  28 26 45 30 30 2b 49 29  3d 3f 28 26 33 30 30 30  |(&E00+I)=?(&3000|
000000e0  2b 49 29 3a ed 3a e3 20  49 3d 30 20 b8 20 26 37  |+I):.:. I=0 . &7|
000000f0  30 3a 3f 28 26 46 30 30  2b 49 29 3d 3f 28 26 38  |0:?(&F00+I)=?(&8|
00000100  38 30 2b 49 29 3a ed 3a  f2 69 6e 69 74 3a db 3a  |80+I):.:.init:.:|
00000110  f5 3a fb 34 3a f1 27 27  27 27 27 27 27 27 27 22  |.:.4:.'''''''''"|
00000120  20 20 20 20 53 55 4d 56  41 44 45 52 53 20 49 49  |    SUMVADERS II|
00000130  22 3a fb 36 3a f1 27 27  27 22 42 65 73 74 20 53  |":.6:.'''"Best S|
00000140  63 6f 72 65 3a 22 3b 48  25 3a f1 22 42 79 20 22  |core:";H%:."By "|
00000150  3b 24 26 31 30 30 30 3a  fb 31 30 3a f1 27 27 27  |;$&1000:.10:.'''|
00000160  27 22 50 72 65 73 73 20  53 50 41 43 45 20 74 6f  |'"Press SPACE to|
00000170  20 73 74 61 72 74 22 3b  3a f5 3a e7 20 a6 28 2d  | start";:.:. .(-|
00000180  33 36 29 80 a6 28 2d 33  35 29 80 a6 28 2d 36 36  |36)..(-35)..(-66|
00000190  29 80 a6 28 2d 38 33 29  80 a6 28 2d 38 35 29 20  |)..(-83)..(-85) |
000001a0  f2 74 65 61 63 68 0d 00  3c a2 fd 20 a6 28 2d 39  |.teach..<.. .(-9|
000001b0  39 29 3a db 3a f2 67 6d  69 6e 69 74 3a e6 30 2c  |9):.:.gminit:.0,|
000001c0  35 3a ec 20 30 2c 30 3a  df 20 30 2c 31 30 32 33  |5:. 0,0:. 0,1023|
000001d0  3a df 20 31 32 37 39 2c  31 30 32 33 3a df 20 31  |:. 1279,1023:. 1|
000001e0  32 37 39 2c 30 3a df 20  30 2c 30 3a f2 64 61 74  |279,0:. 0,0:.dat|
000001f0  61 3a f2 6c 69 76 65 73  64 72 61 77 3a ec 30 2c  |a:.livesdraw:.0,|
00000200  38 30 3a df 31 32 37 39  2c 38 30 3a ec 30 2c 39  |80:.1279,80:.0,9|
00000210  32 38 3a df 31 32 37 39  2c 39 32 38 3a f2 73 63  |28:.1279,928:.sc|
00000220  72 65 65 6e 73 65 74 3a  f5 3a f5 3a f2 73 75 6d  |reenset:.:.:.sum|
00000230  3a f2 6d 6f 76 65 3a e7  20 3f 26 38 36 3d 31 20  |:.move:. ?&86=1 |
00000240  f2 73 68 6f 6f 74 61 6c  0d 00 46 11 e7 20 3f 26  |.shootal..F.. ?&|
00000250  38 36 3d 30 20 f2 64 69  65 0d 00 50 2b fd 20 47  |86=0 .die..P+. G|
00000260  25 3d 31 31 20 84 20 3f  26 38 35 3d 30 3a e7 20  |%=11 . ?&85=0:. |
00000270  47 25 3d 31 31 20 47 25  3d 31 3a f2 6e 65 77 6c  |G%=11 G%=1:.newl|
00000280  65 76 65 6c 0d 00 5a 19  fd 20 3f 26 38 35 3d 30  |evel..Z.. ?&85=0|
00000290  3a f2 67 61 6d 65 6f 76  65 72 3a fd 30 0d 00 64  |:.gameover:.0..d|
000002a0  30 dd f2 67 6d 69 6e 69  74 3a 44 25 3d 31 3a 45  |0..gminit:D%=1:E|
000002b0  25 3d 33 36 3a 46 25 3d  35 30 3a 47 25 3d 31 3a  |%=36:F%=50:G%=1:|
000002c0  49 25 3d 30 3a 3f 26 38  35 3d 33 3a e1 0d 00 6e  |I%=0:?&85=3:...n|
000002d0  35 dd f2 64 61 74 61 3a  fb 33 3a f1 20 8a 31 2c  |5..data:.3:. .1,|
000002e0  33 30 29 3b 22 53 43 3a  22 3b 49 25 3a f1 20 8a  |30);"SC:";I%:. .|
000002f0  31 30 2c 33 30 29 3b 22  4c 45 56 3a 22 3b 44 25  |10,30);"LEV:";D%|
00000300  3a e1 0d 00 78 49 dd f2  6c 69 76 65 73 64 72 61  |:...xI..livesdra|
00000310  77 3a e3 20 4a 25 3d 31  20 b8 20 3f 26 38 35 3a  |w:. J%=1 . ?&85:|
00000320  4b 25 3d 28 4a 25 2a 34  29 2d 34 3a f2 73 70 72  |K%=(J%*4)-4:.spr|
00000330  70 28 4b 25 2b 31 34 36  2c 32 33 2c 26 45 30 2c  |p(K%+146,23,&E0,|
00000340  26 45 2c 34 2c 38 29 3a  ed 3a e1 0d 00 82 62 dd  |&E,4,8):.:....b.|
00000350  f2 74 65 61 63 68 3a db  3a fb 31 3a f1 22 4d 61  |.teach:.:.1:."Ma|
00000360  78 20 61 64 64 69 74 69  6f 6e 3d 22 3b 42 25 3a  |x addition=";B%:|
00000370  f1 22 4d 61 78 20 73 75  62 74 72 61 63 74 69 6f  |."Max subtractio|
00000380  6e 3d 22 3b 43 25 3a f1  22 53 65 6c 65 63 74 65  |n=";C%:."Selecte|
00000390  64 3a 22 3b 3a e7 20 3f  26 38 33 3d 30 20 80 20  |d:";:. ?&83=0 . |
000003a0  3f 26 38 34 3d 30 20 3f  26 38 33 3d 31 0d 00 8c  |?&84=0 ?&83=1...|
000003b0  22 e7 20 3f 26 38 33 3d  31 20 80 20 3f 26 38 34  |". ?&83=1 . ?&84|
000003c0  3d 30 20 f1 3b 22 41 64  64 69 74 69 6f 6e 22 0d  |=0 .;"Addition".|
000003d0  00 96 25 e7 20 3f 26 38  33 3d 30 20 80 20 3f 26  |..%. ?&83=0 . ?&|
000003e0  38 34 3d 31 20 f1 3b 22  53 75 62 74 72 61 63 74  |84=1 .;"Subtract|
000003f0  69 6f 6e 22 0d 00 a0 1e  e7 20 3f 26 38 33 3d 31  |ion"..... ?&83=1|
00000400  20 80 20 3f 26 38 34 3d  31 20 f1 3b 22 42 6f 74  | . ?&84=1 .;"Bot|
00000410  68 22 0d 00 aa 17 e3 5a  3d 31 b8 31 30 30 30 3a  |h".....Z=1.1000:|
00000420  ed 3a 2a 46 58 32 30 2c  31 0d 00 b4 0f 2a 46 58  |.:*FX20,1....*FX|
00000430  31 33 38 2c 30 2c 32 31  0d 00 be 23 e8 22 41 64  |138,0,21...#."Ad|
00000440  64 69 74 69 6f 6e 20 6d  61 78 3d 22 42 25 3a e7  |dition max="B%:.|
00000450  20 42 25 3c 32 20 42 25  3d 31 30 0d 00 c8 26 e8  | B%<2 B%=10...&.|
00000460  22 53 75 62 74 72 61 63  74 69 6f 6e 20 6d 61 78  |"Subtraction max|
00000470  3d 22 43 25 3a e7 20 43  25 3c 32 20 43 25 3d 31  |="C%:. C%<2 C%=1|
00000480  30 0d 00 d2 6a f1 22 41  64 64 69 74 69 6f 6e 3f  |0...j."Addition?|
00000490  28 59 2f 4e 29 22 3a f5  3a 47 24 3d be 3a fd 20  |(Y/N)":.:G$=.:. |
000004a0  a7 22 79 59 6e 4e 22 2c  47 24 29 3e 30 3a e7 20  |."yYnN",G$)>0:. |
000004b0  a7 22 79 59 22 2c 47 24  29 3e 30 20 f1 22 41 64  |."yY",G$)>0 ."Ad|
000004c0  64 69 74 69 6f 6e 20 6f  6e 22 3a 3f 26 38 33 3d  |dition on":?&83=|
000004d0  31 20 8b 20 f1 20 22 41  64 64 69 74 69 6f 6e 20  |1 . . "Addition |
000004e0  6f 66 66 22 3a 3f 26 38  33 3d 30 0d 00 dc 6d f1  |off":?&83=0...m.|
000004f0  22 53 75 62 74 72 61 63  74 69 6f 6e 3f 28 59 2f  |"Subtraction?(Y/|
00000500  4e 29 22 3a f5 3a 47 24  3d be 3a fd 20 a7 22 79  |N)":.:G$=.:. ."y|
00000510  59 6e 4e 22 2c 47 24 29  3e 30 3a e7 20 a7 22 79  |YnN",G$)>0:. ."y|
00000520  59 22 2c 47 24 29 3e 30  20 f1 22 41 64 64 69 74  |Y",G$)>0 ."Addit|
00000530  69 6f 6e 20 6f 6e 22 3a  3f 26 38 34 3d 31 20 8b  |ion on":?&84=1 .|
00000540  20 f1 20 22 41 64 64 69  74 69 6f 6e 20 6f 66 66  | . "Addition off|
00000550  22 3a 3f 26 38 34 3d 30  0d 00 e6 20 fb 39 3a f1  |":?&84=0... .9:.|
00000560  22 50 72 65 73 73 20 53  50 41 43 45 20 74 6f 20  |"Press SPACE to |
00000570  73 74 61 72 74 22 3a e1  0d 00 f0 ca dd f2 69 6e  |start":.......in|
00000580  69 74 3a 61 6c 6f 63 3d  26 46 38 31 3a e2 31 2c  |it:aloc=&F81:.1,|
00000590  31 33 30 2c 31 2c 2d 33  2c 2d 35 2c 31 30 2c 31  |130,1,-3,-5,10,1|
000005a0  30 2c 33 30 2c 30 2c 30  2c 30 2c 2d 31 32 37 2c  |0,30,0,0,0,-127,|
000005b0  31 30 30 2c 30 3a e3 20  4e 25 3d 31 20 b8 20 35  |100,0:. N%=1 . 5|
000005c0  3a 61 6c 6f 63 3f 4e 25  3d 28 4e 25 2d 31 29 2a  |:aloc?N%=(N%-1)*|
000005d0  31 35 2b 36 3a 61 6c 6f  63 3f 28 31 30 2b 4e 25  |15+6:aloc?(10+N%|
000005e0  29 3d 32 31 30 3a 61 6c  6f 63 3f 28 4e 25 2b 35  |)=210:aloc?(N%+5|
000005f0  29 3d 28 4e 25 2d 31 29  2a 31 35 2b 36 3a 61 6c  |)=(N%-1)*15+6:al|
00000600  6f 63 3f 28 31 35 2b 4e  25 29 3d 32 33 30 3a ed  |oc?(15+N%)=230:.|
00000610  3a 48 25 3d 32 30 3a 24  26 31 30 30 30 3d 22 41  |:H%=20:$&1000="A|
00000620  64 72 69 61 6e 22 3a 3f  26 38 33 3d 31 3a 3f 26  |drian":?&83=1:?&|
00000630  38 34 3d 30 3a 42 25 3d  31 30 3a 43 25 3d 31 30  |84=0:B%=10:C%=10|
00000640  3a e1 0d 00 fa 32 dd f2  73 70 72 70 28 41 2c 42  |:....2..sprp(A,B|
00000650  2c 43 2c 44 2c 45 2c 46  29 3a 58 25 3d 41 3a 59  |,C,D,E,F):X%=A:Y|
00000660  25 3d 42 3a d6 20 63 61  6c 63 5f 6c 6f 63 3a 2a  |%=B:. calc_loc:*|
00000670  46 58 31 39 0d 01 04 2e  63 6f 6c 75 6d 6e 3f 31  |FX19....column?1|
00000680  3d 43 3a 63 6f 6c 75 6d  6e 3f 32 3d 44 3a 58 25  |=C:column?2=D:X%|
00000690  3d 45 3a 59 25 3d 46 3a  d6 20 73 70 72 69 74 65  |=E:Y%=F:. sprite|
000006a0  3a e1 0d 01 0e 2d dd f2  73 75 6d 3a f1 8a 31 2c  |:....-..sum:..1,|
000006b0  31 29 3b 22 20 20 20 20  20 20 20 20 20 20 20 20  |1);"            |
000006c0  20 20 20 20 20 20 22 3a  2a 46 58 32 31 2c 30 0d  |      ":*FX21,0.|
000006d0  01 18 42 e7 20 3f 26 38  33 3d 31 20 80 20 3f 26  |..B. ?&83=1 . ?&|
000006e0  38 34 3d 31 20 4e 25 3d  b3 28 32 29 3a e7 20 4e  |84=1 N%=.(2):. N|
000006f0  25 3d 31 20 f2 61 64 64  20 8b 20 e7 20 3f 26 38  |%=1 .add . . ?&8|
00000700  33 3d 31 20 80 20 3f 26  38 34 3d 31 20 f2 73 75  |3=1 . ?&84=1 .su|
00000710  62 0d 01 22 1a e7 20 3f  26 38 33 3d 31 20 80 20  |b..".. ?&83=1 . |
00000720  3f 26 38 34 3d 30 20 f2  61 64 64 0d 01 2c 1a e7  |?&84=0 .add..,..|
00000730  20 3f 26 38 33 3d 30 20  80 20 3f 26 38 34 3d 31  | ?&83=0 . ?&84=1|
00000740  20 f2 73 75 62 0d 01 36  05 e1 0d 01 40 7c dd f2  | .sub..6....@|..|
00000750  61 64 64 3a 4a 25 3d b3  28 42 25 2b 28 32 2a 44  |add:J%=.(B%+(2*D|
00000760  25 2d 32 29 29 3a 4b 25  3d b3 28 42 25 2b 28 32  |%-2)):K%=.(B%+(2|
00000770  2a 44 25 2d 32 29 29 3a  4c 25 3d 4a 25 2b 4b 25  |*D%-2)):L%=J%+K%|
00000780  3a 42 24 3d c3 28 4a 25  29 2b 22 2b 22 2b c3 28  |:B$=.(J%)+"+"+.(|
00000790  4b 25 29 3a f1 8a 31 2c  31 29 3b 4a 25 3b 22 2b  |K%):..1,1);J%;"+|
000007a0  22 3b 4b 25 3b 22 3d 22  3b 3a e8 3b 4d 25 3a e7  |";K%;"=";:.;M%:.|
000007b0  20 4c 25 3d 4d 25 20 3f  26 38 36 3d 31 20 8b 20  | L%=M% ?&86=1 . |
000007c0  3f 26 38 36 3d 30 0d 01  4a 05 e1 0d 01 54 47 dd  |?&86=0..J....TG.|
000007d0  f2 73 75 62 3a 4a 25 3d  b3 28 43 25 2b 28 32 2a  |.sub:J%=.(C%+(2*|
000007e0  44 25 2d 32 29 29 3a 4b  25 3d b3 28 43 25 2b 28  |D%-2)):K%=.(C%+(|
000007f0  32 2a 44 25 2d 32 29 29  3a e7 20 4a 25 3c 4b 25  |2*D%-2)):. J%<K%|
00000800  20 4e 25 3d 4b 25 3a 4b  25 3d 4a 25 3a 4a 25 3d  | N%=K%:K%=J%:J%=|
00000810  4e 25 0d 01 5e 52 4c 25  3d 4a 25 2d 4b 25 3a 42  |N%..^RL%=J%-K%:B|
00000820  24 3d c3 28 4a 25 29 2b  22 2d 22 2b c3 28 4b 25  |$=.(J%)+"-"+.(K%|
00000830  29 3a f1 8a 31 2c 31 29  3b 4a 25 3b 22 2d 22 3b  |):..1,1);J%;"-";|
00000840  4b 25 3b 22 3d 22 3b 3a  e8 3b 4d 25 3a e7 20 4c  |K%;"=";:.;M%:. L|
00000850  25 3d 4d 25 20 3f 26 38  36 3d 31 20 8b 20 3f 26  |%=M% ?&86=1 . ?&|
00000860  38 36 3d 30 0d 01 68 05  e1 0d 01 72 ca dd f2 73  |86=0..h....r...s|
00000870  63 72 65 65 6e 73 65 74  3a e3 20 41 4c 25 3d 31  |creenset:. AL%=1|
00000880  20 b8 20 35 3a d4 31 2c  2d 31 30 2c 35 30 2c 33  | . 5:.1,-10,50,3|
00000890  3a f2 73 70 72 70 28 61  6c 6f 63 3f 41 4c 25 2c  |:.sprp(aloc?AL%,|
000008a0  61 6c 6f 63 3f 28 41 4c  25 2b 31 30 29 2c 26 30  |aloc?(AL%+10),&0|
000008b0  2c 26 46 2c 37 2c 31 36  29 3a e3 20 49 3d 31 b8  |,&F,7,16):. I=1.|
000008c0  35 30 33 3a ed 3a d4 31  2c 2d 31 30 2c 35 30 2c  |503:.:.1,-10,50,|
000008d0  33 3a f2 73 70 72 70 28  61 6c 6f 63 3f 28 41 4c  |3:.sprp(aloc?(AL|
000008e0  25 2b 35 29 2c 61 6c 6f  63 3f 28 41 4c 25 2b 31  |%+5),aloc?(AL%+1|
000008f0  35 29 2c 30 2c 26 46 2c  37 2c 31 36 29 3a e3 20  |5),0,&F,7,16):. |
00000900  49 3d 31 b8 35 30 33 3a  ed 3a ed 3a d4 31 2c 2d  |I=1.503:.:.:.1,-|
00000910  31 30 2c 31 35 30 2c 33  3a f2 73 70 72 70 28 45  |10,150,3:.sprp(E|
00000920  25 2c 46 25 2c 26 37 30  2c 26 41 2c 37 2c 31 36  |%,F%,&70,&A,7,16|
00000930  29 3a e1 0d 01 7c 20 dd  f2 6d 6f 76 65 3a e4 20  |):...| ..move:. |
00000940  8d 44 62 42 3a e7 20 42  25 3c 33 36 20 f2 6d 6f  |.DbB:. B%<36 .mo|
00000950  76 65 6c 0d 01 86 12 e7  20 42 25 3e 33 36 20 f2  |vel..... B%>36 .|
00000960  6d 6f 76 65 72 0d 01 90  05 e1 0d 01 9a 87 dd f2  |mover...........|
00000970  6d 6f 76 65 6c 3a f2 73  70 72 70 28 33 36 2c 46  |movel:.sprp(36,F|
00000980  25 2c 26 37 30 2c 26 41  2c 37 2c 31 36 29 3a e3  |%,&70,&A,7,16):.|
00000990  20 4e 25 3d 33 35 20 b8  20 42 25 2b 31 20 88 20  | N%=35 . B%+1 . |
000009a0  2d 31 3a f2 73 70 72 70  28 4e 25 2c 46 25 2c 26  |-1:.sprp(N%,F%,&|
000009b0  37 30 2c 26 41 2c 37 2c  31 36 29 3a f2 73 70 72  |70,&A,7,16):.spr|
000009c0  70 28 4e 25 2c 46 25 2c  26 37 30 2c 26 41 2c 37  |p(N%,F%,&70,&A,7|
000009d0  2c 31 36 29 3a ed 3a f2  73 70 72 70 28 4e 25 2c  |,16):.:.sprp(N%,|
000009e0  46 25 2c 26 37 30 2c 26  41 2c 37 2c 31 36 29 3a  |F%,&70,&A,7,16):|
000009f0  e1 0d 01 a4 82 dd f2 6d  6f 76 65 72 3a f2 73 70  |.......mover:.sp|
00000a00  72 70 28 33 36 2c 46 25  2c 26 37 30 2c 26 41 2c  |rp(36,F%,&70,&A,|
00000a10  37 2c 31 36 29 3a e3 20  4e 25 3d 33 37 20 b8 20  |7,16):. N%=37 . |
00000a20  42 25 2d 31 3a f2 73 70  72 70 28 4e 25 2c 46 25  |B%-1:.sprp(N%,F%|
00000a30  2c 26 37 30 2c 26 41 2c  37 2c 31 36 29 3a f2 73  |,&70,&A,7,16):.s|
00000a40  70 72 70 28 4e 25 2c 46  25 2c 26 37 30 2c 26 41  |prp(N%,F%,&70,&A|
00000a50  2c 37 2c 31 36 29 3a ed  3a f2 73 70 72 70 28 4e  |,7,16):.:.sprp(N|
00000a60  25 2c 46 25 2c 26 37 30  2c 26 41 2c 37 2c 31 36  |%,F%,&70,&A,7,16|
00000a70  29 3a e1 0d 01 ae e8 dd  f2 73 68 6f 6f 74 61 6c  |):.......shootal|
00000a80  3a e4 8d 44 62 42 3a d4  30 2c 31 2c 31 2c 35 3a  |:..DbB:.0,1,1,5:|
00000a90  e3 20 4f 25 3d 35 33 20  b8 20 43 25 2d 31 36 20  |. O%=53 . C%-16 |
00000aa0  88 33 3a f2 73 70 72 70  28 42 25 2b 31 2c 4f 25  |.3:.sprp(B%+1,O%|
00000ab0  2c 26 30 30 2c 26 45 2c  34 2c 38 29 3a f2 73 70  |,&00,&E,4,8):.sp|
00000ac0  72 70 28 42 25 2b 31 2c  4f 25 2c 26 30 30 2c 26  |rp(B%+1,O%,&00,&|
00000ad0  45 2c 34 2c 38 29 3a ed  3a d4 31 2c 31 2c 31 35  |E,4,8):.:.1,1,15|
00000ae0  30 2c 35 3a f2 73 70 72  70 28 42 25 2c 43 25 2c  |0,5:.sprp(B%,C%,|
00000af0  30 2c 26 46 2c 37 2c 31  36 29 3a f2 73 70 72 70  |0,&F,7,16):.sprp|
00000b00  28 42 25 2c 43 25 2c 26  46 30 2c 38 2c 38 2c 31  |(B%,C%,&F0,8,8,1|
00000b10  36 29 3a e3 5a 25 3d 30  b8 32 30 30 3a ed 3a f2  |6):.Z%=0.200:.:.|
00000b20  73 70 72 70 28 42 25 2c  43 25 2c 26 46 30 2c 38  |sprp(B%,C%,&F0,8|
00000b30  2c 38 2c 31 36 29 3a f2  73 70 72 70 28 42 25 2c  |,8,16):.sprp(B%,|
00000b40  43 25 2c 26 37 30 2c 26  39 2c 38 2c 31 36 29 3a  |C%,&70,&9,8,16):|
00000b50  e3 5a 25 3d 30 b8 32 30  30 3a ed 0d 01 b8 80 f2  |.Z%=0.200:......|
00000b60  73 70 72 70 28 42 25 2c  43 25 2c 26 37 30 2c 26  |sprp(B%,C%,&70,&|
00000b70  39 2c 38 2c 31 36 29 3a  f2 73 70 72 70 28 42 25  |9,8,16):.sprp(B%|
00000b80  2c 43 25 2c 26 46 30 2c  26 39 2c 38 2c 31 36 29  |,C%,&F0,&9,8,16)|
00000b90  3a e3 5a 25 3d 30 b8 32  30 30 3a ed 3a f2 73 70  |:.Z%=0.200:.:.sp|
00000ba0  72 70 28 42 25 2c 43 25  2c 26 46 30 2c 26 39 2c  |rp(B%,C%,&F0,&9,|
00000bb0  38 2c 31 36 29 3a 47 25  3d 47 25 2b 31 3a 49 25  |8,16):G%=G%+1:I%|
00000bc0  3d 49 25 2b 31 30 3a f2  64 61 74 61 3a e7 20 42  |=I%+10:.data:. B|
00000bd0  25 3c 33 36 20 f2 62 61  63 6b 72 0d 01 c2 12 e7  |%<36 .backr.....|
00000be0  20 42 25 3e 33 36 20 f2  62 61 63 6b 6c 0d 01 cc  | B%>36 .backl...|
00000bf0  05 e1 0d 01 d6 81 dd f2  62 61 63 6b 72 3a f2 73  |........backr:.s|
00000c00  70 72 70 28 42 25 2c 46  25 2c 26 37 30 2c 26 41  |prp(B%,F%,&70,&A|
00000c10  2c 37 2c 31 36 29 3a e3  5a 25 3d 42 25 2b 31 20  |,7,16):.Z%=B%+1 |
00000c20  b8 20 33 35 3a f2 73 70  72 70 28 5a 25 2c 46 25  |. 35:.sprp(Z%,F%|
00000c30  2c 26 37 30 2c 26 41 2c  37 2c 31 36 29 3a f2 73  |,&70,&A,7,16):.s|
00000c40  70 72 70 28 5a 25 2c 46  25 2c 26 37 30 2c 26 41  |prp(Z%,F%,&70,&A|
00000c50  2c 37 2c 31 36 29 3a ed  3a f2 73 70 72 70 28 45  |,7,16):.:.sprp(E|
00000c60  25 2c 46 25 2c 26 37 30  2c 26 41 2c 37 2c 31 36  |%,F%,&70,&A,7,16|
00000c70  29 3a e1 0d 01 e0 85 dd  f2 62 61 63 6b 6c 3a f2  |):.......backl:.|
00000c80  73 70 72 70 28 42 25 2c  46 25 2c 26 37 30 2c 26  |sprp(B%,F%,&70,&|
00000c90  41 2c 37 2c 31 36 29 3a  e3 5a 25 3d 42 25 2d 31  |A,7,16):.Z%=B%-1|
00000ca0  20 b8 20 33 37 20 88 2d  31 3a f2 73 70 72 70 28  | . 37 .-1:.sprp(|
00000cb0  5a 25 2c 46 25 2c 26 37  30 2c 26 41 2c 37 2c 31  |Z%,F%,&70,&A,7,1|
00000cc0  36 29 3a f2 73 70 72 70  28 5a 25 2c 46 25 2c 26  |6):.sprp(Z%,F%,&|
00000cd0  37 30 2c 26 41 2c 37 2c  31 36 29 3a ed 3a f2 73  |70,&A,7,16):.:.s|
00000ce0  70 72 70 28 45 25 2c 46  25 2c 26 37 30 2c 26 41  |prp(E%,F%,&70,&A|
00000cf0  2c 37 2c 31 36 29 3a e1  0d 01 ea f7 dd f2 64 69  |,7,16):.......di|
00000d00  65 3a e4 8d 44 62 42 3a  e3 20 5a 25 3d 43 25 2d  |e:..DbB:. Z%=C%-|
00000d10  31 36 20 b8 20 36 36 20  88 2d 33 3a f2 73 70 72  |16 . 66 .-3:.spr|
00000d20  70 28 42 25 2c 5a 25 2c  26 45 30 2c 26 41 2c 36  |p(B%,Z%,&E0,&A,6|
00000d30  2c 31 36 29 3a f2 73 70  72 70 28 42 25 2c 5a 25  |,16):.sprp(B%,Z%|
00000d40  2c 26 45 30 2c 26 41 2c  36 2c 31 36 29 3a ed 3a  |,&E0,&A,6,16):.:|
00000d50  f2 73 70 72 70 28 42 25  2c 36 36 2c 26 38 30 2c  |.sprp(B%,66,&80,|
00000d60  26 45 2c 36 2c 31 36 29  3a d4 30 2c 2d 31 35 2c  |&E,6,16):.0,-15,|
00000d70  34 2c 35 3a e3 57 25 3d  31 b8 31 30 30 3a ed 3a  |4,5:.W%=1.100:.:|
00000d80  f2 73 70 72 70 28 42 25  2c 36 36 2c 26 38 30 2c  |.sprp(B%,66,&80,|
00000d90  26 45 2c 36 2c 31 36 29  3a f2 73 70 72 70 28 42  |&E,6,16):.sprp(B|
00000da0  25 2c 36 36 2c 26 32 30  2c 26 45 2c 36 2c 31 36  |%,66,&20,&E,6,16|
00000db0  29 3a e3 57 25 3d 31 b8  31 30 30 3a ed 3a f2 73  |):.W%=1.100:.:.s|
00000dc0  70 72 70 28 42 25 2c 36  36 2c 26 32 30 2c 26 45  |prp(B%,66,&20,&E|
00000dd0  2c 36 2c 31 36 29 3a f2  73 70 72 70 28 42 25 2c  |,6,16):.sprp(B%,|
00000de0  36 36 2c 26 38 30 2c 26  45 2c 36 2c 31 36 29 0d  |66,&80,&E,6,16).|
00000df0  01 f4 ef e3 57 25 3d 31  b8 31 30 30 3a ed 3a f2  |....W%=1.100:.:.|
00000e00  73 70 72 70 28 42 25 2c  36 36 2c 26 38 30 2c 26  |sprp(B%,66,&80,&|
00000e10  45 2c 36 2c 31 36 29 3a  e3 57 25 3d 31 b8 31 30  |E,6,16):.W%=1.10|
00000e20  30 30 3a ed 3a f2 73 70  72 70 28 42 25 2c 35 30  |00:.:.sprp(B%,50|
00000e30  2c 26 37 30 2c 26 41 2c  37 2c 31 36 29 3a f2 73  |,&70,&A,7,16):.s|
00000e40  70 72 70 28 42 25 2c 35  30 2c 26 34 30 2c 26 42  |prp(B%,50,&40,&B|
00000e50  2c 37 2c 31 36 29 3a e3  57 25 3d 31 b8 31 30 30  |,7,16):.W%=1.100|
00000e60  3a ed 3a f2 73 70 72 70  28 42 25 2c 35 30 2c 26  |:.:.sprp(B%,50,&|
00000e70  34 30 2c 26 42 2c 37 2c  31 36 29 3a f2 73 70 72  |40,&B,7,16):.spr|
00000e80  70 28 42 25 2c 35 30 2c  26 42 30 2c 26 42 2c 37  |p(B%,50,&B0,&B,7|
00000e90  2c 31 36 29 3a e3 57 25  3d 31 b8 31 30 30 3a ed  |,16):.W%=1.100:.|
00000ea0  3a f2 73 70 72 70 28 42  25 2c 35 30 2c 26 42 30  |:.sprp(B%,50,&B0|
00000eb0  2c 26 42 2c 37 2c 31 36  29 3a f2 73 70 72 70 28  |,&B,7,16):.sprp(|
00000ec0  42 25 2c 35 30 2c 26 32  30 2c 26 43 2c 37 2c 31  |B%,50,&20,&C,7,1|
00000ed0  36 29 3a e3 57 25 3d 31  b8 31 30 30 3a ed 0d 01  |6):.W%=1.100:...|
00000ee0  fe 8d f2 73 70 72 70 28  42 25 2c 35 30 2c 26 32  |...sprp(B%,50,&2|
00000ef0  30 2c 26 43 2c 37 2c 31  36 29 3a f2 73 70 72 70  |0,&C,7,16):.sprp|
00000f00  28 42 25 2c 35 30 2c 26  39 30 2c 26 43 2c 37 2c  |(B%,50,&90,&C,7,|
00000f10  31 36 29 3a e3 57 25 3d  31 b8 31 30 30 30 3a ed  |16):.W%=1.1000:.|
00000f20  3a f2 73 70 72 70 28 42  25 2c 35 30 2c 26 39 30  |:.sprp(B%,50,&90|
00000f30  2c 26 43 2c 37 2c 31 36  29 3a f2 6c 6f 73 65 6c  |,&C,7,16):.losel|
00000f40  69 66 65 3a f2 64 61 74  61 3a e7 20 3f 26 38 35  |ife:.data:. ?&85|
00000f50  3e 30 20 f2 73 70 72 70  28 45 25 2c 46 25 2c 26  |>0 .sprp(E%,F%,&|
00000f60  37 30 2c 26 41 2c 37 2c  31 36 29 0d 02 08 05 e1  |70,&A,7,16).....|
00000f70  0d 02 12 3e dd f2 6c 6f  73 65 6c 69 66 65 3a f2  |...>..loselife:.|
00000f80  73 70 72 70 28 28 3f 26  38 35 2a 34 29 2b 31 34  |sprp((?&85*4)+14|
00000f90  32 2c 32 33 2c 26 45 30  2c 26 45 2c 34 2c 38 29  |2,23,&E0,&E,4,8)|
00000fa0  3a 3f 26 38 35 3d 3f 26  38 35 2d 31 3a e1 0d 02  |:?&85=?&85-1:...|
00000fb0  1c 3c dd f2 67 61 6d 65  6f 76 65 72 3a db 3a f1  |.<..gameover:.:.|
00000fc0  27 27 27 27 27 27 27 27  27 27 22 20 20 20 20 20  |''''''''''"     |
00000fd0  53 43 4f 52 45 3a 22 3b  49 25 3a e7 20 49 25 3c  |SCORE:";I%:. I%<|
00000fe0  3d 48 25 20 e5 20 8d 54  7a 42 0d 02 26 27 fb 31  |=H% . .TzB..&'.1|
00000ff0  32 3a f1 22 41 20 4e 45  57 20 48 49 47 48 20 53  |2:."A NEW HIGH S|
00001000  43 4f 52 45 21 22 3a fb  31 3a 2a 46 58 32 31 2c  |CORE!":.1:*FX21,|
00001010  30 0d 02 30 26 e8 22 57  68 61 74 20 69 73 20 79  |0..0&."What is y|
00001020  6f 75 72 20 6e 61 6d 65  3f 22 27 24 26 31 30 30  |our name?"'$&100|
00001030  30 3a 48 25 3d 49 25 0d  02 3a 29 fb 31 30 3a f1  |0:H%=I%..:).10:.|
00001040  22 20 20 20 20 50 72 65  73 73 20 53 50 41 43 45  |"    Press SPACE|
00001050  22 3a f5 20 fd 20 a6 28  2d 39 39 29 3a db 3a e1  |":. . .(-99):.:.|
00001060  0d 02 44 45 dd f2 6e 65  77 6c 65 76 65 6c 3a f7  |..DE..newlevel:.|
00001070  20 8d 44 4e 42 3a e3 20  4c 25 3d 31 20 b8 20 31  | .DNB:. L%=1 . 1|
00001080  38 3a f3 4a 25 2c 4b 25  3a d4 31 2c 2d 31 35 2c  |8:.J%,K%:.1,-15,|
00001090  4a 25 2d 34 38 2c 4b 25  2a 32 3a d4 31 2c 30 2c  |J%-48,K%*2:.1,0,|
000010a0  30 2c 31 3a ed 0d 02 4e  70 dc 31 30 39 2c 32 2c  |0,1:...Np.109,2,|
000010b0  31 30 39 2c 31 2c 31 32  39 2c 36 2c 31 35 37 2c  |109,1,129,6,157,|
000010c0  33 2c 31 34 39 2c 31 2c  31 34 35 2c 31 2c 31 33  |3,149,1,145,1,13|
000010d0  37 2c 31 2c 31 37 37 2c  36 2c 31 35 37 2c 33 2c  |7,1,177,6,157,3,|
000010e0  31 34 39 2c 31 2c 31 34  35 2c 31 2c 31 33 37 2c  |149,1,145,1,137,|
000010f0  31 2c 31 37 37 2c 36 2c  31 35 37 2c 33 2c 31 37  |1,177,6,157,3,17|
00001100  37 2c 31 2c 31 37 37 2c  31 2c 31 37 37 2c 31 2c  |7,1,177,1,177,1,|
00001110  31 37 37 2c 31 0d 02 58  8b f2 73 70 72 70 28 45  |177,1..X..sprp(E|
00001120  25 2c 46 25 2c 26 37 30  2c 26 41 2c 37 2c 31 36  |%,F%,&70,&A,7,16|
00001130  29 3a e3 20 5a 25 3d 46  25 2b 33 20 b8 20 32 33  |):. Z%=F%+3 . 23|
00001140  30 20 88 20 33 3a f2 73  70 72 70 28 45 25 2c 5a  |0 . 3:.sprp(E%,Z|
00001150  25 2c 26 37 30 2c 26 41  2c 37 2c 31 36 29 3a f2  |%,&70,&A,7,16):.|
00001160  73 70 72 70 28 45 25 2c  5a 25 2c 26 37 30 2c 26  |sprp(E%,Z%,&70,&|
00001170  41 2c 37 2c 31 36 29 3a  ed 3a f2 73 63 72 65 65  |A,7,16):.:.scree|
00001180  6e 73 65 74 3a 49 25 3d  49 25 2b 32 30 2a 44 25  |nset:I%=I%+20*D%|
00001190  3a 44 25 3d 44 25 2b 31  3a f2 64 61 74 61 3a e1  |:D%=D%+1:.data:.|
000011a0  0d 02 62 27 ea 42 25 2c  43 25 3a 42 25 3d 61 6c  |..b'.B%,C%:B%=al|
000011b0  6f 63 3f 47 25 3a 43 25  3d 61 6c 6f 63 3f 28 47  |oc?G%:C%=aloc?(G|
000011c0  25 2b 31 30 29 3a f8 0d  ff                       |%+10):...|
000011c9

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .