Home » Archimedes archive » Archimedes World » AW-1991-09.adf » AWSept91 » !AWSep91/Goodies/Castle/!BlckHeart/BlackHeart
!AWSep91/Goodies/Castle/!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 » Archimedes World » AW-1991-09.adf » AWSept91 |
Filename: | !AWSep91/Goodies/Castle/!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:
- Archimedes archive » Acorn Computing » 1995 01 subscription disc.adf » 9501s » PD/!BLCKHEART/BLACKHEART
- Archimedes archive » Archimedes World » AW-1991-09.adf » AWSept91 » !AWSep91/Goodies/Castle/!BlckHeart/BlackHeart
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