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

Games/BLOX!

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/BLOX!
Read OK: ✔
File size: 1D28 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

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

File contents
   10 REM BLOX - By D Ford
   20 :
   30 *TAPE
   40 MODE 6:PRINT"Please Wait. . .";CHR$21;
   50 IF PAGE<>&E00 THEN PROCreloc
   60 PROCass
   70 PROCain
   80 A$="DEL.3120,4240"+CHR$13+"GOTO100"+CHR$6+CHR$13:VDU21:FOR char=1 TO LEN(A$):OSCLI"FX138,0,"+STR$(ASC(MID$(A$,char,1))):NEXT
   90 END
  100 PROCinit
  110 :
  120 REPEAT
  130 cont=TRUE
  140 ON ERROR CLEAR:CALL&CD8:MODE 6:GOTO 100
  150 REPEAT
  160 PROCcoinit
  170 IF cont=TRUE THEN MODE 1:PROCtitle
  180 UNTILcont=TRUE
  185 *FX 21,0
  190 REPEAT
  200 A$=INKEY$(1)
  210 UNTIL A$=" " OR A$="K" OR A$="I" OR A$="Q"
  220 IF A$="I" THEN PROCinstructions:UNTIL 0
  230 CALL &CD8
  240 IF A$="K" THEN PROCkeys:CALL &CD8
  250 IF A$=" " THEN PROCgame
  260 UNTIL A$="Q"
  270 *FX 21,0
  280 MODE 6
  290 END
  300 :
  310 DEFPROCgame
  330 B=0
  340 S%=0
  350 GN=2
  360 I%=0
  370 L%=0
  380 J%=0
  390 d%=2
  400 REPEAT
  410 cont=TRUE
  420 comp=FALSE
  430 PROClinit
  440 REPEAT
  450 PROCscrbar
  460 IF cont=TRUE THEN PROCcompgo
  470 IF cont=TRUE THEN PROCyougo
  480 UNTIL cont=FALSE
  490 UNTIL comp=FALSE
  500 ENDPROC
  510 :
  520 DEFPROCwell
  530 RESTORE610
  540 REPEAT
  550 READT,M$
  560 UNTIL T=-1 OR S%<=T
  570 IF T=-1 THEN PRINT"HACKER!"
  580 PRINT;M$
  590 ENDPROC
  600 :
  610 DATA 100,"Rubbish!"
  620 DATA 200,"Very Bad"
  630 DATA 300,"Bad"
  640 DATA 400,"Fair"
  650 DATA 500,"O.K."
  660 DATA 750,"Good"
  670 DATA 1000,"Very Good"
  680 DATA 1500,"Master"
  690 DATA 2000,"Incredible"
  700 DATA 2500,"King"
  710 DATA -1,""
  720 :
  730 DEFPROCegg
  735 eg=0
  740 IF B%>I%+2 THEN eg=1:ENDPROC
  750 IF B%<I%-2 THEN eg=1:ENDPROC
  760 IF C%>J%+2 THEN eg=1:ENDPROC
  770 IF C%<J%-2 THEN eg=1:ENDPROC
  780 ENDPROC
  790 :
  800 DEFPROCover
  810 IF So=1 THEN FOR S=88 TO 76 STEP -4:SOUND 1,-15,S,5:NEXT
  820 GCOL0,1
  830 MOVE 300,300
  840 MOVE 300,700
  850 PLOT 85,700,300
  860 PLOT 85,700,700
  870 GCOL0,1
  880 X=350:Y=550:A$="Game Over!":PROCtext
  890 A$=GET$
  900 CALL&CD8
  910 PRINTTAB(15,2);S%"....";
  920 PROCwell
  930 PRINT"Press SPACE to continue"
  940 REPEAT
  950 A$=GET$
  960 UNTIL A$=" "
  970 CALL &CD8
  980 ENDPROC
  990 :
 1000 DEFPROCnew
 1010 PROCblk(squ,squb,0)
 1020 CO%(squ,squb)=1
 1030 GN=GN+1
 1040 REPEAT
 1050 squ=RND(20)-1
 1060 squb=RND(20)-1
 1070 UNTIL CO%(squ,squb)=0
 1080 CO%(squ,squb)=2
 1090 PROCblk(squ,squb,3)
 1100 ENDPROC
 1110 :
 1120 DEFPROCyougo
 1130 *FX21,0
 1140 VDU19,2,6,0;0;0;:In=0
 1150 REPEAT
 1160 A$=INKEY$(1)
 1170 In=In+1
 1180 UNTIL A$<>""
 1190 IF A$=L$ PROCblk(I%,J%,0):I%=I%-1
 1200 IF A$=R$ PROCblk(I%,J%,0):I%=I%+1
 1210 IF A$=U$ PROCblk(I%,J%,0):J%=J%+1
 1220 IF A$=D$ PROCblk(I%,J%,0):J%=J%-1
 1230 VDU19,2,1,0;0;0;
 1240 GN=GN+1
 1250 IF I%>19 THEN I%=19:GN=GN-1
 1260 IF I%<0 THEN I%=0:GN=GN-1
 1270 IF J%>19 THEN J%=19:GN=GN-1
 1280 IF J%<0 THEN J%=0:GN=GN-1
 1290 IF CO%(I%,J%)=1 THEN d%=d%-1:IF So=1 THEN FOR S=100 TO 88 STEP -4:SOUND 1,-15,S,5:NEXT
 1300 IF CO%(I%,J%)=2 THEN d%=d%+2:IF So=1 THEN FOR S=88 TO 100 STEP 4:SOUND 1,-15,S,5:NEXT
 1310 IF d%=-1 THEN PROCover:cont=FALSE:ENDPROC
 1320 CO%(I%,J%)=1
 1330 PROCblk(I%,J%,3)
 1340 B=B-2
 1350 IF I%=19 AND J%=19 THEN cont=FALSE:comp=TRUE:PROCtune
 1360 IF RND(10)=1 THEN PROCnew
 1370 ENDPROC
 1380 :
 1390 DEFPROCblk(x,y,t)
 1400 IF t=2 THEN x=19:y=19
 1410 xc=x*50+17
 1420 yc=y*50+17
 1430 GCOL 0,t
 1440 MOVE xc,yc
 1450 MOVE xc+30,yc
 1460 PLOT 85,xc,yc+30
 1470 PLOT 85,xc+30,yc+30
 1480 ENDPROC
 1490 :
 1500 DEFPROCscrbar
 1510 PRINT TAB(36,2);S%TAB(36,6);d%" "
 1520 PRINT TAB(36,11);B" "TAB(36,15);L%
 1530 ENDPROC
 1540 :
 1550 DEFPROCtitle
 1560 GCOL 0,3
 1570 VDU 19,3,6,0;0;0;
 1580 VDU 19,2,2,0;0;0;
 1590 VDU 19,1,4,0;0;0;
 1600 MOVE 1200,0
 1610 MOVE 1200,1000
 1620 PLOT 85,0,0
 1630 PLOT 85,0,1000
 1640 GCOL 0,1
 1650 MOVE 0,0
 1660 MOVE 0,1000
 1670 PLOT 85,600,1000
 1680 MOVE 1200,0
 1690 PLOT 85,1200,1000
 1700 GCOL 0,2
 1710 FOR R=0 TO 600 STEP 15
 1720 MOVE 0,0
 1730 DRAW R,1000
 1740 MOVE 1200,0
 1750 DRAW 1200-R,1000
 1760 NEXT
 1770 X=475:Y=750:A$="B L O X":PROCtext
 1780 X=550:Y=675:A$="By":PROCtext
 1790 X=475:Y=600:A$="Dominic":PROCtext
 1800 X=525:Y=525:A$="Ford":PROCtext
 1810 X=428:Y=400:A$="I - Instructions":PROCtext
 1820 X=300:Y=300:A$="SPACE - Start Game":PROCtext
 1830 X=428:Y=200:A$="K - Change Keys":PROCtext
 1840 Y=100:A$="Q - Quit":PROCtext
 1850 ENDPROC
 1860 :
 1870 DEFPROCkeys
 1880 PRINT'"Please enter the keys for:"'''" Left:"'"Right:"'"   Up:"'" Down:"TAB(7,4);
 1890 L$=GET$:PRINT TAB(7,4)L$
 1900 R$=GET$:PRINT TAB(7,5)R$
 1910 U$=GET$:PRINT TAB(7,6)U$
 1920 D$=GET$:PRINT TAB(7,7)D$
 1930 ENDPROC
 1940 :
 1950 DEFPROCtext
 1960 VDU 5
 1970 GCOL 0,0
 1980 FOR R=0 TO 10
 1990 MOVE X+R,Y+R
 2000 PRINT A$
 2010 NEXT
 2020 GCOL 0,2
 2030 MOVE X+5,Y+5
 2040 PRINT A$
 2050 VDU 4
 2060 ENDPROC
 2070 :
 2080 DEFPROCcoinit
 2090 FOR X=0 TO 19
 2100 FOR Y=0 TO 19
 2110 CO%(X,Y)=0
 2120 NEXT,
 2130 ENDPROC
 2140 :
 2150 DEFPROCinit
 2160 VDU 6
 2170 CLS
 2180 @%=&00900
 2190 L$="Z":R$="X":U$=":":D$="/"
 2200 PRINT TAB(15,12)"Sound (Y/N)"
 2210 REPEAT
 2220 A$=GET$
 2230 UNTIL A$="Y" OR A$="N"
 2240 IF A$="Y" THEN So=1 ELSE So=0
 2250 BO=RND(2)-1
 2260 SO=RND(2)-1
 2270 DIM CO%(19,19)
 2280 squ=0
 2290 squb=0
 2300 PROCnew
 2310 ENDPROC
 2320 :
 2330 DEFPROClinit
 2333 CALL&CD8
 2336 PROCcoinit
 2340 COLOUR1
 2350 VDU 19,2,1,0;0;0;19,1,2,0;0;0;
 2360 GCOL 0,1
 2370 MOVE 6,10
 2380 MOVE 6,1000
 2390 PLOT 85,1000,10
 2400 PLOT 85,1000,1000
 2410 GCOL 0,2
 2420 FOR H=10 TO 1001 STEP 50
 2430 MOVE 10,H
 2440 DRAW 1000,H
 2450 NEXT
 2460 FOR V=1 TO 1001 STEP 50
 2470 MOVE V,10
 2480 DRAW V,1000
 2490 NEXT
 2500 PROCblk(9,9,2)
 2510 PROCblk(0,0,3)
 2520 PRINT TAB(35,1)"Score"TAB(35,5)"Lives"TAB(35,10)"Bonus"TAB(35,14)"Level"
 2530 IF L% MOD 5=0 THEN d%=d%+1
 2540 L%=L%+1
 2550 I%=0
 2560 J%=0
 2570 S%=S%+B
 2580 B=176
 2590 BO=RND(2)-1
 2600 SO=RND(2)-1
 2610 ENDPROC
 2620 :
 2630 DEFPROCtune
 2640 RESTORE 2710
 2650 REPEAT
 2660 READ P
 2670 SOUND 1,-15,P,2
 2680 UNTIL P=124
 2690 ENDPROC
 2700 :
 2710 DATA 52,68,80,100
 2720 DATA 60,76,88,108
 2730 DATA 68,84,96,116
 2740 DATA 76,92,104,124
 2750 :
 2760 DEFPROCcompgo
 2790 NO=RND(L%/1.5)
 2800 IF NO>7 THEN NO=7
 2810 FOR E=1 TO NO
 2820 IF GN=390 THEN E=NO:NEXT:ENDPROC
 2825 REPEAT
 2826 C=RND(5)=2
 2827 rt=FALSE
 2830 B%=RND(20)
 2840 C%=RND(20)
 2850 IF C THENPROCegg:IF eg=1 THEN rt=TRUE
 2870 IF B%=0 AND C%=0 THEN rt=TRUE
 2880 B%=B%-1
 2890 C%=C%-1
 2900 IF (B%>17) AND (C%>17) THEN rt=TRUE
 2910 IF CO%(B%,C%)<>0 THEN rt=TRUE
 2915 UNTIL rt=FALSE
 2920 PROCblk(B%,C%,0)
 2930 GN=GN+1
 2940 CO%(B%,C%)=1
 2950 C=0
 2960 NEXT
 2970 ENDPROC
 2980 :
 2990 DEFPROCinstructions
 3005 CONT=TRUE
 3010 M$=STRING$(38," ")
 3020 VDU23,1,0;0;0;0;
 3030 AD=&8FF
 3040 REPEAT
 3050 AD=AD+1
 3060 M$=MID$(M$,2,38)+CHR$(?AD)
 3070 IF CHR$(?AD)="@" THEN CONT=FALSE:GOTO 3090
 3080 PRINTTAB(0,30);M$;
 3090 UNTIL CONT=FALSE
 3100 CALL&CD8
 3110 ENDPROC
 3120 :
 3130 DATA "The aim of BLOX is very simple. You start in the bottom left corner of the screen, and to complete the level, you must reach the top right corner of the screen, as quickly as possible. "
 3140 DATA "You must avoid the black squares, which are places where the floor has collapsed, and try to step on the white squares, which will give you two extra lives. "
 3150 DATA "You also gain an extra life for every 5 levels that you complete, but lose one for every black square that you step on. The default keys are: Z - Left, X - Right, * - Up, ? - Down. "
 3160 DATA "You can, however, change the keys on the title screen, by pressing K. The colour code that is used for the squares that you will find in the game is: BLACK - A square where the floor has collapsed; WHITE - You, "
 3170 DATA "or a bonus square; CYAN/RED - If you step on this square, you will move onto the next level. While this square is red, the computer is thinking, but when it is cyan, you may move."
 3180 DATA "                Have Fun!                @"
 3190 :
 3200 DEFPROCass
 3210 FORX=0TO2STEP2
 3220 P%=&CD8
 3230 [OPTX
 3240     LDA#&00
 3250     STA&70
 3260     TAY
 3270 .lb LDX#&30
 3280     STX&71
 3290 .l  STA(&70),Y
 3300     INY
 3310     INY
 3320     INY
 3330     INY
 3340     INY
 3350     INY
 3360     INY
 3370     INY
 3380     CPY#&08
 3390     BCSl
 3400     INC&71
 3410     LDX&71
 3420     CPX#&80
 3430     BNEl
 3440     INY
 3450     CPY#&08
 3460     BNElb
 3470     RTS
 3480     ]
 3490 NEXT
 3500 ENDPROC
 3510 :
 3520 DEFPROCreloc
 3530 HIMEM=&5800
 3540 FOR pass=0 TO 2 STEP 2
 3550 P%=&C00
 3560 [OPTpass
 3570     LDY#0
 3580     STY&70
 3590     STY&72
 3600     LDA#&0E
 3610     SEC
 3620     SBC&18
 3630     STA&74
 3640     LDA&18
 3650     CMP#&0E
 3660     BCCad
 3670 .sb STA&71
 3680     LDA#&0E
 3690     STA&73
 3700 .m1 LDA(&70),Y
 3710     STA(&72),Y
 3720     INY
 3730     BNEm1
 3740     INC&71
 3750     INC&73
 3760     LDX&71
 3770     DEX
 3780     CPX&03
 3790     BCCm1
 3800     BCSem
 3810 .ad LDA&03
 3820     STA&71
 3830     CLC
 3840     ADC&74
 3850     STA&73
 3860     LDA#0
 3870     LDY&02
 3880 .m2 LDA(&70),Y
 3890     STA(&72),Y
 3900     DEY
 3910     CPY#&FF
 3920     BNEm2
 3930     DEC&71
 3940     DEC&73
 3950     LDA&73
 3960     CMP#&0D
 3970     BCSm2
 3980 .em LDA&13
 3990     CLC
 4000     ADC&74
 4010     STA&13
 4020     STA&01
 4030     LDA#&0E
 4040     STA&18
 4050     RTS
 4060 ]
 4070 NEXT
 4080 OSCLI"KEY 0""CALL&C00|MGOTO60|F|M""":OSCLI"FX 153,0,128"
 4090 END
 4100 ENDPROC
 4110 :
 4120 DEFPROCain
 4130 RESTORE 3130
 4140 AD=&900
 4150 REPEAT
 4160 READ T$
 4170 So=1
 4180 REPEAT
 4190 ?AD=ASC(MID$(T$,So,1))
 4200 So=So+1
 4210 AD=AD+1
 4220 UNTIL So=LEN(T$)+1
 4230 UNTIL MID$(T$,So-1,1)="@"
 4240 ENDPROC


 � BLOX - By D Ford
 :

 *TAPE
