G/Blitz

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF » G/Blitz

G/Blitz

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF
Filename:	G/Blitz
Read OK:	✔
File size:	18CA bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

   10REM BLOCK BLITZ
   20REM (C) ELBUG
   30REM VOLUME 1 NO 4
   40*****************
   50ON ERROR GOTO 230
   60DIM S%(19,31),MAN$(5,1)
   70PROCchar
   80REPEAT
   90MODE4
  100PROCsetupuser
  110MODE5
  120PROCsetup
  130REPEAT
  140PROCscreen 
  150REPEAT
  160PROCbl:PROCm
  170UNTIL end%
  180PROCgame
  190UNTIL demo%
  200UNTIL FALSE
  210END
  220:
  230ON ERROR OFF:MODE6
  240IF ERR<>17 THEN REPORT:PRINT" at Line ";ERL
  250END
  260:
  270DEFPROCchar
  280a$=CHR$8:b$=CHR$10:c$=CHR$11
  290d$=CHR$17:e$=CHR$32
  300f$=STRING$(14,CHR$32):g$=STRING$(5,CHR$32)
  310VDU23,224,28,48,62,20,28,60,126,189
  320VDU23,225,189,60,24,24,56,104,200,76
  330VDU23,226,189,60,24,24,28,23,18,24
  340 VDU23,227,189,60,24,24,28,23,18,48
  350VDU23,228,189,60,24,24,56,104,200,88
  360VDU23,229,28,6,62,20,28,60,126,189
  370VDU23,240,60,90,126,60,36,126,255,189
  380VDU23,243,255,129,255,129,66,36,24,255
  390VDU23,244,0,127,127,127,127,127,127,0
  400VDU23,245,255,255,255,255,255,255,255,255
  410VDU23,246,0,125,126,126,126,126,126,126,0
  420VDU23,247,0,231,231,231,231,231,231,0
  430VDU23,248,189,189,60,36,36,36,36,102
  440VDU23,249,119,34,34,127,127,65,65,99
  450VDU23,250,189,219,255,189,165,255,255,60
  460VDU23,251,60,60,60,36,36,36,36,102
  470ENVELOPE1,3,0,2,0,0,255,0,127,0,0,-127,80,80
  480R$=d$+CHR$1:Y$=d$+CHR$2
  490W$=d$+CHR$3
  500M$=W$+CHR$240+b$+a$+R$+CHR$248
  510MJ$=b$+e$+a$+c$+R$+CHR$251+a$+c$+W$+CHR$250 
  520MK$=c$+e$+b$+a$+W$+CHR$240+a$+b$+R$+CHR$248
  530f$=e$+W$+CHR$224+b$+a$+a$+e$+R$
  540MAN$(1,0)=f$+CHR$225
  550MAN$(1,1)=f$+CHR$226
  560f$=e$+a$+a$+W$+CHR$229+b$+e$+a$+a$+R$
  570MAN$(0,0)=f$+CHR$227
  580MAN$(0,1)=f$+CHR$228
  590f$=b$+e$+c$+a$+e$+R$:g$=a$+c$+W$+CHR$224
  600MAN$(3,0)=f$+CHR$225+g$
  610MAN$(3,1)=f$+CHR$226+g$
  620f$=e$+a$+b$+e$+W$+CHR$224+a$+b$+R$
  630MAN$(5,0)=f$+CHR$225
  640MAN$(5,1)=f$+CHR$226
  650f$=b$+e$+c$+a$+e$+a$+a$+R$:g$=a$+c$+W$+CHR$229
  660 MAN$(2,0)=f$+CHR$227+g$
  670MAN$(2,1)=f$+CHR$228+g$
  680f$=e$+a$+b$+e$+a$+a$+W$+CHR$229+a$+b$+R$
  690MAN$(4,0)=f$+CHR$227
  700MAN$(4,1)=f$+CHR$228
  710B$=R$+CHR$249+a$+b$+Y$+CHR$244
  720TL$=e$+a$+a$+R$+CHR$249
  730TR$=e$+R$+CHR$249
  740BL$=TL$+a$+b$+Y$+CHR$244+e$
  750BR$=TR$+a$+a$+b$+e$+Y$+CHR$244
  760BD$=Y$+e$+a$+b$+CHR$244
  770WALL$=CHR$246+CHR$246+c$+a$+a$+CHR$247+CHR$247+c$+a$+a$
  780HI%=0:SC%=0
  790ENDPROC
  800:
  810DEFPROCsetup 
  820VDU23,1;0;0;0;0;:VDU29,640;512;
  830IF HI%<SC% THEN HI%=SC%
  840H%=4:N%=1:M%=0:MEN%=3
  850SC%=FNsc(H%):SCT%=0 
  860ENDPROC 
  870:
  880DEFPROCscreen 
  890CLS:COLOUR1
  900PRINTTAB(0,0)"H ";HI%;TAB(9);"S ";SC%;TAB(17)"M ";MEN% 
  910COLOUR2
  920g$=STRING$(2,CHR$243)
  930PRINTTAB(0,1)STRING$(10,g$);
  940PRINTTAB(0,6)g$ TAB(18,6)g$;
  950PRINTTAB(0,29-H%)g$ TAB(18,29-H%)g$;
  960COLOUR2:PRINTTAB(0,30)STRING$(20,CHR$245);
  970PRINTTAB(0,30)STRING$(20,CHR$245); 
  980COLOUR131:COLOUR1
  990g$=STRING$(H%/2,WALL$)
 1000 PRINTTAB(0,29)g$;
 1010PRINTTAB(18,29)g$;
 1020COLOUR128
 1030 FOR J%=0TO31 
 1040FOR I%=0TO19
 1050IF J%=30 THEN S%(I%,J%)=2 ELSE S%(I%,J%)=0
 1060NEXT I%,J%
 1070 B%=28:A%=10:NG%=FALSE:end%=FALSE
 1080PRINTTAB(A%,B%)M$
 1090Y%=3:IF RND(2)=1 THEN X%=0 ELSE X%=19
 1100ENDPROC
 1110:
 1120DEFPROCm
 1130IF M%=0 THEN M%=1 ELSE M%=0
 1140IF S%(A%,B%)<>0 THEN PROCng:ENDPROC
 1150IF demo% THEN 1180
 1160IF INKEY-26 THEN IF A%>2 THEN 1260
 1170IF INKEY-122 THEN IF A%<17 THEN 1210
 1180IF NOT demo% THEN PRINTTAB(A%,B%)M$;:ENDPROC
 1190IF Y%<=3 OR X%<>A% THEN PRINTTAB(A%,B%)M$;:ENDPROC
 1200IF A%=10 THEN 1260
 1210IF S%(A%+1,B%)<>0 THEN ENDPROC
 1220 IF S%(A%+1,B%+1)=2 THEN PRINTTAB(A%,B%)MAN$(3,M%):A%=A%+1:B%=B%-1:GOTO1300
 1230IF S%(A%+1,B%+2)=2 THEN PRINTTAB(A%,B%)MAN$(1,M%):A%=A%+1:GOTO1300
 1240IF S%(A%+1,B%+3)=2 THEN PRINTTAB(A%,B%)MAN$(5,M%):A%=A%+1:B%=B%+1:GOTO1300
 1250ENDPROC
 1260 IF S%(A%-1,B%)<>0 THEN ENDPROC
 1270IF S%(A%-1,B%+1)=2 THEN PRINTTAB(A%,B%)MAN$(2,M%):A%=A%-1:B%=B%-1:GOTO1300
 1280 IF S%(A%-1,B%+2)=2 THEN PRINTTAB(A%,B%)MAN$(0,M%):A%=A%-1:GOTO1300
 1290IF S%(A%-1,B%+3)=2 THEN PRINTTAB(A%,B%)MAN$(4,M%):A%=A%-1:B%=B%+1
 1300IF S%(A%,B%)<>0 THEN PROCng:ENDPROC
 1310IF B%=27-H% THEN PROCwin:ENDPROC
 1320ENDPROC
 1330:
 1340DEFPROCng
 1350end%=TRUE:NG%=TRUE:MEN%=MEN%-1
 1360SOUND&0011,0,0,0:SOUND0,-15,5,12
 1370PROCbonk
 1380ENDPROC
 1390:
 1400DEFPROCd(T%)
 1410T%=TIME+T%
 1420REPEAT UNTIL TIME >T%
 1430ENDPROC
 1440:
 1450DEFPROCwin
 1460IF S%(X%,Y%)=1 THEN PRINTTAB(X%,Y%)e$;:SOUND&0011,0,0,0
 1470PRINTTAB(A%,B%)M$;
 1480end%=TRUE:COLOUR2
 1490IF A%=2 OR A%=17 THEN 1520
 1500D%=A%
 1510IF A%<9 THEN FOR C%=2 TO A%-1:PRINTTAB(C%,B%+2)CHR$243:SOUND2,-10,100,1:PROCd(15):NEXT ELSE FOR C%=17 TO A%+1 STEP-1:PRINTTAB(C%,B%+2)CHR$243:SOUND2,-10,100,1:PROCd(15):NEXT
 1520REPEAT IF A%<9 PRINTTAB(A%,B%)MAN$(0,M%):PROCd(15):A%=A%-1 ELSE PRINTTAB(A%,B%)MAN$(1,M%):PROCd(15):A%=A%+1
 1530 IF M%=0 THEN M%=1 ELSE M%=0
 1540UNTIL A%=1 OR A%=18
 1550IF D%=2 OR D%=17 THEN 1610
 1560COLOUR2:PRINTTAB(A%,B%)M$;
 1570 IF D%<9 THEN FOR C%=D%-1 TO 2 STEP -1:PRINTTAB(C%,B%+2)e$:SOUND2,-10,100,1:PROCd(15):NEXT ELSE FOR C%=D%+1 TO 17:PRINTTAB(C%,B%+2)e$:SOUND2,-10,100,1:PROCd(15):NEXT
 1580COLOUR0:COLOUR131
 1590IF A%=1 PRINTTAB(3,B%-1)"YIPPEE" ELSE PRINTTAB(11,B%-1)"YIPPEE"
 1600COLOUR128
 1610FOR I%=1 TO 10:PRINTTAB(A%,B%)MJ$;:SOUND0,-15,4,1:PROCd(8):PRINTTAB(A%,B%)MK$;:SOUND0,-15,6,1:PROCd(8):NEXT 
 1620IF A%=1 PRINTTAB(3,B%-1)SPC(6) ELSE PRINTTAB(11,B%-1)SPC(6)
 1630PROCd(150)
 1640ENDPROC
 1650:
 1660DEFPROCbl
 1670IF Y%=3 THEN 1780
 1680IF T%>9 THEN 1700
 1690IF T%>0 PRINTTAB(T%,2)TL$:T%=T%-1:GOTO1710 ELSE PRINTTAB(0,2)e$:GOTO1710
 1700IF T%<19 PRINTTAB(T%,2)TR$:T%=T%+1 ELSE PRINTTAB(19,2)e$
 1710PRINTTAB(X%,Y%)BD$:S%(X%,Y%)=0:Y%=Y%+1:S%(X%,Y%)=1:IF S%(X%,Y%+1)<>2 THEN ENDPROC
 1720S%(X%,Y%)=2
 1730SOUND&0011,0,0,0:SOUND0,-15,4,1
 1740IF T%<>0 AND T%<>19 Y%=Y%-1:ENDPROC
 1750IF RND(1)>.5 THEN X%=19 ELSE X%=0
 1760SC%=SC%-10:PRINTTAB(11,0)SPC(5)TAB(11,0)R$;SC%
 1770Y%=3:PRINTTAB(X%,2)B$;:ENDPROC
 1780SOUND2,-10,60,1
 1790IF (A%=X% AND RND(1)>.5) THEN 1840
 1800IF demo% THEN 1820
 1810IF ABS(A%-X%)<2 THEN IF RND(1)>.8 THEN 1840
 1820IF A%<X% THEN PRINTTAB(X%,2)BL$:X%=X%-1 ELSE PRINTTAB(X%,2)BR$:X%=X%+1
 1830ENDPROC
 1840IF X%<2 OR X%>17 ENDPROC
 1850T%=X%:SOUND1,1,350,90:GOTO1710
 1860:
 1870DEFPROCgame
 1880IF NG% AND MEN%=0 THEN PROClost:PROCsetup:ENDPROC ELSE IF NG% THEN PROCcng:ENDPROC
 1890N%=N%+1:H%=H%+2
 1900IF H%=18 THEN PROCover:PROCsetup:ENDPROC
 1910PROCccg
 1920ENDPROC
 1930:
 1940DEF FNsc(H%)=160*(H%+1)
 1950:
 1960DEF PROCr:REPEAT UNTIL INKEY-74:ENDPROC
 1970:
 1980DEFPROCsetupuser
 1990VDU19,1,3;0;19,0,4;0;
 2000PRINTTAB(10,3)"B L O C K  B L I T Z"
 2010PRINTTAB(10,4)STRING$(20,"=")
 2020PRINTTAB(0,7)"  You have been imprisoned by the evil"'"Dr. X in an ever deeper series of "'"caverns. To add to your problems, they"'"are being filled with blocks aimed"'"at you!"
 2030PRINT''" However if you can reach the level of"'"the brick sides by standing on the"'"blocks you can escape from each cavern"'"and eventually from all of them."
 2040PRINT''"  You move by using the left and right"'"cursor keys but you can only leap up"'"and down one block at a time."
 2050*fx15,0
 2060PRINT''"  Do you want a demo ? (Y/N) ";
 2070IK$=GET$:IF IK$="Y" THEN demo%=TRUE ELSE IF IK$="N" THEN demo%=FALSE ELSE GOTO 2070
 2080ENDPROC
 2090:
 2100DEFPROCcng
 2110SC%=SCT%:CLS:COLOUR2
 2120 PRINTTAB(4,5)"OH DEAR !"TAB(4,7)"YOU LOST"TAB(4,9)"A MAN"
 2130 PROCsctab:SC%=SC%+FNsc(H%)
 2140ENDPROC
 2150:
 2160DEFPROCccg
 2170SCT%=SC%:CLS:COLOUR2
 2180PRINTTAB(2,5)"NEXT -->"TAB(2,8)"CAVERN NUMBER ";N%
 2190PROCsctab:SC%=SC%+FNsc(H%)
 2200ENDPROC
 2210:
 2220DEFPROCsctab
 2230VDU19,1,6,0,0,0
 2240COLOUR1
 2250PRINTTAB(4,14)"MEN........";MEN%
 2260PRINTTAB(4,16)"SCORE......";SC%
 2270PRINTTAB(4,18)"HISCORE....";HI%
 2280COLOUR2:PRINTTAB(1,28)"RETURN TO CONTINUE"
 2290PRINTTAB(1,28)"RETURN TO CONTINUE"
 2300PROCr:VDU19,1,1,0,0,0
 2310ENDPROC
 2320:
 2330DEFPROCover
 2340CLS:COLOUR2
 2350SC%=SC%+MEN%*FNsc(18)
 2360PRINTTAB(2,3)"CONGRATULATIONS"TAB(2,6)"YOU HAVE ESCAPED"TAB(2,8)"FROM ALL"TAB(2,10)"THE CAVERNS"
 2370PROCsctab
 2380ENDPROC
 2390:
 2400DEFPROClost
 2410CLS:COLOUR2:SC%=SCT%
 2420PRINTTAB(4,4)"GANE OVER"TAB(4,6)"YOU RAN OUT"TAB(4,8)"OF MEN"
 2430PROCsctab
 2440ENDPROC
 2450:
 2460DEFPROCbonk
 2470CLS
 2480 FOR X%=150 TO 500 STEP50:GCOL0,1:MOVEX%,X%:DRAWX%,-X%:DRAW-X%,-X%:DRAW-X%,X%:DRAWX%,X%:X%=X%+50:GCOL0,2:MOVEX%,X%:DRAWX%,-X%:DRAW-X%,-X%:DRAW-X%,X%:DRAWX%,X%:NEXT
 2490COLOUR3:PRINTTAB(6,15)"B O N K!"
 2500FOR I%=1 TO 8:VDU19,1,3,0,0,0,19,2,1,0,0,0,:PROCd(8):VDU19,1,1,0,0,0,19,2,3,0,0,0:PROCd(8):NEXT
 2510ENDPROC


