Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Games/BLOCK2

Games/BLOCK2

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 » Greaseweazled » adfs_Programs.adf
Filename: Games/BLOCK2
Read OK: ✔
File size: 165A bytes
Load address: FFFFFB00
Exec address: FFFF8023
Duplicates

There are 5 duplicate copies of this file in the archive:

File contents
   10 MODE 6
   20 PRINTTAB(15,12);"Sound (Y/N)"
   30 Tu$=GET$:IF Tu$="Y" THEN So=1:GOTO 50
   40 IF Tu$="N" THEN So=0 ELSE 50
   50 RESTORE 2320
   60 @%=&00900
   70 YOU1=0:DIM HIGH(10),H(10)
   80 YOU2=0:DIM HIGH_NAME$(10),H$(10)
   90 LEVEL=1:BO=RND(2)-1:SO=RND(2)-1
  100 FORscore=0TO10:READHIGH(score):NEXT
  110 FORscore=10TO0STEP-1:READHIGH_NAME$(score):NEXT
  120 SCORE=0:RESTORE 1470
  130 FOR l=0 TO 10:H(l)=HIGH(l):H$(l)=HIGH_NAME$(l):NEXT
  140 DEAD=0
  150 DIM CO(19,19)
  160 squ=0:squb=0:PROCnew
  170 FOR A=0 TO 19
  180 FOR B=0 TO 19
  190 CO(A,B)=0
  200 NEXT B
  210 NEXT A
  220 MODE 1
  230 VDU 19,1,0,0;0;0;19,2,0;0;0;19,3,0;0;0;
  240 CLS
  250 COLOUR 1
  260 PRINT TAB(5,16);"You scored: ";SCORE
  270 SCORE=0:COLOUR 3:DEAD=0:LEVEL=1
  280 PRINT TAB(10,31);"PRESS A OR B TO PLAY"
  290 COLOUR 2
  300 FORl=0 TO 10
  310 PRINTTAB(1,29-l);H$(l);TAB(12,29-l);
  320 SCORE=H(l):PROCwell:PRINTTAB(36,29-l);SCORE:NEXT
  330 FORl=0 TO 10
  340 PRINTTAB(1,10-l+3);HIGH_NAME$(l);TAB(12,13-l);
  350 SCORE=HIGH(l):PROCwell:PRINTTAB(36,13-l);SCORE
  360 NEXT:B=136:SCORE=0
  370 COLOUR 1:YOU1=0:YOU2=0
  380 PRINT TAB(15,0);"BLOCKABLE"
  390 PRINT TAB(15,1);"========="
  400 PRINTTAB(17,2);"Game A"
  410 PRINTTAB(17,18);"Game B"
  420 PRINTTAB(27,16);
  430 IF So=1 THEN PRINT;"Sound On" ELSE PRINT;"Sound Off"
  440 VDU 19,1,1,0;0;0;19,2,3,0;0;0;19,3,7,0;0;0;
  450 IF So=1 THEN PROCbroom
  460 Z$=INKEY$(1)
  470 IF Z$="A"THENga=0:GOTO500
  480 IF Z$="B"THENga=1:GOTO500
  490 GOTO 460
  500 MODE 1
  510 IF ga=1 THEN B=LEVEL^2*5
  520 MOVE 20+YOU1*50,20+YOU2*50
  530 MOVE 50+YOU1*50,20+YOU2*50
  540 PLOT 85,20+YOU1*50,50+YOU2*50
  550 PLOT 85,50+YOU1*50,50+YOU2*50
  560 COLOUR 1
  570 VDU 19,2,1,0;0;0;19,1,4,0;0;0;
  580 GCOL 0,2
  590 FOR H=10 TO 1010 STEP 50
  600 MOVE 10,H
  610 DRAW 1010,H
  620 NEXT H
  630 FOR V=10 TO 1010 STEP 50
  640 MOVE V,10
  650 DRAW V,1010
  660 NEXT
  670 PRINTTAB(35,1);"Score";TAB(35,5);"Lives"
  680 PRINTTAB(35,10);"Bonus";TAB(35,14);"Level"
  690 PRINTTAB(36,2);SCORE;TAB(36,6);3-DEAD
  700 PRINTTAB(36,11);B;" ";TAB(36,15);LEVEL
  710 C=RND(5)=2:eg=0
  720 FOR e=1 TO RND(LEVEL DIV 5+1)
  730 GCOL 0,1
  740 BLOCK=RND(20)
  750 BLOCK2=RND(20)
  760 IF C=1 THEN PROCegg
  770 IF eg=1 THEN 740
  780 IF BLOCK=1 THEN IF BLOCK2=1 THEN 740
  790 BLOCK=BLOCK-1
  800 IF BLOCK=19 THEN IF BLOCK2=20 THEN 740
  810 BLOCK2=BLOCK2-1
  820 IF CO(BLOCK,BLOCK2)<>0 THEN 740
  830 BLOCK=BLOCK*50
  840 BLOCK2=BLOCK2*50
  850 MOVE 20+BLOCK,20+BLOCK2
  860 MOVE 50+BLOCK,20+BLOCK2
  870 PLOT 85,20+BLOCK,50+BLOCK2
  880 PLOT 85,50+BLOCK,50+BLOCK2
  890 CO(BLOCK/100,BLOCK2/100)=1
  900 C=0
  910 NEXT
  920 *FX 21,0
  930 VDU 19,2,2,0;0;0;:In=0
  940 In$=INKEY$(1):KEY$=In$
  950 In=In+1:IF In$<>""THEN 980
  960 IF In=1050-LEVEL*50 THEN 980
  970 GOTO 940
  980 IF KEY$="Z" THEN YOU1=YOU1-1
  990 IF KEY$="X" THEN YOU1=YOU1+1
 1000 IF KEY$=":" THEN YOU2=YOU2+1
 1010 IF KEY$="/" THEN YOU2=YOU2-1
 1020 VDU 19,2,1,0;0;0;
 1030 IF YOU1>19 THEN YOU1=19
 1040 IF YOU1<0 THEN YOU1=0
 1050 IF YOU2>19 THEN YOU2=19
 1060 IF YOU2<0 THEN YOU2=0
 1070 IF CO(YOU1,YOU2)=1 THENDEAD=DEAD+1:IF So=1 THEN SOUND 1,1,52,15
 1080 IF CO(YOU1,YOU2)=2 THENDEAD=DEAD-2:SOUND1,3,52,10
 1090 IF DEAD=4 THEN PROCover
 1100 IF DEAD=4 AND ga=0 THEN IF SCORE>HIGH(0) THEN 1310
 1110 IF DEAD=4 THEN IF SCORE>H(0) THEN 1310
 1120 IF DEAD=4 THEN 170
 1130 CO(YOU1,YOU2)=1
 1140 GCOL 0,3
 1150 MOVE 20+YOU1*50,20+YOU2*50
 1160 MOVE 50+YOU1*50,20+YOU2*50
 1170 PLOT 85,20+YOU1*50,50+YOU2*50
 1180 PLOT 85,50+YOU1*50,50+YOU2*50
 1190 CO(YOU1/100,(YOU2-5)/100)=1
 1200 B=B-2:IF ga=1 THEN B=B+2
 1210 IF ga=1 THEN SCORE=SCORE+2
 1220 IF YOU1=19 THEN IF YOU2=19 THEN 1570
 1230 IF RND(5)=1 THEN PROCnew
 1240 GOTO690
 1250 PRINT TAB(10,15);"BLOCKABLE"
 1260 SCORE=SCORE+500
 1270 IF SCORE>HIGH(0)THEN 1310
 1280 FOR w=0 TO 1000:NEXT
 1290 PROCwell
 1300 GOTO 220
 1310 MODE 1
 1320 PRINTTAB(15,2);SCORE;"....";:PROCwell
 1330 IF So=1 THEN PROCbroom
 1340 INPUTTAB(10,10);"ENTER YOUR NAME";HIGH_NAME$
 1350 IF LEN(HIGH_NAME$)>12 THEN VDU 7:GOTO1310
 1360 I=0:P=0
 1370 IF ga=0 THEN IF SCORE<HIGH(1) THEN HIGH(0)=SCORE:I=1
 1380 IF ga=1 THEN IF SCORE<H(1) THEN H(0)=SCORE:I=1
 1390 FOR l=1 TO 9
 1400 IF ga=0 THEN IF SCORE>=HIGH(l) THEN IF SCORE<=HIGH(l+1) THEN P=l:I=1
 1410 IF ga=1 THEN IF SCORE>=H(l) THEN IF SCORE<=H(l+1) THEN P=l:I=1
 1420 NEXT
 1430 IF I=0 THEN P=10
 1440 FOR lo=1 TO 10
 1450 IF ga=0 THEN IF P>lo THEN HIGH(lo-1)=HIGH(lo):HIGH_NAME$(lo-1)=HIGH_NAME$(lo)
 1460 IF ga=1 THEN IF P>lo THEN H(lo-1)=H(lo):H$(lo-1)=H$(lo)
 1470 NEXT
 1480 IF P=0 THEN 1530
 1490 IF ga=0 THEN HIGH(P-1)=HIGH(P)
 1500 IF ga=1 THEN H(P-1)=H(P)
 1510 IF ga=0 THEN HIGH_NAME$(P-1)=HIGH_NAME$(P)
 1520 IF ga=1 THEN H$(P-1)=H$(P)
 1530 IF ga=0 THEN HIGH(P)=SCORE:HIGH_NAME$(P)=HIGH_NAME$
 1540 IF ga=1 THEN H(P)=SCORE:H$(P)=HIGH_NAME$
 1550 CLG
 1560 GOTO 170
 1570 FORD=0 TO 9
 1580 FORD2=0 TO 9
 1590 CO(D,D2)=0
 1600 NEXTD2,D
 1610 IF LEVEL=7 THEN DEAD=DEAD-1
 1620 IF LEVEL=15 THEN DEAD=DEAD-1
 1630 IF LEVEL=17 THEN DEAD=DEAD-1
 1640 IF LEVEL=19 THEN DEAD=DEAD-1
 1650 LEVEL=LEVEL+1:YOU1=0:YOU2=0
 1660 SCORE=SCORE+B
 1670 B=136:BO=RND(2)-1:SO=RND(2)-1
 1680 GOTO 500
 1690 DEFPROCwell
 1700 RESTORE 1750
 1710 READ LOW,T,M$
 1720 IF SCORE<=T THEN PRINT;M$:ENDPROC
 1730 IF LOW=-1 THEN PRINT;"Impossible":ENDPROC
 1740 GOTO 1710
 1750 DATA 0,100,"HACKER!!!!"
 1760 DATA 100,200,"Rubbish!!!"
 1770 DATA 200,400,"Very Bad"
 1780 DATA 400,800,"Bad"
 1790 DATA 800,1000,"Fair"
 1800 DATA 1000,1500,"O.K."
 1810 DATA 1500,2000,"Good"
 1820 DATA 2000,2500,"Very Good"
 1830 DATA 2500,3000,"Master"
 1840 DATA 3000,5550,"Incredible"
 1850 DATA 5550,7500,"King"
 1860 DATA 1800,2750,"King"
 1870 DATA 7500,10000000,"HACKER!"
 1880 DATA -1,-1
 1890 DEFPROCegg
 1900 IF BLOCK>YOU1+2 THEN eg=1:ENDPROC
 1910 IF BLOCK<YOU1-2 THEN eg=1:ENDPROC
 1920 IF BLOCK2>YOU2+2 THEN eg=1:ENDPROC
 1930 IF BLOCK2<YOU2-2 THEN eg=1:ENDPROC
 1940 ENDPROC
 1950 DEFPROCover:IF So=1 THEN SOUND 1,1,100,15
 1960 GCOL0,0
 1970 MOVE550-200,500-200:MOVE550-200,500+200:PLOT 85,550+200,500+200:PLOT 85,550+200,500-200
 1980 GCOL0,1:VDU 5
 1990 FOR l=0 TO 10:MOVE 400+l,550+l
 2000 PRINT"Game Over!":NEXT:GCOL0,0
 2010 MOVE 405,555:PRINT"Game Over!"
 2020 VDU 4:FOR w=0 TO 1500:NEXT
 2030 ENDPROC
 2040 DEFPROCbroom:RESTORE 2080
 2050 READ n,l:IF n=-2 THEN RESTORE 2080:ENDPROC
 2060 IF n=-1 THEN FOR lo=0 TO l:NEXT:GOTO 2050
 2070 SOUND 1,-1,n,l:GOTO 2050
 2080 DATA 52,3,72,5,-1,250,72,3
 2090 DATA 88,5,84,3,80,3,116,5
 2100 DATA -1,550,116,3,-1,250
 2110 DATA 116,3,-1,550,-1,750
 2120 DATA 52,5,60,5,52,5,-1,500
 2130 DATA 52,5,60,5,52,5,-1,500
 2140 DATA 52,5,48,5,40,5,32,5
 2150 DATA 40,5,48,5,52,5,-2,0
 2160 DEFPROCnew
 2170 GCOL0,0
 2180 MOVE 20+squ*50,20+squb*50
 2190 MOVE 50+squ*50,20+squb*50
 2200 PLOT 85,20+squ*50,50+squb*50
 2210 PLOT 85,50+squ*50,50+squb*50
 2220 CO(squ,squb)=0
 2230 squ=RND(10)-1:squb=RND(10)-1
 2240 IF CO(squ,squb)<>0 THEN 2230
 2250 GCOL0,2
 2260 CO(squ,squb)=2
 2270 MOVE 20+squ*50,20+squb*50
 2280 MOVE 50+squ*50,20+squb*50
 2290 PLOT 85,20+squ*50,50+squb*50
 2300 PLOT 85,50+squ*50,50+squb*50
 2310 ENDPROC
 2320 DATA 102,127,255,546,879,1254,2243,2537,3245,3875,4024
 2330 DATA Electron,User Group,Presents,This,Epic,Game,Called,Blockable!,,Happy,Playing


 � 6
 �15,12);"Sound (Y/N)"