(! � 6:�"Please Wait. . .";�21;
2 � �<>&E00 � �reloc
<	 �ass
F	 �ain
Pa A$="DEL.3120,4240"+�13+"GOTO100"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
Z �
d
 �init
n :
x �
� cont=�
� � � �:�&CD8:� 6:� �Dd@
� �
� �coinit
� � cont=� � � 1:�title
� �cont=�
�
 *FX 21,0
� �
� A$=�(1)
�( � A$=" " � A$="K" � A$="I" � A$="Q"
�! � A$="I" � �instructions:� 0
� � &CD8
� � A$="K" � �keys:� &CD8
� � A$=" " � �game

 � A$="Q"

 *FX 21,0
 � 6
" �
, :
6 ��game
J B=0
T	 S%=0
^	 GN=2
h	 I%=0
r	 L%=0
|	 J%=0
�	 d%=2
� �
� cont=�
� comp=�
� �linit
� �
� �scrbar
� � cont=� � �compgo
� � cont=� � �yougo
�
 � cont=�
�
 � comp=�
� �
� :
 ��well

 ��DbB
 �
&
 �T,M$
0 � T=-1 � S%<=T
: � T=-1 � �"HACKER!"
D	 �;M$
N �
X :
b � 100,"Rubbish!"
l � 200,"Very Bad"
v � 300,"Bad"
� � 400,"Fair"
� � 500,"O.K."
� � 750,"Good"
� � 1000,"Very Good"
� � 1500,"Master"
� � 2000,"Incredible"
� � 2500,"King"
� � -1,""
� :
�
 ��egg
�	 eg=0
� � B%>I%+2 � eg=1:�
� � B%<I%-2 � eg=1:�
� � C%>J%+2 � eg=1:�
 � C%<J%-2 � eg=1:�
 �
 :
  ��over
*, � So=1 � � S=88 � 76 � -4:� 1,-15,S,5:�
4	 �0,1
> � 300,300
H � 300,700
R � 85,700,300
\ � 85,700,700
f	 �0,1
p& X=350:Y=550:A$="Game Over!":�text
z	 A$=�
�
 �&CD8
� �15,2);S%"....";
�
 �well
� �"Press SPACE to continue"
� �
�	 A$=�
�
 � A$=" "
� � &CD8
� �
� :
�
 ��new
� �blk(squ,squb,0)
� CO%(squ,squb)=1
 GN=GN+1
 �
 squ=�(20)-1
$ squb=�(20)-1
. � CO%(squ,squb)=0
8 CO%(squ,squb)=2
B �blk(squ,squb,3)
L �
V :
` ��yougo
j *FX21,0
t �19,2,6,0;0;0;:In=0
~ �
� A$=�(1)
� In=In+1
�
 � A$<>""
�" � A$=L$ �blk(I%,J%,0):I%=I%-1
�" � A$=R$ �blk(I%,J%,0):I%=I%+1
�" � A$=U$ �blk(I%,J%,0):J%=J%+1
�" � A$=D$ �blk(I%,J%,0):J%=J%-1
� �19,2,1,0;0;0;
� GN=GN+1
� � I%>19 � I%=19:GN=GN-1
� � I%<0 � I%=0:GN=GN-1
� � J%>19 � J%=19:GN=GN-1
 � J%<0 � J%=0:GN=GN-1

F � CO%(I%,J%)=1 � d%=d%-1:� So=1 � � S=100 � 88 � -4:� 1,-15,S,5:�
E � CO%(I%,J%)=2 � d%=d%+2:� So=1 � � S=88 � 100 � 4:� 1,-15,S,5:�
 � d%=-1 � �over:cont=�:�
( CO%(I%,J%)=1
2 �blk(I%,J%,3)
<
 B=B-2
F* � I%=19 � J%=19 � cont=�:comp=�:�tune
P � �(10)=1 � �new
Z �
d :
n ��blk(x,y,t)
x � t=2 � x=19:y=19
� xc=x*50+17
� yc=y*50+17
�
 � 0,t
� � xc,yc
� � xc+30,yc
� � 85,xc,yc+30
� � 85,xc+30,yc+30
� �
� :
�
 ��scrbar
� � �36,2);S%�36,6);d%" "
� � �36,11);B" "�36,15);L%
� �
 :
 ��title

 � 0,3
" � 19,3,6,0;0;0;
, � 19,2,2,0;0;0;
6 � 19,1,4,0;0;0;
@
 � 1200,0
J � 1200,1000
T
 � 85,0,0
^ � 85,0,1000
h
 � 0,1
r
 � 0,0
|
 � 0,1000
� � 85,600,1000
�
 � 1200,0
� � 85,1200,1000
�
 � 0,2
� � R=0 � 600 � 15
�
 � 0,0
�
 � R,1000
�
 � 1200,0
� � 1200-R,1000
� �
�# X=475:Y=750:A$="B L O X":�text
� X=550:Y=675:A$="By":�text
�# X=475:Y=600:A$="Dominic":�text
  X=525:Y=525:A$="Ford":�text
, X=428:Y=400:A$="I - Instructions":�text
. X=300:Y=300:A$="SPACE - Start Game":�text
&+ X=428:Y=200:A$="K - Change Keys":�text
0 Y=100:A$="Q - Quit":�text
: �
D :
N ��keys
XO �'"Please enter the keys for:"'''" Left:"'"Right:"'"   Up:"'" Down:"�7,4);
b L$=�:� �7,4)L$
l R$=�:� �7,5)R$
v U$=�:� �7,6)U$
� D$=�:� �7,7)D$
� �
� :
� ��text
� � 5
�
 � 0,0
� � R=0 � 10
� � X+R,Y+R
�	 � A$
� �
�
 � 0,2
� � X+5,Y+5
�	 � A$
 � 4
 �
 :
 
 ��coinit
* � X=0 � 19
4 � Y=0 � 19
> CO%(X,Y)=0
H �,
R �
\ :
f ��init
p � 6
z �
� @%=&00900
�  L$="Z":R$="X":U$=":":D$="/"
� � �15,12)"Sound (Y/N)"
� �
�	 A$=�
� � A$="Y" � A$="N"
� � A$="Y" � So=1 � So=0
� BO=�(2)-1
� SO=�(2)-1
� � CO%(19,19)
�
 squ=0
� squb=0
�	 �new
	 �
	 :
	 ��linit
	
 �&CD8
	  �coinit
	$ �1
	.! � 19,2,1,0;0;0;19,1,2,0;0;0;
	8
 � 0,1
	B � 6,10
	L
 � 6,1000
	V � 85,1000,10
	` � 85,1000,1000
	j
 � 0,2
	t � H=10 � 1001 � 50
	~ � 10,H
	�
 � 1000,H
	� �
	� � V=1 � 1001 � 50
	� � V,10
	�
 � V,1000
	� �
	� �blk(9,9,2)
	� �blk(0,0,3)
	�= � �35,1)"Score"�35,5)"Lives"�35,10)"Bonus"�35,14)"Level"
	� � L% � 5=0 � d%=d%+1
	� L%=L%+1
	�	 I%=0
	 J%=0

 S%=S%+B

 B=176
 BO=�(2)-1