� BLOCK BLITZ
� (C) ELBUG
� VOLUME 1 NO 4
(*****************
2� � � �df@
<� S%(19,31),MAN$(5,1)
F	�char
P�
Z�4
d�setupuser
n�5
x
�setup
��
��screen 
��
�
�bl:�m
�
� end%
�	�game
�� demo%
�� �
��
�:
�� � �:�6
�� �<>17 � �:�" at Line ";�
��
:

��char
a$=�8:b$=�10:c$=�11
"d$=�17:e$=�32
,f$=�14,�32):g$=�5,�32)
6%�23,224,28,48,62,20,28,60,126,189
@&�23,225,189,60,24,24,56,104,200,76
J$�23,226,189,60,24,24,28,23,18,24
T% �23,227,189,60,24,24,28,23,18,48
^&�23,228,189,60,24,24,56,104,200,88
h$�23,229,28,6,62,20,28,60,126,189
r'�23,240,60,90,126,60,36,126,255,189
|(�23,243,255,129,255,129,66,36,24,255
�'�23,244,0,127,127,127,127,127,127,0
�+�23,245,255,255,255,255,255,255,255,255
�+�23,246,0,125,126,126,126,126,126,126,0
�'�23,247,0,231,231,231,231,231,231,0
�&�23,248,189,189,60,36,36,36,36,102
�&�23,249,119,34,34,127,127,65,65,99
�*�23,250,189,219,255,189,165,255,255,60
�$�23,251,60,60,60,36,36,36,36,102
�)�1,3,0,2,0,0,255,0,127,0,0,-127,80,80
�R$=d$+�1:Y$=d$+�2
�W$=d$+�3
�M$=W$+�240+b$+a$+R$+�248
�*MJ$=b$+e$+a$+c$+R$+�251+a$+c$+W$+�250 
)MK$=c$+e$+b$+a$+W$+�240+a$+b$+R$+�248
 f$=e$+W$+�224+b$+a$+a$+e$+R$
MAN$(1,0)=f$+�225
&MAN$(1,1)=f$+�226
0&f$=e$+a$+a$+W$+�229+b$+e$+a$+a$+R$
:MAN$(0,0)=f$+�227
DMAN$(0,1)=f$+�228
N)f$=b$+e$+c$+a$+e$+R$:g$=a$+c$+W$+�224
XMAN$(3,0)=f$+�225+g$
bMAN$(3,1)=f$+�226+g$
l#f$=e$+a$+b$+e$+W$+�224+a$+b$+R$
vMAN$(5,0)=f$+�225
�MAN$(5,1)=f$+�226
�/f$=b$+e$+c$+a$+e$+a$+a$+R$:g$=a$+c$+W$+�229
� MAN$(2,0)=f$+�227+g$
�MAN$(2,1)=f$+�228+g$
�)f$=e$+a$+b$+e$+a$+a$+W$+�229+a$+b$+R$
�MAN$(4,0)=f$+�227
�MAN$(4,1)=f$+�228
�B$=R$+�249+a$+b$+Y$+�244
�TL$=e$+a$+a$+R$+�249
�TR$=e$+R$+�249
�BL$=TL$+a$+b$+Y$+�244+e$
�BR$=TR$+a$+a$+b$+e$+Y$+�244
�BD$=Y$+e$+a$+b$+�244
/WALL$=�246+�246+c$+a$+a$+�247+�247+c$+a$+a$
HI%=0:SC%=0
�
 :
*��setup 
4�23,1;0;0;0;0;:�29,640;512;
>� HI%<SC% � HI%=SC%
HH%=4:N%=1:M%=0:MEN%=3
RSC%=�sc(H%):SCT%=0 
\� 
f:
p
��screen 
z�:�1
�.�0,0)"H ";HI%;�9);"S ";SC%;�17)"M ";MEN% 
��2
�g$=�2,�243)
��0,1)�10,g$);
��0,6)g$ �18,6)g$;
��0,29-H%)g$ �18,29-H%)g$;
��2:�0,30)�20,�245);
��0,30)�20,�245); 
��131:�1
�g$=�H%/2,WALL$)
� �0,29)g$;
��18,29)g$;
��128
 � J%=0�31 