" Tu$=�:� Tu$="Y" � So=1:� �Tr@
( � Tu$="N" � So=0 � �Tr@
2 � �TPI
< @%=&00900
F YOU1=0:� HIGH(10),H(10)
P# YOU2=0:� HIGH_NAME$(10),H$(10)
Z  LEVEL=1:BO=�(2)-1:SO=�(2)-1
d �score=0�10:�HIGH(score):�
n( �score=10�0�-1:�HIGH_NAME$(score):�
x SCORE=0:� �t~E
�2 � l=0 � 10:H(l)=HIGH(l):H$(l)=HIGH_NAME$(l):�
� DEAD=0
� � CO(19,19)
� squ=0:squb=0:�new
� � A=0 � 19
� � B=0 � 19
� CO(A,B)=0
� � B
� � A
� � 1
�* � 19,1,0,0;0;0;19,2,0;0;0;19,3,0;0;0;
� �
� � 1
" � �5,16);"You scored: ";SCORE
 SCORE=0:� 3:DEAD=0:LEVEL=1
% � �10,31);"PRESS A OR B TO PLAY"
" � 2
, �l=0 � 10
6 �1,29-l);H$(l);�12,29-l);
@( SCORE=H(l):�well:�36,29-l);SCORE:�
J �l=0 � 10
T) �1,10-l+3);HIGH_NAME$(l);�12,13-l);
^) SCORE=HIGH(l):�well:�36,13-l);SCORE
h �:B=136:SCORE=0
r � 1:YOU1=0:YOU2=0
| � �15,0);"BLOCKABLE"
� � �15,1);"========="
� �17,2);"Game A"
� �17,18);"Game B"
� �27,16);
�* � So=1 � �;"Sound On" � �;"Sound Off"
�. � 19,1,1,0;0;0;19,2,3,0;0;0;19,3,7,0;0;0;
� � So=1 � �broom
� Z$=�(1)
� � Z$="A"�ga=0:�dtA
� � Z$="B"�ga=1:�dtA
� � �dLA
� � 1
� � ga=1 � B=LEVEL^2*5
 � 20+YOU1*50,20+YOU2*50
 � 50+YOU1*50,20+YOU2*50
 � 85,20+YOU1*50,50+YOU2*50
& � 85,50+YOU1*50,50+YOU2*50
0 � 1
:! � 19,2,1,0;0;0;19,1,4,0;0;0;
D
 � 0,2
N � H=10 � 1010 � 50
X � 10,H
b
 � 1010,H
l � H
v � V=10 � 1010 � 50
� � V,10
�
 � V,1010
� �
�# �35,1);"Score";�35,5);"Lives"
�% �35,10);"Bonus";�35,14);"Level"
�  �36,2);SCORE;�36,6);3-DEAD
�! �36,11);B;" ";�36,15);LEVEL
� C=�(5)=2:eg=0
� � e=1 � �(LEVEL � 5+1)
�
 � 0,1
� BLOCK=�(20)
� BLOCK2=�(20)
� � C=1 � �egg
 � eg=1 � �ddB
" � BLOCK=1 � � BLOCK2=1 � �ddB
 BLOCK=BLOCK-1
 $ � BLOCK=19 � � BLOCK2=20 � �ddB
* BLOCK2=BLOCK2-1
4! � CO(BLOCK,BLOCK2)<>0 � �ddB
> BLOCK=BLOCK*50
H BLOCK2=BLOCK2*50
R � 20+BLOCK,20+BLOCK2
\ � 50+BLOCK,20+BLOCK2
f � 85,20+BLOCK,50+BLOCK2
p � 85,50+BLOCK,50+BLOCK2
z CO(BLOCK/100,BLOCK2/100)=1
� C=0
� �
�
 *FX 21,0
� � 19,2,2,0;0;0;:In=0
� In$=�(1):KEY$=In$
� In=In+1:� In$<>""� �dTC
� � In=1050-LEVEL*50 � �dTC
� � �tlC
� � KEY$="Z" � YOU1=YOU1-1
� � KEY$="X" � YOU1=YOU1+1
� � KEY$=":" � YOU2=YOU2+1
� � KEY$="/" � YOU2=YOU2-1
� � 19,2,1,0;0;0;
 � YOU1>19 � YOU1=19
 � YOU1<0 � YOU1=0
 � YOU2>19 � YOU2=19