( SO=�(2)-1
2 �
< :
F ��tune
P � �tVJ
Z �
d � P
n � 1,-15,P,2
x � P=124
� �
� :
� � 52,68,80,100
� � 60,76,88,108
� � 68,84,96,116
� � 76,92,104,124
� :
�
 ��compgo
� NO=�(L%/1.5)
� � NO>7 � NO=7
� � E=1 � NO
 � GN=390 � E=NO:�:�
	 �


 C=�(5)=2
	 rt=�

 B%=�(20)

 C%=�(20)
" � C ��egg:� eg=1 � rt=�
6 � B%=0 � C%=0 � rt=�
@ B%=B%-1
J C%=C%-1
T � (B%>17) � (C%>17) � rt=�
^ � CO%(B%,C%)<>0 � rt=�
c � rt=�
h �blk(B%,C%,0)
r GN=GN+1
| CO%(B%,C%)=1
� C=0
� �
� �
� :
� ��instructions
� CONT=�
� M$=�38," ")
� �23,1,0;0;0;0;
� AD=&8FF
� �
� AD=AD+1
� M$=�M$,2,38)+�(?AD)
�! � �(?AD)="@" � CONT=�:� �TRL
 �0,30);M$;

 � CONT=�

 �&CD8
& �
0 :
:� � "The aim of BLOX is very simple. You start in the bottom left corner of the screen, and to complete the level, you must reach the top right corner of the screen, as quickly as possible. "
D� � "You must avoid the black squares, which are places where the floor has collapsed, and try to step on the white squares, which will give you two extra lives. "
N� � "You also gain an extra life for every 5 levels that you complete, but lose one for every black square that you step on. The default keys are: Z - Left, X - Right, * - Up, ? - Down. "
X� � "You can, however, change the keys on the title screen, by pressing K. The colour code that is used for the squares that you will find in the game is: BLACK - A square where the floor has collapsed; WHITE - You, "
b� � "or a bonus square; CYAN/RED - If you step on this square, you will move onto the next level. While this square is red, the computer is thinking, but when it is cyan, you may move."
l3 � "                Have Fun!                @"
v :
�
 ��ass
�
 �X=0�2�2
� P%=&CD8
�
 [OPTX
�     LDA#&00
�     STA&70
�     TAY
� .lb LDX#&30
�     STX&71
� .l  STA(&70),Y
�     INY
�     INY
�     INY

     INY

     INY

     INY

      INY

*     INY

4     CPY#&08

>
     BCSl

H     INC&71

R     LDX&71

\     CPX#&80

f
     BNEl

p     INY

z     CPY#&08

�     BNElb

�     RTS

�
     ]

� �

� �

� :

� ��reloc

� �=&5800

� � pass=0 � 2 � 2

� P%=&C00