� I%=0�19
'� J%=30 � S%(I%,J%)=2 � S%(I%,J%)=0
$� I%,J%
. B%=28:A%=10:NG%=�:end%=�
8�A%,B%)M$
B Y%=3:� �(2)=1 � X%=0 � X%=19
L�
V:
`��m
j� M%=0 � M%=1 � M%=0
t� S%(A%,B%)<>0 � �ng:�
~� demo% � �t\D
�� �-26 � � A%>2 � �dlD
�� �-122 � � A%<17 � �tzD
�� � demo% � �A%,B%)M$;:�
�$� Y%<=3 � X%<>A% � �A%,B%)M$;:�
�� A%=10 � �dlD
�� S%(A%+1,B%)<>0 � �
�A � S%(A%+1,B%+1)=2 � �A%,B%)MAN$(3,M%):A%=A%+1:B%=B%-1:�TTE
�8� S%(A%+1,B%+2)=2 � �A%,B%)MAN$(1,M%):A%=A%+1:�TTE
�@� S%(A%+1,B%+3)=2 � �A%,B%)MAN$(5,M%):A%=A%+1:B%=B%+1:�TTE
��
� � S%(A%-1,B%)<>0 � �
�@� S%(A%-1,B%+1)=2 � �A%,B%)MAN$(2,M%):A%=A%-1:B%=B%-1:�TTE
9 � S%(A%-1,B%+2)=2 � �A%,B%)MAN$(0,M%):A%=A%-1:�TTE

:� S%(A%-1,B%+3)=2 � �A%,B%)MAN$(4,M%):A%=A%-1:B%=B%+1
� S%(A%,B%)<>0 � �ng:�
� B%=27-H% � �win:�
(�
2:
<��ng
Fend%=�:NG%=�:MEN%=MEN%-1
P�&0011,0,0,0:�0,-15,5,12
Z	�bonk
d�
n:
x��d(T%)
�T%=�+T%
�
� � � >T%
��
�:
�	��win
�,� S%(X%,Y%)=1 � �X%,Y%)e$;:�&0011,0,0,0
��A%,B%)M$;
�
end%=�:�2
�� A%=2 � A%=17 � �dpE
�	D%=A%
�y� A%<9 � � C%=2 � A%-1:�C%,B%+2)�243:�2,-10,100,1:�d(15):� � � C%=17 � A%+1 �-1:�C%,B%+2)�243:�2,-10,100,1:�d(15):�
�R� � A%<9 �A%,B%)MAN$(0,M%):�d(15):A%=A%-1 � �A%,B%)MAN$(1,M%):�d(15):A%=A%+1
� � M%=0 � M%=1 � M%=0
� A%=1 � A%=18
� D%=2 � D%=17 � �DJF
�2:�A%,B%)M$;
"w � D%<9 � � C%=D%-1 � 2 � -1:�C%,B%+2)e$:�2,-10,100,1:�d(15):� � � C%=D%+1 � 17:�C%,B%+2)e$:�2,-10,100,1:�d(15):�
,�0:�131
61� A%=1 �3,B%-1)"YIPPEE" � �11,B%-1)"YIPPEE"
@�128
JN� I%=1 � 10:�A%,B%)MJ$;:�0,-15,4,1:�d(8):�A%,B%)MK$;:�0,-15,6,1:�d(8):� 
T)� A%=1 �3,B%-1)�(6) � �11,B%-1)�(6)
^�d(150)
h�
r:
|��bl
�� Y%=3 � �dtF
�� T%>9 � �tdF
�4� T%>0 �T%,2)TL$:T%=T%-1:�tnF � �0,2)e$:�tnF
�*� T%<19 �T%,2)TR$:T%=T%+1 � �19,2)e$
�D�X%,Y%)BD$:S%(X%,Y%)=0:Y%=Y%+1:S%(X%,Y%)=1:� S%(X%,Y%+1)<>2 � �
�S%(X%,Y%)=2
��&0011,0,0,0:�0,-15,4,1
�� T%<>0 � T%<>19 Y%=Y%-1:�
�� �(1)>.5 � X%=19 � X%=0
�&SC%=SC%-10:�11,0)�(5)�11,0)R$;SC%
�Y%=3:�X%,2)B$;:�
��2,-10,60,1
�� (A%=X% � �(1)>.5) � �TpG
� demo% � �T\G
#� �(A%-X%)<2 � � �(1)>.8 � �TpG
5� A%<X% � �X%,2)BL$:X%=X%-1 � �X%,2)BR$:X%=X%+1
&�
0� X%<2 � X%>17 �
:T%=X%:�1,1,350,90:�tnF
D:
N
��game
X4� NG% � MEN%=0 � �lost:�setup:� � � NG% � �cng:�
bN%=N%+1:H%=H%+2
l� H%=18 � �over:�setup:�
v�ccg
��
�:
�� �sc(H%)=160*(H%+1)
�:
�� �r:� � �-74:�
�:
���setupuser
��19,1,3;0;19,0,4;0;
�!�10,3)"B L O C K  B L I T Z"
��10,4)�20,"=")
��0,7)"  You have been imprisoned by the evil"'"Dr. X in an ever deeper series of "'"caverns. To add to your problems, they"'"are being filled with blocks aimed"'"at you!"
��''" However if you can reach the level of"'"the brick sides by standing on the"'"blocks you can escape from each cavern"'"and eventually from all of them."
�v�''"  You move by using the left and right"'"cursor keys but you can only leap up"'"and down one block at a time."
*fx15,0
'�''"  Do you want a demo ? (Y/N) ";
<IK$=�:� IK$="Y" � demo%=� � � IK$="N" � demo%=� � � �TVH
 �
*:
4	��cng
>SC%=SCT%:�:�2
H1 �4,5)"OH DEAR !"�4,7)"YOU LOST"�4,9)"A MAN"
R �sctab:SC%=SC%+�sc(H%)
\�
f:
p	��ccg
zSCT%=SC%:�:�2
�,�2,5)"NEXT -->"�2,8)"CAVERN NUMBER ";N%
��sctab:SC%=SC%+�sc(H%)
��
�:
���sctab
��19,1,6,0,0,0
��1
��4,14)"MEN........";MEN%
��4,16)"SCORE......";SC%
��4,18)"HISCORE....";HI%
�"�2:�1,28)"RETURN TO CONTINUE"
��1,28)"RETURN TO CONTINUE"
��r:�19,1,1,0,0,0
	�
	:
	
��over
	$�:�2
	.SC%=SC%+MEN%*�sc(18)
	8T�2,3)"CONGRATULATIONS"�2,6)"YOU HAVE ESCAPED"�2,8)"FROM ALL"�2,10)"THE CAVERNS"
	B
�sctab
	L�
	V:
	`
��lost
	j�:�2:SC%=SCT%
	t4�4,4)"GANE OVER"�4,6)"YOU RAN OUT"�4,8)"OF MEN"
	~
�sctab
	��
	�:
	�
��bonk
	��
	�z � X%=150 � 500 �50:�0,1:�X%,X%:�X%,-X%:�-X%,-X%:�-X%,X%:�X%,X%:X%=X%+50:�0,2:�X%,X%:�X%,-X%:�-X%,-X%:�-X%,X%:�X%,X%:�
	��3:�6,15)"B O N K!"
	�S� I%=1 � 8:�19,1,3,0,0,0,19,2,1,0,0,0,:�d(8):�19,1,1,0,0,0,19,2,3,0,0,0:�d(8):�
	��
�

