Home » Archimedes archive » Acorn Computing » 1995 01 subscription disc.adf » 9501s » PD/!BLCKHEART/BLACKHEART

PD/!BLCKHEART/BLACKHEART

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

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

Tape/disk: Home » Archimedes archive » Acorn Computing » 1995 01 subscription disc.adf » 9501s
Filename: PD/!BLCKHEART/BLACKHEART
Read OK:
File size: 160D bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
   10REM >BlackHeart
   20REM An Arcade Adventure
   30REM Collect the Treasures and Kill The Badies
   40REM Use Keys to open doors, or chests
   50:
   60IF PAGE<>&3A000 THEN PAGE=&3A000:CHAIN"Blackheart"
   70SYS"Sound_Configure",8
   80ON ERROR REPORT:PRINT" at line ";ERL:END
   90PROCinit
  100PROCass
  110!screen1%=scrn1%
  120!screen2%=scrn2%
  130ON ERROR IF ERR<>17 THEN MODE12:REPORT:PRINT" at line ";ERL:END
  140REPEAT
  150PROCoptions
  160IF NOT quit% THEN
  170A%=passlev%:CALL gameinit
  180REPEAT
  190PROCpanel(1):PROCpanel(2)
  200!blkbase%=objs%+(!level%-1)*4096
  210FORI%=0 TO 2044 STEP 4:map%!I%=map2%!(I%+(!level%-1)*2048):NEXT I%
  220RESTORE 250:c%=0
  230FORI%=0 TO 252 STEP 4:IF c%=0 THEN READc%,v%
  240c%-=1:I%!badcalc%=v%*16:NEXT
  250DATA 32,0,4,1,4,2,4,3,4,4,4,5,4,6,8,7
  260FORI%=0 TO 2044 STEP 4:bad%!I%=0:NEXT
  270CALL levelinit
  280*FX112,1
  290*FX113,1
  300!screen%=scrn2%
  310CALL screen
  320CALL plotplayer
  330!screen%=scrn1%
  340GCOL 0 TINT 192:RECTANGLE FILL 156,428,712,132
  350GCOL63 TINT 192:RECTANGLE 160,432,704,124
  360VDU5
  370MOVE 432,540:PRINT"Level"
  380MOVE 480,512:PRINTRIGHT$("0"+STR$!level%,2)
  390MOVE 512-16*(11+LEN($passwd%)),512-32:PRINT"Password - ";$passwd%
  400VDU4
  410TIME=0:REPEATUNTILTIME=400 OR INKEY(-129)<>255
  420REPEAT
  430TIME=0:CALL game:REPEATUNTILTIME>=7
  440UNTIL !lives%=0 OR !completed%
  450IF !completed% THEN PROCendoflevel
  460!level%+=1:IF !level%=9 AND !lives%<>0 THEN PROCcompleted ELSE SOUND 2,383,&1000,1
  470UNTIL !lives%=0 OR !level%=9
  480IF !score%>hi%(8) THEN PROCenterscore
  490ENDIF
  500UNTIL quit%
  510MODE 12
  520END
  530:
  540DEF PROCinit
  550*FX200,2
  560DIM blk% 16:!blk%=149:blk%!4=-1
  570MODE 13+128:SYS "OS_ReadVduVariables",blk%,blk%+8:scrn1%=blk%!8
  580MODE 13:SYS"OS_ReadVduVariables",blk%,blk%+8:scrn2%=blk%!8
  590SYS "OS_RemoveCursors"
  600VDU23,17,7,6,16;16|
  610VDU5:GCOL0,3
  620MOVE 448,768:PRINT"Castle"
  630GCOL0,60
  640MOVE 320,672:PRINT"Blackheart"
  650VDU4
  660COLOUR15
  670PRINTTAB(19,16)"is"
  680VDU5
  690GCOL0,63
  700MOVE 412,464:PRINT"Loading"
  710VDU4
  720PRINTTAB(10,30)"by James Watson 1991";
  730DIM hi%(9),h$(9),l$(10)
  740RESTORE 760
  750FORI%=1 TO 8:READ h$(I%):hi%(I%)=1100-(I%*100):NEXT I%
  760DATA "James Watson"," aka Dudley","  presents"," an arcade"," Adventure","   for the"
  770DATA "   Acorn"," Archimedes"
  780quit%=FALSE
  790ENDPROC
  800:
  810DEF PROCoptions
  820REPEAT
  830MODE 13
  840SYS "OS_RemoveCursors"
  850PROCdisptitle
  860passlev%=1
  870REPEAT:UNTILINKEY-99OR INKEY-56
  880*FX21
  890IF INKEY-56 THEN REPEATUNTILNOT INKEY-56:OSCLI"FX21":passlev%=USR password
  900UNTIL passlev%<9
  910ENDPROC
  920:
  930DEF PROCpanel(scrn%)
  940SYS"OS_Byte",112,scrn%
  950A%=EVAL("scrn"+STR$(3-scrn%)+"%")
  960CALL panelplot
  970VDU5
  980GCOL0,0 TINT 0
  990MOVE 1056,1020-32*11:PRINTRIGHT$("00000"+STR$hi%(1),6)
 1000VDU4
 1010COLOUR0 TINT 0:COLOUR191 TINT 0
 1020CALL updatestat
 1030VDU4
 1040ENDPROC
 1050:
 1060DEF PROCendoflevel
 1070*FX112,1
 1080*FX113,1
 1090GCOL0,0 TINT 0:RECTANGLE FILL 348,428,324,164
 1100GCOL0,63:RECTANGLE 352,432,316,156
 1110MOVE 432,572:VDU5:PRINT"Level"
 1120MOVE 480,540:PRINTRIGHT$("0"+STR$!level%,2)
 1130MOVE 368,480:PRINT"Completed":VDU4
 1140TIME=0:REPEATUNTILTIME=300
 1150ENDPROC
 1160:
 1170DEF PROCenterscore
 1180*FX21
 1190*FX112,1
 1200*FX113,1
 1210GCOL0,0 TINT 0:RECTANGLE FILL 12,396,996,212
 1220GCOL0,63 TINT 192:RECTANGLE 16,400,988,204
 1230GCOL0,51 TINT 192:COLOUR15 TINT 192
 1240VDU5
 1250MOVE 272,592:PRINT"Congratulations"
 1260GCOL0,15
 1270MOVE 32,528:PRINT"You Have attained a High Score"
 1280MOVE 272,496:PRINT"Enter your name"
 1290VDU4
 1300COLOUR128 TINT 0
 1310PRINTTAB(9,18)"'............'";TAB(10,18);
 1320n$=""
 1330SYS"OS_RestoreCursors"
 1340REPEAT
 1350A$=GET$
 1360COLOUR51 TINT 192
 1370IF INSTR(" 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",A$) AND LEN(n$)<12 THEN n$+=A$:PRINTA$;
 1380COLOUR15
 1390IF (A$=CHR$127 OR A$=CHR$8) AND LEN(n$)>0 THEN n$=LEFT$(n$,LEN(n$)-1):VDU8,ASC".",8
 1400UNTILA$=CHR$13
 1410SYS"OS_RemoveCursors"
 1420hi%(9)=!score%:h$(9)=n$
 1430FORI%=8 TO 1 STEP -1:IF hi%(I%+1)>hi%(I%) THEN SWAP hi%(I%+1),hi%(I%):SWAP h$(I%),h$(I%+1)
 1440NEXT I%
 1450ENDPROC
 1460:
 1470DEF PROCcompleted
 1480LOCAL x%,y%
 1490COLOUR128 TINT 192
 1500RESTORE 1530
 1510*FX112,2
 1520*FX113,2
 1530DATA "As you decend the stairs you"
 1540DATA "Find yourself in a Small"
 1550DATA "Chamber, tied against the"
 1560DATA "Opposite Wall is your fiance"
 1570DATA "You Set about freeing her, and"
 1580FORI%=1 TO 5:READ l$(I%):NEXT
 1590IF !scroll%=16 THEN RESTORE 1600 ELSE RESTORE 1650
 1600DATA "as you read the final words on"
 1610DATA "the Scroll the world around you"
 1620DATA "Vanishes and is replaced by"
 1630DATA "Green Fields. You are free"
 1640DATA "to get married in peace."
 1650DATA "just as you release the last"
 1660DATA "bonds holding her a mass of"
 1670DATA "guards enter, grab you and"
 1680DATA "take you off to a deep pit,"
 1690DATA "and drop you in........."
 1700FOR I%=6 TO 10:READ l$(I%):NEXT I%
 1710FORI%=1 TO 10
 1720VDU23,17,7,6,8;8|
 1730y%=834-(I%-1)*64
 1740x%=512-LEN(l$(I%))*16
 1750MOVE x%,y%:VDU5
 1760FORA%=1 TO LEN(l$(I%))
 1770TIME=0:C%=ASC(MID$(l$(I%),A%,1))
 1780GCOL0,0 TINT 0
 1790MOVE BY -4,-4:VDUC%:MOVE BY -28,0:VDUC%:MOVE BY -28,0:VDU C%
 1800MOVE BY -40,4:VDUC%:MOVE BY -28,0:VDUC%:MOVE BY -28,0:VDU C%
 1810MOVE BY -40,4:VDUC%:MOVE BY -28,0:VDUC%:MOVE BY -28,0:VDU C%
 1820MOVE BY -36,-4:GCOL0,63 TINT 192:VDUC%
 1830REPEATUNTILTIME=10
 1840NEXT A%
 1850VDU4
 1860NEXT I%
 1870IF !scroll%<>16 THEN SOUND 2,383,&1000,1
 1880TIME=0
 1890REPEATUNTILTIME>300
 1900ENDPROC
 1910:
 1920DEF FNvdu(x%,y%,c%)
 1930[OPT I%:EQUB 31:EQUB x%:EQUB y%:EQUB c%:]:=I%
 1940:
 1950DEF FNb16(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,m%,n%,o%,p%)
 1960?P%=a%:P%?1=b%:P%?2=c%:P%?3=d%:P%?4=e%:P%?5=f%:P%?6=g%:P%?7=h%
 1970P%+=8
 1980?P%=i%:P%?1=j%:P%?2=k%:P%?3=l%:P%?4=m%:P%?5=n%:P%?6=o%:P%?7=p%
 1990P%+=8
 2000=I%
 2010:
 2020DEFPROCdisptitle
 2030CALL dispcastle
 2040VDU23,17,7,6,16;16|
 2050VDU5
 2060GCOL0,3TINT 192
 2070MOVE 448,992:PRINT"Castle"
 2080GCOL0,51TINT 192
 2090MOVE 320,896:PRINT"Blackheart"
 2100VDU 23,17,7,6,8;8|
 2110GCOL0,15TINT192
 2120FORI%=1 TO 8
 2130MOVE 304,512-I%*48
 2140PRINT;I%;" ";h$(I%);STRING$(13-LEN(h$(I%))," ");RIGHT$("00000"+STR$hi%(I%),6)
 2150NEXT I%
 2160GCOL 12:PRINTTAB(16,7)"Controls":GCOL51
 2170PRINTTAB(10,9)"Z - Left   X - Right"
 2180PRINTTAB(10,10)""" - Up     / -  Down"
 2190PRINTTAB(10,11)"   RETURN -   Fire"
 2200PRINTTAB(10,12)"   COPY   -  Pause"
 2210PRINTTAB(10,13)"   DELETE - Resume"
 2220PRINTTAB(10,14)"   ESCAPE -   Quit"
 2230VDU4:COLOUR63
 2240PRINTTAB(9,30)"Press SPACE to Play or";
 2250PRINTTAB(8,31)"or P to enter a Password";
 2260ENDPROC
 2270DEF PROCass
 2280SYS "OS_File",&10,"Blackcode",&9000
 2290lives%=&9580
 2300completed%=&9598
 2310level%=&954C
 2320score%=&958C
 2330passwd%=&9110
 2340screen%=&9570
 2350screen=&95DC
 2360plotplayer=&98C8
 2370levelinit=&905C
 2380badcalc%=&200F8
 2390blkbase%=&97C4
 2400gameinit=&9000
 2410game=&914C
 2420dispcastle=&2092C
 2430scroll%=&9588
 2440password=&206F8
 2450updatestat=&963C
 2460panelplot=&208F8
 2470map%=&A0F8
 2480map2%=&A8F8
 2490bad%=&1F8F8
 2500screen1%=&9574
 2510screen2%=&9578
 2520objs%=&178F8
 2530ENDPROC

� >BlackHeart
� An Arcade Adventure
/� Collect the Treasures and Kill The Badies
('� Use Keys to open doors, or chests
2:
<(� �<>&3A000 � �=&3A000:�"Blackheart"
Fș"Sound_Configure",8
P� � �:�" at line ";�:�
Z	�init
d�ass
n!screen1%=scrn1%
x!screen2%=scrn2%
�(� � � �<>17 � �12:�:�" at line ";�:�
��
��options
�� � quit% �
�A%=passlev%:� gameinit
��
��panel(1):�panel(2)
�$!blkbase%=objs%+(!level%-1)*4096
�=�I%=0 � 2044 � 4:map%!I%=map2%!(I%+(!level%-1)*2048):� I%
�� �dz@:c%=0
�#�I%=0 � 252 � 4:� c%=0 � �c%,v%
�c%-=1:I%!badcalc%=v%*16:�
�&� 32,0,4,1,4,2,4,3,4,4,4,5,4,6,8,7
 �I%=0 � 2044 � 4:bad%!I%=0:�
� levelinit
*FX112,1
"*FX113,1
,!screen%=scrn2%
6� screen
@� plotplayer
J!screen%=scrn1%
T$� 0 Ȝ 192:ȓ Ȑ 156,428,712,132
^!�63 Ȝ 192:ȓ 160,432,704,124
h�5
r� 432,540:�"Level"
|� 480,512:��"0"+�!level%,2)
�<� 512-16*(11+�($passwd%)),512-32:�"Password - ";$passwd%
��4
��=0:���=400 � �(-129)<>255
��
��=0:� game:���>=7
�� !lives%=0 � !completed%
�� !completed% � �endoflevel
�F!level%+=1:� !level%=9 � !lives%<>0 � �completed � � 2,383,&1000,1
�� !lives%=0 � !level%=9
�"� !score%>hi%(8) � �enterscore
��
�� quit%
�� 12
�
:
� �init
&*FX200,2
0!� blk% 16:!blk%=149:blk%!4=-1
:?� 13+128:ș "OS_ReadVduVariables",blk%,blk%+8:scrn1%=blk%!8
D:� 13:ș"OS_ReadVduVariables",blk%,blk%+8:scrn2%=blk%!8
Nș "OS_RemoveCursors"
X�23,17,7,6,16;16|
b�5:�0,3
l� 448,768:�"Castle"
v	�0,60
�� 320,672:�"Blackheart"
��4
��15
��19,16)"is"
��5
�	�0,63
�� 412,464:�"Loading"
��4
�#�10,30)"by James Watson 1991";
�� hi%(9),h$(9),l$(10)
�
� �dxB
�1�I%=1 � 8:� h$(I%):hi%(I%)=1100-(I%*100):� I%
�V� "James Watson"," aka Dudley","  presents"," an arcade"," Adventure","   for the"
� "   Acorn"," Archimedes"
quit%=�
�
 :
*� �options
4�
>� 13
Hș "OS_RemoveCursors"
R�disptitle
\passlev%=1
f�:��-99� �-56
p	*FX21
z1� �-56 � ��� �-56:�"FX21":passlev%=� password
�� passlev%<9
��
�:
�� �panel(scrn%)
�ș"OS_Byte",112,scrn%
�A%=�("scrn"+�(3-scrn%)+"%")
�� panelplot
��5
�
�0,0 Ȝ 0
�*� 1056,1020-32*11:��"00000"+�hi%(1),6)
��4
��0 Ȝ 0:�191 Ȝ 0
�� updatestat
�4
�
:
$� �endoflevel
.*FX112,1
8*FX113,1
B#�0,0 Ȝ 0:ȓ Ȑ 348,428,324,164
L�0,63:ȓ 352,432,316,156
V� 432,572:�5:�"Level"
`� 480,540:��"0"+�!level%,2)
j� 368,480:�"Completed":�4
t�=0:���=300
~�
�:
�� �enterscore
�	*FX21
�*FX112,1
�*FX113,1
�"�0,0 Ȝ 0:ȓ Ȑ 12,396,996,212
�"�0,63 Ȝ 192:ȓ 16,400,988,204
��0,51 Ȝ 192:�15 Ȝ 192
��5
� � 272,592:�"Congratulations"
�	�0,15
�.� 32,528:�"You Have attained a High Score"
 � 272,496:�"Enter your name"

�4

�128 Ȝ 0
$�9,18)"'............'";�10,18);
(	n$=""
2ș"OS_RestoreCursors"
<�
FA$=�
P�51 Ȝ 192
Ze� �" 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",A$) � �(n$)<12 � n$+=A$:�A$;
d�15
n=� (A$=�127 � A$=�8) � �(n$)>0 � n$=�n$,�(n$)-1):�8,�".",8
x�A$=�13
�ș"OS_RemoveCursors"
�hi%(9)=!score%:h$(9)=n$
�P�I%=8 � 1 � -1:� hi%(I%+1)>hi%(I%) � Ȕ hi%(I%+1),hi%(I%):Ȕ h$(I%),h$(I%+1)
�� I%
��
�:
�� �completed
�� x%,y%
��128 Ȝ 192
�
� �dzE
�*FX112,2
�*FX113,2
�$� "As you decend the stairs you"
 � "Find yourself in a Small"
!� "Chamber, tied against the"
$� "Opposite Wall is your fiance"
"&� "You Set about freeing her, and"
,�I%=1 � 5:� l$(I%):�
6#� !scroll%=16 � � �D@F � � �DrF
@&� "as you read the final words on"
J'� "the Scroll the world around you"
T#� "Vanishes and is replaced by"
^"� "Green Fields. You are free"
h � "to get married in peace."
r$� "just as you release the last"
|#� "bonds holding her a mass of"
�"� "guards enter, grab you and"
�#� "take you off to a deep pit,"
� � "and drop you in........."
�� I%=6 � 10:� l$(I%):� I%
��I%=1 � 10
��23,17,7,6,8;8|
�y%=834-(I%-1)*64
�x%=512-�(l$(I%))*16
�� x%,y%:�5
��A%=1 � �(l$(I%))
��=0:C%=�(�l$(I%),A%,1))
�
�0,0 Ȝ 0
�1� BY -4,-4:�C%:� BY -28,0:�C%:� BY -28,0:� C%
1� BY -40,4:�C%:� BY -28,0:�C%:� BY -28,0:� C%
1� BY -40,4:�C%:� BY -28,0:�C%:� BY -28,0:� C%
 � BY -36,-4:�0,63 Ȝ 192:�C%
&
���=10
0� A%
:�4
D� I%
N$� !scroll%<>16 � � 2,383,&1000,1
X�=0
b���>300
l�
v:
�� �vdu(x%,y%,c%)
�1[OPT I%:EQUB 31:EQUB x%:EQUB y%:EQUB c%:]:=I%
�:
�;� �b16(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,m%,n%,o%,p%)
�B?P%=a%:P%?1=b%:P%?2=c%:P%?3=d%:P%?4=e%:P%?5=f%:P%?6=g%:P%?7=h%
�	P%+=8
�B?P%=i%:P%?1=j%:P%?2=k%:P%?3=l%:P%?4=m%:P%?5=n%:P%?6=o%:P%?7=p%
�	P%+=8
�=I%
�:
���disptitle
�� dispcastle
��23,17,7,6,16;16|
�5
�0,3Ȝ 192
� 448,992:�"Castle"
 �0,51Ȝ 192
*� 320,896:�"Blackheart"
4� 23,17,7,6,8;8|
>�0,15Ȝ192
H
�I%=1 � 8
R� 304,512-I%*48
\;�;I%;" ";h$(I%);�13-�(h$(I%))," ");�"00000"+�hi%(I%),6)
f� I%
p� 12:�16,7)"Controls":�51
z!�10,9)"Z - Left   X - Right"
�#�10,10)""" - Up     / -  Down"
� �10,11)"   RETURN -   Fire"
� �10,12)"   COPY   -  Pause"
� �10,13)"   DELETE - Resume"
� �10,14)"   ESCAPE -   Quit"
�
�4:�63
�$�9,30)"Press SPACE to Play or";
�&�8,31)"or P to enter a Password";
��
�
� �ass
�&ș "OS_File",&10,"Blackcode",&9000
�lives%=&9580
�completed%=&9598
	level%=&954C
	score%=&958C
	passwd%=&9110
	$screen%=&9570
	.screen=&95DC
	8plotplayer=&98C8
	Blevelinit=&905C
	Lbadcalc%=&200F8
	Vblkbase%=&97C4
	`gameinit=&9000
	jgame=&914C
	tdispcastle=&2092C
	~scroll%=&9588
	�password=&206F8
	�updatestat=&963C
	�panelplot=&208F8
	�map%=&A0F8
	�map2%=&A8F8
	�bad%=&1F8F8
	�screen1%=&9574
	�screen2%=&9578
	�objs%=&178F8
	��
�
00000000  0d 00 0a 11 f4 20 3e 42  6c 61 63 6b 48 65 61 72  |..... >BlackHear|
00000010  74 0d 00 14 19 f4 20 41  6e 20 41 72 63 61 64 65  |t..... An Arcade|
00000020  20 41 64 76 65 6e 74 75  72 65 0d 00 1e 2f f4 20  | Adventure.../. |
00000030  43 6f 6c 6c 65 63 74 20  74 68 65 20 54 72 65 61  |Collect the Trea|
00000040  73 75 72 65 73 20 61 6e  64 20 4b 69 6c 6c 20 54  |sures and Kill T|
00000050  68 65 20 42 61 64 69 65  73 0d 00 28 27 f4 20 55  |he Badies..('. U|
00000060  73 65 20 4b 65 79 73 20  74 6f 20 6f 70 65 6e 20  |se Keys to open |
00000070  64 6f 6f 72 73 2c 20 6f  72 20 63 68 65 73 74 73  |doors, or chests|
00000080  0d 00 32 05 3a 0d 00 3c  28 e7 20 90 3c 3e 26 33  |..2.:..<(. .<>&3|
00000090  41 30 30 30 20 8c 20 d0  3d 26 33 41 30 30 30 3a  |A000 . .=&3A000:|
000000a0  d7 22 42 6c 61 63 6b 68  65 61 72 74 22 0d 00 46  |."Blackheart"..F|
000000b0  19 c8 99 22 53 6f 75 6e  64 5f 43 6f 6e 66 69 67  |..."Sound_Config|
000000c0  75 72 65 22 2c 38 0d 00  50 1a ee 20 85 20 f6 3a  |ure",8..P.. . .:|
000000d0  f1 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 3a e0  |." at line ";.:.|
000000e0  0d 00 5a 09 f2 69 6e 69  74 0d 00 64 08 f2 61 73  |..Z..init..d..as|
000000f0  73 0d 00 6e 14 21 73 63  72 65 65 6e 31 25 3d 73  |s..n.!screen1%=s|
00000100  63 72 6e 31 25 0d 00 78  14 21 73 63 72 65 65 6e  |crn1%..x.!screen|
00000110  32 25 3d 73 63 72 6e 32  25 0d 00 82 28 ee 20 85  |2%=scrn2%...(. .|
00000120  20 e7 20 9f 3c 3e 31 37  20 8c 20 eb 31 32 3a f6  | . .<>17 . .12:.|
00000130  3a f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 3a  |:." at line ";.:|
00000140  e0 0d 00 8c 05 f5 0d 00  96 0c f2 6f 70 74 69 6f  |...........optio|
00000150  6e 73 0d 00 a0 0f e7 20  ac 20 71 75 69 74 25 20  |ns..... . quit% |
00000160  8c 0d 00 aa 1a 41 25 3d  70 61 73 73 6c 65 76 25  |.....A%=passlev%|
00000170  3a d6 20 67 61 6d 65 69  6e 69 74 0d 00 b4 05 f5  |:. gameinit.....|
00000180  0d 00 be 17 f2 70 61 6e  65 6c 28 31 29 3a f2 70  |.....panel(1):.p|
00000190  61 6e 65 6c 28 32 29 0d  00 c8 24 21 62 6c 6b 62  |anel(2)...$!blkb|
000001a0  61 73 65 25 3d 6f 62 6a  73 25 2b 28 21 6c 65 76  |ase%=objs%+(!lev|
000001b0  65 6c 25 2d 31 29 2a 34  30 39 36 0d 00 d2 3d e3  |el%-1)*4096...=.|
000001c0  49 25 3d 30 20 b8 20 32  30 34 34 20 88 20 34 3a  |I%=0 . 2044 . 4:|
000001d0  6d 61 70 25 21 49 25 3d  6d 61 70 32 25 21 28 49  |map%!I%=map2%!(I|
000001e0  25 2b 28 21 6c 65 76 65  6c 25 2d 31 29 2a 32 30  |%+(!level%-1)*20|
000001f0  34 38 29 3a ed 20 49 25  0d 00 dc 0f f7 20 8d 64  |48):. I%..... .d|
00000200  7a 40 3a 63 25 3d 30 0d  00 e6 23 e3 49 25 3d 30  |z@:c%=0...#.I%=0|
00000210  20 b8 20 32 35 32 20 88  20 34 3a e7 20 63 25 3d  | . 252 . 4:. c%=|
00000220  30 20 8c 20 f3 63 25 2c  76 25 0d 00 f0 1d 63 25  |0 . .c%,v%....c%|
00000230  2d 3d 31 3a 49 25 21 62  61 64 63 61 6c 63 25 3d  |-=1:I%!badcalc%=|
00000240  76 25 2a 31 36 3a ed 0d  00 fa 26 dc 20 33 32 2c  |v%*16:....&. 32,|
00000250  30 2c 34 2c 31 2c 34 2c  32 2c 34 2c 33 2c 34 2c  |0,4,1,4,2,4,3,4,|
00000260  34 2c 34 2c 35 2c 34 2c  36 2c 38 2c 37 0d 01 04  |4,4,5,4,6,8,7...|
00000270  20 e3 49 25 3d 30 20 b8  20 32 30 34 34 20 88 20  | .I%=0 . 2044 . |
00000280  34 3a 62 61 64 25 21 49  25 3d 30 3a ed 0d 01 0e  |4:bad%!I%=0:....|
00000290  0f d6 20 6c 65 76 65 6c  69 6e 69 74 0d 01 18 0c  |.. levelinit....|
000002a0  2a 46 58 31 31 32 2c 31  0d 01 22 0c 2a 46 58 31  |*FX112,1..".*FX1|
000002b0  31 33 2c 31 0d 01 2c 13  21 73 63 72 65 65 6e 25  |13,1..,.!screen%|
000002c0  3d 73 63 72 6e 32 25 0d  01 36 0c d6 20 73 63 72  |=scrn2%..6.. scr|
000002d0  65 65 6e 0d 01 40 10 d6  20 70 6c 6f 74 70 6c 61  |een..@.. plotpla|
000002e0  79 65 72 0d 01 4a 13 21  73 63 72 65 65 6e 25 3d  |yer..J.!screen%=|
000002f0  73 63 72 6e 31 25 0d 01  54 24 e6 20 30 20 c8 9c  |scrn1%..T$. 0 ..|
00000300  20 31 39 32 3a c8 93 20  c8 90 20 31 35 36 2c 34  | 192:.. .. 156,4|
00000310  32 38 2c 37 31 32 2c 31  33 32 0d 01 5e 21 e6 36  |28,712,132..^!.6|
00000320  33 20 c8 9c 20 31 39 32  3a c8 93 20 31 36 30 2c  |3 .. 192:.. 160,|
00000330  34 33 32 2c 37 30 34 2c  31 32 34 0d 01 68 06 ef  |432,704,124..h..|
00000340  35 0d 01 72 16 ec 20 34  33 32 2c 35 34 30 3a f1  |5..r.. 432,540:.|
00000350  22 4c 65 76 65 6c 22 0d  01 7c 1f ec 20 34 38 30  |"Level"..|.. 480|
00000360  2c 35 31 32 3a f1 c2 22  30 22 2b c3 21 6c 65 76  |,512:.."0"+.!lev|
00000370  65 6c 25 2c 32 29 0d 01  86 3c ec 20 35 31 32 2d  |el%,2)...<. 512-|
00000380  31 36 2a 28 31 31 2b a9  28 24 70 61 73 73 77 64  |16*(11+.($passwd|
00000390  25 29 29 2c 35 31 32 2d  33 32 3a f1 22 50 61 73  |%)),512-32:."Pas|
000003a0  73 77 6f 72 64 20 2d 20  22 3b 24 70 61 73 73 77  |sword - ";$passw|
000003b0  64 25 0d 01 90 06 ef 34  0d 01 9a 1e d1 3d 30 3a  |d%.....4.....=0:|
000003c0  f5 fd 91 3d 34 30 30 20  84 20 a6 28 2d 31 32 39  |...=400 . .(-129|
000003d0  29 3c 3e 32 35 35 0d 01  a4 05 f5 0d 01 ae 15 d1  |)<>255..........|
000003e0  3d 30 3a d6 20 67 61 6d  65 3a f5 fd 91 3e 3d 37  |=0:. game:...>=7|
000003f0  0d 01 b8 1d fd 20 21 6c  69 76 65 73 25 3d 30 20  |..... !lives%=0 |
00000400  84 20 21 63 6f 6d 70 6c  65 74 65 64 25 0d 01 c2  |. !completed%...|
00000410  1f e7 20 21 63 6f 6d 70  6c 65 74 65 64 25 20 8c  |.. !completed% .|
00000420  20 f2 65 6e 64 6f 66 6c  65 76 65 6c 0d 01 cc 46  | .endoflevel...F|
00000430  21 6c 65 76 65 6c 25 2b  3d 31 3a e7 20 21 6c 65  |!level%+=1:. !le|
00000440  76 65 6c 25 3d 39 20 80  20 21 6c 69 76 65 73 25  |vel%=9 . !lives%|
00000450  3c 3e 30 20 8c 20 f2 63  6f 6d 70 6c 65 74 65 64  |<>0 . .completed|
00000460  20 8b 20 d4 20 32 2c 33  38 33 2c 26 31 30 30 30  | . . 2,383,&1000|
00000470  2c 31 0d 01 d6 1b fd 20  21 6c 69 76 65 73 25 3d  |,1..... !lives%=|
00000480  30 20 84 20 21 6c 65 76  65 6c 25 3d 39 0d 01 e0  |0 . !level%=9...|
00000490  22 e7 20 21 73 63 6f 72  65 25 3e 68 69 25 28 38  |". !score%>hi%(8|
000004a0  29 20 8c 20 f2 65 6e 74  65 72 73 63 6f 72 65 0d  |) . .enterscore.|
000004b0  01 ea 05 cd 0d 01 f4 0b  fd 20 71 75 69 74 25 0d  |......... quit%.|
000004c0  01 fe 08 eb 20 31 32 0d  02 08 05 e0 0d 02 12 05  |.... 12.........|
000004d0  3a 0d 02 1c 0b dd 20 f2  69 6e 69 74 0d 02 26 0c  |:..... .init..&.|
000004e0  2a 46 58 32 30 30 2c 32  0d 02 30 21 de 20 62 6c  |*FX200,2..0!. bl|
000004f0  6b 25 20 31 36 3a 21 62  6c 6b 25 3d 31 34 39 3a  |k% 16:!blk%=149:|
00000500  62 6c 6b 25 21 34 3d 2d  31 0d 02 3a 3f eb 20 31  |blk%!4=-1..:?. 1|
00000510  33 2b 31 32 38 3a c8 99  20 22 4f 53 5f 52 65 61  |3+128:.. "OS_Rea|
00000520  64 56 64 75 56 61 72 69  61 62 6c 65 73 22 2c 62  |dVduVariables",b|
00000530  6c 6b 25 2c 62 6c 6b 25  2b 38 3a 73 63 72 6e 31  |lk%,blk%+8:scrn1|
00000540  25 3d 62 6c 6b 25 21 38  0d 02 44 3a eb 20 31 33  |%=blk%!8..D:. 13|
00000550  3a c8 99 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |:.."OS_ReadVduVa|
00000560  72 69 61 62 6c 65 73 22  2c 62 6c 6b 25 2c 62 6c  |riables",blk%,bl|
00000570  6b 25 2b 38 3a 73 63 72  6e 32 25 3d 62 6c 6b 25  |k%+8:scrn2%=blk%|
00000580  21 38 0d 02 4e 19 c8 99  20 22 4f 53 5f 52 65 6d  |!8..N... "OS_Rem|
00000590  6f 76 65 43 75 72 73 6f  72 73 22 0d 02 58 15 ef  |oveCursors"..X..|
000005a0  32 33 2c 31 37 2c 37 2c  36 2c 31 36 3b 31 36 7c  |23,17,7,6,16;16||
000005b0  0d 02 62 0b ef 35 3a e6  30 2c 33 0d 02 6c 17 ec  |..b..5:.0,3..l..|
000005c0  20 34 34 38 2c 37 36 38  3a f1 22 43 61 73 74 6c  | 448,768:."Castl|
000005d0  65 22 0d 02 76 09 e6 30  2c 36 30 0d 02 80 1b ec  |e"..v..0,60.....|
000005e0  20 33 32 30 2c 36 37 32  3a f1 22 42 6c 61 63 6b  | 320,672:."Black|
000005f0  68 65 61 72 74 22 0d 02  8a 06 ef 34 0d 02 94 07  |heart".....4....|
00000600  fb 31 35 0d 02 9e 10 f1  8a 31 39 2c 31 36 29 22  |.15......19,16)"|
00000610  69 73 22 0d 02 a8 06 ef  35 0d 02 b2 09 e6 30 2c  |is".....5.....0,|
00000620  36 33 0d 02 bc 18 ec 20  34 31 32 2c 34 36 34 3a  |63..... 412,464:|
00000630  f1 22 4c 6f 61 64 69 6e  67 22 0d 02 c6 06 ef 34  |."Loading".....4|
00000640  0d 02 d0 23 f1 8a 31 30  2c 33 30 29 22 62 79 20  |...#..10,30)"by |
00000650  4a 61 6d 65 73 20 57 61  74 73 6f 6e 20 31 39 39  |James Watson 199|
00000660  31 22 3b 0d 02 da 19 de  20 68 69 25 28 39 29 2c  |1";..... hi%(9),|
00000670  68 24 28 39 29 2c 6c 24  28 31 30 29 0d 02 e4 0a  |h$(9),l$(10)....|
00000680  f7 20 8d 64 78 42 0d 02  ee 31 e3 49 25 3d 31 20  |. .dxB...1.I%=1 |
00000690  b8 20 38 3a f3 20 68 24  28 49 25 29 3a 68 69 25  |. 8:. h$(I%):hi%|
000006a0  28 49 25 29 3d 31 31 30  30 2d 28 49 25 2a 31 30  |(I%)=1100-(I%*10|
000006b0  30 29 3a ed 20 49 25 0d  02 f8 56 dc 20 22 4a 61  |0):. I%...V. "Ja|
000006c0  6d 65 73 20 57 61 74 73  6f 6e 22 2c 22 20 61 6b  |mes Watson"," ak|
000006d0  61 20 44 75 64 6c 65 79  22 2c 22 20 20 70 72 65  |a Dudley","  pre|
000006e0  73 65 6e 74 73 22 2c 22  20 61 6e 20 61 72 63 61  |sents"," an arca|
000006f0  64 65 22 2c 22 20 41 64  76 65 6e 74 75 72 65 22  |de"," Adventure"|
00000700  2c 22 20 20 20 66 6f 72  20 74 68 65 22 0d 03 02  |,"   for the"...|
00000710  1e dc 20 22 20 20 20 41  63 6f 72 6e 22 2c 22 20  |.. "   Acorn"," |
00000720  41 72 63 68 69 6d 65 64  65 73 22 0d 03 0c 0b 71  |Archimedes"....q|
00000730  75 69 74 25 3d a3 0d 03  16 05 e1 0d 03 20 05 3a  |uit%=........ .:|
00000740  0d 03 2a 0e dd 20 f2 6f  70 74 69 6f 6e 73 0d 03  |..*.. .options..|
00000750  34 05 f5 0d 03 3e 08 eb  20 31 33 0d 03 48 19 c8  |4....>.. 13..H..|
00000760  99 20 22 4f 53 5f 52 65  6d 6f 76 65 43 75 72 73  |. "OS_RemoveCurs|
00000770  6f 72 73 22 0d 03 52 0e  f2 64 69 73 70 74 69 74  |ors"..R..disptit|
00000780  6c 65 0d 03 5c 0e 70 61  73 73 6c 65 76 25 3d 31  |le..\.passlev%=1|
00000790  0d 03 66 11 f5 3a fd a6  2d 39 39 84 20 a6 2d 35  |..f..:..-99. .-5|
000007a0  36 0d 03 70 09 2a 46 58  32 31 0d 03 7a 31 e7 20  |6..p.*FX21..z1. |
000007b0  a6 2d 35 36 20 8c 20 f5  fd ac 20 a6 2d 35 36 3a  |.-56 . ... .-56:|
000007c0  ff 22 46 58 32 31 22 3a  70 61 73 73 6c 65 76 25  |."FX21":passlev%|
000007d0  3d ba 20 70 61 73 73 77  6f 72 64 0d 03 84 10 fd  |=. password.....|
000007e0  20 70 61 73 73 6c 65 76  25 3c 39 0d 03 8e 05 e1  | passlev%<9.....|
000007f0  0d 03 98 05 3a 0d 03 a2  13 dd 20 f2 70 61 6e 65  |....:..... .pane|
00000800  6c 28 73 63 72 6e 25 29  0d 03 ac 19 c8 99 22 4f  |l(scrn%)......"O|
00000810  53 5f 42 79 74 65 22 2c  31 31 32 2c 73 63 72 6e  |S_Byte",112,scrn|
00000820  25 0d 03 b6 1f 41 25 3d  a0 28 22 73 63 72 6e 22  |%....A%=.("scrn"|
00000830  2b c3 28 33 2d 73 63 72  6e 25 29 2b 22 25 22 29  |+.(3-scrn%)+"%")|
00000840  0d 03 c0 0f d6 20 70 61  6e 65 6c 70 6c 6f 74 0d  |..... panelplot.|
00000850  03 ca 06 ef 35 0d 03 d4  0d e6 30 2c 30 20 c8 9c  |....5.....0,0 ..|
00000860  20 30 0d 03 de 2a ec 20  31 30 35 36 2c 31 30 32  | 0...*. 1056,102|
00000870  30 2d 33 32 2a 31 31 3a  f1 c2 22 30 30 30 30 30  |0-32*11:.."00000|
00000880  22 2b c3 68 69 25 28 31  29 2c 36 29 0d 03 e8 06  |"+.hi%(1),6)....|
00000890  ef 34 0d 03 f2 15 fb 30  20 c8 9c 20 30 3a fb 31  |.4.....0 .. 0:.1|
000008a0  39 31 20 c8 9c 20 30 0d  03 fc 10 d6 20 75 70 64  |91 .. 0..... upd|
000008b0  61 74 65 73 74 61 74 0d  04 06 06 ef 34 0d 04 10  |atestat.....4...|
000008c0  05 e1 0d 04 1a 05 3a 0d  04 24 11 dd 20 f2 65 6e  |......:..$.. .en|
000008d0  64 6f 66 6c 65 76 65 6c  0d 04 2e 0c 2a 46 58 31  |doflevel....*FX1|
000008e0  31 32 2c 31 0d 04 38 0c  2a 46 58 31 31 33 2c 31  |12,1..8.*FX113,1|
000008f0  0d 04 42 23 e6 30 2c 30  20 c8 9c 20 30 3a c8 93  |..B#.0,0 .. 0:..|
00000900  20 c8 90 20 33 34 38 2c  34 32 38 2c 33 32 34 2c  | .. 348,428,324,|
00000910  31 36 34 0d 04 4c 1c e6  30 2c 36 33 3a c8 93 20  |164..L..0,63:.. |
00000920  33 35 32 2c 34 33 32 2c  33 31 36 2c 31 35 36 0d  |352,432,316,156.|
00000930  04 56 19 ec 20 34 33 32  2c 35 37 32 3a ef 35 3a  |.V.. 432,572:.5:|
00000940  f1 22 4c 65 76 65 6c 22  0d 04 60 1f ec 20 34 38  |."Level"..`.. 48|
00000950  30 2c 35 34 30 3a f1 c2  22 30 22 2b c3 21 6c 65  |0,540:.."0"+.!le|
00000960  76 65 6c 25 2c 32 29 0d  04 6a 1d ec 20 33 36 38  |vel%,2)..j.. 368|
00000970  2c 34 38 30 3a f1 22 43  6f 6d 70 6c 65 74 65 64  |,480:."Completed|
00000980  22 3a ef 34 0d 04 74 0f  d1 3d 30 3a f5 fd 91 3d  |":.4..t..=0:...=|
00000990  33 30 30 0d 04 7e 05 e1  0d 04 88 05 3a 0d 04 92  |300..~......:...|
000009a0  11 dd 20 f2 65 6e 74 65  72 73 63 6f 72 65 0d 04  |.. .enterscore..|
000009b0  9c 09 2a 46 58 32 31 0d  04 a6 0c 2a 46 58 31 31  |..*FX21....*FX11|
000009c0  32 2c 31 0d 04 b0 0c 2a  46 58 31 31 33 2c 31 0d  |2,1....*FX113,1.|
000009d0  04 ba 22 e6 30 2c 30 20  c8 9c 20 30 3a c8 93 20  |..".0,0 .. 0:.. |
000009e0  c8 90 20 31 32 2c 33 39  36 2c 39 39 36 2c 32 31  |.. 12,396,996,21|
000009f0  32 0d 04 c4 22 e6 30 2c  36 33 20 c8 9c 20 31 39  |2...".0,63 .. 19|
00000a00  32 3a c8 93 20 31 36 2c  34 30 30 2c 39 38 38 2c  |2:.. 16,400,988,|
00000a10  32 30 34 0d 04 ce 1b e6  30 2c 35 31 20 c8 9c 20  |204.....0,51 .. |
00000a20  31 39 32 3a fb 31 35 20  c8 9c 20 31 39 32 0d 04  |192:.15 .. 192..|
00000a30  d8 06 ef 35 0d 04 e2 20  ec 20 32 37 32 2c 35 39  |...5... . 272,59|
00000a40  32 3a f1 22 43 6f 6e 67  72 61 74 75 6c 61 74 69  |2:."Congratulati|
00000a50  6f 6e 73 22 0d 04 ec 09  e6 30 2c 31 35 0d 04 f6  |ons".....0,15...|
00000a60  2e ec 20 33 32 2c 35 32  38 3a f1 22 59 6f 75 20  |.. 32,528:."You |
00000a70  48 61 76 65 20 61 74 74  61 69 6e 65 64 20 61 20  |Have attained a |
00000a80  48 69 67 68 20 53 63 6f  72 65 22 0d 05 00 20 ec  |High Score"... .|
00000a90  20 32 37 32 2c 34 39 36  3a f1 22 45 6e 74 65 72  | 272,496:."Enter|
00000aa0  20 79 6f 75 72 20 6e 61  6d 65 22 0d 05 0a 06 ef  | your name".....|
00000ab0  34 0d 05 14 0d fb 31 32  38 20 c8 9c 20 30 0d 05  |4.....128 .. 0..|
00000ac0  1e 24 f1 8a 39 2c 31 38  29 22 27 2e 2e 2e 2e 2e  |.$..9,18)"'.....|
00000ad0  2e 2e 2e 2e 2e 2e 2e 27  22 3b 8a 31 30 2c 31 38  |.......'";.10,18|
00000ae0  29 3b 0d 05 28 09 6e 24  3d 22 22 0d 05 32 19 c8  |);..(.n$=""..2..|
00000af0  99 22 4f 53 5f 52 65 73  74 6f 72 65 43 75 72 73  |."OS_RestoreCurs|
00000b00  6f 72 73 22 0d 05 3c 05  f5 0d 05 46 08 41 24 3d  |ors"..<....F.A$=|
00000b10  be 0d 05 50 0e fb 35 31  20 c8 9c 20 31 39 32 0d  |...P..51 .. 192.|
00000b20  05 5a 65 e7 20 a7 22 20  30 31 32 33 34 35 36 37  |.Ze. ." 01234567|
00000b30  38 39 41 42 43 44 45 46  47 48 49 4a 4b 4c 4d 4e  |89ABCDEFGHIJKLMN|
00000b40  4f 50 51 52 53 54 55 56  57 58 59 5a 61 62 63 64  |OPQRSTUVWXYZabcd|
00000b50  65 66 67 68 69 6a 6b 6c  6d 6e 6f 70 71 72 73 74  |efghijklmnopqrst|
00000b60  75 76 77 78 79 7a 22 2c  41 24 29 20 80 20 a9 28  |uvwxyz",A$) . .(|
00000b70  6e 24 29 3c 31 32 20 8c  20 6e 24 2b 3d 41 24 3a  |n$)<12 . n$+=A$:|
00000b80  f1 41 24 3b 0d 05 64 07  fb 31 35 0d 05 6e 3d e7  |.A$;..d..15..n=.|
00000b90  20 28 41 24 3d bd 31 32  37 20 84 20 41 24 3d bd  | (A$=.127 . A$=.|
00000ba0  38 29 20 80 20 a9 28 6e  24 29 3e 30 20 8c 20 6e  |8) . .(n$)>0 . n|
00000bb0  24 3d c0 6e 24 2c a9 28  6e 24 29 2d 31 29 3a ef  |$=.n$,.(n$)-1):.|
00000bc0  38 2c 97 22 2e 22 2c 38  0d 05 78 0b fd 41 24 3d  |8,.".",8..x..A$=|
00000bd0  bd 31 33 0d 05 82 18 c8  99 22 4f 53 5f 52 65 6d  |.13......"OS_Rem|
00000be0  6f 76 65 43 75 72 73 6f  72 73 22 0d 05 8c 1b 68  |oveCursors"....h|
00000bf0  69 25 28 39 29 3d 21 73  63 6f 72 65 25 3a 68 24  |i%(9)=!score%:h$|
00000c00  28 39 29 3d 6e 24 0d 05  96 50 e3 49 25 3d 38 20  |(9)=n$...P.I%=8 |
00000c10  b8 20 31 20 88 20 2d 31  3a e7 20 68 69 25 28 49  |. 1 . -1:. hi%(I|
00000c20  25 2b 31 29 3e 68 69 25  28 49 25 29 20 8c 20 c8  |%+1)>hi%(I%) . .|
00000c30  94 20 68 69 25 28 49 25  2b 31 29 2c 68 69 25 28  |. hi%(I%+1),hi%(|
00000c40  49 25 29 3a c8 94 20 68  24 28 49 25 29 2c 68 24  |I%):.. h$(I%),h$|
00000c50  28 49 25 2b 31 29 0d 05  a0 08 ed 20 49 25 0d 05  |(I%+1)..... I%..|
00000c60  aa 05 e1 0d 05 b4 05 3a  0d 05 be 10 dd 20 f2 63  |.......:..... .c|
00000c70  6f 6d 70 6c 65 74 65 64  0d 05 c8 0b ea 20 78 25  |ompleted..... x%|
00000c80  2c 79 25 0d 05 d2 0f fb  31 32 38 20 c8 9c 20 31  |,y%.....128 .. 1|
00000c90  39 32 0d 05 dc 0a f7 20  8d 64 7a 45 0d 05 e6 0c  |92..... .dzE....|
00000ca0  2a 46 58 31 31 32 2c 32  0d 05 f0 0c 2a 46 58 31  |*FX112,2....*FX1|
00000cb0  31 33 2c 32 0d 05 fa 24  dc 20 22 41 73 20 79 6f  |13,2...$. "As yo|
00000cc0  75 20 64 65 63 65 6e 64  20 74 68 65 20 73 74 61  |u decend the sta|
00000cd0  69 72 73 20 79 6f 75 22  0d 06 04 20 dc 20 22 46  |irs you"... . "F|
00000ce0  69 6e 64 20 79 6f 75 72  73 65 6c 66 20 69 6e 20  |ind yourself in |
00000cf0  61 20 53 6d 61 6c 6c 22  0d 06 0e 21 dc 20 22 43  |a Small"...!. "C|
00000d00  68 61 6d 62 65 72 2c 20  74 69 65 64 20 61 67 61  |hamber, tied aga|
00000d10  69 6e 73 74 20 74 68 65  22 0d 06 18 24 dc 20 22  |inst the"...$. "|
00000d20  4f 70 70 6f 73 69 74 65  20 57 61 6c 6c 20 69 73  |Opposite Wall is|
00000d30  20 79 6f 75 72 20 66 69  61 6e 63 65 22 0d 06 22  | your fiance".."|
00000d40  26 dc 20 22 59 6f 75 20  53 65 74 20 61 62 6f 75  |&. "You Set abou|
00000d50  74 20 66 72 65 65 69 6e  67 20 68 65 72 2c 20 61  |t freeing her, a|
00000d60  6e 64 22 0d 06 2c 18 e3  49 25 3d 31 20 b8 20 35  |nd"..,..I%=1 . 5|
00000d70  3a f3 20 6c 24 28 49 25  29 3a ed 0d 06 36 23 e7  |:. l$(I%):...6#.|
00000d80  20 21 73 63 72 6f 6c 6c  25 3d 31 36 20 8c 20 f7  | !scroll%=16 . .|
00000d90  20 8d 44 40 46 20 8b 20  f7 20 8d 44 72 46 0d 06  | .D@F . . .DrF..|
00000da0  40 26 dc 20 22 61 73 20  79 6f 75 20 72 65 61 64  |@&. "as you read|
00000db0  20 74 68 65 20 66 69 6e  61 6c 20 77 6f 72 64 73  | the final words|
00000dc0  20 6f 6e 22 0d 06 4a 27  dc 20 22 74 68 65 20 53  | on"..J'. "the S|
00000dd0  63 72 6f 6c 6c 20 74 68  65 20 77 6f 72 6c 64 20  |croll the world |
00000de0  61 72 6f 75 6e 64 20 79  6f 75 22 0d 06 54 23 dc  |around you"..T#.|
00000df0  20 22 56 61 6e 69 73 68  65 73 20 61 6e 64 20 69  | "Vanishes and i|
00000e00  73 20 72 65 70 6c 61 63  65 64 20 62 79 22 0d 06  |s replaced by"..|
00000e10  5e 22 dc 20 22 47 72 65  65 6e 20 46 69 65 6c 64  |^". "Green Field|
00000e20  73 2e 20 59 6f 75 20 61  72 65 20 66 72 65 65 22  |s. You are free"|
00000e30  0d 06 68 20 dc 20 22 74  6f 20 67 65 74 20 6d 61  |..h . "to get ma|
00000e40  72 72 69 65 64 20 69 6e  20 70 65 61 63 65 2e 22  |rried in peace."|
00000e50  0d 06 72 24 dc 20 22 6a  75 73 74 20 61 73 20 79  |..r$. "just as y|
00000e60  6f 75 20 72 65 6c 65 61  73 65 20 74 68 65 20 6c  |ou release the l|
00000e70  61 73 74 22 0d 06 7c 23  dc 20 22 62 6f 6e 64 73  |ast"..|#. "bonds|
00000e80  20 68 6f 6c 64 69 6e 67  20 68 65 72 20 61 20 6d  | holding her a m|
00000e90  61 73 73 20 6f 66 22 0d  06 86 22 dc 20 22 67 75  |ass of"...". "gu|
00000ea0  61 72 64 73 20 65 6e 74  65 72 2c 20 67 72 61 62  |ards enter, grab|
00000eb0  20 79 6f 75 20 61 6e 64  22 0d 06 90 23 dc 20 22  | you and"...#. "|
00000ec0  74 61 6b 65 20 79 6f 75  20 6f 66 66 20 74 6f 20  |take you off to |
00000ed0  61 20 64 65 65 70 20 70  69 74 2c 22 0d 06 9a 20  |a deep pit,"... |
00000ee0  dc 20 22 61 6e 64 20 64  72 6f 70 20 79 6f 75 20  |. "and drop you |
00000ef0  69 6e 2e 2e 2e 2e 2e 2e  2e 2e 2e 22 0d 06 a4 1d  |in........."....|
00000f00  e3 20 49 25 3d 36 20 b8  20 31 30 3a f3 20 6c 24  |. I%=6 . 10:. l$|
00000f10  28 49 25 29 3a ed 20 49  25 0d 06 ae 0e e3 49 25  |(I%):. I%.....I%|
00000f20  3d 31 20 b8 20 31 30 0d  06 b8 13 ef 32 33 2c 31  |=1 . 10.....23,1|
00000f30  37 2c 37 2c 36 2c 38 3b  38 7c 0d 06 c2 14 79 25  |7,7,6,8;8|....y%|
00000f40  3d 38 33 34 2d 28 49 25  2d 31 29 2a 36 34 0d 06  |=834-(I%-1)*64..|
00000f50  cc 17 78 25 3d 35 31 32  2d a9 28 6c 24 28 49 25  |..x%=512-.(l$(I%|
00000f60  29 29 2a 31 36 0d 06 d6  0e ec 20 78 25 2c 79 25  |))*16..... x%,y%|
00000f70  3a ef 35 0d 06 e0 15 e3  41 25 3d 31 20 b8 20 a9  |:.5.....A%=1 . .|
00000f80  28 6c 24 28 49 25 29 29  0d 06 ea 1b d1 3d 30 3a  |(l$(I%)).....=0:|
00000f90  43 25 3d 97 28 c1 6c 24  28 49 25 29 2c 41 25 2c  |C%=.(.l$(I%),A%,|
00000fa0  31 29 29 0d 06 f4 0d e6  30 2c 30 20 c8 9c 20 30  |1)).....0,0 .. 0|
00000fb0  0d 06 fe 31 ec 20 42 59  20 2d 34 2c 2d 34 3a ef  |...1. BY -4,-4:.|
00000fc0  43 25 3a ec 20 42 59 20  2d 32 38 2c 30 3a ef 43  |C%:. BY -28,0:.C|
00000fd0  25 3a ec 20 42 59 20 2d  32 38 2c 30 3a ef 20 43  |%:. BY -28,0:. C|
00000fe0  25 0d 07 08 31 ec 20 42  59 20 2d 34 30 2c 34 3a  |%...1. BY -40,4:|
00000ff0  ef 43 25 3a ec 20 42 59  20 2d 32 38 2c 30 3a ef  |.C%:. BY -28,0:.|
00001000  43 25 3a ec 20 42 59 20  2d 32 38 2c 30 3a ef 20  |C%:. BY -28,0:. |
00001010  43 25 0d 07 12 31 ec 20  42 59 20 2d 34 30 2c 34  |C%...1. BY -40,4|
00001020  3a ef 43 25 3a ec 20 42  59 20 2d 32 38 2c 30 3a  |:.C%:. BY -28,0:|
00001030  ef 43 25 3a ec 20 42 59  20 2d 32 38 2c 30 3a ef  |.C%:. BY -28,0:.|
00001040  20 43 25 0d 07 1c 20 ec  20 42 59 20 2d 33 36 2c  | C%... . BY -36,|
00001050  2d 34 3a e6 30 2c 36 33  20 c8 9c 20 31 39 32 3a  |-4:.0,63 .. 192:|
00001060  ef 43 25 0d 07 26 0a f5  fd 91 3d 31 30 0d 07 30  |.C%..&....=10..0|
00001070  08 ed 20 41 25 0d 07 3a  06 ef 34 0d 07 44 08 ed  |.. A%..:..4..D..|
00001080  20 49 25 0d 07 4e 24 e7  20 21 73 63 72 6f 6c 6c  | I%..N$. !scroll|
00001090  25 3c 3e 31 36 20 8c 20  d4 20 32 2c 33 38 33 2c  |%<>16 . . 2,383,|
000010a0  26 31 30 30 30 2c 31 0d  07 58 07 d1 3d 30 0d 07  |&1000,1..X..=0..|
000010b0  62 0b f5 fd 91 3e 33 30  30 0d 07 6c 05 e1 0d 07  |b....>300..l....|
000010c0  76 05 3a 0d 07 80 14 dd  20 a4 76 64 75 28 78 25  |v.:..... .vdu(x%|
000010d0  2c 79 25 2c 63 25 29 0d  07 8a 31 5b 4f 50 54 20  |,y%,c%)...1[OPT |
000010e0  49 25 3a 45 51 55 42 20  33 31 3a 45 51 55 42 20  |I%:EQUB 31:EQUB |
000010f0  78 25 3a 45 51 55 42 20  79 25 3a 45 51 55 42 20  |x%:EQUB y%:EQUB |
00001100  63 25 3a 5d 3a 3d 49 25  0d 07 94 05 3a 0d 07 9e  |c%:]:=I%....:...|
00001110  3b dd 20 a4 62 31 36 28  61 25 2c 62 25 2c 63 25  |;. .b16(a%,b%,c%|
00001120  2c 64 25 2c 65 25 2c 66  25 2c 67 25 2c 68 25 2c  |,d%,e%,f%,g%,h%,|
00001130  69 25 2c 6a 25 2c 6b 25  2c 6c 25 2c 6d 25 2c 6e  |i%,j%,k%,l%,m%,n|
00001140  25 2c 6f 25 2c 70 25 29  0d 07 a8 42 3f 50 25 3d  |%,o%,p%)...B?P%=|
00001150  61 25 3a 50 25 3f 31 3d  62 25 3a 50 25 3f 32 3d  |a%:P%?1=b%:P%?2=|
00001160  63 25 3a 50 25 3f 33 3d  64 25 3a 50 25 3f 34 3d  |c%:P%?3=d%:P%?4=|
00001170  65 25 3a 50 25 3f 35 3d  66 25 3a 50 25 3f 36 3d  |e%:P%?5=f%:P%?6=|
00001180  67 25 3a 50 25 3f 37 3d  68 25 0d 07 b2 09 50 25  |g%:P%?7=h%....P%|
00001190  2b 3d 38 0d 07 bc 42 3f  50 25 3d 69 25 3a 50 25  |+=8...B?P%=i%:P%|
000011a0  3f 31 3d 6a 25 3a 50 25  3f 32 3d 6b 25 3a 50 25  |?1=j%:P%?2=k%:P%|
000011b0  3f 33 3d 6c 25 3a 50 25  3f 34 3d 6d 25 3a 50 25  |?3=l%:P%?4=m%:P%|
000011c0  3f 35 3d 6e 25 3a 50 25  3f 36 3d 6f 25 3a 50 25  |?5=n%:P%?6=o%:P%|
000011d0  3f 37 3d 70 25 0d 07 c6  09 50 25 2b 3d 38 0d 07  |?7=p%....P%+=8..|
000011e0  d0 07 3d 49 25 0d 07 da  05 3a 0d 07 e4 0f dd f2  |..=I%....:......|
000011f0  64 69 73 70 74 69 74 6c  65 0d 07 ee 10 d6 20 64  |disptitle..... d|
00001200  69 73 70 63 61 73 74 6c  65 0d 07 f8 15 ef 32 33  |ispcastle.....23|
00001210  2c 31 37 2c 37 2c 36 2c  31 36 3b 31 36 7c 0d 08  |,17,7,6,16;16|..|
00001220  02 06 ef 35 0d 08 0c 0e  e6 30 2c 33 c8 9c 20 31  |...5.....0,3.. 1|
00001230  39 32 0d 08 16 17 ec 20  34 34 38 2c 39 39 32 3a  |92..... 448,992:|
00001240  f1 22 43 61 73 74 6c 65  22 0d 08 20 0f e6 30 2c  |."Castle".. ..0,|
00001250  35 31 c8 9c 20 31 39 32  0d 08 2a 1b ec 20 33 32  |51.. 192..*.. 32|
00001260  30 2c 38 39 36 3a f1 22  42 6c 61 63 6b 68 65 61  |0,896:."Blackhea|
00001270  72 74 22 0d 08 34 14 ef  20 32 33 2c 31 37 2c 37  |rt"..4.. 23,17,7|
00001280  2c 36 2c 38 3b 38 7c 0d  08 3e 0e e6 30 2c 31 35  |,6,8;8|..>..0,15|
00001290  c8 9c 31 39 32 0d 08 48  0d e3 49 25 3d 31 20 b8  |..192..H..I%=1 .|
000012a0  20 38 0d 08 52 13 ec 20  33 30 34 2c 35 31 32 2d  | 8..R.. 304,512-|
000012b0  49 25 2a 34 38 0d 08 5c  3b f1 3b 49 25 3b 22 20  |I%*48..\;.;I%;" |
000012c0  22 3b 68 24 28 49 25 29  3b c4 31 33 2d a9 28 68  |";h$(I%);.13-.(h|
000012d0  24 28 49 25 29 29 2c 22  20 22 29 3b c2 22 30 30  |$(I%))," ");."00|
000012e0  30 30 30 22 2b c3 68 69  25 28 49 25 29 2c 36 29  |000"+.hi%(I%),6)|
000012f0  0d 08 66 08 ed 20 49 25  0d 08 70 1e e6 20 31 32  |..f.. I%..p.. 12|
00001300  3a f1 8a 31 36 2c 37 29  22 43 6f 6e 74 72 6f 6c  |:..16,7)"Control|
00001310  73 22 3a e6 35 31 0d 08  7a 21 f1 8a 31 30 2c 39  |s":.51..z!..10,9|
00001320  29 22 5a 20 2d 20 4c 65  66 74 20 20 20 58 20 2d  |)"Z - Left   X -|
00001330  20 52 69 67 68 74 22 0d  08 84 23 f1 8a 31 30 2c  | Right"...#..10,|
00001340  31 30 29 22 22 22 20 2d  20 55 70 20 20 20 20 20  |10)""" - Up     |
00001350  2f 20 2d 20 20 44 6f 77  6e 22 0d 08 8e 20 f1 8a  |/ -  Down"... ..|
00001360  31 30 2c 31 31 29 22 20  20 20 52 45 54 55 52 4e  |10,11)"   RETURN|
00001370  20 2d 20 20 20 46 69 72  65 22 0d 08 98 20 f1 8a  | -   Fire"... ..|
00001380  31 30 2c 31 32 29 22 20  20 20 43 4f 50 59 20 20  |10,12)"   COPY  |
00001390  20 2d 20 20 50 61 75 73  65 22 0d 08 a2 20 f1 8a  | -  Pause"... ..|
000013a0  31 30 2c 31 33 29 22 20  20 20 44 45 4c 45 54 45  |10,13)"   DELETE|
000013b0  20 2d 20 52 65 73 75 6d  65 22 0d 08 ac 20 f1 8a  | - Resume"... ..|
000013c0  31 30 2c 31 34 29 22 20  20 20 45 53 43 41 50 45  |10,14)"   ESCAPE|
000013d0  20 2d 20 20 20 51 75 69  74 22 0d 08 b6 0a ef 34  | -   Quit".....4|
000013e0  3a fb 36 33 0d 08 c0 24  f1 8a 39 2c 33 30 29 22  |:.63...$..9,30)"|
000013f0  50 72 65 73 73 20 53 50  41 43 45 20 74 6f 20 50  |Press SPACE to P|
00001400  6c 61 79 20 6f 72 22 3b  0d 08 ca 26 f1 8a 38 2c  |lay or";...&..8,|
00001410  33 31 29 22 6f 72 20 50  20 74 6f 20 65 6e 74 65  |31)"or P to ente|
00001420  72 20 61 20 50 61 73 73  77 6f 72 64 22 3b 0d 08  |r a Password";..|
00001430  d4 05 e1 0d 08 de 0a dd  20 f2 61 73 73 0d 08 e8  |........ .ass...|
00001440  26 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 26 31  |&.. "OS_File",&1|
00001450  30 2c 22 42 6c 61 63 6b  63 6f 64 65 22 2c 26 39  |0,"Blackcode",&9|
00001460  30 30 30 0d 08 f2 10 6c  69 76 65 73 25 3d 26 39  |000....lives%=&9|
00001470  35 38 30 0d 08 fc 14 63  6f 6d 70 6c 65 74 65 64  |580....completed|
00001480  25 3d 26 39 35 39 38 0d  09 06 10 6c 65 76 65 6c  |%=&9598....level|
00001490  25 3d 26 39 35 34 43 0d  09 10 10 73 63 6f 72 65  |%=&954C....score|
000014a0  25 3d 26 39 35 38 43 0d  09 1a 11 70 61 73 73 77  |%=&958C....passw|
000014b0  64 25 3d 26 39 31 31 30  0d 09 24 11 73 63 72 65  |d%=&9110..$.scre|
000014c0  65 6e 25 3d 26 39 35 37  30 0d 09 2e 10 73 63 72  |en%=&9570....scr|
000014d0  65 65 6e 3d 26 39 35 44  43 0d 09 38 14 70 6c 6f  |een=&95DC..8.plo|
000014e0  74 70 6c 61 79 65 72 3d  26 39 38 43 38 0d 09 42  |tplayer=&98C8..B|
000014f0  13 6c 65 76 65 6c 69 6e  69 74 3d 26 39 30 35 43  |.levelinit=&905C|
00001500  0d 09 4c 13 62 61 64 63  61 6c 63 25 3d 26 32 30  |..L.badcalc%=&20|
00001510  30 46 38 0d 09 56 12 62  6c 6b 62 61 73 65 25 3d  |0F8..V.blkbase%=|
00001520  26 39 37 43 34 0d 09 60  12 67 61 6d 65 69 6e 69  |&97C4..`.gameini|
00001530  74 3d 26 39 30 30 30 0d  09 6a 0e 67 61 6d 65 3d  |t=&9000..j.game=|
00001540  26 39 31 34 43 0d 09 74  15 64 69 73 70 63 61 73  |&914C..t.dispcas|
00001550  74 6c 65 3d 26 32 30 39  32 43 0d 09 7e 11 73 63  |tle=&2092C..~.sc|
00001560  72 6f 6c 6c 25 3d 26 39  35 38 38 0d 09 88 13 70  |roll%=&9588....p|
00001570  61 73 73 77 6f 72 64 3d  26 32 30 36 46 38 0d 09  |assword=&206F8..|
00001580  92 14 75 70 64 61 74 65  73 74 61 74 3d 26 39 36  |..updatestat=&96|
00001590  33 43 0d 09 9c 14 70 61  6e 65 6c 70 6c 6f 74 3d  |3C....panelplot=|
000015a0  26 32 30 38 46 38 0d 09  a6 0e 6d 61 70 25 3d 26  |&208F8....map%=&|
000015b0  41 30 46 38 0d 09 b0 0f  6d 61 70 32 25 3d 26 41  |A0F8....map2%=&A|
000015c0  38 46 38 0d 09 ba 0f 62  61 64 25 3d 26 31 46 38  |8F8....bad%=&1F8|
000015d0  46 38 0d 09 c4 12 73 63  72 65 65 6e 31 25 3d 26  |F8....screen1%=&|
000015e0  39 35 37 34 0d 09 ce 12  73 63 72 65 65 6e 32 25  |9574....screen2%|
000015f0  3d 26 39 35 37 38 0d 09  d8 10 6f 62 6a 73 25 3d  |=&9578....objs%=|
00001600  26 31 37 38 46 38 0d 09  e2 05 e1 0d ff           |&178F8.......|
0000160d