�
 [OPTpass

�     LDY#0

�     STY&70
     STY&72
     LDA#&0E
     SEC
$     SBC&18
.     STA&74
8     LDA&18
B     CMP#&0E
L     BCCad
V .sb STA&71
`     LDA#&0E
j     STA&73
t .m1 LDA(&70),Y
~     STA(&72),Y
�     INY
�     BNEm1
�     INC&71
�     INC&73
�     LDX&71
�     DEX
�     CPX&03
�     BCCm1
�     BCSem
� .ad LDA&03
�     STA&71
�     CLC
     ADC&74

     STA&73
     LDA#0
     LDY&02
( .m2 LDA(&70),Y
2     STA(&72),Y
<     DEY
F     CPY#&FF
P     BNEm2
Z     DEC&71
d     DEC&73
n     LDA&73
x     CMP#&0D
�     BCSm2
� .em LDA&13
�     CLC
�     ADC&74
�     STA&13
�     STA&01
�     LDA#&0E
�     STA&18
�     RTS
� ]
� �
�5 �"KEY 0""CALL&C00|MGOTO60|F|M""":�"FX 153,0,128"
� �
 �
 :

 ��ain
" � �TzL
, AD=&900
6 �
@	 � T$
J	 So=1
T �
^ ?AD=�(�T$,So,1))
h So=So+1
r AD=AD+1
| � So=�(T$)+1
� � �T$,So-1,1)="@"
� �
�
00000000  0d 00 0a 17 20 f4 20 42  4c 4f 58 20 2d 20 42 79  |.... . BLOX - By|
00000010  20 44 20 46 6f 72 64 0d  00 14 06 20 3a 0d 00 1e  | D Ford.... :...|
00000020  0a 20 2a 54 41 50 45 0d  00 28 21 20 eb 20 36 3a  |. *TAPE..(! . 6:|
00000030  f1 22 50 6c 65 61 73 65  20 57 61 69 74 2e 20 2e  |."Please Wait. .|
00000040  20 2e 22 3b bd 32 31 3b  0d 00 32 17 20 e7 20 90  | .";.21;..2. . .|
00000050  3c 3e 26 45 30 30 20 8c  20 f2 72 65 6c 6f 63 0d  |<>&E00 . .reloc.|
00000060  00 3c 09 20 f2 61 73 73  0d 00 46 09 20 f2 61 69  |.<. .ass..F. .ai|
00000070  6e 0d 00 50 61 20 41 24  3d 22 44 45 4c 2e 33 31  |n..Pa A$="DEL.31|
00000080  32 30 2c 34 32 34 30 22  2b bd 31 33 2b 22 47 4f  |20,4240"+.13+"GO|
00000090  54 4f 31 30 30 22 2b bd  36 2b bd 31 33 3a ef 32  |TO100"+.6+.13:.2|
000000a0  31 3a e3 20 63 68 61 72  3d 31 20 b8 20 a9 28 41  |1:. char=1 . .(A|
000000b0  24 29 3a ff 22 46 58 31  33 38 2c 30 2c 22 2b c3  |$):."FX138,0,"+.|
000000c0  28 97 28 c1 41 24 2c 63  68 61 72 2c 31 29 29 29  |(.(.A$,char,1)))|
000000d0  3a ed 0d 00 5a 06 20 e0  0d 00 64 0a 20 f2 69 6e  |:...Z. ...d. .in|
000000e0  69 74 0d 00 6e 06 20 3a  0d 00 78 06 20 f5 0d 00  |it..n. :..x. ...|
000000f0  82 0b 20 63 6f 6e 74 3d  b9 0d 00 8c 1b 20 ee 20  |.. cont=..... . |
00000100  85 20 d8 3a d6 26 43 44  38 3a eb 20 36 3a e5 20  |. .:.&CD8:. 6:. |
00000110  8d 44 64 40 0d 00 96 06  20 f5 0d 00 a0 0c 20 f2  |.Dd@.... ..... .|
00000120  63 6f 69 6e 69 74 0d 00  aa 1a 20 e7 20 63 6f 6e  |coinit.... . con|
00000130  74 3d b9 20 8c 20 eb 20  31 3a f2 74 69 74 6c 65  |t=. . . 1:.title|
00000140  0d 00 b4 0c 20 fd 63 6f  6e 74 3d b9 0d 00 b9 0d  |.... .cont=.....|
00000150  20 2a 46 58 20 32 31 2c  30 0d 00 be 06 20 f5 0d  | *FX 21,0.... ..|
00000160  00 c8 0c 20 41 24 3d bf  28 31 29 0d 00 d2 28 20  |... A$=.(1)...( |
00000170  fd 20 41 24 3d 22 20 22  20 84 20 41 24 3d 22 4b  |. A$=" " . A$="K|
00000180  22 20 84 20 41 24 3d 22  49 22 20 84 20 41 24 3d  |" . A$="I" . A$=|
00000190  22 51 22 0d 00 dc 21 20  e7 20 41 24 3d 22 49 22  |"Q"...! . A$="I"|
000001a0  20 8c 20 f2 69 6e 73 74  72 75 63 74 69 6f 6e 73  | . .instructions|
000001b0  3a fd 20 30 0d 00 e6 0b  20 d6 20 26 43 44 38 0d  |:. 0.... . &CD8.|
000001c0  00 f0 1c 20 e7 20 41 24  3d 22 4b 22 20 8c 20 f2  |... . A$="K" . .|
000001d0  6b 65 79 73 3a d6 20 26  43 44 38 0d 00 fa 15 20  |keys:. &CD8.... |
000001e0  e7 20 41 24 3d 22 20 22  20 8c 20 f2 67 61 6d 65  |. A$=" " . .game|
000001f0  0d 01 04 0d 20 fd 20 41  24 3d 22 51 22 0d 01 0e  |.... . A$="Q"...|
00000200  0d 20 2a 46 58 20 32 31  2c 30 0d 01 18 08 20 eb  |. *FX 21,0.... .|
00000210  20 36 0d 01 22 06 20 e0  0d 01 2c 06 20 3a 0d 01  | 6..". ...,. :..|
00000220  36 0b 20 dd f2 67 61 6d  65 0d 01 4a 08 20 42 3d  |6. ..game..J. B=|
00000230  30 0d 01 54 09 20 53 25  3d 30 0d 01 5e 09 20 47  |0..T. S%=0..^. G|
00000240  4e 3d 32 0d 01 68 09 20  49 25 3d 30 0d 01 72 09  |N=2..h. I%=0..r.|
00000250  20 4c 25 3d 30 0d 01 7c  09 20 4a 25 3d 30 0d 01  | L%=0..|. J%=0..|
00000260  86 09 20 64 25 3d 32 0d  01 90 06 20 f5 0d 01 9a  |.. d%=2.... ....|
00000270  0b 20 63 6f 6e 74 3d b9  0d 01 a4 0b 20 63 6f 6d  |. cont=..... com|
00000280  70 3d a3 0d 01 ae 0b 20  f2 6c 69 6e 69 74 0d 01  |p=..... .linit..|
00000290  b8 06 20 f5 0d 01 c2 0c  20 f2 73 63 72 62 61 72  |.. ..... .scrbar|
000002a0  0d 01 cc 17 20 e7 20 63  6f 6e 74 3d b9 20 8c 20  |.... . cont=. . |
000002b0  f2 63 6f 6d 70 67 6f 0d  01 d6 16 20 e7 20 63 6f  |.compgo.... . co|
000002c0  6e 74 3d b9 20 8c 20 f2  79 6f 75 67 6f 0d 01 e0  |nt=. . .yougo...|
000002d0  0d 20 fd 20 63 6f 6e 74  3d a3 0d 01 ea 0d 20 fd  |. . cont=..... .|
000002e0  20 63 6f 6d 70 3d a3 0d  01 f4 06 20 e1 0d 01 fe  | comp=..... ....|
000002f0  06 20 3a 0d 02 08 0b 20  dd f2 77 65 6c 6c 0d 02  |. :.... ..well..|
00000300  12 0a 20 f7 8d 44 62 42  0d 02 1c 06 20 f5 0d 02  |.. ..DbB.... ...|
00000310  26 0a 20 f3 54 2c 4d 24  0d 02 30 13 20 fd 20 54  |&. .T,M$..0. . T|
00000320  3d 2d 31 20 84 20 53 25  3c 3d 54 0d 02 3a 18 20  |=-1 . S%<=T..:. |
00000330  e7 20 54 3d 2d 31 20 8c  20 f1 22 48 41 43 4b 45  |. T=-1 . ."HACKE|
00000340  52 21 22 0d 02 44 09 20  f1 3b 4d 24 0d 02 4e 06  |R!"..D. .;M$..N.|
00000350  20 e1 0d 02 58 06 20 3a  0d 02 62 15 20 dc 20 31  | ...X. :..b. . 1|
00000360  30 30 2c 22 52 75 62 62  69 73 68 21 22 0d 02 6c  |00,"Rubbish!"..l|
00000370  15 20 dc 20 32 30 30 2c  22 56 65 72 79 20 42 61  |. . 200,"Very Ba|
00000380  64 22 0d 02 76 10 20 dc  20 33 30 30 2c 22 42 61  |d"..v. . 300,"Ba|
00000390  64 22 0d 02 80 11 20 dc  20 34 30 30 2c 22 46 61  |d".... . 400,"Fa|
000003a0  69 72 22 0d 02 8a 11 20  dc 20 35 30 30 2c 22 4f  |ir".... . 500,"O|
000003b0  2e 4b 2e 22 0d 02 94 11  20 dc 20 37 35 30 2c 22  |.K.".... . 750,"|
000003c0  47 6f 6f 64 22 0d 02 9e  17 20 dc 20 31 30 30 30  |Good".... . 1000|
000003d0  2c 22 56 65 72 79 20 47  6f 6f 64 22 0d 02 a8 14  |,"Very Good"....|
000003e0  20 dc 20 31 35 30 30 2c  22 4d 61 73 74 65 72 22  | . 1500,"Master"|
000003f0  0d 02 b2 18 20 dc 20 32  30 30 30 2c 22 49 6e 63  |.... . 2000,"Inc|
00000400  72 65 64 69 62 6c 65 22  0d 02 bc 12 20 dc 20 32  |redible".... . 2|
00000410  35 30 30 2c 22 4b 69 6e  67 22 0d 02 c6 0c 20 dc  |500,"King".... .|
00000420  20 2d 31 2c 22 22 0d 02  d0 06 20 3a 0d 02 da 0a  | -1,"".... :....|
00000430  20 dd f2 65 67 67 0d 02  df 09 20 65 67 3d 30 0d  | ..egg.... eg=0.|
00000440  02 e4 17 20 e7 20 42 25  3e 49 25 2b 32 20 8c 20  |... . B%>I%+2 . |
00000450  65 67 3d 31 3a e1 0d 02  ee 17 20 e7 20 42 25 3c  |eg=1:..... . B%<|
00000460  49 25 2d 32 20 8c 20 65  67 3d 31 3a e1 0d 02 f8  |I%-2 . eg=1:....|
00000470  17 20 e7 20 43 25 3e 4a  25 2b 32 20 8c 20 65 67  |. . C%>J%+2 . eg|
00000480  3d 31 3a e1 0d 03 02 17  20 e7 20 43 25 3c 4a 25  |=1:..... . C%<J%|
00000490  2d 32 20 8c 20 65 67 3d  31 3a e1 0d 03 0c 06 20  |-2 . eg=1:..... |
000004a0  e1 0d 03 16 06 20 3a 0d  03 20 0b 20 dd f2 6f 76  |..... :.. . ..ov|
000004b0  65 72 0d 03 2a 2c 20 e7  20 53 6f 3d 31 20 8c 20  |er..*, . So=1 . |
000004c0  e3 20 53 3d 38 38 20 b8  20 37 36 20 88 20 2d 34  |. S=88 . 76 . -4|
000004d0  3a d4 20 31 2c 2d 31 35  2c 53 2c 35 3a ed 0d 03  |:. 1,-15,S,5:...|
000004e0  34 09 20 e6 30 2c 31 0d  03 3e 0e 20 ec 20 33 30  |4. .0,1..>. . 30|
000004f0  30 2c 33 30 30 0d 03 48  0e 20 ec 20 33 30 30 2c  |0,300..H. . 300,|
00000500  37 30 30 0d 03 52 11 20  f0 20 38 35 2c 37 30 30  |700..R. . 85,700|
00000510  2c 33 30 30 0d 03 5c 11  20 f0 20 38 35 2c 37 30  |,300..\. . 85,70|
00000520  30 2c 37 30 30 0d 03 66  09 20 e6 30 2c 31 0d 03  |0,700..f. .0,1..|
00000530  70 26 20 58 3d 33 35 30  3a 59 3d 35 35 30 3a 41  |p& X=350:Y=550:A|
00000540  24 3d 22 47 61 6d 65 20  4f 76 65 72 21 22 3a f2  |$="Game Over!":.|
00000550  74 65 78 74 0d 03 7a 09  20 41 24 3d be 0d 03 84  |text..z. A$=....|
00000560  0a 20 d6 26 43 44 38 0d  03 8e 16 20 f1 8a 31 35  |. .&CD8.... ..15|
00000570  2c 32 29 3b 53 25 22 2e  2e 2e 2e 22 3b 0d 03 98  |,2);S%"....";...|
00000580  0a 20 f2 77 65 6c 6c 0d  03 a2 1f 20 f1 22 50 72  |. .well.... ."Pr|
00000590  65 73 73 20 53 50 41 43  45 20 74 6f 20 63 6f 6e  |ess SPACE to con|
000005a0  74 69 6e 75 65 22 0d 03  ac 06 20 f5 0d 03 b6 09  |tinue".... .....|
000005b0  20 41 24 3d be 0d 03 c0  0d 20 fd 20 41 24 3d 22  | A$=..... . A$="|
000005c0  20 22 0d 03 ca 0b 20 d6  20 26 43 44 38 0d 03 d4  | ".... . &CD8...|
000005d0  06 20 e1 0d 03 de 06 20  3a 0d 03 e8 0a 20 dd f2  |. ..... :.... ..|
000005e0  6e 65 77 0d 03 f2 15 20  f2 62 6c 6b 28 73 71 75  |new.... .blk(squ|
000005f0  2c 73 71 75 62 2c 30 29  0d 03 fc 14 20 43 4f 25  |,squb,0).... CO%|
00000600  28 73 71 75 2c 73 71 75  62 29 3d 31 0d 04 06 0c  |(squ,squb)=1....|
00000610  20 47 4e 3d 47 4e 2b 31  0d 04 10 06 20 f5 0d 04  | GN=GN+1.... ...|
00000620  1a 10 20 73 71 75 3d b3  28 32 30 29 2d 31 0d 04  |.. squ=.(20)-1..|
00000630  24 11 20 73 71 75 62 3d  b3 28 32 30 29 2d 31 0d  |$. squb=.(20)-1.|
00000640  04 2e 16 20 fd 20 43 4f  25 28 73 71 75 2c 73 71  |... . CO%(squ,sq|
00000650  75 62 29 3d 30 0d 04 38  14 20 43 4f 25 28 73 71  |ub)=0..8. CO%(sq|
00000660  75 2c 73 71 75 62 29 3d  32 0d 04 42 15 20 f2 62  |u,squb)=2..B. .b|
00000670  6c 6b 28 73 71 75 2c 73  71 75 62 2c 33 29 0d 04  |lk(squ,squb,3)..|
00000680  4c 06 20 e1 0d 04 56 06  20 3a 0d 04 60 0c 20 dd  |L. ...V. :..`. .|
00000690  f2 79 6f 75 67 6f 0d 04  6a 0c 20 2a 46 58 32 31  |.yougo..j. *FX21|
000006a0  2c 30 0d 04 74 18 20 ef  31 39 2c 32 2c 36 2c 30  |,0..t. .19,2,6,0|
000006b0  3b 30 3b 30 3b 3a 49 6e  3d 30 0d 04 7e 06 20 f5  |;0;0;:In=0..~. .|
000006c0  0d 04 88 0c 20 41 24 3d  bf 28 31 29 0d 04 92 0c  |.... A$=.(1)....|
000006d0  20 49 6e 3d 49 6e 2b 31  0d 04 9c 0d 20 fd 20 41  | In=In+1.... . A|
000006e0  24 3c 3e 22 22 0d 04 a6  22 20 e7 20 41 24 3d 4c  |$<>""..." . A$=L|
000006f0  24 20 f2 62 6c 6b 28 49  25 2c 4a 25 2c 30 29 3a  |$ .blk(I%,J%,0):|
00000700  49 25 3d 49 25 2d 31 0d  04 b0 22 20 e7 20 41 24  |I%=I%-1..." . A$|
00000710  3d 52 24 20 f2 62 6c 6b  28 49 25 2c 4a 25 2c 30  |=R$ .blk(I%,J%,0|
00000720  29 3a 49 25 3d 49 25 2b  31 0d 04 ba 22 20 e7 20  |):I%=I%+1..." . |
00000730  41 24 3d 55 24 20 f2 62  6c 6b 28 49 25 2c 4a 25  |A$=U$ .blk(I%,J%|
00000740  2c 30 29 3a 4a 25 3d 4a  25 2b 31 0d 04 c4 22 20  |,0):J%=J%+1..." |
00000750  e7 20 41 24 3d 44 24 20  f2 62 6c 6b 28 49 25 2c  |. A$=D$ .blk(I%,|
00000760  4a 25 2c 30 29 3a 4a 25  3d 4a 25 2d 31 0d 04 ce  |J%,0):J%=J%-1...|
00000770  13 20 ef 31 39 2c 32 2c  31 2c 30 3b 30 3b 30 3b  |. .19,2,1,0;0;0;|
00000780  0d 04 d8 0c 20 47 4e 3d  47 4e 2b 31 0d 04 e2 1c  |.... GN=GN+1....|
00000790  20 e7 20 49 25 3e 31 39  20 8c 20 49 25 3d 31 39  | . I%>19 . I%=19|
000007a0  3a 47 4e 3d 47 4e 2d 31  0d 04 ec 1a 20 e7 20 49  |:GN=GN-1.... . I|
000007b0  25 3c 30 20 8c 20 49 25  3d 30 3a 47 4e 3d 47 4e  |%<0 . I%=0:GN=GN|
000007c0  2d 31 0d 04 f6 1c 20 e7  20 4a 25 3e 31 39 20 8c  |-1.... . J%>19 .|
000007d0  20 4a 25 3d 31 39 3a 47  4e 3d 47 4e 2d 31 0d 05  | J%=19:GN=GN-1..|
000007e0  00 1a 20 e7 20 4a 25 3c  30 20 8c 20 4a 25 3d 30  |.. . J%<0 . J%=0|
000007f0  3a 47 4e 3d 47 4e 2d 31  0d 05 0a 46 20 e7 20 43  |:GN=GN-1...F . C|
00000800  4f 25 28 49 25 2c 4a 25  29 3d 31 20 8c 20 64 25  |O%(I%,J%)=1 . d%|
00000810  3d 64 25 2d 31 3a e7 20  53 6f 3d 31 20 8c 20 e3  |=d%-1:. So=1 . .|
00000820  20 53 3d 31 30 30 20 b8  20 38 38 20 88 20 2d 34  | S=100 . 88 . -4|
00000830  3a d4 20 31 2c 2d 31 35  2c 53 2c 35 3a ed 0d 05  |:. 1,-15,S,5:...|
00000840  14 45 20 e7 20 43 4f 25  28 49 25 2c 4a 25 29 3d  |.E . CO%(I%,J%)=|
00000850  32 20 8c 20 64 25 3d 64  25 2b 32 3a e7 20 53 6f  |2 . d%=d%+2:. So|
00000860  3d 31 20 8c 20 e3 20 53  3d 38 38 20 b8 20 31 30  |=1 . . S=88 . 10|
00000870  30 20 88 20 34 3a d4 20  31 2c 2d 31 35 2c 53 2c  |0 . 4:. 1,-15,S,|
00000880  35 3a ed 0d 05 1e 1d 20  e7 20 64 25 3d 2d 31 20  |5:..... . d%=-1 |
00000890  8c 20 f2 6f 76 65 72 3a  63 6f 6e 74 3d a3 3a e1  |. .over:cont=.:.|
000008a0  0d 05 28 11 20 43 4f 25  28 49 25 2c 4a 25 29 3d  |..(. CO%(I%,J%)=|
000008b0  31 0d 05 32 12 20 f2 62  6c 6b 28 49 25 2c 4a 25  |1..2. .blk(I%,J%|
000008c0  2c 33 29 0d 05 3c 0a 20  42 3d 42 2d 32 0d 05 46  |,3)..<. B=B-2..F|
000008d0  2a 20 e7 20 49 25 3d 31  39 20 80 20 4a 25 3d 31  |* . I%=19 . J%=1|
000008e0  39 20 8c 20 63 6f 6e 74  3d a3 3a 63 6f 6d 70 3d  |9 . cont=.:comp=|
000008f0  b9 3a f2 74 75 6e 65 0d  05 50 15 20 e7 20 b3 28  |.:.tune..P. . .(|
00000900  31 30 29 3d 31 20 8c 20  f2 6e 65 77 0d 05 5a 06  |10)=1 . .new..Z.|
00000910  20 e1 0d 05 64 06 20 3a  0d 05 6e 11 20 dd f2 62  | ...d. :..n. ..b|
00000920  6c 6b 28 78 2c 79 2c 74  29 0d 05 78 16 20 e7 20  |lk(x,y,t)..x. . |
00000930  74 3d 32 20 8c 20 78 3d  31 39 3a 79 3d 31 39 0d  |t=2 . x=19:y=19.|
00000940  05 82 0f 20 78 63 3d 78  2a 35 30 2b 31 37 0d 05  |... xc=x*50+17..|
00000950  8c 0f 20 79 63 3d 79 2a  35 30 2b 31 37 0d 05 96  |.. yc=y*50+17...|
00000960  0a 20 e6 20 30 2c 74 0d  05 a0 0c 20 ec 20 78 63  |. . 0,t.... . xc|
00000970  2c 79 63 0d 05 aa 0f 20  ec 20 78 63 2b 33 30 2c  |,yc.... . xc+30,|
00000980  79 63 0d 05 b4 12 20 f0  20 38 35 2c 78 63 2c 79  |yc.... . 85,xc,y|
00000990  63 2b 33 30 0d 05 be 15  20 f0 20 38 35 2c 78 63  |c+30.... . 85,xc|
000009a0  2b 33 30 2c 79 63 2b 33  30 0d 05 c8 06 20 e1 0d  |+30,yc+30.... ..|
000009b0  05 d2 06 20 3a 0d 05 dc  0d 20 dd f2 73 63 72 62  |... :.... ..scrb|
000009c0  61 72 0d 05 e6 1c 20 f1  20 8a 33 36 2c 32 29 3b  |ar.... . .36,2);|
000009d0  53 25 8a 33 36 2c 36 29  3b 64 25 22 20 22 0d 05  |S%.36,6);d%" "..|
000009e0  f0 1d 20 f1 20 8a 33 36  2c 31 31 29 3b 42 22 20  |.. . .36,11);B" |
000009f0  22 8a 33 36 2c 31 35 29  3b 4c 25 0d 05 fa 06 20  |".36,15);L%.... |
00000a00  e1 0d 06 04 06 20 3a 0d  06 0e 0c 20 dd f2 74 69  |..... :.... ..ti|
00000a10  74 6c 65 0d 06 18 0a 20  e6 20 30 2c 33 0d 06 22  |tle.... . 0,3.."|
00000a20  14 20 ef 20 31 39 2c 33  2c 36 2c 30 3b 30 3b 30  |. . 19,3,6,0;0;0|
00000a30  3b 0d 06 2c 14 20 ef 20  31 39 2c 32 2c 32 2c 30  |;..,. . 19,2,2,0|
00000a40  3b 30 3b 30 3b 0d 06 36  14 20 ef 20 31 39 2c 31  |;0;0;..6. . 19,1|
00000a50  2c 34 2c 30 3b 30 3b 30  3b 0d 06 40 0d 20 ec 20  |,4,0;0;0;..@. . |
00000a60  31 32 30 30 2c 30 0d 06  4a 10 20 ec 20 31 32 30  |1200,0..J. . 120|
00000a70  30 2c 31 30 30 30 0d 06  54 0d 20 f0 20 38 35 2c  |0,1000..T. . 85,|
00000a80  30 2c 30 0d 06 5e 10 20  f0 20 38 35 2c 30 2c 31  |0,0..^. . 85,0,1|
00000a90  30 30 30 0d 06 68 0a 20  e6 20 30 2c 31 0d 06 72  |000..h. . 0,1..r|
00000aa0  0a 20 ec 20 30 2c 30 0d  06 7c 0d 20 ec 20 30 2c  |. . 0,0..|. . 0,|
00000ab0  31 30 30 30 0d 06 86 12  20 f0 20 38 35 2c 36 30  |1000.... . 85,60|
00000ac0  30 2c 31 30 30 30 0d 06  90 0d 20 ec 20 31 32 30  |0,1000.... . 120|
00000ad0  30 2c 30 0d 06 9a 13 20  f0 20 38 35 2c 31 32 30  |0,0.... . 85,120|
00000ae0  30 2c 31 30 30 30 0d 06  a4 0a 20 e6 20 30 2c 32  |0,1000.... . 0,2|
00000af0  0d 06 ae 15 20 e3 20 52  3d 30 20 b8 20 36 30 30  |.... . R=0 . 600|
00000b00  20 88 20 31 35 0d 06 b8  0a 20 ec 20 30 2c 30 0d  | . 15.... . 0,0.|
00000b10  06 c2 0d 20 df 20 52 2c  31 30 30 30 0d 06 cc 0d  |... . R,1000....|
00000b20  20 ec 20 31 32 30 30 2c  30 0d 06 d6 12 20 df 20  | . 1200,0.... . |
00000b30  31 32 30 30 2d 52 2c 31  30 30 30 0d 06 e0 06 20  |1200-R,1000.... |
00000b40  ed 0d 06 ea 23 20 58 3d  34 37 35 3a 59 3d 37 35  |....# X=475:Y=75|
00000b50  30 3a 41 24 3d 22 42 20  4c 20 4f 20 58 22 3a f2  |0:A$="B L O X":.|
00000b60  74 65 78 74 0d 06 f4 1e  20 58 3d 35 35 30 3a 59  |text.... X=550:Y|
00000b70  3d 36 37 35 3a 41 24 3d  22 42 79 22 3a f2 74 65  |=675:A$="By":.te|
00000b80  78 74 0d 06 fe 23 20 58  3d 34 37 35 3a 59 3d 36  |xt...# X=475:Y=6|
00000b90  30 30 3a 41 24 3d 22 44  6f 6d 69 6e 69 63 22 3a  |00:A$="Dominic":|
00000ba0  f2 74 65 78 74 0d 07 08  20 20 58 3d 35 32 35 3a  |.text...  X=525:|
00000bb0  59 3d 35 32 35 3a 41 24  3d 22 46 6f 72 64 22 3a  |Y=525:A$="Ford":|
00000bc0  f2 74 65 78 74 0d 07 12  2c 20 58 3d 34 32 38 3a  |.text..., X=428:|
00000bd0  59 3d 34 30 30 3a 41 24  3d 22 49 20 2d 20 49 6e  |Y=400:A$="I - In|
00000be0  73 74 72 75 63 74 69 6f  6e 73 22 3a f2 74 65 78  |structions":.tex|
00000bf0  74 0d 07 1c 2e 20 58 3d  33 30 30 3a 59 3d 33 30  |t.... X=300:Y=30|
00000c00  30 3a 41 24 3d 22 53 50  41 43 45 20 2d 20 53 74  |0:A$="SPACE - St|
00000c10  61 72 74 20 47 61 6d 65  22 3a f2 74 65 78 74 0d  |art Game":.text.|
00000c20  07 26 2b 20 58 3d 34 32  38 3a 59 3d 32 30 30 3a  |.&+ X=428:Y=200:|
00000c30  41 24 3d 22 4b 20 2d 20  43 68 61 6e 67 65 20 4b  |A$="K - Change K|
00000c40  65 79 73 22 3a f2 74 65  78 74 0d 07 30 1e 20 59  |eys":.text..0. Y|
00000c50  3d 31 30 30 3a 41 24 3d  22 51 20 2d 20 51 75 69  |=100:A$="Q - Qui|
00000c60  74 22 3a f2 74 65 78 74  0d 07 3a 06 20 e1 0d 07  |t":.text..:. ...|
00000c70  44 06 20 3a 0d 07 4e 0b  20 dd f2 6b 65 79 73 0d  |D. :..N. ..keys.|
00000c80  07 58 4f 20 f1 27 22 50  6c 65 61 73 65 20 65 6e  |.XO .'"Please en|
00000c90  74 65 72 20 74 68 65 20  6b 65 79 73 20 66 6f 72  |ter the keys for|
00000ca0  3a 22 27 27 27 22 20 4c  65 66 74 3a 22 27 22 52  |:"'''" Left:"'"R|
00000cb0  69 67 68 74 3a 22 27 22  20 20 20 55 70 3a 22 27  |ight:"'"   Up:"'|
00000cc0  22 20 44 6f 77 6e 3a 22  8a 37 2c 34 29 3b 0d 07  |" Down:".7,4);..|
00000cd0  62 13 20 4c 24 3d be 3a  f1 20 8a 37 2c 34 29 4c  |b. L$=.:. .7,4)L|
00000ce0  24 0d 07 6c 13 20 52 24  3d be 3a f1 20 8a 37 2c  |$..l. R$=.:. .7,|
00000cf0  35 29 52 24 0d 07 76 13  20 55 24 3d be 3a f1 20  |5)R$..v. U$=.:. |
00000d00  8a 37 2c 36 29 55 24 0d  07 80 13 20 44 24 3d be  |.7,6)U$.... D$=.|
00000d10  3a f1 20 8a 37 2c 37 29  44 24 0d 07 8a 06 20 e1  |:. .7,7)D$.... .|
00000d20  0d 07 94 06 20 3a 0d 07  9e 0b 20 dd f2 74 65 78  |.... :.... ..tex|
00000d30  74 0d 07 a8 08 20 ef 20  35 0d 07 b2 0a 20 e6 20  |t.... . 5.... . |
00000d40  30 2c 30 0d 07 bc 0f 20  e3 20 52 3d 30 20 b8 20  |0,0.... . R=0 . |
00000d50  31 30 0d 07 c6 0e 20 ec  20 58 2b 52 2c 59 2b 52  |10.... . X+R,Y+R|
00000d60  0d 07 d0 09 20 f1 20 41  24 0d 07 da 06 20 ed 0d  |.... . A$.... ..|
00000d70  07 e4 0a 20 e6 20 30 2c  32 0d 07 ee 0e 20 ec 20  |... . 0,2.... . |
00000d80  58 2b 35 2c 59 2b 35 0d  07 f8 09 20 f1 20 41 24  |X+5,Y+5.... . A$|
00000d90  0d 08 02 08 20 ef 20 34  0d 08 0c 06 20 e1 0d 08  |.... . 4.... ...|
00000da0  16 06 20 3a 0d 08 20 0d  20 dd f2 63 6f 69 6e 69  |.. :.. . ..coini|
00000db0  74 0d 08 2a 0f 20 e3 20  58 3d 30 20 b8 20 31 39  |t..*. . X=0 . 19|
00000dc0  0d 08 34 0f 20 e3 20 59  3d 30 20 b8 20 31 39 0d  |..4. . Y=0 . 19.|
00000dd0  08 3e 0f 20 43 4f 25 28  58 2c 59 29 3d 30 0d 08  |.>. CO%(X,Y)=0..|
00000de0  48 07 20 ed 2c 0d 08 52  06 20 e1 0d 08 5c 06 20  |H. .,..R. ...\. |
00000df0  3a 0d 08 66 0b 20 dd f2  69 6e 69 74 0d 08 70 08  |:..f. ..init..p.|
00000e00  20 ef 20 36 0d 08 7a 06  20 db 0d 08 84 0e 20 40  | . 6..z. ..... @|
00000e10  25 3d 26 30 30 39 30 30  0d 08 8e 20 20 4c 24 3d  |%=&00900...  L$=|
00000e20  22 5a 22 3a 52 24 3d 22  58 22 3a 55 24 3d 22 3a  |"Z":R$="X":U$=":|
00000e30  22 3a 44 24 3d 22 2f 22  0d 08 98 1b 20 f1 20 8a  |":D$="/".... . .|
00000e40  31 35 2c 31 32 29 22 53  6f 75 6e 64 20 28 59 2f  |15,12)"Sound (Y/|
00000e50  4e 29 22 0d 08 a2 06 20  f5 0d 08 ac 09 20 41 24  |N)".... ..... A$|
00000e60  3d be 0d 08 b6 16 20 fd  20 41 24 3d 22 59 22 20  |=..... . A$="Y" |
00000e70  84 20 41 24 3d 22 4e 22  0d 08 c0 1b 20 e7 20 41  |. A$="N".... . A|
00000e80  24 3d 22 59 22 20 8c 20  53 6f 3d 31 20 8b 20 53  |$="Y" . So=1 . S|
00000e90  6f 3d 30 0d 08 ca 0e 20  42 4f 3d b3 28 32 29 2d  |o=0.... BO=.(2)-|
00000ea0  31 0d 08 d4 0e 20 53 4f  3d b3 28 32 29 2d 31 0d  |1.... SO=.(2)-1.|
00000eb0  08 de 11 20 de 20 43 4f  25 28 31 39 2c 31 39 29  |... . CO%(19,19)|
00000ec0  0d 08 e8 0a 20 73 71 75  3d 30 0d 08 f2 0b 20 73  |.... squ=0.... s|
00000ed0  71 75 62 3d 30 0d 08 fc  09 20 f2 6e 65 77 0d 09  |qub=0.... .new..|
00000ee0  06 06 20 e1 0d 09 10 06  20 3a 0d 09 1a 0c 20 dd  |.. ..... :.... .|
00000ef0  f2 6c 69 6e 69 74 0d 09  1d 0a 20 d6 26 43 44 38  |.linit.... .&CD8|
00000f00  0d 09 20 0c 20 f2 63 6f  69 6e 69 74 0d 09 24 07  |.. . .coinit..$.|
00000f10  20 fb 31 0d 09 2e 21 20  ef 20 31 39 2c 32 2c 31  | .1...! . 19,2,1|
00000f20  2c 30 3b 30 3b 30 3b 31  39 2c 31 2c 32 2c 30 3b  |,0;0;0;19,1,2,0;|
00000f30  30 3b 30 3b 0d 09 38 0a  20 e6 20 30 2c 31 0d 09  |0;0;..8. . 0,1..|
00000f40  42 0b 20 ec 20 36 2c 31  30 0d 09 4c 0d 20 ec 20  |B. . 6,10..L. . |
00000f50  36 2c 31 30 30 30 0d 09  56 11 20 f0 20 38 35 2c  |6,1000..V. . 85,|
00000f60  31 30 30 30 2c 31 30 0d  09 60 13 20 f0 20 38 35  |1000,10..`. . 85|
00000f70  2c 31 30 30 30 2c 31 30  30 30 0d 09 6a 0a 20 e6  |,1000,1000..j. .|
00000f80  20 30 2c 32 0d 09 74 17  20 e3 20 48 3d 31 30 20  | 0,2..t. . H=10 |
00000f90  b8 20 31 30 30 31 20 88  20 35 30 0d 09 7e 0b 20  |. 1001 . 50..~. |
00000fa0  ec 20 31 30 2c 48 0d 09  88 0d 20 df 20 31 30 30  |. 10,H.... . 100|
00000fb0  30 2c 48 0d 09 92 06 20  ed 0d 09 9c 16 20 e3 20  |0,H.... ..... . |
00000fc0  56 3d 31 20 b8 20 31 30  30 31 20 88 20 35 30 0d  |V=1 . 1001 . 50.|
00000fd0  09 a6 0b 20 ec 20 56 2c  31 30 0d 09 b0 0d 20 df  |... . V,10.... .|
00000fe0  20 56 2c 31 30 30 30 0d  09 ba 06 20 ed 0d 09 c4  | V,1000.... ....|
00000ff0  10 20 f2 62 6c 6b 28 39  2c 39 2c 32 29 0d 09 ce  |. .blk(9,9,2)...|
00001000  10 20 f2 62 6c 6b 28 30  2c 30 2c 33 29 0d 09 d8  |. .blk(0,0,3)...|
00001010  3d 20 f1 20 8a 33 35 2c  31 29 22 53 63 6f 72 65  |= . .35,1)"Score|
00001020  22 8a 33 35 2c 35 29 22  4c 69 76 65 73 22 8a 33  |".35,5)"Lives".3|
00001030  35 2c 31 30 29 22 42 6f  6e 75 73 22 8a 33 35 2c  |5,10)"Bonus".35,|
00001040  31 34 29 22 4c 65 76 65  6c 22 0d 09 e2 19 20 e7  |14)"Level".... .|
00001050  20 4c 25 20 83 20 35 3d  30 20 8c 20 64 25 3d 64  | L% . 5=0 . d%=d|
00001060  25 2b 31 0d 09 ec 0c 20  4c 25 3d 4c 25 2b 31 0d  |%+1.... L%=L%+1.|
00001070  09 f6 09 20 49 25 3d 30  0d 0a 00 09 20 4a 25 3d  |... I%=0.... J%=|
00001080  30 0d 0a 0a 0c 20 53 25  3d 53 25 2b 42 0d 0a 14  |0.... S%=S%+B...|
00001090  0a 20 42 3d 31 37 36 0d  0a 1e 0e 20 42 4f 3d b3  |. B=176.... BO=.|
000010a0  28 32 29 2d 31 0d 0a 28  0e 20 53 4f 3d b3 28 32  |(2)-1..(. SO=.(2|
000010b0  29 2d 31 0d 0a 32 06 20  e1 0d 0a 3c 06 20 3a 0d  |)-1..2. ...<. :.|
000010c0  0a 46 0b 20 dd f2 74 75  6e 65 0d 0a 50 0b 20 f7  |.F. ..tune..P. .|
000010d0  20 8d 74 56 4a 0d 0a 5a  06 20 f5 0d 0a 64 08 20  | .tVJ..Z. ...d. |
000010e0  f3 20 50 0d 0a 6e 10 20  d4 20 31 2c 2d 31 35 2c  |. P..n. . 1,-15,|
000010f0  50 2c 32 0d 0a 78 0c 20  fd 20 50 3d 31 32 34 0d  |P,2..x. . P=124.|
00001100  0a 82 06 20 e1 0d 0a 8c  06 20 3a 0d 0a 96 13 20  |... ..... :.... |
00001110  dc 20 35 32 2c 36 38 2c  38 30 2c 31 30 30 0d 0a  |. 52,68,80,100..|
00001120  a0 13 20 dc 20 36 30 2c  37 36 2c 38 38 2c 31 30  |.. . 60,76,88,10|
00001130  38 0d 0a aa 13 20 dc 20  36 38 2c 38 34 2c 39 36  |8.... . 68,84,96|
00001140  2c 31 31 36 0d 0a b4 14  20 dc 20 37 36 2c 39 32  |,116.... . 76,92|
00001150  2c 31 30 34 2c 31 32 34  0d 0a be 06 20 3a 0d 0a  |,104,124.... :..|
00001160  c8 0d 20 dd f2 63 6f 6d  70 67 6f 0d 0a e6 11 20  |.. ..compgo.... |
00001170  4e 4f 3d b3 28 4c 25 2f  31 2e 35 29 0d 0a f0 12  |NO=.(L%/1.5)....|
00001180  20 e7 20 4e 4f 3e 37 20  8c 20 4e 4f 3d 37 0d 0a  | . NO>7 . NO=7..|
00001190  fa 0f 20 e3 20 45 3d 31  20 b8 20 4e 4f 0d 0b 04  |.. . E=1 . NO...|
000011a0  18 20 e7 20 47 4e 3d 33  39 30 20 8c 20 45 3d 4e  |. . GN=390 . E=N|
000011b0  4f 3a ed 3a e1 0d 0b 09  06 20 f5 0d 0b 0a 0d 20  |O:.:..... ..... |
000011c0  43 3d b3 28 35 29 3d 32  0d 0b 0b 09 20 72 74 3d  |C=.(5)=2.... rt=|
000011d0  a3 0d 0b 0e 0d 20 42 25  3d b3 28 32 30 29 0d 0b  |..... B%=.(20)..|
000011e0  18 0d 20 43 25 3d b3 28  32 30 29 0d 0b 22 1c 20  |.. C%=.(20)..". |
000011f0  e7 20 43 20 8c f2 65 67  67 3a e7 20 65 67 3d 31  |. C ..egg:. eg=1|
00001200  20 8c 20 72 74 3d b9 0d  0b 36 19 20 e7 20 42 25  | . rt=...6. . B%|
00001210  3d 30 20 80 20 43 25 3d  30 20 8c 20 72 74 3d b9  |=0 . C%=0 . rt=.|
00001220  0d 0b 40 0c 20 42 25 3d  42 25 2d 31 0d 0b 4a 0c  |..@. B%=B%-1..J.|
00001230  20 43 25 3d 43 25 2d 31  0d 0b 54 1f 20 e7 20 28  | C%=C%-1..T. . (|
00001240  42 25 3e 31 37 29 20 80  20 28 43 25 3e 31 37 29  |B%>17) . (C%>17)|
00001250  20 8c 20 72 74 3d b9 0d  0b 5e 1b 20 e7 20 43 4f  | . rt=...^. . CO|
00001260  25 28 42 25 2c 43 25 29  3c 3e 30 20 8c 20 72 74  |%(B%,C%)<>0 . rt|
00001270  3d b9 0d 0b 63 0b 20 fd  20 72 74 3d a3 0d 0b 68  |=...c. . rt=...h|
00001280  12 20 f2 62 6c 6b 28 42  25 2c 43 25 2c 30 29 0d  |. .blk(B%,C%,0).|
00001290  0b 72 0c 20 47 4e 3d 47  4e 2b 31 0d 0b 7c 11 20  |.r. GN=GN+1..|. |
000012a0  43 4f 25 28 42 25 2c 43  25 29 3d 31 0d 0b 86 08  |CO%(B%,C%)=1....|
000012b0  20 43 3d 30 0d 0b 90 06  20 ed 0d 0b 9a 06 20 e1  | C=0.... ..... .|
000012c0  0d 0b a4 06 20 3a 0d 0b  ae 13 20 dd f2 69 6e 73  |.... :.... ..ins|
000012d0  74 72 75 63 74 69 6f 6e  73 0d 0b bd 0b 20 43 4f  |tructions.... CO|
000012e0  4e 54 3d b9 0d 0b c2 10  20 4d 24 3d c4 33 38 2c  |NT=..... M$=.38,|
000012f0  22 20 22 29 0d 0b cc 13  20 ef 32 33 2c 31 2c 30  |" ").... .23,1,0|
00001300  3b 30 3b 30 3b 30 3b 0d  0b d6 0c 20 41 44 3d 26  |;0;0;0;.... AD=&|
00001310  38 46 46 0d 0b e0 06 20  f5 0d 0b ea 0c 20 41 44  |8FF.... ..... AD|
00001320  3d 41 44 2b 31 0d 0b f4  18 20 4d 24 3d c1 4d 24  |=AD+1.... M$=.M$|
00001330  2c 32 2c 33 38 29 2b bd  28 3f 41 44 29 0d 0b fe  |,2,38)+.(?AD)...|
00001340  21 20 e7 20 bd 28 3f 41  44 29 3d 22 40 22 20 8c  |! . .(?AD)="@" .|
00001350  20 43 4f 4e 54 3d a3 3a  e5 20 8d 54 52 4c 0d 0c  | CONT=.:. .TRL..|
00001360  08 10 20 f1 8a 30 2c 33  30 29 3b 4d 24 3b 0d 0c  |.. ..0,30);M$;..|
00001370  12 0d 20 fd 20 43 4f 4e  54 3d a3 0d 0c 1c 0a 20  |.. . CONT=..... |
00001380  d6 26 43 44 38 0d 0c 26  06 20 e1 0d 0c 30 06 20  |.&CD8..&. ...0. |
00001390  3a 0d 0c 3a c2 20 dc 20  22 54 68 65 20 61 69 6d  |:..:. . "The aim|
000013a0  20 6f 66 20 42 4c 4f 58  20 69 73 20 76 65 72 79  | of BLOX is very|
000013b0  20 73 69 6d 70 6c 65 2e  20 59 6f 75 20 73 74 61  | simple. You sta|
000013c0  72 74 20 69 6e 20 74 68  65 20 62 6f 74 74 6f 6d  |rt in the bottom|
000013d0  20 6c 65 66 74 20 63 6f  72 6e 65 72 20 6f 66 20  | left corner of |
000013e0  74 68 65 20 73 63 72 65  65 6e 2c 20 61 6e 64 20  |the screen, and |
000013f0  74 6f 20 63 6f 6d 70 6c  65 74 65 20 74 68 65 20  |to complete the |
00001400  6c 65 76 65 6c 2c 20 79  6f 75 20 6d 75 73 74 20  |level, you must |
00001410  72 65 61 63 68 20 74 68  65 20 74 6f 70 20 72 69  |reach the top ri|
00001420  67 68 74 20 63 6f 72 6e  65 72 20 6f 66 20 74 68  |ght corner of th|
00001430  65 20 73 63 72 65 65 6e  2c 20 61 73 20 71 75 69  |e screen, as qui|
00001440  63 6b 6c 79 20 61 73 20  70 6f 73 73 69 62 6c 65  |ckly as possible|
00001450  2e 20 22 0d 0c 44 a6 20  dc 20 22 59 6f 75 20 6d  |. "..D. . "You m|
00001460  75 73 74 20 61 76 6f 69  64 20 74 68 65 20 62 6c  |ust avoid the bl|
00001470  61 63 6b 20 73 71 75 61  72 65 73 2c 20 77 68 69  |ack squares, whi|
00001480  63 68 20 61 72 65 20 70  6c 61 63 65 73 20 77 68  |ch are places wh|
00001490  65 72 65 20 74 68 65 20  66 6c 6f 6f 72 20 68 61  |ere the floor ha|
000014a0  73 20 63 6f 6c 6c 61 70  73 65 64 2c 20 61 6e 64  |s collapsed, and|
000014b0  20 74 72 79 20 74 6f 20  73 74 65 70 20 6f 6e 20  | try to step on |
000014c0  74 68 65 20 77 68 69 74  65 20 73 71 75 61 72 65  |the white square|
000014d0  73 2c 20 77 68 69 63 68  20 77 69 6c 6c 20 67 69  |s, which will gi|
000014e0  76 65 20 79 6f 75 20 74  77 6f 20 65 78 74 72 61  |ve you two extra|
000014f0  20 6c 69 76 65 73 2e 20  22 0d 0c 4e be 20 dc 20  | lives. "..N. . |
00001500  22 59 6f 75 20 61 6c 73  6f 20 67 61 69 6e 20 61  |"You also gain a|
00001510  6e 20 65 78 74 72 61 20  6c 69 66 65 20 66 6f 72  |n extra life for|
00001520  20 65 76 65 72 79 20 35  20 6c 65 76 65 6c 73 20  | every 5 levels |
00001530  74 68 61 74 20 79 6f 75  20 63 6f 6d 70 6c 65 74  |that you complet|
00001540  65 2c 20 62 75 74 20 6c  6f 73 65 20 6f 6e 65 20  |e, but lose one |
00001550  66 6f 72 20 65 76 65 72  79 20 62 6c 61 63 6b 20  |for every black |
00001560  73 71 75 61 72 65 20 74  68 61 74 20 79 6f 75 20  |square that you |
00001570  73 74 65 70 20 6f 6e 2e  20 54 68 65 20 64 65 66  |step on. The def|
00001580  61 75 6c 74 20 6b 65 79  73 20 61 72 65 3a 20 5a  |ault keys are: Z|
00001590  20 2d 20 4c 65 66 74 2c  20 58 20 2d 20 52 69 67  | - Left, X - Rig|
000015a0  68 74 2c 20 2a 20 2d 20  55 70 2c 20 3f 20 2d 20  |ht, * - Up, ? - |
000015b0  44 6f 77 6e 2e 20 22 0d  0c 58 dc 20 dc 20 22 59  |Down. "..X. . "Y|
000015c0  6f 75 20 63 61 6e 2c 20  68 6f 77 65 76 65 72 2c  |ou can, however,|
000015d0  20 63 68 61 6e 67 65 20  74 68 65 20 6b 65 79 73  | change the keys|
000015e0  20 6f 6e 20 74 68 65 20  74 69 74 6c 65 20 73 63  | on the title sc|
000015f0  72 65 65 6e 2c 20 62 79  20 70 72 65 73 73 69 6e  |reen, by pressin|
00001600  67 20 4b 2e 20 54 68 65  20 63 6f 6c 6f 75 72 20  |g K. The colour |
00001610  63 6f 64 65 20 74 68 61  74 20 69 73 20 75 73 65  |code that is use|
00001620  64 20 66 6f 72 20 74 68  65 20 73 71 75 61 72 65  |d for the square|
00001630  73 20 74 68 61 74 20 79  6f 75 20 77 69 6c 6c 20  |s that you will |
00001640  66 69 6e 64 20 69 6e 20  74 68 65 20 67 61 6d 65  |find in the game|
00001650  20 69 73 3a 20 42 4c 41  43 4b 20 2d 20 41 20 73  | is: BLACK - A s|
00001660  71 75 61 72 65 20 77 68  65 72 65 20 74 68 65 20  |quare where the |
00001670  66 6c 6f 6f 72 20 68 61  73 20 63 6f 6c 6c 61 70  |floor has collap|
00001680  73 65 64 3b 20 57 48 49  54 45 20 2d 20 59 6f 75  |sed; WHITE - You|
00001690  2c 20 22 0d 0c 62 bc 20  dc 20 22 6f 72 20 61 20  |, "..b. . "or a |
000016a0  62 6f 6e 75 73 20 73 71  75 61 72 65 3b 20 43 59  |bonus square; CY|
000016b0  41 4e 2f 52 45 44 20 2d  20 49 66 20 79 6f 75 20  |AN/RED - If you |
000016c0  73 74 65 70 20 6f 6e 20  74 68 69 73 20 73 71 75  |step on this squ|
000016d0  61 72 65 2c 20 79 6f 75  20 77 69 6c 6c 20 6d 6f  |are, you will mo|
000016e0  76 65 20 6f 6e 74 6f 20  74 68 65 20 6e 65 78 74  |ve onto the next|
000016f0  20 6c 65 76 65 6c 2e 20  57 68 69 6c 65 20 74 68  | level. While th|
00001700  69 73 20 73 71 75 61 72  65 20 69 73 20 72 65 64  |is square is red|
00001710  2c 20 74 68 65 20 63 6f  6d 70 75 74 65 72 20 69  |, the computer i|
00001720  73 20 74 68 69 6e 6b 69  6e 67 2c 20 62 75 74 20  |s thinking, but |
00001730  77 68 65 6e 20 69 74 20  69 73 20 63 79 61 6e 2c  |when it is cyan,|
00001740  20 79 6f 75 20 6d 61 79  20 6d 6f 76 65 2e 22 0d  | you may move.".|
00001750  0c 6c 33 20 dc 20 22 20  20 20 20 20 20 20 20 20  |.l3 . "         |
00001760  20 20 20 20 20 20 20 48  61 76 65 20 46 75 6e 21  |       Have Fun!|
00001770  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001780  40 22 0d 0c 76 06 20 3a  0d 0c 80 0a 20 dd f2 61  |@"..v. :.... ..a|
00001790  73 73 0d 0c 8a 0d 20 e3  58 3d 30 b8 32 88 32 0d  |ss.... .X=0.2.2.|
000017a0  0c 94 0c 20 50 25 3d 26  43 44 38 0d 0c 9e 0a 20  |... P%=&CD8.... |
000017b0  5b 4f 50 54 58 0d 0c a8  10 20 20 20 20 20 4c 44  |[OPTX....     LD|
000017c0  41 23 26 30 30 0d 0c b2  0f 20 20 20 20 20 53 54  |A#&00....     ST|
000017d0  41 26 37 30 0d 0c bc 0c  20 20 20 20 20 54 41 59  |A&70....     TAY|
000017e0  0d 0c c6 10 20 2e 6c 62  20 4c 44 58 23 26 33 30  |.... .lb LDX#&30|
000017f0  0d 0c d0 0f 20 20 20 20  20 53 54 58 26 37 31 0d  |....     STX&71.|
00001800  0c da 13 20 2e 6c 20 20  53 54 41 28 26 37 30 29  |... .l  STA(&70)|
00001810  2c 59 0d 0c e4 0c 20 20  20 20 20 49 4e 59 0d 0c  |,Y....     INY..|
00001820  ee 0c 20 20 20 20 20 49  4e 59 0d 0c f8 0c 20 20  |..     INY....  |
00001830  20 20 20 49 4e 59 0d 0d  02 0c 20 20 20 20 20 49  |   INY....     I|
00001840  4e 59 0d 0d 0c 0c 20 20  20 20 20 49 4e 59 0d 0d  |NY....     INY..|
00001850  16 0c 20 20 20 20 20 49  4e 59 0d 0d 20 0c 20 20  |..     INY.. .  |
00001860  20 20 20 49 4e 59 0d 0d  2a 0c 20 20 20 20 20 49  |   INY..*.     I|
00001870  4e 59 0d 0d 34 10 20 20  20 20 20 43 50 59 23 26  |NY..4.     CPY#&|
00001880  30 38 0d 0d 3e 0d 20 20  20 20 20 42 43 53 6c 0d  |08..>.     BCSl.|
00001890  0d 48 0f 20 20 20 20 20  49 4e 43 26 37 31 0d 0d  |.H.     INC&71..|
000018a0  52 0f 20 20 20 20 20 4c  44 58 26 37 31 0d 0d 5c  |R.     LDX&71..\|
000018b0  10 20 20 20 20 20 43 50  58 23 26 38 30 0d 0d 66  |.     CPX#&80..f|
000018c0  0d 20 20 20 20 20 42 4e  45 6c 0d 0d 70 0c 20 20  |.     BNEl..p.  |
000018d0  20 20 20 49 4e 59 0d 0d  7a 10 20 20 20 20 20 43  |   INY..z.     C|
000018e0  50 59 23 26 30 38 0d 0d  84 0e 20 20 20 20 20 42  |PY#&08....     B|
000018f0  4e 45 6c 62 0d 0d 8e 0c  20 20 20 20 20 52 54 53  |NElb....     RTS|
00001900  0d 0d 98 0a 20 20 20 20  20 5d 0d 0d a2 06 20 ed  |....     ].... .|
00001910  0d 0d ac 06 20 e1 0d 0d  b6 06 20 3a 0d 0d c0 0c  |.... ..... :....|
00001920  20 dd f2 72 65 6c 6f 63  0d 0d ca 0c 20 d3 3d 26  | ..reloc.... .=&|
00001930  35 38 30 30 0d 0d d4 15  20 e3 20 70 61 73 73 3d  |5800.... . pass=|
00001940  30 20 b8 20 32 20 88 20  32 0d 0d de 0c 20 50 25  |0 . 2 . 2.... P%|
00001950  3d 26 43 30 30 0d 0d e8  0d 20 5b 4f 50 54 70 61  |=&C00.... [OPTpa|
00001960  73 73 0d 0d f2 0e 20 20  20 20 20 4c 44 59 23 30  |ss....     LDY#0|
00001970  0d 0d fc 0f 20 20 20 20  20 53 54 59 26 37 30 0d  |....     STY&70.|
00001980  0e 06 0f 20 20 20 20 20  53 54 59 26 37 32 0d 0e  |...     STY&72..|
00001990  10 10 20 20 20 20 20 4c  44 41 23 26 30 45 0d 0e  |..     LDA#&0E..|
000019a0  1a 0c 20 20 20 20 20 53  45 43 0d 0e 24 0f 20 20  |..     SEC..$.  |
000019b0  20 20 20 53 42 43 26 31  38 0d 0e 2e 0f 20 20 20  |   SBC&18....   |
000019c0  20 20 53 54 41 26 37 34  0d 0e 38 0f 20 20 20 20  |  STA&74..8.    |
000019d0  20 4c 44 41 26 31 38 0d  0e 42 10 20 20 20 20 20  | LDA&18..B.     |
000019e0  43 4d 50 23 26 30 45 0d  0e 4c 0e 20 20 20 20 20  |CMP#&0E..L.     |
000019f0  42 43 43 61 64 0d 0e 56  0f 20 2e 73 62 20 53 54  |BCCad..V. .sb ST|
00001a00  41 26 37 31 0d 0e 60 10  20 20 20 20 20 4c 44 41  |A&71..`.     LDA|
00001a10  23 26 30 45 0d 0e 6a 0f  20 20 20 20 20 53 54 41  |#&0E..j.     STA|
00001a20  26 37 33 0d 0e 74 13 20  2e 6d 31 20 4c 44 41 28  |&73..t. .m1 LDA(|
00001a30  26 37 30 29 2c 59 0d 0e  7e 13 20 20 20 20 20 53  |&70),Y..~.     S|
00001a40  54 41 28 26 37 32 29 2c  59 0d 0e 88 0c 20 20 20  |TA(&72),Y....   |
00001a50  20 20 49 4e 59 0d 0e 92  0e 20 20 20 20 20 42 4e  |  INY....     BN|
00001a60  45 6d 31 0d 0e 9c 0f 20  20 20 20 20 49 4e 43 26  |Em1....     INC&|
00001a70  37 31 0d 0e a6 0f 20 20  20 20 20 49 4e 43 26 37  |71....     INC&7|
00001a80  33 0d 0e b0 0f 20 20 20  20 20 4c 44 58 26 37 31  |3....     LDX&71|
00001a90  0d 0e ba 0c 20 20 20 20  20 44 45 58 0d 0e c4 0f  |....     DEX....|
00001aa0  20 20 20 20 20 43 50 58  26 30 33 0d 0e ce 0e 20  |     CPX&03.... |
00001ab0  20 20 20 20 42 43 43 6d  31 0d 0e d8 0e 20 20 20  |    BCCm1....   |
00001ac0  20 20 42 43 53 65 6d 0d  0e e2 0f 20 2e 61 64 20  |  BCSem.... .ad |
00001ad0  4c 44 41 26 30 33 0d 0e  ec 0f 20 20 20 20 20 53  |LDA&03....     S|
00001ae0  54 41 26 37 31 0d 0e f6  0c 20 20 20 20 20 43 4c  |TA&71....     CL|
00001af0  43 0d 0f 00 0f 20 20 20  20 20 41 44 43 26 37 34  |C....     ADC&74|
00001b00  0d 0f 0a 0f 20 20 20 20  20 53 54 41 26 37 33 0d  |....     STA&73.|
00001b10  0f 14 0e 20 20 20 20 20  4c 44 41 23 30 0d 0f 1e  |...     LDA#0...|
00001b20  0f 20 20 20 20 20 4c 44  59 26 30 32 0d 0f 28 13  |.     LDY&02..(.|
00001b30  20 2e 6d 32 20 4c 44 41  28 26 37 30 29 2c 59 0d  | .m2 LDA(&70),Y.|
00001b40  0f 32 13 20 20 20 20 20  53 54 41 28 26 37 32 29  |.2.     STA(&72)|
00001b50  2c 59 0d 0f 3c 0c 20 20  20 20 20 44 45 59 0d 0f  |,Y..<.     DEY..|
00001b60  46 10 20 20 20 20 20 43  50 59 23 26 46 46 0d 0f  |F.     CPY#&FF..|
00001b70  50 0e 20 20 20 20 20 42  4e 45 6d 32 0d 0f 5a 0f  |P.     BNEm2..Z.|
00001b80  20 20 20 20 20 44 45 43  26 37 31 0d 0f 64 0f 20  |     DEC&71..d. |
00001b90  20 20 20 20 44 45 43 26  37 33 0d 0f 6e 0f 20 20  |    DEC&73..n.  |
00001ba0  20 20 20 4c 44 41 26 37  33 0d 0f 78 10 20 20 20  |   LDA&73..x.   |
00001bb0  20 20 43 4d 50 23 26 30  44 0d 0f 82 0e 20 20 20  |  CMP#&0D....   |
00001bc0  20 20 42 43 53 6d 32 0d  0f 8c 0f 20 2e 65 6d 20  |  BCSm2.... .em |
00001bd0  4c 44 41 26 31 33 0d 0f  96 0c 20 20 20 20 20 43  |LDA&13....     C|
00001be0  4c 43 0d 0f a0 0f 20 20  20 20 20 41 44 43 26 37  |LC....     ADC&7|
00001bf0  34 0d 0f aa 0f 20 20 20  20 20 53 54 41 26 31 33  |4....     STA&13|
00001c00  0d 0f b4 0f 20 20 20 20  20 53 54 41 26 30 31 0d  |....     STA&01.|
00001c10  0f be 10 20 20 20 20 20  4c 44 41 23 26 30 45 0d  |...     LDA#&0E.|
00001c20  0f c8 0f 20 20 20 20 20  53 54 41 26 31 38 0d 0f  |...     STA&18..|
00001c30  d2 0c 20 20 20 20 20 52  54 53 0d 0f dc 06 20 5d  |..     RTS.... ]|
00001c40  0d 0f e6 06 20 ed 0d 0f  f0 35 20 ff 22 4b 45 59  |.... ....5 ."KEY|
00001c50  20 30 22 22 43 41 4c 4c  26 43 30 30 7c 4d 47 4f  | 0""CALL&C00|MGO|
00001c60  54 4f 36 30 7c 46 7c 4d  22 22 22 3a ff 22 46 58  |TO60|F|M""":."FX|
00001c70  20 31 35 33 2c 30 2c 31  32 38 22 0d 0f fa 06 20  | 153,0,128".... |
00001c80  e0 0d 10 04 06 20 e1 0d  10 0e 06 20 3a 0d 10 18  |..... ..... :...|
00001c90  0a 20 dd f2 61 69 6e 0d  10 22 0b 20 f7 20 8d 54  |. ..ain..". . .T|
00001ca0  7a 4c 0d 10 2c 0c 20 41  44 3d 26 39 30 30 0d 10  |zL..,. AD=&900..|
00001cb0  36 06 20 f5 0d 10 40 09  20 f3 20 54 24 0d 10 4a  |6. ...@. . T$..J|
00001cc0  09 20 53 6f 3d 31 0d 10  54 06 20 f5 0d 10 5e 15  |. So=1..T. ...^.|
00001cd0  20 3f 41 44 3d 97 28 c1  54 24 2c 53 6f 2c 31 29  | ?AD=.(.T$,So,1)|
00001ce0  29 0d 10 68 0c 20 53 6f  3d 53 6f 2b 31 0d 10 72  |)..h. So=So+1..r|
00001cf0  0c 20 41 44 3d 41 44 2b  31 0d 10 7c 11 20 fd 20  |. AD=AD+1..|. . |
00001d00  53 6f 3d a9 28 54 24 29  2b 31 0d 10 86 16 20 fd  |So=.(T$)+1.... .|
00001d10  20 c1 54 24 2c 53 6f 2d  31 2c 31 29 3d 22 40 22  | .T$,So-1,1)="@"|
00001d20  0d 10 90 06 20 e1 0d ff                           |.... ...|
00001d28
Games/BLOX!.m0
Games/BLOX!.m1
Games/BLOX!.m2
Games/BLOX!.m4
Games/BLOX!.m5

© Dominic Ford 2021–2024.

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