00000000  0d 00 0a 11 f4 20 42 4c  4f 43 4b 20 42 4c 49 54  |..... BLOCK BLIT|
00000010  5a 0d 00 14 0f f4 20 28  43 29 20 45 4c 42 55 47  |Z..... (C) ELBUG|
00000020  0d 00 1e 13 f4 20 56 4f  4c 55 4d 45 20 31 20 4e  |..... VOLUME 1 N|
00000030  4f 20 34 0d 00 28 15 2a  2a 2a 2a 2a 2a 2a 2a 2a  |O 4..(.*********|
00000040  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 32 0e ee 20 85 20  |********..2.. . |
00000050  e5 20 8d 64 66 40 0d 00  3c 19 de 20 53 25 28 31  |. .df@..<.. S%(1|
00000060  39 2c 33 31 29 2c 4d 41  4e 24 28 35 2c 31 29 0d  |9,31),MAN$(5,1).|
00000070  00 46 09 f2 63 68 61 72  0d 00 50 05 f5 0d 00 5a  |.F..char..P....Z|
00000080  06 eb 34 0d 00 64 0e f2  73 65 74 75 70 75 73 65  |..4..d..setupuse|
00000090  72 0d 00 6e 06 eb 35 0d  00 78 0a f2 73 65 74 75  |r..n..5..x..setu|
000000a0  70 0d 00 82 05 f5 0d 00  8c 0c f2 73 63 72 65 65  |p..........scree|
000000b0  6e 20 0d 00 96 05 f5 0d  00 a0 0a f2 62 6c 3a f2  |n ..........bl:.|
000000c0  6d 0d 00 aa 0a fd 20 65  6e 64 25 0d 00 b4 09 f2  |m..... end%.....|
000000d0  67 61 6d 65 0d 00 be 0b  fd 20 64 65 6d 6f 25 0d  |game..... demo%.|
000000e0  00 c8 07 fd 20 a3 0d 00  d2 05 e0 0d 00 dc 05 3a  |.... ..........:|
000000f0  0d 00 e6 0c ee 20 85 20  87 3a eb 36 0d 00 f0 1e  |..... . .:.6....|
00000100  e7 20 9f 3c 3e 31 37 20  8c 20 f6 3a f1 22 20 61  |. .<>17 . .:." a|
00000110  74 20 4c 69 6e 65 20 22  3b 9e 0d 00 fa 05 e0 0d  |t Line ";.......|
00000120  01 04 05 3a 0d 01 0e 0a  dd f2 63 68 61 72 0d 01  |...:......char..|
00000130  18 17 61 24 3d bd 38 3a  62 24 3d bd 31 30 3a 63  |..a$=.8:b$=.10:c|
00000140  24 3d bd 31 31 0d 01 22  11 64 24 3d bd 31 37 3a  |$=.11..".d$=.17:|
00000150  65 24 3d bd 33 32 0d 01  2c 1a 66 24 3d c4 31 34  |e$=.32..,.f$=.14|
00000160  2c bd 33 32 29 3a 67 24  3d c4 35 2c bd 33 32 29  |,.32):g$=.5,.32)|
00000170  0d 01 36 25 ef 32 33 2c  32 32 34 2c 32 38 2c 34  |..6%.23,224,28,4|
00000180  38 2c 36 32 2c 32 30 2c  32 38 2c 36 30 2c 31 32  |8,62,20,28,60,12|
00000190  36 2c 31 38 39 0d 01 40  26 ef 32 33 2c 32 32 35  |6,189..@&.23,225|
000001a0  2c 31 38 39 2c 36 30 2c  32 34 2c 32 34 2c 35 36  |,189,60,24,24,56|
000001b0  2c 31 30 34 2c 32 30 30  2c 37 36 0d 01 4a 24 ef  |,104,200,76..J$.|
000001c0  32 33 2c 32 32 36 2c 31  38 39 2c 36 30 2c 32 34  |23,226,189,60,24|
000001d0  2c 32 34 2c 32 38 2c 32  33 2c 31 38 2c 32 34 0d  |,24,28,23,18,24.|
000001e0  01 54 25 20 ef 32 33 2c  32 32 37 2c 31 38 39 2c  |.T% .23,227,189,|
000001f0  36 30 2c 32 34 2c 32 34  2c 32 38 2c 32 33 2c 31  |60,24,24,28,23,1|
00000200  38 2c 34 38 0d 01 5e 26  ef 32 33 2c 32 32 38 2c  |8,48..^&.23,228,|
00000210  31 38 39 2c 36 30 2c 32  34 2c 32 34 2c 35 36 2c  |189,60,24,24,56,|
00000220  31 30 34 2c 32 30 30 2c  38 38 0d 01 68 24 ef 32  |104,200,88..h$.2|
00000230  33 2c 32 32 39 2c 32 38  2c 36 2c 36 32 2c 32 30  |3,229,28,6,62,20|
00000240  2c 32 38 2c 36 30 2c 31  32 36 2c 31 38 39 0d 01  |,28,60,126,189..|
00000250  72 27 ef 32 33 2c 32 34  30 2c 36 30 2c 39 30 2c  |r'.23,240,60,90,|
00000260  31 32 36 2c 36 30 2c 33  36 2c 31 32 36 2c 32 35  |126,60,36,126,25|
00000270  35 2c 31 38 39 0d 01 7c  28 ef 32 33 2c 32 34 33  |5,189..|(.23,243|
00000280  2c 32 35 35 2c 31 32 39  2c 32 35 35 2c 31 32 39  |,255,129,255,129|
00000290  2c 36 36 2c 33 36 2c 32  34 2c 32 35 35 0d 01 86  |,66,36,24,255...|
000002a0  27 ef 32 33 2c 32 34 34  2c 30 2c 31 32 37 2c 31  |'.23,244,0,127,1|
000002b0  32 37 2c 31 32 37 2c 31  32 37 2c 31 32 37 2c 31  |27,127,127,127,1|
000002c0  32 37 2c 30 0d 01 90 2b  ef 32 33 2c 32 34 35 2c  |27,0...+.23,245,|
000002d0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
000002e0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 0d  |255,255,255,255.|
000002f0  01 9a 2b ef 32 33 2c 32  34 36 2c 30 2c 31 32 35  |..+.23,246,0,125|
00000300  2c 31 32 36 2c 31 32 36  2c 31 32 36 2c 31 32 36  |,126,126,126,126|
00000310  2c 31 32 36 2c 31 32 36  2c 30 0d 01 a4 27 ef 32  |,126,126,0...'.2|
00000320  33 2c 32 34 37 2c 30 2c  32 33 31 2c 32 33 31 2c  |3,247,0,231,231,|
00000330  32 33 31 2c 32 33 31 2c  32 33 31 2c 32 33 31 2c  |231,231,231,231,|
00000340  30 0d 01 ae 26 ef 32 33  2c 32 34 38 2c 31 38 39  |0...&.23,248,189|
00000350  2c 31 38 39 2c 36 30 2c  33 36 2c 33 36 2c 33 36  |,189,60,36,36,36|
00000360  2c 33 36 2c 31 30 32 0d  01 b8 26 ef 32 33 2c 32  |,36,102...&.23,2|
00000370  34 39 2c 31 31 39 2c 33  34 2c 33 34 2c 31 32 37  |49,119,34,34,127|
00000380  2c 31 32 37 2c 36 35 2c  36 35 2c 39 39 0d 01 c2  |,127,65,65,99...|
00000390  2a ef 32 33 2c 32 35 30  2c 31 38 39 2c 32 31 39  |*.23,250,189,219|
000003a0  2c 32 35 35 2c 31 38 39  2c 31 36 35 2c 32 35 35  |,255,189,165,255|
000003b0  2c 32 35 35 2c 36 30 0d  01 cc 24 ef 32 33 2c 32  |,255,60...$.23,2|
000003c0  35 31 2c 36 30 2c 36 30  2c 36 30 2c 33 36 2c 33  |51,60,60,60,36,3|
000003d0  36 2c 33 36 2c 33 36 2c  31 30 32 0d 01 d6 29 e2  |6,36,36,102...).|
000003e0  31 2c 33 2c 30 2c 32 2c  30 2c 30 2c 32 35 35 2c  |1,3,0,2,0,0,255,|
000003f0  30 2c 31 32 37 2c 30 2c  30 2c 2d 31 32 37 2c 38  |0,127,0,0,-127,8|
00000400  30 2c 38 30 0d 01 e0 15  52 24 3d 64 24 2b bd 31  |0,80....R$=d$+.1|
00000410  3a 59 24 3d 64 24 2b bd  32 0d 01 ea 0c 57 24 3d  |:Y$=d$+.2....W$=|
00000420  64 24 2b bd 33 0d 01 f4  1c 4d 24 3d 57 24 2b bd  |d$+.3....M$=W$+.|
00000430  32 34 30 2b 62 24 2b 61  24 2b 52 24 2b bd 32 34  |240+b$+a$+R$+.24|
00000440  38 0d 01 fe 2a 4d 4a 24  3d 62 24 2b 65 24 2b 61  |8...*MJ$=b$+e$+a|
00000450  24 2b 63 24 2b 52 24 2b  bd 32 35 31 2b 61 24 2b  |$+c$+R$+.251+a$+|
00000460  63 24 2b 57 24 2b bd 32  35 30 20 0d 02 08 29 4d  |c$+W$+.250 ...)M|
00000470  4b 24 3d 63 24 2b 65 24  2b 62 24 2b 61 24 2b 57  |K$=c$+e$+b$+a$+W|
00000480  24 2b bd 32 34 30 2b 61  24 2b 62 24 2b 52 24 2b  |$+.240+a$+b$+R$+|
00000490  bd 32 34 38 0d 02 12 20  66 24 3d 65 24 2b 57 24  |.248... f$=e$+W$|
000004a0  2b bd 32 32 34 2b 62 24  2b 61 24 2b 61 24 2b 65  |+.224+b$+a$+a$+e|
000004b0  24 2b 52 24 0d 02 1c 15  4d 41 4e 24 28 31 2c 30  |$+R$....MAN$(1,0|
000004c0  29 3d 66 24 2b bd 32 32  35 0d 02 26 15 4d 41 4e  |)=f$+.225..&.MAN|
000004d0  24 28 31 2c 31 29 3d 66  24 2b bd 32 32 36 0d 02  |$(1,1)=f$+.226..|
000004e0  30 26 66 24 3d 65 24 2b  61 24 2b 61 24 2b 57 24  |0&f$=e$+a$+a$+W$|
000004f0  2b bd 32 32 39 2b 62 24  2b 65 24 2b 61 24 2b 61  |+.229+b$+e$+a$+a|
00000500  24 2b 52 24 0d 02 3a 15  4d 41 4e 24 28 30 2c 30  |$+R$..:.MAN$(0,0|
00000510  29 3d 66 24 2b bd 32 32  37 0d 02 44 15 4d 41 4e  |)=f$+.227..D.MAN|
00000520  24 28 30 2c 31 29 3d 66  24 2b bd 32 32 38 0d 02  |$(0,1)=f$+.228..|
00000530  4e 29 66 24 3d 62 24 2b  65 24 2b 63 24 2b 61 24  |N)f$=b$+e$+c$+a$|
00000540  2b 65 24 2b 52 24 3a 67  24 3d 61 24 2b 63 24 2b  |+e$+R$:g$=a$+c$+|
00000550  57 24 2b bd 32 32 34 0d  02 58 18 4d 41 4e 24 28  |W$+.224..X.MAN$(|
00000560  33 2c 30 29 3d 66 24 2b  bd 32 32 35 2b 67 24 0d  |3,0)=f$+.225+g$.|
00000570  02 62 18 4d 41 4e 24 28  33 2c 31 29 3d 66 24 2b  |.b.MAN$(3,1)=f$+|
00000580  bd 32 32 36 2b 67 24 0d  02 6c 23 66 24 3d 65 24  |.226+g$..l#f$=e$|
00000590  2b 61 24 2b 62 24 2b 65  24 2b 57 24 2b bd 32 32  |+a$+b$+e$+W$+.22|
000005a0  34 2b 61 24 2b 62 24 2b  52 24 0d 02 76 15 4d 41  |4+a$+b$+R$..v.MA|
000005b0  4e 24 28 35 2c 30 29 3d  66 24 2b bd 32 32 35 0d  |N$(5,0)=f$+.225.|
000005c0  02 80 15 4d 41 4e 24 28  35 2c 31 29 3d 66 24 2b  |...MAN$(5,1)=f$+|
000005d0  bd 32 32 36 0d 02 8a 2f  66 24 3d 62 24 2b 65 24  |.226.../f$=b$+e$|
000005e0  2b 63 24 2b 61 24 2b 65  24 2b 61 24 2b 61 24 2b  |+c$+a$+e$+a$+a$+|
000005f0  52 24 3a 67 24 3d 61 24  2b 63 24 2b 57 24 2b bd  |R$:g$=a$+c$+W$+.|
00000600  32 32 39 0d 02 94 19 20  4d 41 4e 24 28 32 2c 30  |229.... MAN$(2,0|
00000610  29 3d 66 24 2b bd 32 32  37 2b 67 24 0d 02 9e 18  |)=f$+.227+g$....|
00000620  4d 41 4e 24 28 32 2c 31  29 3d 66 24 2b bd 32 32  |MAN$(2,1)=f$+.22|
00000630  38 2b 67 24 0d 02 a8 29  66 24 3d 65 24 2b 61 24  |8+g$...)f$=e$+a$|
00000640  2b 62 24 2b 65 24 2b 61  24 2b 61 24 2b 57 24 2b  |+b$+e$+a$+a$+W$+|
00000650  bd 32 32 39 2b 61 24 2b  62 24 2b 52 24 0d 02 b2  |.229+a$+b$+R$...|
00000660  15 4d 41 4e 24 28 34 2c  30 29 3d 66 24 2b bd 32  |.MAN$(4,0)=f$+.2|
00000670  32 37 0d 02 bc 15 4d 41  4e 24 28 34 2c 31 29 3d  |27....MAN$(4,1)=|
00000680  66 24 2b bd 32 32 38 0d  02 c6 1c 42 24 3d 52 24  |f$+.228....B$=R$|
00000690  2b bd 32 34 39 2b 61 24  2b 62 24 2b 59 24 2b bd  |+.249+a$+b$+Y$+.|
000006a0  32 34 34 0d 02 d0 18 54  4c 24 3d 65 24 2b 61 24  |244....TL$=e$+a$|
000006b0  2b 61 24 2b 52 24 2b bd  32 34 39 0d 02 da 12 54  |+a$+R$+.249....T|
000006c0  52 24 3d 65 24 2b 52 24  2b bd 32 34 39 0d 02 e4  |R$=e$+R$+.249...|
000006d0  1c 42 4c 24 3d 54 4c 24  2b 61 24 2b 62 24 2b 59  |.BL$=TL$+a$+b$+Y|
000006e0  24 2b bd 32 34 34 2b 65  24 0d 02 ee 1f 42 52 24  |$+.244+e$....BR$|
000006f0  3d 54 52 24 2b 61 24 2b  61 24 2b 62 24 2b 65 24  |=TR$+a$+a$+b$+e$|
00000700  2b 59 24 2b bd 32 34 34  0d 02 f8 18 42 44 24 3d  |+Y$+.244....BD$=|
00000710  59 24 2b 65 24 2b 61 24  2b 62 24 2b bd 32 34 34  |Y$+e$+a$+b$+.244|
00000720  0d 03 02 2f 57 41 4c 4c  24 3d bd 32 34 36 2b bd  |.../WALL$=.246+.|
00000730  32 34 36 2b 63 24 2b 61  24 2b 61 24 2b bd 32 34  |246+c$+a$+a$+.24|
00000740  37 2b bd 32 34 37 2b 63  24 2b 61 24 2b 61 24 0d  |7+.247+c$+a$+a$.|
00000750  03 0c 0f 48 49 25 3d 30  3a 53 43 25 3d 30 0d 03  |...HI%=0:SC%=0..|
00000760  16 05 e1 0d 03 20 05 3a  0d 03 2a 0c dd f2 73 65  |..... .:..*...se|
00000770  74 75 70 20 0d 03 34 1f  ef 32 33 2c 31 3b 30 3b  |tup ..4..23,1;0;|
00000780  30 3b 30 3b 30 3b 3a ef  32 39 2c 36 34 30 3b 35  |0;0;0;:.29,640;5|
00000790  31 32 3b 0d 03 3e 17 e7  20 48 49 25 3c 53 43 25  |12;..>.. HI%<SC%|
000007a0  20 8c 20 48 49 25 3d 53  43 25 0d 03 48 19 48 25  | . HI%=SC%..H.H%|
000007b0  3d 34 3a 4e 25 3d 31 3a  4d 25 3d 30 3a 4d 45 4e  |=4:N%=1:M%=0:MEN|
000007c0  25 3d 33 0d 03 52 17 53  43 25 3d a4 73 63 28 48  |%=3..R.SC%=.sc(H|
000007d0  25 29 3a 53 43 54 25 3d  30 20 0d 03 5c 06 e1 20  |%):SCT%=0 ..\.. |
000007e0  0d 03 66 05 3a 0d 03 70  0d dd f2 73 63 72 65 65  |..f.:..p...scree|
000007f0  6e 20 0d 03 7a 08 db 3a  fb 31 0d 03 84 2e f1 8a  |n ..z..:.1......|
00000800  30 2c 30 29 22 48 20 22  3b 48 49 25 3b 8a 39 29  |0,0)"H ";HI%;.9)|
00000810  3b 22 53 20 22 3b 53 43  25 3b 8a 31 37 29 22 4d  |;"S ";SC%;.17)"M|
00000820  20 22 3b 4d 45 4e 25 20  0d 03 8e 06 fb 32 0d 03  | ";MEN% .....2..|
00000830  98 0f 67 24 3d c4 32 2c  bd 32 34 33 29 0d 03 a2  |..g$=.2,.243)...|
00000840  12 f1 8a 30 2c 31 29 c4  31 30 2c 67 24 29 3b 0d  |...0,1).10,g$);.|
00000850  03 ac 16 f1 8a 30 2c 36  29 67 24 20 8a 31 38 2c  |.....0,6)g$ .18,|
00000860  36 29 67 24 3b 0d 03 b6  1e f1 8a 30 2c 32 39 2d  |6)g$;......0,29-|
00000870  48 25 29 67 24 20 8a 31  38 2c 32 39 2d 48 25 29  |H%)g$ .18,29-H%)|
00000880  67 24 3b 0d 03 c0 18 fb  32 3a f1 8a 30 2c 33 30  |g$;.....2:..0,30|
00000890  29 c4 32 30 2c bd 32 34  35 29 3b 0d 03 ca 16 f1  |).20,.245);.....|
000008a0  8a 30 2c 33 30 29 c4 32  30 2c bd 32 34 35 29 3b  |.0,30).20,.245);|
000008b0  20 0d 03 d4 0b fb 31 33  31 3a fb 31 0d 03 de 13  | .....131:.1....|
000008c0  67 24 3d c4 48 25 2f 32  2c 57 41 4c 4c 24 29 0d  |g$=.H%/2,WALL$).|
000008d0  03 e8 0f 20 f1 8a 30 2c  32 39 29 67 24 3b 0d 03  |... ..0,29)g$;..|
000008e0  f2 0f f1 8a 31 38 2c 32  39 29 67 24 3b 0d 03 fc  |....18,29)g$;...|
000008f0  08 fb 31 32 38 0d 04 06  0f 20 e3 20 4a 25 3d 30  |..128.... . J%=0|
00000900  b8 33 31 20 0d 04 10 0d  e3 20 49 25 3d 30 b8 31  |.31 ..... I%=0.1|
00000910  39 0d 04 1a 27 e7 20 4a  25 3d 33 30 20 8c 20 53  |9...'. J%=30 . S|
00000920  25 28 49 25 2c 4a 25 29  3d 32 20 8b 20 53 25 28  |%(I%,J%)=2 . S%(|
00000930  49 25 2c 4a 25 29 3d 30  0d 04 24 0b ed 20 49 25  |I%,J%)=0..$.. I%|
00000940  2c 4a 25 0d 04 2e 1d 20  42 25 3d 32 38 3a 41 25  |,J%.... B%=28:A%|
00000950  3d 31 30 3a 4e 47 25 3d  a3 3a 65 6e 64 25 3d a3  |=10:NG%=.:end%=.|
00000960  0d 04 38 0e f1 8a 41 25  2c 42 25 29 4d 24 0d 04  |..8...A%,B%)M$..|
00000970  42 20 59 25 3d 33 3a e7  20 b3 28 32 29 3d 31 20  |B Y%=3:. .(2)=1 |
00000980  8c 20 58 25 3d 30 20 8b  20 58 25 3d 31 39 0d 04  |. X%=0 . X%=19..|
00000990  4c 05 e1 0d 04 56 05 3a  0d 04 60 07 dd f2 6d 0d  |L....V.:..`...m.|
000009a0  04 6a 18 e7 20 4d 25 3d  30 20 8c 20 4d 25 3d 31  |.j.. M%=0 . M%=1|
000009b0  20 8b 20 4d 25 3d 30 0d  04 74 1a e7 20 53 25 28  | . M%=0..t.. S%(|
000009c0  41 25 2c 42 25 29 3c 3e  30 20 8c 20 f2 6e 67 3a  |A%,B%)<>0 . .ng:|
000009d0  e1 0d 04 7e 12 e7 20 64  65 6d 6f 25 20 8c 20 8d  |...~.. demo% . .|
000009e0  74 5c 44 0d 04 88 1a e7  20 a6 2d 32 36 20 8c 20  |t\D..... .-26 . |
000009f0  e7 20 41 25 3e 32 20 8c  20 8d 64 6c 44 0d 04 92  |. A%>2 . .dlD...|
00000a00  1c e7 20 a6 2d 31 32 32  20 8c 20 e7 20 41 25 3c  |.. .-122 . . A%<|
00000a10  31 37 20 8c 20 8d 74 7a  44 0d 04 9c 1d e7 20 ac  |17 . .tzD..... .|
00000a20  20 64 65 6d 6f 25 20 8c  20 f1 8a 41 25 2c 42 25  | demo% . ..A%,B%|
00000a30  29 4d 24 3b 3a e1 0d 04  a6 24 e7 20 59 25 3c 3d  |)M$;:....$. Y%<=|
00000a40  33 20 84 20 58 25 3c 3e  41 25 20 8c 20 f1 8a 41  |3 . X%<>A% . ..A|
00000a50  25 2c 42 25 29 4d 24 3b  3a e1 0d 04 b0 12 e7 20  |%,B%)M$;:...... |
00000a60  41 25 3d 31 30 20 8c 20  8d 64 6c 44 0d 04 ba 18  |A%=10 . .dlD....|
00000a70  e7 20 53 25 28 41 25 2b  31 2c 42 25 29 3c 3e 30  |. S%(A%+1,B%)<>0|
00000a80  20 8c 20 e1 0d 04 c4 41  20 e7 20 53 25 28 41 25  | . ....A . S%(A%|
00000a90  2b 31 2c 42 25 2b 31 29  3d 32 20 8c 20 f1 8a 41  |+1,B%+1)=2 . ..A|
00000aa0  25 2c 42 25 29 4d 41 4e  24 28 33 2c 4d 25 29 3a  |%,B%)MAN$(3,M%):|
00000ab0  41 25 3d 41 25 2b 31 3a  42 25 3d 42 25 2d 31 3a  |A%=A%+1:B%=B%-1:|
00000ac0  e5 8d 54 54 45 0d 04 ce  38 e7 20 53 25 28 41 25  |..TTE...8. S%(A%|
00000ad0  2b 31 2c 42 25 2b 32 29  3d 32 20 8c 20 f1 8a 41  |+1,B%+2)=2 . ..A|
00000ae0  25 2c 42 25 29 4d 41 4e  24 28 31 2c 4d 25 29 3a  |%,B%)MAN$(1,M%):|
00000af0  41 25 3d 41 25 2b 31 3a  e5 8d 54 54 45 0d 04 d8  |A%=A%+1:..TTE...|
00000b00  40 e7 20 53 25 28 41 25  2b 31 2c 42 25 2b 33 29  |@. S%(A%+1,B%+3)|
00000b10  3d 32 20 8c 20 f1 8a 41  25 2c 42 25 29 4d 41 4e  |=2 . ..A%,B%)MAN|
00000b20  24 28 35 2c 4d 25 29 3a  41 25 3d 41 25 2b 31 3a  |$(5,M%):A%=A%+1:|
00000b30  42 25 3d 42 25 2b 31 3a  e5 8d 54 54 45 0d 04 e2  |B%=B%+1:..TTE...|
00000b40  05 e1 0d 04 ec 19 20 e7  20 53 25 28 41 25 2d 31  |...... . S%(A%-1|
00000b50  2c 42 25 29 3c 3e 30 20  8c 20 e1 0d 04 f6 40 e7  |,B%)<>0 . ....@.|
00000b60  20 53 25 28 41 25 2d 31  2c 42 25 2b 31 29 3d 32  | S%(A%-1,B%+1)=2|
00000b70  20 8c 20 f1 8a 41 25 2c  42 25 29 4d 41 4e 24 28  | . ..A%,B%)MAN$(|
00000b80  32 2c 4d 25 29 3a 41 25  3d 41 25 2d 31 3a 42 25  |2,M%):A%=A%-1:B%|
00000b90  3d 42 25 2d 31 3a e5 8d  54 54 45 0d 05 00 39 20  |=B%-1:..TTE...9 |
00000ba0  e7 20 53 25 28 41 25 2d  31 2c 42 25 2b 32 29 3d  |. S%(A%-1,B%+2)=|
00000bb0  32 20 8c 20 f1 8a 41 25  2c 42 25 29 4d 41 4e 24  |2 . ..A%,B%)MAN$|
00000bc0  28 30 2c 4d 25 29 3a 41  25 3d 41 25 2d 31 3a e5  |(0,M%):A%=A%-1:.|
00000bd0  8d 54 54 45 0d 05 0a 3a  e7 20 53 25 28 41 25 2d  |.TTE...:. S%(A%-|
00000be0  31 2c 42 25 2b 33 29 3d  32 20 8c 20 f1 8a 41 25  |1,B%+3)=2 . ..A%|
00000bf0  2c 42 25 29 4d 41 4e 24  28 34 2c 4d 25 29 3a 41  |,B%)MAN$(4,M%):A|
00000c00  25 3d 41 25 2d 31 3a 42  25 3d 42 25 2b 31 0d 05  |%=A%-1:B%=B%+1..|
00000c10  14 1a e7 20 53 25 28 41  25 2c 42 25 29 3c 3e 30  |... S%(A%,B%)<>0|
00000c20  20 8c 20 f2 6e 67 3a e1  0d 05 1e 17 e7 20 42 25  | . .ng:...... B%|
00000c30  3d 32 37 2d 48 25 20 8c  20 f2 77 69 6e 3a e1 0d  |=27-H% . .win:..|
00000c40  05 28 05 e1 0d 05 32 05  3a 0d 05 3c 08 dd f2 6e  |.(....2.:..<...n|
00000c50  67 0d 05 46 1c 65 6e 64  25 3d b9 3a 4e 47 25 3d  |g..F.end%=.:NG%=|
00000c60  b9 3a 4d 45 4e 25 3d 4d  45 4e 25 2d 31 0d 05 50  |.:MEN%=MEN%-1..P|
00000c70  1c d4 26 30 30 31 31 2c  30 2c 30 2c 30 3a d4 30  |..&0011,0,0,0:.0|
00000c80  2c 2d 31 35 2c 35 2c 31  32 0d 05 5a 09 f2 62 6f  |,-15,5,12..Z..bo|
00000c90  6e 6b 0d 05 64 05 e1 0d  05 6e 05 3a 0d 05 78 0b  |nk..d....n.:..x.|
00000ca0  dd f2 64 28 54 25 29 0d  05 82 0b 54 25 3d 91 2b  |..d(T%)....T%=.+|
00000cb0  54 25 0d 05 8c 0d f5 20  fd 20 91 20 3e 54 25 0d  |T%..... . . >T%.|
00000cc0  05 96 05 e1 0d 05 a0 05  3a 0d 05 aa 09 dd f2 77  |........:......w|
00000cd0  69 6e 0d 05 b4 2c e7 20  53 25 28 58 25 2c 59 25  |in...,. S%(X%,Y%|
00000ce0  29 3d 31 20 8c 20 f1 8a  58 25 2c 59 25 29 65 24  |)=1 . ..X%,Y%)e$|
00000cf0  3b 3a d4 26 30 30 31 31  2c 30 2c 30 2c 30 0d 05  |;:.&0011,0,0,0..|
00000d00  be 0f f1 8a 41 25 2c 42  25 29 4d 24 3b 0d 05 c8  |....A%,B%)M$;...|
00000d10  0d 65 6e 64 25 3d b9 3a  fb 32 0d 05 d2 19 e7 20  |.end%=.:.2..... |
00000d20  41 25 3d 32 20 84 20 41  25 3d 31 37 20 8c 20 8d  |A%=2 . A%=17 . .|
00000d30  64 70 45 0d 05 dc 09 44  25 3d 41 25 0d 05 e6 79  |dpE....D%=A%...y|
00000d40  e7 20 41 25 3c 39 20 8c  20 e3 20 43 25 3d 32 20  |. A%<9 . . C%=2 |
00000d50  b8 20 41 25 2d 31 3a f1  8a 43 25 2c 42 25 2b 32  |. A%-1:..C%,B%+2|
00000d60  29 bd 32 34 33 3a d4 32  2c 2d 31 30 2c 31 30 30  |).243:.2,-10,100|
00000d70  2c 31 3a f2 64 28 31 35  29 3a ed 20 8b 20 e3 20  |,1:.d(15):. . . |
00000d80  43 25 3d 31 37 20 b8 20  41 25 2b 31 20 88 2d 31  |C%=17 . A%+1 .-1|
00000d90  3a f1 8a 43 25 2c 42 25  2b 32 29 bd 32 34 33 3a  |:..C%,B%+2).243:|
00000da0  d4 32 2c 2d 31 30 2c 31  30 30 2c 31 3a f2 64 28  |.2,-10,100,1:.d(|
00000db0  31 35 29 3a ed 0d 05 f0  52 f5 20 e7 20 41 25 3c  |15):....R. . A%<|
00000dc0  39 20 f1 8a 41 25 2c 42  25 29 4d 41 4e 24 28 30  |9 ..A%,B%)MAN$(0|
00000dd0  2c 4d 25 29 3a f2 64 28  31 35 29 3a 41 25 3d 41  |,M%):.d(15):A%=A|
00000de0  25 2d 31 20 8b 20 f1 8a  41 25 2c 42 25 29 4d 41  |%-1 . ..A%,B%)MA|
00000df0  4e 24 28 31 2c 4d 25 29  3a f2 64 28 31 35 29 3a  |N$(1,M%):.d(15):|
00000e00  41 25 3d 41 25 2b 31 0d  05 fa 19 20 e7 20 4d 25  |A%=A%+1.... . M%|
00000e10  3d 30 20 8c 20 4d 25 3d  31 20 8b 20 4d 25 3d 30  |=0 . M%=1 . M%=0|
00000e20  0d 06 04 12 fd 20 41 25  3d 31 20 84 20 41 25 3d  |..... A%=1 . A%=|
00000e30  31 38 0d 06 0e 19 e7 20  44 25 3d 32 20 84 20 44  |18..... D%=2 . D|
00000e40  25 3d 31 37 20 8c 20 8d  44 4a 46 0d 06 18 12 fb  |%=17 . .DJF.....|
00000e50  32 3a f1 8a 41 25 2c 42  25 29 4d 24 3b 0d 06 22  |2:..A%,B%)M$;.."|
00000e60  77 20 e7 20 44 25 3c 39  20 8c 20 e3 20 43 25 3d  |w . D%<9 . . C%=|
00000e70  44 25 2d 31 20 b8 20 32  20 88 20 2d 31 3a f1 8a  |D%-1 . 2 . -1:..|
00000e80  43 25 2c 42 25 2b 32 29  65 24 3a d4 32 2c 2d 31  |C%,B%+2)e$:.2,-1|
00000e90  30 2c 31 30 30 2c 31 3a  f2 64 28 31 35 29 3a ed  |0,100,1:.d(15):.|
00000ea0  20 8b 20 e3 20 43 25 3d  44 25 2b 31 20 b8 20 31  | . . C%=D%+1 . 1|
00000eb0  37 3a f1 8a 43 25 2c 42  25 2b 32 29 65 24 3a d4  |7:..C%,B%+2)e$:.|
00000ec0  32 2c 2d 31 30 2c 31 30  30 2c 31 3a f2 64 28 31  |2,-10,100,1:.d(1|
00000ed0  35 29 3a ed 0d 06 2c 0b  fb 30 3a fb 31 33 31 0d  |5):...,..0:.131.|
00000ee0  06 36 31 e7 20 41 25 3d  31 20 f1 8a 33 2c 42 25  |.61. A%=1 ..3,B%|
00000ef0  2d 31 29 22 59 49 50 50  45 45 22 20 8b 20 f1 8a  |-1)"YIPPEE" . ..|
00000f00  31 31 2c 42 25 2d 31 29  22 59 49 50 50 45 45 22  |11,B%-1)"YIPPEE"|
00000f10  0d 06 40 08 fb 31 32 38  0d 06 4a 4e e3 20 49 25  |..@..128..JN. I%|
00000f20  3d 31 20 b8 20 31 30 3a  f1 8a 41 25 2c 42 25 29  |=1 . 10:..A%,B%)|
00000f30  4d 4a 24 3b 3a d4 30 2c  2d 31 35 2c 34 2c 31 3a  |MJ$;:.0,-15,4,1:|
00000f40  f2 64 28 38 29 3a f1 8a  41 25 2c 42 25 29 4d 4b  |.d(8):..A%,B%)MK|
00000f50  24 3b 3a d4 30 2c 2d 31  35 2c 36 2c 31 3a f2 64  |$;:.0,-15,6,1:.d|
00000f60  28 38 29 3a ed 20 0d 06  54 29 e7 20 41 25 3d 31  |(8):. ..T). A%=1|
00000f70  20 f1 8a 33 2c 42 25 2d  31 29 89 28 36 29 20 8b  | ..3,B%-1).(6) .|
00000f80  20 f1 8a 31 31 2c 42 25  2d 31 29 89 28 36 29 0d  | ..11,B%-1).(6).|
00000f90  06 5e 0b f2 64 28 31 35  30 29 0d 06 68 05 e1 0d  |.^..d(150)..h...|
00000fa0  06 72 05 3a 0d 06 7c 08  dd f2 62 6c 0d 06 86 11  |.r.:..|...bl....|
00000fb0  e7 20 59 25 3d 33 20 8c  20 8d 64 74 46 0d 06 90  |. Y%=3 . .dtF...|
00000fc0  11 e7 20 54 25 3e 39 20  8c 20 8d 74 64 46 0d 06  |.. T%>9 . .tdF..|
00000fd0  9a 34 e7 20 54 25 3e 30  20 f1 8a 54 25 2c 32 29  |.4. T%>0 ..T%,2)|
00000fe0  54 4c 24 3a 54 25 3d 54  25 2d 31 3a e5 8d 74 6e  |TL$:T%=T%-1:..tn|
00000ff0  46 20 8b 20 f1 8a 30 2c  32 29 65 24 3a e5 8d 74  |F . ..0,2)e$:..t|
00001000  6e 46 0d 06 a4 2a e7 20  54 25 3c 31 39 20 f1 8a  |nF...*. T%<19 ..|
00001010  54 25 2c 32 29 54 52 24  3a 54 25 3d 54 25 2b 31  |T%,2)TR$:T%=T%+1|
00001020  20 8b 20 f1 8a 31 39 2c  32 29 65 24 0d 06 ae 44  | . ..19,2)e$...D|
00001030  f1 8a 58 25 2c 59 25 29  42 44 24 3a 53 25 28 58  |..X%,Y%)BD$:S%(X|
00001040  25 2c 59 25 29 3d 30 3a  59 25 3d 59 25 2b 31 3a  |%,Y%)=0:Y%=Y%+1:|
00001050  53 25 28 58 25 2c 59 25  29 3d 31 3a e7 20 53 25  |S%(X%,Y%)=1:. S%|
00001060  28 58 25 2c 59 25 2b 31  29 3c 3e 32 20 8c 20 e1  |(X%,Y%+1)<>2 . .|
00001070  0d 06 b8 0f 53 25 28 58  25 2c 59 25 29 3d 32 0d  |....S%(X%,Y%)=2.|
00001080  06 c2 1b d4 26 30 30 31  31 2c 30 2c 30 2c 30 3a  |....&0011,0,0,0:|
00001090  d4 30 2c 2d 31 35 2c 34  2c 31 0d 06 cc 1e e7 20  |.0,-15,4,1..... |
000010a0  54 25 3c 3e 30 20 80 20  54 25 3c 3e 31 39 20 59  |T%<>0 . T%<>19 Y|
000010b0  25 3d 59 25 2d 31 3a e1  0d 06 d6 1c e7 20 b3 28  |%=Y%-1:...... .(|
000010c0  31 29 3e 2e 35 20 8c 20  58 25 3d 31 39 20 8b 20  |1)>.5 . X%=19 . |
000010d0  58 25 3d 30 0d 06 e0 26  53 43 25 3d 53 43 25 2d  |X%=0...&SC%=SC%-|
000010e0  31 30 3a f1 8a 31 31 2c  30 29 89 28 35 29 8a 31  |10:..11,0).(5).1|
000010f0  31 2c 30 29 52 24 3b 53  43 25 0d 06 ea 15 59 25  |1,0)R$;SC%....Y%|
00001100  3d 33 3a f1 8a 58 25 2c  32 29 42 24 3b 3a e1 0d  |=3:..X%,2)B$;:..|
00001110  06 f4 0f d4 32 2c 2d 31  30 2c 36 30 2c 31 0d 06  |....2,-10,60,1..|
00001120  fe 1e e7 20 28 41 25 3d  58 25 20 80 20 b3 28 31  |... (A%=X% . .(1|
00001130  29 3e 2e 35 29 20 8c 20  8d 54 70 47 0d 07 08 12  |)>.5) . .TpG....|
00001140  e7 20 64 65 6d 6f 25 20  8c 20 8d 54 5c 47 0d 07  |. demo% . .T\G..|
00001150  12 23 e7 20 94 28 41 25  2d 58 25 29 3c 32 20 8c  |.#. .(A%-X%)<2 .|
00001160  20 e7 20 b3 28 31 29 3e  2e 38 20 8c 20 8d 54 70  | . .(1)>.8 . .Tp|
00001170  47 0d 07 1c 35 e7 20 41  25 3c 58 25 20 8c 20 f1  |G...5. A%<X% . .|
00001180  8a 58 25 2c 32 29 42 4c  24 3a 58 25 3d 58 25 2d  |.X%,2)BL$:X%=X%-|
00001190  31 20 8b 20 f1 8a 58 25  2c 32 29 42 52 24 3a 58  |1 . ..X%,2)BR$:X|
000011a0  25 3d 58 25 2b 31 0d 07  26 05 e1 0d 07 30 14 e7  |%=X%+1..&....0..|
000011b0  20 58 25 3c 32 20 84 20  58 25 3e 31 37 20 e1 0d  | X%<2 . X%>17 ..|
000011c0  07 3a 1b 54 25 3d 58 25  3a d4 31 2c 31 2c 33 35  |.:.T%=X%:.1,1,35|
000011d0  30 2c 39 30 3a e5 8d 74  6e 46 0d 07 44 05 3a 0d  |0,90:..tnF..D.:.|
000011e0  07 4e 0a dd f2 67 61 6d  65 0d 07 58 34 e7 20 4e  |.N...game..X4. N|
000011f0  47 25 20 80 20 4d 45 4e  25 3d 30 20 8c 20 f2 6c  |G% . MEN%=0 . .l|
00001200  6f 73 74 3a f2 73 65 74  75 70 3a e1 20 8b 20 e7  |ost:.setup:. . .|
00001210  20 4e 47 25 20 8c 20 f2  63 6e 67 3a e1 0d 07 62  | NG% . .cng:...b|
00001220  13 4e 25 3d 4e 25 2b 31  3a 48 25 3d 48 25 2b 32  |.N%=N%+1:H%=H%+2|
00001230  0d 07 6c 1c e7 20 48 25  3d 31 38 20 8c 20 f2 6f  |..l.. H%=18 . .o|
00001240  76 65 72 3a f2 73 65 74  75 70 3a e1 0d 07 76 08  |ver:.setup:...v.|
00001250  f2 63 63 67 0d 07 80 05  e1 0d 07 8a 05 3a 0d 07  |.ccg.........:..|
00001260  94 18 dd 20 a4 73 63 28  48 25 29 3d 31 36 30 2a  |... .sc(H%)=160*|
00001270  28 48 25 2b 31 29 0d 07  9e 05 3a 0d 07 a8 13 dd  |(H%+1)....:.....|
00001280  20 f2 72 3a f5 20 fd 20  a6 2d 37 34 3a e1 0d 07  | .r:. . .-74:...|
00001290  b2 05 3a 0d 07 bc 0f dd  f2 73 65 74 75 70 75 73  |..:......setupus|
000012a0  65 72 0d 07 c6 17 ef 31  39 2c 31 2c 33 3b 30 3b  |er.....19,1,3;0;|
000012b0  31 39 2c 30 2c 34 3b 30  3b 0d 07 d0 21 f1 8a 31  |19,0,4;0;...!..1|
000012c0  30 2c 33 29 22 42 20 4c  20 4f 20 43 20 4b 20 20  |0,3)"B L O C K  |
000012d0  42 20 4c 20 49 20 54 20  5a 22 0d 07 da 13 f1 8a  |B L I T Z"......|
000012e0  31 30 2c 34 29 c4 32 30  2c 22 3d 22 29 0d 07 e4  |10,4).20,"=")...|
000012f0  af f1 8a 30 2c 37 29 22  20 20 59 6f 75 20 68 61  |...0,7)"  You ha|
00001300  76 65 20 62 65 65 6e 20  69 6d 70 72 69 73 6f 6e  |ve been imprison|
00001310  65 64 20 62 79 20 74 68  65 20 65 76 69 6c 22 27  |ed by the evil"'|
00001320  22 44 72 2e 20 58 20 69  6e 20 61 6e 20 65 76 65  |"Dr. X in an eve|
00001330  72 20 64 65 65 70 65 72  20 73 65 72 69 65 73 20  |r deeper series |
00001340  6f 66 20 22 27 22 63 61  76 65 72 6e 73 2e 20 54  |of "'"caverns. T|
00001350  6f 20 61 64 64 20 74 6f  20 79 6f 75 72 20 70 72  |o add to your pr|
00001360  6f 62 6c 65 6d 73 2c 20  74 68 65 79 22 27 22 61  |oblems, they"'"a|
00001370  72 65 20 62 65 69 6e 67  20 66 69 6c 6c 65 64 20  |re being filled |
00001380  77 69 74 68 20 62 6c 6f  63 6b 73 20 61 69 6d 65  |with blocks aime|
00001390  64 22 27 22 61 74 20 79  6f 75 21 22 0d 07 ee a0  |d"'"at you!"....|
000013a0  f1 27 27 22 20 48 6f 77  65 76 65 72 20 69 66 20  |.''" However if |
000013b0  79 6f 75 20 63 61 6e 20  72 65 61 63 68 20 74 68  |you can reach th|
000013c0  65 20 6c 65 76 65 6c 20  6f 66 22 27 22 74 68 65  |e level of"'"the|
000013d0  20 62 72 69 63 6b 20 73  69 64 65 73 20 62 79 20  | brick sides by |
000013e0  73 74 61 6e 64 69 6e 67  20 6f 6e 20 74 68 65 22  |standing on the"|
000013f0  27 22 62 6c 6f 63 6b 73  20 79 6f 75 20 63 61 6e  |'"blocks you can|
00001400  20 65 73 63 61 70 65 20  66 72 6f 6d 20 65 61 63  | escape from eac|
00001410  68 20 63 61 76 65 72 6e  22 27 22 61 6e 64 20 65  |h cavern"'"and e|
00001420  76 65 6e 74 75 61 6c 6c  79 20 66 72 6f 6d 20 61  |ventually from a|
00001430  6c 6c 20 6f 66 20 74 68  65 6d 2e 22 0d 07 f8 76  |ll of them."...v|
00001440  f1 27 27 22 20 20 59 6f  75 20 6d 6f 76 65 20 62  |.''"  You move b|
00001450  79 20 75 73 69 6e 67 20  74 68 65 20 6c 65 66 74  |y using the left|
00001460  20 61 6e 64 20 72 69 67  68 74 22 27 22 63 75 72  | and right"'"cur|
00001470  73 6f 72 20 6b 65 79 73  20 62 75 74 20 79 6f 75  |sor keys but you|
00001480  20 63 61 6e 20 6f 6e 6c  79 20 6c 65 61 70 20 75  | can only leap u|
00001490  70 22 27 22 61 6e 64 20  64 6f 77 6e 20 6f 6e 65  |p"'"and down one|
000014a0  20 62 6c 6f 63 6b 20 61  74 20 61 20 74 69 6d 65  | block at a time|
000014b0  2e 22 0d 08 02 0b 2a 66  78 31 35 2c 30 0d 08 0c  |."....*fx15,0...|
000014c0  27 f1 27 27 22 20 20 44  6f 20 79 6f 75 20 77 61  |'.''"  Do you wa|
000014d0  6e 74 20 61 20 64 65 6d  6f 20 3f 20 28 59 2f 4e  |nt a demo ? (Y/N|
000014e0  29 20 22 3b 0d 08 16 3c  49 4b 24 3d be 3a e7 20  |) ";...<IK$=.:. |
000014f0  49 4b 24 3d 22 59 22 20  8c 20 64 65 6d 6f 25 3d  |IK$="Y" . demo%=|
00001500  b9 20 8b 20 e7 20 49 4b  24 3d 22 4e 22 20 8c 20  |. . . IK$="N" . |
00001510  64 65 6d 6f 25 3d a3 20  8b 20 e5 20 8d 54 56 48  |demo%=. . . .TVH|
00001520  0d 08 20 05 e1 0d 08 2a  05 3a 0d 08 34 09 dd f2  |.. ....*.:..4...|
00001530  63 6e 67 0d 08 3e 11 53  43 25 3d 53 43 54 25 3a  |cng..>.SC%=SCT%:|
00001540  db 3a fb 32 0d 08 48 31  20 f1 8a 34 2c 35 29 22  |.:.2..H1 ..4,5)"|
00001550  4f 48 20 44 45 41 52 20  21 22 8a 34 2c 37 29 22  |OH DEAR !".4,7)"|
00001560  59 4f 55 20 4c 4f 53 54  22 8a 34 2c 39 29 22 41  |YOU LOST".4,9)"A|
00001570  20 4d 41 4e 22 0d 08 52  1b 20 f2 73 63 74 61 62  | MAN"..R. .sctab|
00001580  3a 53 43 25 3d 53 43 25  2b a4 73 63 28 48 25 29  |:SC%=SC%+.sc(H%)|
00001590  0d 08 5c 05 e1 0d 08 66  05 3a 0d 08 70 09 dd f2  |..\....f.:..p...|
000015a0  63 63 67 0d 08 7a 11 53  43 54 25 3d 53 43 25 3a  |ccg..z.SCT%=SC%:|
000015b0  db 3a fb 32 0d 08 84 2c  f1 8a 32 2c 35 29 22 4e  |.:.2...,..2,5)"N|
000015c0  45 58 54 20 2d 2d 3e 22  8a 32 2c 38 29 22 43 41  |EXT -->".2,8)"CA|
000015d0  56 45 52 4e 20 4e 55 4d  42 45 52 20 22 3b 4e 25  |VERN NUMBER ";N%|
000015e0  0d 08 8e 1a f2 73 63 74  61 62 3a 53 43 25 3d 53  |.....sctab:SC%=S|
000015f0  43 25 2b a4 73 63 28 48  25 29 0d 08 98 05 e1 0d  |C%+.sc(H%)......|
00001600  08 a2 05 3a 0d 08 ac 0b  dd f2 73 63 74 61 62 0d  |...:......sctab.|
00001610  08 b6 11 ef 31 39 2c 31  2c 36 2c 30 2c 30 2c 30  |....19,1,6,0,0,0|
00001620  0d 08 c0 06 fb 31 0d 08  ca 1d f1 8a 34 2c 31 34  |.....1......4,14|
00001630  29 22 4d 45 4e 2e 2e 2e  2e 2e 2e 2e 2e 22 3b 4d  |)"MEN........";M|
00001640  45 4e 25 0d 08 d4 1c f1  8a 34 2c 31 36 29 22 53  |EN%......4,16)"S|
00001650  43 4f 52 45 2e 2e 2e 2e  2e 2e 22 3b 53 43 25 0d  |CORE......";SC%.|
00001660  08 de 1c f1 8a 34 2c 31  38 29 22 48 49 53 43 4f  |.....4,18)"HISCO|
00001670  52 45 2e 2e 2e 2e 22 3b  48 49 25 0d 08 e8 22 fb  |RE....";HI%...".|
00001680  32 3a f1 8a 31 2c 32 38  29 22 52 45 54 55 52 4e  |2:..1,28)"RETURN|
00001690  20 54 4f 20 43 4f 4e 54  49 4e 55 45 22 0d 08 f2  | TO CONTINUE"...|
000016a0  1f f1 8a 31 2c 32 38 29  22 52 45 54 55 52 4e 20  |...1,28)"RETURN |
000016b0  54 4f 20 43 4f 4e 54 49  4e 55 45 22 0d 08 fc 14  |TO CONTINUE"....|
000016c0  f2 72 3a ef 31 39 2c 31  2c 31 2c 30 2c 30 2c 30  |.r:.19,1,1,0,0,0|
000016d0  0d 09 06 05 e1 0d 09 10  05 3a 0d 09 1a 0a dd f2  |.........:......|
000016e0  6f 76 65 72 0d 09 24 08  db 3a fb 32 0d 09 2e 18  |over..$..:.2....|
000016f0  53 43 25 3d 53 43 25 2b  4d 45 4e 25 2a a4 73 63  |SC%=SC%+MEN%*.sc|
00001700  28 31 38 29 0d 09 38 54  f1 8a 32 2c 33 29 22 43  |(18)..8T..2,3)"C|
00001710  4f 4e 47 52 41 54 55 4c  41 54 49 4f 4e 53 22 8a  |ONGRATULATIONS".|
00001720  32 2c 36 29 22 59 4f 55  20 48 41 56 45 20 45 53  |2,6)"YOU HAVE ES|
00001730  43 41 50 45 44 22 8a 32  2c 38 29 22 46 52 4f 4d  |CAPED".2,8)"FROM|
00001740  20 41 4c 4c 22 8a 32 2c  31 30 29 22 54 48 45 20  | ALL".2,10)"THE |
00001750  43 41 56 45 52 4e 53 22  0d 09 42 0a f2 73 63 74  |CAVERNS"..B..sct|
00001760  61 62 0d 09 4c 05 e1 0d  09 56 05 3a 0d 09 60 0a  |ab..L....V.:..`.|
00001770  dd f2 6c 6f 73 74 0d 09  6a 11 db 3a fb 32 3a 53  |..lost..j..:.2:S|
00001780  43 25 3d 53 43 54 25 0d  09 74 34 f1 8a 34 2c 34  |C%=SCT%..t4..4,4|
00001790  29 22 47 41 4e 45 20 4f  56 45 52 22 8a 34 2c 36  |)"GANE OVER".4,6|
000017a0  29 22 59 4f 55 20 52 41  4e 20 4f 55 54 22 8a 34  |)"YOU RAN OUT".4|
000017b0  2c 38 29 22 4f 46 20 4d  45 4e 22 0d 09 7e 0a f2  |,8)"OF MEN"..~..|
000017c0  73 63 74 61 62 0d 09 88  05 e1 0d 09 92 05 3a 0d  |sctab.........:.|
000017d0  09 9c 0a dd f2 62 6f 6e  6b 0d 09 a6 05 db 0d 09  |.....bonk.......|
000017e0  b0 7a 20 e3 20 58 25 3d  31 35 30 20 b8 20 35 30  |.z . X%=150 . 50|
000017f0  30 20 88 35 30 3a e6 30  2c 31 3a ec 58 25 2c 58  |0 .50:.0,1:.X%,X|
00001800  25 3a df 58 25 2c 2d 58  25 3a df 2d 58 25 2c 2d  |%:.X%,-X%:.-X%,-|
00001810  58 25 3a df 2d 58 25 2c  58 25 3a df 58 25 2c 58  |X%:.-X%,X%:.X%,X|
00001820  25 3a 58 25 3d 58 25 2b  35 30 3a e6 30 2c 32 3a  |%:X%=X%+50:.0,2:|
00001830  ec 58 25 2c 58 25 3a df  58 25 2c 2d 58 25 3a df  |.X%,X%:.X%,-X%:.|
00001840  2d 58 25 2c 2d 58 25 3a  df 2d 58 25 2c 58 25 3a  |-X%,-X%:.-X%,X%:|
00001850  df 58 25 2c 58 25 3a ed  0d 09 ba 18 fb 33 3a f1  |.X%,X%:......3:.|
00001860  8a 36 2c 31 35 29 22 42  20 4f 20 4e 20 4b 21 22  |.6,15)"B O N K!"|
00001870  0d 09 c4 53 e3 20 49 25  3d 31 20 b8 20 38 3a ef  |...S. I%=1 . 8:.|
00001880  31 39 2c 31 2c 33 2c 30  2c 30 2c 30 2c 31 39 2c  |19,1,3,0,0,0,19,|
00001890  32 2c 31 2c 30 2c 30 2c  30 2c 3a f2 64 28 38 29  |2,1,0,0,0,:.d(8)|
000018a0  3a ef 31 39 2c 31 2c 31  2c 30 2c 30 2c 30 2c 31  |:.19,1,1,0,0,0,1|
000018b0  39 2c 32 2c 33 2c 30 2c  30 2c 30 3a f2 64 28 38  |9,2,3,0,0,0:.d(8|
000018c0  29 3a ed 0d 09 ce 05 e1  0d ff                    |):........|
000018ca

G/Blitz.m0

G/Blitz.m1

G/Blitz.m2

G/Blitz.m4

G/Blitz.m5

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