$ � YOU2<0 � YOU2=0
.8 � CO(YOU1,YOU2)=1 �DEAD=DEAD+1:� So=1 � � 1,1,52,15
8. � CO(YOU1,YOU2)=2 �DEAD=DEAD-2:�1,3,52,10
B � DEAD=4 � �over
L- � DEAD=4 � ga=0 � � SCORE>HIGH(0) � �T^E
V# � DEAD=4 � � SCORE>H(0) � �T^E
` � DEAD=4 � �tj@
j CO(YOU1,YOU2)=1
t
 � 0,3
~ � 20+YOU1*50,20+YOU2*50
� � 50+YOU1*50,20+YOU2*50
� � 85,20+YOU1*50,50+YOU2*50
� � 85,50+YOU1*50,50+YOU2*50
�  CO(YOU1/100,(YOU2-5)/100)=1
� B=B-2:� ga=1 � B=B+2
� � ga=1 � SCORE=SCORE+2
�! � YOU1=19 � � YOU2=19 � �TbF
� � �(5)=1 � �new
�
 �trB
� � �10,15);"BLOCKABLE"
� SCORE=SCORE+500
� � SCORE>HIGH(0)� �T^E
 � w=0 � 1000:�


 �well
 � �d\@
 � 1
(  �15,2);SCORE;"....";:�well
2 � So=1 � �broom
<* �10,10);"ENTER YOUR NAME";HIGH_NAME$
F# � �(HIGH_NAME$)>12 � � 7:�T^E
P I=0:P=0
Z1 � ga=0 � � SCORE<HIGH(1) � HIGH(0)=SCORE:I=1
d+ � ga=1 � � SCORE<H(1) � H(0)=SCORE:I=1
n � l=1 � 9
x= � ga=0 � � SCORE>=HIGH(l) � � SCORE<=HIGH(l+1) � P=l:I=1
�7 � ga=1 � � SCORE>=H(l) � � SCORE<=H(l+1) � P=l:I=1
� �
� � I=0 � P=10
� � lo=1 � 10
�J � ga=0 � � P>lo � HIGH(lo-1)=HIGH(lo):HIGH_NAME$(lo-1)=HIGH_NAME$(lo)
�4 � ga=1 � � P>lo � H(lo-1)=H(lo):H$(lo-1)=H$(lo)
� �
� � P=0 � �dzE
� � ga=0 � HIGH(P-1)=HIGH(P)
� � ga=1 � H(P-1)=H(P)
�+ � ga=0 � HIGH_NAME$(P-1)=HIGH_NAME$(P)
� � ga=1 � H$(P-1)=H$(P)
�4 � ga=0 � HIGH(P)=SCORE:HIGH_NAME$(P)=HIGH_NAME$
) � ga=1 � H(P)=SCORE:H$(P)=HIGH_NAME$
 �
 � �tj@
"
 �D=0 � 9
, �D2=0 � 9
6 CO(D,D2)=0
@
 �D2,D
J � LEVEL=7 � DEAD=DEAD-1
T � LEVEL=15 � DEAD=DEAD-1
^ � LEVEL=17 � DEAD=DEAD-1
h � LEVEL=19 � DEAD=DEAD-1
r  LEVEL=LEVEL+1:YOU1=0:YOU2=0
| SCORE=SCORE+B
� B=136:BO=�(2)-1:SO=�(2)-1
� � �dtA
� ��well
� � �dVF
� � LOW,T,M$
� � SCORE<=T � �;M$:�
�  � LOW=-1 � �;"Impossible":�
� � �tnF
� � 0,100,"HACKER!!!!"
� � 100,200,"Rubbish!!!"
� � 200,400,"Very Bad"
� � 400,800,"Bad"
� � 800,1000,"Fair"
 � 1000,1500,"O.K."
 � 1500,2000,"Good"
 � 2000,2500,"Very Good"
& � 2500,3000,"Master"
0 � 3000,5550,"Incredible"
: � 5550,7500,"King"
D � 1800,2750,"King"
N � 7500,10000000,"HACKER!"
X � -1,-1
b
 ��egg
l � BLOCK>YOU1+2 � eg=1:�
v � BLOCK<YOU1-2 � eg=1:�
� � BLOCK2>YOU2+2 � eg=1:�
� � BLOCK2<YOU2-2 � eg=1:�
� �
�! ��over:� So=1 � � 1,1,100,15
�	 �0,0
�P �550-200,500-200:�550-200,500+200:� 85,550+200,500+200:� 85,550+200,500-200
�
 �0,1:� 5
� � l=0 � 10:� 400+l,550+l
� �"Game Over!":�:�0,0
� � 405,555:�"Game Over!"
� � 4:� w=0 � 1500:�
� �
� ��broom:� �T`H
 � n,l:� n=-2 � � �T`H:�
! � n=-1 � � lo=0 � l:�:� �TBH
 � 1,-1,n,l:� �TBH
  � 52,3,72,5,-1,250,72,3
* � 88,5,84,3,80,3,116,5
4 � -1,550,116,3,-1,250
> � 116,3,-1,550,-1,750
H � 52,5,60,5,52,5,-1,500
R � 52,5,60,5,52,5,-1,500
\ � 52,5,48,5,40,5,32,5
f � 40,5,48,5,52,5,-2,0
p
 ��new
z	 �0,0
� � 20+squ*50,20+squb*50
� � 50+squ*50,20+squb*50
� � 85,20+squ*50,50+squb*50
� � 85,50+squ*50,50+squb*50
� CO(squ,squb)=0
� squ=�(10)-1:squb=�(10)-1
� � CO(squ,squb)<>0 � �tvH
�	 �0,2
� CO(squ,squb)=2
� � 20+squ*50,20+squb*50
� � 50+squ*50,20+squb*50
� � 85,20+squ*50,50+squb*50
� � 85,50+squ*50,50+squb*50
	 �
	8 � 102,127,255,546,879,1254,2243,2537,3245,3875,4024
	S � Electron,User Group,Presents,This,Epic,Game,Called,Blockable!,,Happy,Playing
�
00000000  0d 00 0a 08 20 eb 20 36  0d 00 14 1b 20 f1 8a 31  |.... . 6.... ..1|
00000010  35 2c 31 32 29 3b 22 53  6f 75 6e 64 20 28 59 2f  |5,12);"Sound (Y/|
00000020  4e 29 22 0d 00 1e 22 20  54 75 24 3d be 3a e7 20  |N)"..." Tu$=.:. |
00000030  54 75 24 3d 22 59 22 20  8c 20 53 6f 3d 31 3a e5  |Tu$="Y" . So=1:.|
00000040  20 8d 54 72 40 0d 00 28  1c 20 e7 20 54 75 24 3d  | .Tr@..(. . Tu$=|
00000050  22 4e 22 20 8c 20 53 6f  3d 30 20 8b 20 8d 54 72  |"N" . So=0 . .Tr|
00000060  40 0d 00 32 0b 20 f7 20  8d 54 50 49 0d 00 3c 0e  |@..2. . .TPI..<.|
00000070  20 40 25 3d 26 30 30 39  30 30 0d 00 46 1c 20 59  | @%=&00900..F. Y|
00000080  4f 55 31 3d 30 3a de 20  48 49 47 48 28 31 30 29  |OU1=0:. HIGH(10)|
00000090  2c 48 28 31 30 29 0d 00  50 23 20 59 4f 55 32 3d  |,H(10)..P# YOU2=|
000000a0  30 3a de 20 48 49 47 48  5f 4e 41 4d 45 24 28 31  |0:. HIGH_NAME$(1|
000000b0  30 29 2c 48 24 28 31 30  29 0d 00 5a 20 20 4c 45  |0),H$(10)..Z  LE|
000000c0  56 45 4c 3d 31 3a 42 4f  3d b3 28 32 29 2d 31 3a  |VEL=1:BO=.(2)-1:|
000000d0  53 4f 3d b3 28 32 29 2d  31 0d 00 64 1f 20 e3 73  |SO=.(2)-1..d. .s|
000000e0  63 6f 72 65 3d 30 b8 31  30 3a f3 48 49 47 48 28  |core=0.10:.HIGH(|
000000f0  73 63 6f 72 65 29 3a ed  0d 00 6e 28 20 e3 73 63  |score):...n( .sc|
00000100  6f 72 65 3d 31 30 b8 30  88 2d 31 3a f3 48 49 47  |ore=10.0.-1:.HIG|
00000110  48 5f 4e 41 4d 45 24 28  73 63 6f 72 65 29 3a ed  |H_NAME$(score):.|
00000120  0d 00 78 13 20 53 43 4f  52 45 3d 30 3a f7 20 8d  |..x. SCORE=0:. .|
00000130  74 7e 45 0d 00 82 32 20  e3 20 6c 3d 30 20 b8 20  |t~E...2 . l=0 . |
00000140  31 30 3a 48 28 6c 29 3d  48 49 47 48 28 6c 29 3a  |10:H(l)=HIGH(l):|
00000150  48 24 28 6c 29 3d 48 49  47 48 5f 4e 41 4d 45 24  |H$(l)=HIGH_NAME$|
00000160  28 6c 29 3a ed 0d 00 8c  0b 20 44 45 41 44 3d 30  |(l):..... DEAD=0|
00000170  0d 00 96 10 20 de 20 43  4f 28 31 39 2c 31 39 29  |.... . CO(19,19)|
00000180  0d 00 a0 16 20 73 71 75  3d 30 3a 73 71 75 62 3d  |.... squ=0:squb=|
00000190  30 3a f2 6e 65 77 0d 00  aa 0f 20 e3 20 41 3d 30  |0:.new.... . A=0|
000001a0  20 b8 20 31 39 0d 00 b4  0f 20 e3 20 42 3d 30 20  | . 19.... . B=0 |
000001b0  b8 20 31 39 0d 00 be 0e  20 43 4f 28 41 2c 42 29  |. 19.... CO(A,B)|
000001c0  3d 30 0d 00 c8 08 20 ed  20 42 0d 00 d2 08 20 ed  |=0.... . B.... .|
000001d0  20 41 0d 00 dc 08 20 eb  20 31 0d 00 e6 2a 20 ef  | A.... . 1...* .|
000001e0  20 31 39 2c 31 2c 30 2c  30 3b 30 3b 30 3b 31 39  | 19,1,0,0;0;0;19|
000001f0  2c 32 2c 30 3b 30 3b 30  3b 31 39 2c 33 2c 30 3b  |,2,0;0;0;19,3,0;|
00000200  30 3b 30 3b 0d 00 f0 06  20 db 0d 00 fa 08 20 fb  |0;0;.... ..... .|
00000210  20 31 0d 01 04 22 20 f1  20 8a 35 2c 31 36 29 3b  | 1..." . .5,16);|
00000220  22 59 6f 75 20 73 63 6f  72 65 64 3a 20 22 3b 53  |"You scored: ";S|
00000230  43 4f 52 45 0d 01 0e 1f  20 53 43 4f 52 45 3d 30  |CORE.... SCORE=0|
00000240  3a fb 20 33 3a 44 45 41  44 3d 30 3a 4c 45 56 45  |:. 3:DEAD=0:LEVE|
00000250  4c 3d 31 0d 01 18 25 20  f1 20 8a 31 30 2c 33 31  |L=1...% . .10,31|
00000260  29 3b 22 50 52 45 53 53  20 41 20 4f 52 20 42 20  |);"PRESS A OR B |
00000270  54 4f 20 50 4c 41 59 22  0d 01 22 08 20 fb 20 32  |TO PLAY"..". . 2|
00000280  0d 01 2c 0e 20 e3 6c 3d  30 20 b8 20 31 30 0d 01  |..,. .l=0 . 10..|
00000290  36 1f 20 f1 8a 31 2c 32  39 2d 6c 29 3b 48 24 28  |6. ..1,29-l);H$(|
000002a0  6c 29 3b 8a 31 32 2c 32  39 2d 6c 29 3b 0d 01 40  |l);.12,29-l);..@|
000002b0  28 20 53 43 4f 52 45 3d  48 28 6c 29 3a f2 77 65  |( SCORE=H(l):.we|
000002c0  6c 6c 3a f1 8a 33 36 2c  32 39 2d 6c 29 3b 53 43  |ll:..36,29-l);SC|
000002d0  4f 52 45 3a ed 0d 01 4a  0e 20 e3 6c 3d 30 20 b8  |ORE:...J. .l=0 .|
000002e0  20 31 30 0d 01 54 29 20  f1 8a 31 2c 31 30 2d 6c  | 10..T) ..1,10-l|
000002f0  2b 33 29 3b 48 49 47 48  5f 4e 41 4d 45 24 28 6c  |+3);HIGH_NAME$(l|
00000300  29 3b 8a 31 32 2c 31 33  2d 6c 29 3b 0d 01 5e 29  |);.12,13-l);..^)|
00000310  20 53 43 4f 52 45 3d 48  49 47 48 28 6c 29 3a f2  | SCORE=HIGH(l):.|
00000320  77 65 6c 6c 3a f1 8a 33  36 2c 31 33 2d 6c 29 3b  |well:..36,13-l);|
00000330  53 43 4f 52 45 0d 01 68  14 20 ed 3a 42 3d 31 33  |SCORE..h. .:B=13|
00000340  36 3a 53 43 4f 52 45 3d  30 0d 01 72 16 20 fb 20  |6:SCORE=0..r. . |
00000350  31 3a 59 4f 55 31 3d 30  3a 59 4f 55 32 3d 30 0d  |1:YOU1=0:YOU2=0.|
00000360  01 7c 19 20 f1 20 8a 31  35 2c 30 29 3b 22 42 4c  |.|. . .15,0);"BL|
00000370  4f 43 4b 41 42 4c 45 22  0d 01 86 19 20 f1 20 8a  |OCKABLE".... . .|
00000380  31 35 2c 31 29 3b 22 3d  3d 3d 3d 3d 3d 3d 3d 3d  |15,1);"=========|
00000390  22 0d 01 90 15 20 f1 8a  31 37 2c 32 29 3b 22 47  |".... ..17,2);"G|
000003a0  61 6d 65 20 41 22 0d 01  9a 16 20 f1 8a 31 37 2c  |ame A".... ..17,|
000003b0  31 38 29 3b 22 47 61 6d  65 20 42 22 0d 01 a4 0e  |18);"Game B"....|
000003c0  20 f1 8a 32 37 2c 31 36  29 3b 0d 01 ae 2a 20 e7  | ..27,16);...* .|
000003d0  20 53 6f 3d 31 20 8c 20  f1 3b 22 53 6f 75 6e 64  | So=1 . .;"Sound|
000003e0  20 4f 6e 22 20 8b 20 f1  3b 22 53 6f 75 6e 64 20  | On" . .;"Sound |
000003f0  4f 66 66 22 0d 01 b8 2e  20 ef 20 31 39 2c 31 2c  |Off".... . 19,1,|
00000400  31 2c 30 3b 30 3b 30 3b  31 39 2c 32 2c 33 2c 30  |1,0;0;0;19,2,3,0|
00000410  3b 30 3b 30 3b 31 39 2c  33 2c 37 2c 30 3b 30 3b  |;0;0;19,3,7,0;0;|
00000420  30 3b 0d 01 c2 14 20 e7  20 53 6f 3d 31 20 8c 20  |0;.... . So=1 . |
00000430  f2 62 72 6f 6f 6d 0d 01  cc 0c 20 5a 24 3d bf 28  |.broom.... Z$=.(|
00000440  31 29 0d 01 d6 18 20 e7  20 5a 24 3d 22 41 22 8c  |1).... . Z$="A".|
00000450  67 61 3d 30 3a e5 8d 64  74 41 0d 01 e0 18 20 e7  |ga=0:..dtA.... .|
00000460  20 5a 24 3d 22 42 22 8c  67 61 3d 31 3a e5 8d 64  | Z$="B".ga=1:..d|
00000470  74 41 0d 01 ea 0b 20 e5  20 8d 64 4c 41 0d 01 f4  |tA.... . .dLA...|
00000480  08 20 eb 20 31 0d 01 fe  19 20 e7 20 67 61 3d 31  |. . 1.... . ga=1|
00000490  20 8c 20 42 3d 4c 45 56  45 4c 5e 32 2a 35 0d 02  | . B=LEVEL^2*5..|
000004a0  08 1c 20 ec 20 32 30 2b  59 4f 55 31 2a 35 30 2c  |.. . 20+YOU1*50,|
000004b0  32 30 2b 59 4f 55 32 2a  35 30 0d 02 12 1c 20 ec  |20+YOU2*50.... .|
000004c0  20 35 30 2b 59 4f 55 31  2a 35 30 2c 32 30 2b 59  | 50+YOU1*50,20+Y|
000004d0  4f 55 32 2a 35 30 0d 02  1c 1f 20 f0 20 38 35 2c  |OU2*50.... . 85,|
000004e0  32 30 2b 59 4f 55 31 2a  35 30 2c 35 30 2b 59 4f  |20+YOU1*50,50+YO|
000004f0  55 32 2a 35 30 0d 02 26  1f 20 f0 20 38 35 2c 35  |U2*50..&. . 85,5|
00000500  30 2b 59 4f 55 31 2a 35  30 2c 35 30 2b 59 4f 55  |0+YOU1*50,50+YOU|
00000510  32 2a 35 30 0d 02 30 08  20 fb 20 31 0d 02 3a 21  |2*50..0. . 1..:!|
00000520  20 ef 20 31 39 2c 32 2c  31 2c 30 3b 30 3b 30 3b  | . 19,2,1,0;0;0;|
00000530  31 39 2c 31 2c 34 2c 30  3b 30 3b 30 3b 0d 02 44  |19,1,4,0;0;0;..D|
00000540  0a 20 e6 20 30 2c 32 0d  02 4e 17 20 e3 20 48 3d  |. . 0,2..N. . H=|
00000550  31 30 20 b8 20 31 30 31  30 20 88 20 35 30 0d 02  |10 . 1010 . 50..|
00000560  58 0b 20 ec 20 31 30 2c  48 0d 02 62 0d 20 df 20  |X. . 10,H..b. . |
00000570  31 30 31 30 2c 48 0d 02  6c 08 20 ed 20 48 0d 02  |1010,H..l. . H..|
00000580  76 17 20 e3 20 56 3d 31  30 20 b8 20 31 30 31 30  |v. . V=10 . 1010|
00000590  20 88 20 35 30 0d 02 80  0b 20 ec 20 56 2c 31 30  | . 50.... . V,10|
000005a0  0d 02 8a 0d 20 df 20 56  2c 31 30 31 30 0d 02 94  |.... . V,1010...|
000005b0  06 20 ed 0d 02 9e 23 20  f1 8a 33 35 2c 31 29 3b  |. ....# ..35,1);|
000005c0  22 53 63 6f 72 65 22 3b  8a 33 35 2c 35 29 3b 22  |"Score";.35,5);"|
000005d0  4c 69 76 65 73 22 0d 02  a8 25 20 f1 8a 33 35 2c  |Lives"...% ..35,|
000005e0  31 30 29 3b 22 42 6f 6e  75 73 22 3b 8a 33 35 2c  |10);"Bonus";.35,|
000005f0  31 34 29 3b 22 4c 65 76  65 6c 22 0d 02 b2 20 20  |14);"Level"...  |
00000600  f1 8a 33 36 2c 32 29 3b  53 43 4f 52 45 3b 8a 33  |..36,2);SCORE;.3|
00000610  36 2c 36 29 3b 33 2d 44  45 41 44 0d 02 bc 21 20  |6,6);3-DEAD...! |
00000620  f1 8a 33 36 2c 31 31 29  3b 42 3b 22 20 22 3b 8a  |..36,11);B;" ";.|
00000630  33 36 2c 31 35 29 3b 4c  45 56 45 4c 0d 02 c6 12  |36,15);LEVEL....|
00000640  20 43 3d b3 28 35 29 3d  32 3a 65 67 3d 30 0d 02  | C=.(5)=2:eg=0..|
00000650  d0 1b 20 e3 20 65 3d 31  20 b8 20 b3 28 4c 45 56  |.. . e=1 . .(LEV|
00000660  45 4c 20 81 20 35 2b 31  29 0d 02 da 0a 20 e6 20  |EL . 5+1).... . |
00000670  30 2c 31 0d 02 e4 10 20  42 4c 4f 43 4b 3d b3 28  |0,1.... BLOCK=.(|
00000680  32 30 29 0d 02 ee 11 20  42 4c 4f 43 4b 32 3d b3  |20).... BLOCK2=.|
00000690  28 32 30 29 0d 02 f8 11  20 e7 20 43 3d 31 20 8c  |(20).... . C=1 .|
000006a0  20 f2 65 67 67 0d 03 02  12 20 e7 20 65 67 3d 31  | .egg.... . eg=1|
000006b0  20 8c 20 8d 64 64 42 0d  03 0c 22 20 e7 20 42 4c  | . .ddB..." . BL|
000006c0  4f 43 4b 3d 31 20 8c 20  e7 20 42 4c 4f 43 4b 32  |OCK=1 . . BLOCK2|
000006d0  3d 31 20 8c 20 8d 64 64  42 0d 03 16 12 20 42 4c  |=1 . .ddB.... BL|
000006e0  4f 43 4b 3d 42 4c 4f 43  4b 2d 31 0d 03 20 24 20  |OCK=BLOCK-1.. $ |
000006f0  e7 20 42 4c 4f 43 4b 3d  31 39 20 8c 20 e7 20 42  |. BLOCK=19 . . B|
00000700  4c 4f 43 4b 32 3d 32 30  20 8c 20 8d 64 64 42 0d  |LOCK2=20 . .ddB.|
00000710  03 2a 14 20 42 4c 4f 43  4b 32 3d 42 4c 4f 43 4b  |.*. BLOCK2=BLOCK|
00000720  32 2d 31 0d 03 34 21 20  e7 20 43 4f 28 42 4c 4f  |2-1..4! . CO(BLO|
00000730  43 4b 2c 42 4c 4f 43 4b  32 29 3c 3e 30 20 8c 20  |CK,BLOCK2)<>0 . |
00000740  8d 64 64 42 0d 03 3e 13  20 42 4c 4f 43 4b 3d 42  |.ddB..>. BLOCK=B|
00000750  4c 4f 43 4b 2a 35 30 0d  03 48 15 20 42 4c 4f 43  |LOCK*50..H. BLOC|
00000760  4b 32 3d 42 4c 4f 43 4b  32 2a 35 30 0d 03 52 19  |K2=BLOCK2*50..R.|
00000770  20 ec 20 32 30 2b 42 4c  4f 43 4b 2c 32 30 2b 42  | . 20+BLOCK,20+B|
00000780  4c 4f 43 4b 32 0d 03 5c  19 20 ec 20 35 30 2b 42  |LOCK2..\. . 50+B|
00000790  4c 4f 43 4b 2c 32 30 2b  42 4c 4f 43 4b 32 0d 03  |LOCK,20+BLOCK2..|
000007a0  66 1c 20 f0 20 38 35 2c  32 30 2b 42 4c 4f 43 4b  |f. . 85,20+BLOCK|
000007b0  2c 35 30 2b 42 4c 4f 43  4b 32 0d 03 70 1c 20 f0  |,50+BLOCK2..p. .|
000007c0  20 38 35 2c 35 30 2b 42  4c 4f 43 4b 2c 35 30 2b  | 85,50+BLOCK,50+|
000007d0  42 4c 4f 43 4b 32 0d 03  7a 1f 20 43 4f 28 42 4c  |BLOCK2..z. CO(BL|
000007e0  4f 43 4b 2f 31 30 30 2c  42 4c 4f 43 4b 32 2f 31  |OCK/100,BLOCK2/1|
000007f0  30 30 29 3d 31 0d 03 84  08 20 43 3d 30 0d 03 8e  |00)=1.... C=0...|
00000800  06 20 ed 0d 03 98 0d 20  2a 46 58 20 32 31 2c 30  |. ..... *FX 21,0|
00000810  0d 03 a2 19 20 ef 20 31  39 2c 32 2c 32 2c 30 3b  |.... . 19,2,2,0;|
00000820  30 3b 30 3b 3a 49 6e 3d  30 0d 03 ac 16 20 49 6e  |0;0;:In=0.... In|
00000830  24 3d bf 28 31 29 3a 4b  45 59 24 3d 49 6e 24 0d  |$=.(1):KEY$=In$.|
00000840  03 b6 1c 20 49 6e 3d 49  6e 2b 31 3a e7 20 49 6e  |... In=In+1:. In|
00000850  24 3c 3e 22 22 8c 20 8d  64 54 43 0d 03 c0 1e 20  |$<>"". .dTC.... |
00000860  e7 20 49 6e 3d 31 30 35  30 2d 4c 45 56 45 4c 2a  |. In=1050-LEVEL*|
00000870  35 30 20 8c 20 8d 64 54  43 0d 03 ca 0b 20 e5 20  |50 . .dTC.... . |
00000880  8d 74 6c 43 0d 03 d4 1d  20 e7 20 4b 45 59 24 3d  |.tlC.... . KEY$=|
00000890  22 5a 22 20 8c 20 59 4f  55 31 3d 59 4f 55 31 2d  |"Z" . YOU1=YOU1-|
000008a0  31 0d 03 de 1d 20 e7 20  4b 45 59 24 3d 22 58 22  |1.... . KEY$="X"|
000008b0  20 8c 20 59 4f 55 31 3d  59 4f 55 31 2b 31 0d 03  | . YOU1=YOU1+1..|
000008c0  e8 1d 20 e7 20 4b 45 59  24 3d 22 3a 22 20 8c 20  |.. . KEY$=":" . |
000008d0  59 4f 55 32 3d 59 4f 55  32 2b 31 0d 03 f2 1d 20  |YOU2=YOU2+1.... |
000008e0  e7 20 4b 45 59 24 3d 22  2f 22 20 8c 20 59 4f 55  |. KEY$="/" . YOU|
000008f0  32 3d 59 4f 55 32 2d 31  0d 03 fc 14 20 ef 20 31  |2=YOU2-1.... . 1|
00000900  39 2c 32 2c 31 2c 30 3b  30 3b 30 3b 0d 04 06 18  |9,2,1,0;0;0;....|
00000910  20 e7 20 59 4f 55 31 3e  31 39 20 8c 20 59 4f 55  | . YOU1>19 . YOU|
00000920  31 3d 31 39 0d 04 10 16  20 e7 20 59 4f 55 31 3c  |1=19.... . YOU1<|
00000930  30 20 8c 20 59 4f 55 31  3d 30 0d 04 1a 18 20 e7  |0 . YOU1=0.... .|
00000940  20 59 4f 55 32 3e 31 39  20 8c 20 59 4f 55 32 3d  | YOU2>19 . YOU2=|
00000950  31 39 0d 04 24 16 20 e7  20 59 4f 55 32 3c 30 20  |19..$. . YOU2<0 |
00000960  8c 20 59 4f 55 32 3d 30  0d 04 2e 38 20 e7 20 43  |. YOU2=0...8 . C|
00000970  4f 28 59 4f 55 31 2c 59  4f 55 32 29 3d 31 20 8c  |O(YOU1,YOU2)=1 .|
00000980  44 45 41 44 3d 44 45 41  44 2b 31 3a e7 20 53 6f  |DEAD=DEAD+1:. So|
00000990  3d 31 20 8c 20 d4 20 31  2c 31 2c 35 32 2c 31 35  |=1 . . 1,1,52,15|
000009a0  0d 04 38 2e 20 e7 20 43  4f 28 59 4f 55 31 2c 59  |..8. . CO(YOU1,Y|
000009b0  4f 55 32 29 3d 32 20 8c  44 45 41 44 3d 44 45 41  |OU2)=2 .DEAD=DEA|
000009c0  44 2d 32 3a d4 31 2c 33  2c 35 32 2c 31 30 0d 04  |D-2:.1,3,52,10..|
000009d0  42 15 20 e7 20 44 45 41  44 3d 34 20 8c 20 f2 6f  |B. . DEAD=4 . .o|
000009e0  76 65 72 0d 04 4c 2d 20  e7 20 44 45 41 44 3d 34  |ver..L- . DEAD=4|
000009f0  20 80 20 67 61 3d 30 20  8c 20 e7 20 53 43 4f 52  | . ga=0 . . SCOR|
00000a00  45 3e 48 49 47 48 28 30  29 20 8c 20 8d 54 5e 45  |E>HIGH(0) . .T^E|
00000a10  0d 04 56 23 20 e7 20 44  45 41 44 3d 34 20 8c 20  |..V# . DEAD=4 . |
00000a20  e7 20 53 43 4f 52 45 3e  48 28 30 29 20 8c 20 8d  |. SCORE>H(0) . .|
00000a30  54 5e 45 0d 04 60 14 20  e7 20 44 45 41 44 3d 34  |T^E..`. . DEAD=4|
00000a40  20 8c 20 8d 74 6a 40 0d  04 6a 14 20 43 4f 28 59  | . .tj@..j. CO(Y|
00000a50  4f 55 31 2c 59 4f 55 32  29 3d 31 0d 04 74 0a 20  |OU1,YOU2)=1..t. |
00000a60  e6 20 30 2c 33 0d 04 7e  1c 20 ec 20 32 30 2b 59  |. 0,3..~. . 20+Y|
00000a70  4f 55 31 2a 35 30 2c 32  30 2b 59 4f 55 32 2a 35  |OU1*50,20+YOU2*5|
00000a80  30 0d 04 88 1c 20 ec 20  35 30 2b 59 4f 55 31 2a  |0.... . 50+YOU1*|
00000a90  35 30 2c 32 30 2b 59 4f  55 32 2a 35 30 0d 04 92  |50,20+YOU2*50...|
00000aa0  1f 20 f0 20 38 35 2c 32  30 2b 59 4f 55 31 2a 35  |. . 85,20+YOU1*5|
00000ab0  30 2c 35 30 2b 59 4f 55  32 2a 35 30 0d 04 9c 1f  |0,50+YOU2*50....|
00000ac0  20 f0 20 38 35 2c 35 30  2b 59 4f 55 31 2a 35 30  | . 85,50+YOU1*50|
00000ad0  2c 35 30 2b 59 4f 55 32  2a 35 30 0d 04 a6 20 20  |,50+YOU2*50...  |
00000ae0  43 4f 28 59 4f 55 31 2f  31 30 30 2c 28 59 4f 55  |CO(YOU1/100,(YOU|
00000af0  32 2d 35 29 2f 31 30 30  29 3d 31 0d 04 b0 19 20  |2-5)/100)=1.... |
00000b00  42 3d 42 2d 32 3a e7 20  67 61 3d 31 20 8c 20 42  |B=B-2:. ga=1 . B|
00000b10  3d 42 2b 32 0d 04 ba 1b  20 e7 20 67 61 3d 31 20  |=B+2.... . ga=1 |
00000b20  8c 20 53 43 4f 52 45 3d  53 43 4f 52 45 2b 32 0d  |. SCORE=SCORE+2.|
00000b30  04 c4 21 20 e7 20 59 4f  55 31 3d 31 39 20 8c 20  |..! . YOU1=19 . |
00000b40  e7 20 59 4f 55 32 3d 31  39 20 8c 20 8d 54 62 46  |. YOU2=19 . .TbF|
00000b50  0d 04 ce 14 20 e7 20 b3  28 35 29 3d 31 20 8c 20  |.... . .(5)=1 . |
00000b60  f2 6e 65 77 0d 04 d8 0a  20 e5 8d 74 72 42 0d 04  |.new.... ..trB..|
00000b70  e2 1a 20 f1 20 8a 31 30  2c 31 35 29 3b 22 42 4c  |.. . .10,15);"BL|
00000b80  4f 43 4b 41 42 4c 45 22  0d 04 ec 14 20 53 43 4f  |OCKABLE".... SCO|
00000b90  52 45 3d 53 43 4f 52 45  2b 35 30 30 0d 04 f6 1a  |RE=SCORE+500....|
00000ba0  20 e7 20 53 43 4f 52 45  3e 48 49 47 48 28 30 29  | . SCORE>HIGH(0)|
00000bb0  8c 20 8d 54 5e 45 0d 05  00 13 20 e3 20 77 3d 30  |. .T^E.... . w=0|
00000bc0  20 b8 20 31 30 30 30 3a  ed 0d 05 0a 0a 20 f2 77  | . 1000:..... .w|
00000bd0  65 6c 6c 0d 05 14 0b 20  e5 20 8d 64 5c 40 0d 05  |ell.... . .d\@..|
00000be0  1e 08 20 eb 20 31 0d 05  28 20 20 f1 8a 31 35 2c  |.. . 1..(  ..15,|
00000bf0  32 29 3b 53 43 4f 52 45  3b 22 2e 2e 2e 2e 22 3b  |2);SCORE;"....";|
00000c00  3a f2 77 65 6c 6c 0d 05  32 14 20 e7 20 53 6f 3d  |:.well..2. . So=|
00000c10  31 20 8c 20 f2 62 72 6f  6f 6d 0d 05 3c 2a 20 e8  |1 . .broom..<* .|
00000c20  8a 31 30 2c 31 30 29 3b  22 45 4e 54 45 52 20 59  |.10,10);"ENTER Y|
00000c30  4f 55 52 20 4e 41 4d 45  22 3b 48 49 47 48 5f 4e  |OUR NAME";HIGH_N|
00000c40  41 4d 45 24 0d 05 46 23  20 e7 20 a9 28 48 49 47  |AME$..F# . .(HIG|
00000c50  48 5f 4e 41 4d 45 24 29  3e 31 32 20 8c 20 ef 20  |H_NAME$)>12 . . |
00000c60  37 3a e5 8d 54 5e 45 0d  05 50 0c 20 49 3d 30 3a  |7:..T^E..P. I=0:|
00000c70  50 3d 30 0d 05 5a 31 20  e7 20 67 61 3d 30 20 8c  |P=0..Z1 . ga=0 .|
00000c80  20 e7 20 53 43 4f 52 45  3c 48 49 47 48 28 31 29  | . SCORE<HIGH(1)|
00000c90  20 8c 20 48 49 47 48 28  30 29 3d 53 43 4f 52 45  | . HIGH(0)=SCORE|
00000ca0  3a 49 3d 31 0d 05 64 2b  20 e7 20 67 61 3d 31 20  |:I=1..d+ . ga=1 |
00000cb0  8c 20 e7 20 53 43 4f 52  45 3c 48 28 31 29 20 8c  |. . SCORE<H(1) .|
00000cc0  20 48 28 30 29 3d 53 43  4f 52 45 3a 49 3d 31 0d  | H(0)=SCORE:I=1.|
00000cd0  05 6e 0e 20 e3 20 6c 3d  31 20 b8 20 39 0d 05 78  |.n. . l=1 . 9..x|
00000ce0  3d 20 e7 20 67 61 3d 30  20 8c 20 e7 20 53 43 4f  |= . ga=0 . . SCO|
00000cf0  52 45 3e 3d 48 49 47 48  28 6c 29 20 8c 20 e7 20  |RE>=HIGH(l) . . |
00000d00  53 43 4f 52 45 3c 3d 48  49 47 48 28 6c 2b 31 29  |SCORE<=HIGH(l+1)|
00000d10  20 8c 20 50 3d 6c 3a 49  3d 31 0d 05 82 37 20 e7  | . P=l:I=1...7 .|
00000d20  20 67 61 3d 31 20 8c 20  e7 20 53 43 4f 52 45 3e  | ga=1 . . SCORE>|
00000d30  3d 48 28 6c 29 20 8c 20  e7 20 53 43 4f 52 45 3c  |=H(l) . . SCORE<|
00000d40  3d 48 28 6c 2b 31 29 20  8c 20 50 3d 6c 3a 49 3d  |=H(l+1) . P=l:I=|
00000d50  31 0d 05 8c 06 20 ed 0d  05 96 11 20 e7 20 49 3d  |1.... ..... . I=|
00000d60  30 20 8c 20 50 3d 31 30  0d 05 a0 10 20 e3 20 6c  |0 . P=10.... . l|
00000d70  6f 3d 31 20 b8 20 31 30  0d 05 aa 4a 20 e7 20 67  |o=1 . 10...J . g|
00000d80  61 3d 30 20 8c 20 e7 20  50 3e 6c 6f 20 8c 20 48  |a=0 . . P>lo . H|
00000d90  49 47 48 28 6c 6f 2d 31  29 3d 48 49 47 48 28 6c  |IGH(lo-1)=HIGH(l|
00000da0  6f 29 3a 48 49 47 48 5f  4e 41 4d 45 24 28 6c 6f  |o):HIGH_NAME$(lo|
00000db0  2d 31 29 3d 48 49 47 48  5f 4e 41 4d 45 24 28 6c  |-1)=HIGH_NAME$(l|
00000dc0  6f 29 0d 05 b4 34 20 e7  20 67 61 3d 31 20 8c 20  |o)...4 . ga=1 . |
00000dd0  e7 20 50 3e 6c 6f 20 8c  20 48 28 6c 6f 2d 31 29  |. P>lo . H(lo-1)|
00000de0  3d 48 28 6c 6f 29 3a 48  24 28 6c 6f 2d 31 29 3d  |=H(lo):H$(lo-1)=|
00000df0  48 24 28 6c 6f 29 0d 05  be 06 20 ed 0d 05 c8 11  |H$(lo).... .....|
00000e00  20 e7 20 50 3d 30 20 8c  20 8d 64 7a 45 0d 05 d2  | . P=0 . .dzE...|
00000e10  1f 20 e7 20 67 61 3d 30  20 8c 20 48 49 47 48 28  |. . ga=0 . HIGH(|
00000e20  50 2d 31 29 3d 48 49 47  48 28 50 29 0d 05 dc 19  |P-1)=HIGH(P)....|
00000e30  20 e7 20 67 61 3d 31 20  8c 20 48 28 50 2d 31 29  | . ga=1 . H(P-1)|
00000e40  3d 48 28 50 29 0d 05 e6  2b 20 e7 20 67 61 3d 30  |=H(P)...+ . ga=0|
00000e50  20 8c 20 48 49 47 48 5f  4e 41 4d 45 24 28 50 2d  | . HIGH_NAME$(P-|
00000e60  31 29 3d 48 49 47 48 5f  4e 41 4d 45 24 28 50 29  |1)=HIGH_NAME$(P)|
00000e70  0d 05 f0 1b 20 e7 20 67  61 3d 31 20 8c 20 48 24  |.... . ga=1 . H$|
00000e80  28 50 2d 31 29 3d 48 24  28 50 29 0d 05 fa 34 20  |(P-1)=H$(P)...4 |
00000e90  e7 20 67 61 3d 30 20 8c  20 48 49 47 48 28 50 29  |. ga=0 . HIGH(P)|
00000ea0  3d 53 43 4f 52 45 3a 48  49 47 48 5f 4e 41 4d 45  |=SCORE:HIGH_NAME|
00000eb0  24 28 50 29 3d 48 49 47  48 5f 4e 41 4d 45 24 0d  |$(P)=HIGH_NAME$.|
00000ec0  06 04 29 20 e7 20 67 61  3d 31 20 8c 20 48 28 50  |..) . ga=1 . H(P|
00000ed0  29 3d 53 43 4f 52 45 3a  48 24 28 50 29 3d 48 49  |)=SCORE:H$(P)=HI|
00000ee0  47 48 5f 4e 41 4d 45 24  0d 06 0e 06 20 da 0d 06  |GH_NAME$.... ...|
00000ef0  18 0b 20 e5 20 8d 74 6a  40 0d 06 22 0d 20 e3 44  |.. . .tj@..". .D|
00000f00  3d 30 20 b8 20 39 0d 06  2c 0e 20 e3 44 32 3d 30  |=0 . 9..,. .D2=0|
00000f10  20 b8 20 39 0d 06 36 0f  20 43 4f 28 44 2c 44 32  | . 9..6. CO(D,D2|
00000f20  29 3d 30 0d 06 40 0a 20  ed 44 32 2c 44 0d 06 4a  |)=0..@. .D2,D..J|
00000f30  1c 20 e7 20 4c 45 56 45  4c 3d 37 20 8c 20 44 45  |. . LEVEL=7 . DE|
00000f40  41 44 3d 44 45 41 44 2d  31 0d 06 54 1d 20 e7 20  |AD=DEAD-1..T. . |
00000f50  4c 45 56 45 4c 3d 31 35  20 8c 20 44 45 41 44 3d  |LEVEL=15 . DEAD=|
00000f60  44 45 41 44 2d 31 0d 06  5e 1d 20 e7 20 4c 45 56  |DEAD-1..^. . LEV|
00000f70  45 4c 3d 31 37 20 8c 20  44 45 41 44 3d 44 45 41  |EL=17 . DEAD=DEA|
00000f80  44 2d 31 0d 06 68 1d 20  e7 20 4c 45 56 45 4c 3d  |D-1..h. . LEVEL=|
00000f90  31 39 20 8c 20 44 45 41  44 3d 44 45 41 44 2d 31  |19 . DEAD=DEAD-1|
00000fa0  0d 06 72 20 20 4c 45 56  45 4c 3d 4c 45 56 45 4c  |..r  LEVEL=LEVEL|
00000fb0  2b 31 3a 59 4f 55 31 3d  30 3a 59 4f 55 32 3d 30  |+1:YOU1=0:YOU2=0|
00000fc0  0d 06 7c 12 20 53 43 4f  52 45 3d 53 43 4f 52 45  |..|. SCORE=SCORE|
00000fd0  2b 42 0d 06 86 1e 20 42  3d 31 33 36 3a 42 4f 3d  |+B.... B=136:BO=|
00000fe0  b3 28 32 29 2d 31 3a 53  4f 3d b3 28 32 29 2d 31  |.(2)-1:SO=.(2)-1|
00000ff0  0d 06 90 0b 20 e5 20 8d  64 74 41 0d 06 9a 0b 20  |.... . .dtA.... |
00001000  dd f2 77 65 6c 6c 0d 06  a4 0b 20 f7 20 8d 64 56  |..well.... . .dV|
00001010  46 0d 06 ae 0f 20 f3 20  4c 4f 57 2c 54 2c 4d 24  |F.... . LOW,T,M$|
00001020  0d 06 b8 18 20 e7 20 53  43 4f 52 45 3c 3d 54 20  |.... . SCORE<=T |
00001030  8c 20 f1 3b 4d 24 3a e1  0d 06 c2 20 20 e7 20 4c  |. .;M$:....  . L|
00001040  4f 57 3d 2d 31 20 8c 20  f1 3b 22 49 6d 70 6f 73  |OW=-1 . .;"Impos|
00001050  73 69 62 6c 65 22 3a e1  0d 06 cc 0b 20 e5 20 8d  |sible":..... . .|
00001060  74 6e 46 0d 06 d6 19 20  dc 20 30 2c 31 30 30 2c  |tnF.... . 0,100,|
00001070  22 48 41 43 4b 45 52 21  21 21 21 22 0d 06 e0 1b  |"HACKER!!!!"....|
00001080  20 dc 20 31 30 30 2c 32  30 30 2c 22 52 75 62 62  | . 100,200,"Rubb|
00001090  69 73 68 21 21 21 22 0d  06 ea 19 20 dc 20 32 30  |ish!!!".... . 20|
000010a0  30 2c 34 30 30 2c 22 56  65 72 79 20 42 61 64 22  |0,400,"Very Bad"|
000010b0  0d 06 f4 14 20 dc 20 34  30 30 2c 38 30 30 2c 22  |.... . 400,800,"|
000010c0  42 61 64 22 0d 06 fe 16  20 dc 20 38 30 30 2c 31  |Bad".... . 800,1|
000010d0  30 30 30 2c 22 46 61 69  72 22 0d 07 08 17 20 dc  |000,"Fair".... .|
000010e0  20 31 30 30 30 2c 31 35  30 30 2c 22 4f 2e 4b 2e  | 1000,1500,"O.K.|
000010f0  22 0d 07 12 17 20 dc 20  31 35 30 30 2c 32 30 30  |".... . 1500,200|
00001100  30 2c 22 47 6f 6f 64 22  0d 07 1c 1c 20 dc 20 32  |0,"Good".... . 2|
00001110  30 30 30 2c 32 35 30 30  2c 22 56 65 72 79 20 47  |000,2500,"Very G|
00001120  6f 6f 64 22 0d 07 26 19  20 dc 20 32 35 30 30 2c  |ood"..&. . 2500,|
00001130  33 30 30 30 2c 22 4d 61  73 74 65 72 22 0d 07 30  |3000,"Master"..0|
00001140  1d 20 dc 20 33 30 30 30  2c 35 35 35 30 2c 22 49  |. . 3000,5550,"I|
00001150  6e 63 72 65 64 69 62 6c  65 22 0d 07 3a 17 20 dc  |ncredible"..:. .|
00001160  20 35 35 35 30 2c 37 35  30 30 2c 22 4b 69 6e 67  | 5550,7500,"King|
00001170  22 0d 07 44 17 20 dc 20  31 38 30 30 2c 32 37 35  |"..D. . 1800,275|
00001180  30 2c 22 4b 69 6e 67 22  0d 07 4e 1e 20 dc 20 37  |0,"King"..N. . 7|
00001190  35 30 30 2c 31 30 30 30  30 30 30 30 2c 22 48 41  |500,10000000,"HA|
000011a0  43 4b 45 52 21 22 0d 07  58 0c 20 dc 20 2d 31 2c  |CKER!"..X. . -1,|
000011b0  2d 31 0d 07 62 0a 20 dd  f2 65 67 67 0d 07 6c 1c  |-1..b. ..egg..l.|
000011c0  20 e7 20 42 4c 4f 43 4b  3e 59 4f 55 31 2b 32 20  | . BLOCK>YOU1+2 |
000011d0  8c 20 65 67 3d 31 3a e1  0d 07 76 1c 20 e7 20 42  |. eg=1:...v. . B|
000011e0  4c 4f 43 4b 3c 59 4f 55  31 2d 32 20 8c 20 65 67  |LOCK<YOU1-2 . eg|
000011f0  3d 31 3a e1 0d 07 80 1d  20 e7 20 42 4c 4f 43 4b  |=1:..... . BLOCK|
00001200  32 3e 59 4f 55 32 2b 32  20 8c 20 65 67 3d 31 3a  |2>YOU2+2 . eg=1:|
00001210  e1 0d 07 8a 1d 20 e7 20  42 4c 4f 43 4b 32 3c 59  |..... . BLOCK2<Y|
00001220  4f 55 32 2d 32 20 8c 20  65 67 3d 31 3a e1 0d 07  |OU2-2 . eg=1:...|
00001230  94 06 20 e1 0d 07 9e 21  20 dd f2 6f 76 65 72 3a  |.. ....! ..over:|
00001240  e7 20 53 6f 3d 31 20 8c  20 d4 20 31 2c 31 2c 31  |. So=1 . . 1,1,1|
00001250  30 30 2c 31 35 0d 07 a8  09 20 e6 30 2c 30 0d 07  |00,15.... .0,0..|
00001260  b2 50 20 ec 35 35 30 2d  32 30 30 2c 35 30 30 2d  |.P .550-200,500-|
00001270  32 30 30 3a ec 35 35 30  2d 32 30 30 2c 35 30 30  |200:.550-200,500|
00001280  2b 32 30 30 3a f0 20 38  35 2c 35 35 30 2b 32 30  |+200:. 85,550+20|
00001290  30 2c 35 30 30 2b 32 30  30 3a f0 20 38 35 2c 35  |0,500+200:. 85,5|
000012a0  35 30 2b 32 30 30 2c 35  30 30 2d 32 30 30 0d 07  |50+200,500-200..|
000012b0  bc 0d 20 e6 30 2c 31 3a  ef 20 35 0d 07 c6 1d 20  |.. .0,1:. 5.... |
000012c0  e3 20 6c 3d 30 20 b8 20  31 30 3a ec 20 34 30 30  |. l=0 . 10:. 400|
000012d0  2b 6c 2c 35 35 30 2b 6c  0d 07 d0 19 20 f1 22 47  |+l,550+l.... ."G|
000012e0  61 6d 65 20 4f 76 65 72  21 22 3a ed 3a e6 30 2c  |ame Over!":.:.0,|
000012f0  30 0d 07 da 1c 20 ec 20  34 30 35 2c 35 35 35 3a  |0.... . 405,555:|
00001300  f1 22 47 61 6d 65 20 4f  76 65 72 21 22 0d 07 e4  |."Game Over!"...|
00001310  17 20 ef 20 34 3a e3 20  77 3d 30 20 b8 20 31 35  |. . 4:. w=0 . 15|
00001320  30 30 3a ed 0d 07 ee 06  20 e1 0d 07 f8 13 20 dd  |00:..... ..... .|
00001330  f2 62 72 6f 6f 6d 3a f7  20 8d 54 60 48 0d 08 02  |.broom:. .T`H...|
00001340  1c 20 f3 20 6e 2c 6c 3a  e7 20 6e 3d 2d 32 20 8c  |. . n,l:. n=-2 .|
00001350  20 f7 20 8d 54 60 48 3a  e1 0d 08 0c 21 20 e7 20  | . .T`H:....! . |
00001360  6e 3d 2d 31 20 8c 20 e3  20 6c 6f 3d 30 20 b8 20  |n=-1 . . lo=0 . |
00001370  6c 3a ed 3a e5 20 8d 54  42 48 0d 08 16 16 20 d4  |l:.:. .TBH.... .|
00001380  20 31 2c 2d 31 2c 6e 2c  6c 3a e5 20 8d 54 42 48  | 1,-1,n,l:. .TBH|
00001390  0d 08 20 1c 20 dc 20 35  32 2c 33 2c 37 32 2c 35  |.. . . 52,3,72,5|
000013a0  2c 2d 31 2c 32 35 30 2c  37 32 2c 33 0d 08 2a 1b  |,-1,250,72,3..*.|
000013b0  20 dc 20 38 38 2c 35 2c  38 34 2c 33 2c 38 30 2c  | . 88,5,84,3,80,|
000013c0  33 2c 31 31 36 2c 35 0d  08 34 1a 20 dc 20 2d 31  |3,116,5..4. . -1|
000013d0  2c 35 35 30 2c 31 31 36  2c 33 2c 2d 31 2c 32 35  |,550,116,3,-1,25|
000013e0  30 0d 08 3e 1a 20 dc 20  31 31 36 2c 33 2c 2d 31  |0..>. . 116,3,-1|
000013f0  2c 35 35 30 2c 2d 31 2c  37 35 30 0d 08 48 1c 20  |,550,-1,750..H. |
00001400  dc 20 35 32 2c 35 2c 36  30 2c 35 2c 35 32 2c 35  |. 52,5,60,5,52,5|
00001410  2c 2d 31 2c 35 30 30 0d  08 52 1c 20 dc 20 35 32  |,-1,500..R. . 52|
00001420  2c 35 2c 36 30 2c 35 2c  35 32 2c 35 2c 2d 31 2c  |,5,60,5,52,5,-1,|
00001430  35 30 30 0d 08 5c 1a 20  dc 20 35 32 2c 35 2c 34  |500..\. . 52,5,4|
00001440  38 2c 35 2c 34 30 2c 35  2c 33 32 2c 35 0d 08 66  |8,5,40,5,32,5..f|
00001450  1a 20 dc 20 34 30 2c 35  2c 34 38 2c 35 2c 35 32  |. . 40,5,48,5,52|
00001460  2c 35 2c 2d 32 2c 30 0d  08 70 0a 20 dd f2 6e 65  |,5,-2,0..p. ..ne|
00001470  77 0d 08 7a 09 20 e6 30  2c 30 0d 08 84 1b 20 ec  |w..z. .0,0.... .|
00001480  20 32 30 2b 73 71 75 2a  35 30 2c 32 30 2b 73 71  | 20+squ*50,20+sq|
00001490  75 62 2a 35 30 0d 08 8e  1b 20 ec 20 35 30 2b 73  |ub*50.... . 50+s|
000014a0  71 75 2a 35 30 2c 32 30  2b 73 71 75 62 2a 35 30  |qu*50,20+squb*50|
000014b0  0d 08 98 1e 20 f0 20 38  35 2c 32 30 2b 73 71 75  |.... . 85,20+squ|
000014c0  2a 35 30 2c 35 30 2b 73  71 75 62 2a 35 30 0d 08  |*50,50+squb*50..|
000014d0  a2 1e 20 f0 20 38 35 2c  35 30 2b 73 71 75 2a 35  |.. . 85,50+squ*5|
000014e0  30 2c 35 30 2b 73 71 75  62 2a 35 30 0d 08 ac 13  |0,50+squb*50....|
000014f0  20 43 4f 28 73 71 75 2c  73 71 75 62 29 3d 30 0d  | CO(squ,squb)=0.|
00001500  08 b6 1d 20 73 71 75 3d  b3 28 31 30 29 2d 31 3a  |... squ=.(10)-1:|
00001510  73 71 75 62 3d b3 28 31  30 29 2d 31 0d 08 c0 1d  |squb=.(10)-1....|
00001520  20 e7 20 43 4f 28 73 71  75 2c 73 71 75 62 29 3c  | . CO(squ,squb)<|
00001530  3e 30 20 8c 20 8d 74 76  48 0d 08 ca 09 20 e6 30  |>0 . .tvH.... .0|
00001540  2c 32 0d 08 d4 13 20 43  4f 28 73 71 75 2c 73 71  |,2.... CO(squ,sq|
00001550  75 62 29 3d 32 0d 08 de  1b 20 ec 20 32 30 2b 73  |ub)=2.... . 20+s|
00001560  71 75 2a 35 30 2c 32 30  2b 73 71 75 62 2a 35 30  |qu*50,20+squb*50|
00001570  0d 08 e8 1b 20 ec 20 35  30 2b 73 71 75 2a 35 30  |.... . 50+squ*50|
00001580  2c 32 30 2b 73 71 75 62  2a 35 30 0d 08 f2 1e 20  |,20+squb*50.... |
00001590  f0 20 38 35 2c 32 30 2b  73 71 75 2a 35 30 2c 35  |. 85,20+squ*50,5|
000015a0  30 2b 73 71 75 62 2a 35  30 0d 08 fc 1e 20 f0 20  |0+squb*50.... . |
000015b0  38 35 2c 35 30 2b 73 71  75 2a 35 30 2c 35 30 2b  |85,50+squ*50,50+|
000015c0  73 71 75 62 2a 35 30 0d  09 06 06 20 e1 0d 09 10  |squb*50.... ....|
000015d0  38 20 dc 20 31 30 32 2c  31 32 37 2c 32 35 35 2c  |8 . 102,127,255,|
000015e0  35 34 36 2c 38 37 39 2c  31 32 35 34 2c 32 32 34  |546,879,1254,224|
000015f0  33 2c 32 35 33 37 2c 33  32 34 35 2c 33 38 37 35  |3,2537,3245,3875|
00001600  2c 34 30 32 34 0d 09 1a  53 20 dc 20 45 6c 65 63  |,4024...S . Elec|
00001610  74 72 6f 6e 2c 55 73 65  72 20 47 72 6f 75 70 2c  |tron,User Group,|
00001620  50 72 65 73 65 6e 74 73  2c 54 68 69 73 2c 45 70  |Presents,This,Ep|
00001630  69 63 2c 47 61 6d 65 2c  43 61 6c 6c 65 64 2c 42  |ic,Game,Called,B|
00001640  6c 6f 63 6b 61 62 6c 65  21 2c 2c 48 61 70 70 79  |lockable!,,Happy|
00001650  2c 50 6c 61 79 69 6e 67  0d ff                    |,Playing..|
0000165a
Games/BLOCK2.m0
Games/BLOCK2.m1
Games/BLOCK2.m2
Games/BLOCK2.m4
Games/BLOCK2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .