Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape03b_acorn_white_magic_2_bbc.wav » INSTPROG

INSTPROG

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 tapes » Commercial_Releases » box05_tape03b_acorn_white_magic_2_bbc.wav
Filename: INSTPROG
Read OK:
File size: 1B75 bytes
Load address: 0E00
Exec address: 8023
File contents
   10*FX13 4
   20MODE4:HIMEM=&3000:VDU23,1,0;0;0;0;:PLOT4,432,511:VDU5:PRINT"WHITE MAGIC 2":PLOT4,432,515:PRINT"WHITE MAGIC 2":VDU4:PRINTTAB(14,18);"Instructions":VDU28,0,31,39,20:*LOAD "INSTGRAPH" 3000
   30FORl=0 TO 2 STEP 2:P%=&900:[OPT l:.Prt:LDA &408:STA &70:LDA &409:STA &71:LDA&40C:STA &72:LDA &40D:STA &73:LDA#0:STA&74:LDY#0
   40.Goprt:LDA (&70),Y:STA(&72),Y:INY:CPY#24:BNE Goprt
   50LDY#0:LDA&70:CLC:ADC#24:STA&70:LDA&71:ADC#0:STA&71:LDA&72:CLC:ADC#64:STA &72:LDA&73:ADC#1:STA&73:INC &74:LDA&74:CMP #3:BNE Goprt:RTS
   60.int:STA&80:STX&81:STY&82:CMP#4:BNEno4:LDA#&AE:STA&FE07:LDA#119:STA&FE08:LDA#211:STA&FE09:LDX#0:LDY#0:.loop:INX:CPX#70:BNEloop:INY:CPY#7:BNEloop:LDA#&A6:STA&FE07:LDA#16:STA&FE08:LDA#17:STA&FE09:LDA&80:LDX&81:LDY&82:.no4:RTS
   70]:NEXT:?&220=int MOD 256:?&221=int DIV 256:*FX14 4
   80GOTO 180
   90DEFPROCp(X%,Y%,A%):C%=&5800+(X%*8)+(Y%*320):B%=&3000+(A%*72):CALLPrt:ENDPROC
  100DEFPROCg:FORL%=0 TO 36 STEP 3:PROCp(L%,6,47):NEXT:ENDPROC
  110DEFPROCt($&B00):CLS:PRINT$&B00:ENDPROC
  170DEFPROCspc:PRINTTAB(8,11);"Press SPACE to continue";:REPEAT UNTIL INKEY(-99):PROCg:ENDPROC
  175DEFPROCwall(D%):FORL%=2 TO 34 STEP 8:PROCp(L%,6,D%):D%=D%+1:NEXT:ENDPROC
  180FORL%=0 TO 36 STEP 3:FORK%=0 TO 12 STEP 3:PROCp(L%,K%,47):NEXT:NEXT
  190PROCp(3,6,0):PROCp(13,6,8):PROCp(24,6,24):PROCp(34,6,16):PROCt("The four characters. The LEPRECHAUN,    ENCHANTER, TITAN and WARRIOR            respectively."):PROCspc
  210PROCp(3,6,37):PROCp(13,6,41):PROCp(24,6,68):PROCp(34,6,64):PROCt("These are the characters weapons. The   Leprechauns arrow, the Enchanters       fireball, the Titans axe and the        Warriors sword respectively."):PROCspc
  220PROCp(13,6,45):PROCp(24,6,46):PROCt("These are doors. A key is needed to opena door. To open a door simply move      against it."):PROCspc
  230PROCp(18,6,49):PROCt("This is a key. Each key will open any   one door. To take a key simply walk overit."):PROCspc
  240PROCp(18,6,48):PROCt("This is food which will boost the       characters health by 80 points. To take food just walk over it."):PROCspc
  250PROCp(18,6,50):PROCt("This is a ghost. Ghosts can be killed bymissile fire or hand to hand combat.    Ghosts come out of skeletons but can't  take much damage."):PROCspc
  260PROCp(18,6,54):PROCt("This is a guard. Guards can be killed bymissile fire or hand to hand combat.    Guards come out of huts and are quite   tough to kill."):PROCspc
  270PROCp(18,6,58):PROCt("This is the trapdoor which leads down tothe next level. The trapdoor can only beopened when the master key and all of   the treasure has been collected."):PROCspc
  280PROCp(18,6,59):PROCt("This is a treasure chest. All of the    treasure chests on a level must be      collected before the trapdoor will open.To collect treasure just move over it."):PROCspc
  290PROCp(18,6,60):PROCt("This is a cross of rejuvenation. When   taken it will increase every characters health by 1000."):PROCspc
  300PROCp(18,6,61):PROCt("This is a staff of speed. When taken by the character, it will enable the       Enchanter, Titan and Warrior to run as  fast as the Leprechaun. The effect will wear off before the next level."):PROCspc
  310PROCp(18,6,62):PROCt("This is a magic orb which will reverse  the effect of the staff of speed."):PROCspc
  320PROCp(18,6,63):PROCt("This is an amulet of healing. When takenit will give the character in use a     health of 4000."):PROCspc
  360PROCp(13,6,85):PROCp(23,6,87):PROCt("These are skeletons. Ghosts will appear from skeletons. Skeletons can be        destroyed by missiles of weapon strength4 or higher but not by hand to hand     combat."):PROCspc
  370PROCp(5,6,86):PROCp(18,6,128):PROCp(31,6,129):PROCt("These are spikes. Spikes will drain the characters health on contact."):PROCspc
  380PROCp(18,6,88):PROCt("This is a guards hut. Guards will appearfrom here. Huts can be destroyed by     missiles of weapon strength 7 or higher but not by hand to hand combat."):PROCspc
  390D%=89:FORL%=3 TO 33 STEP 10:PROCp(L%,6,D%):D%=D%+1:NEXT:PROCt("These are passages which become narrowertowards one end. These passages can onlybe used from the wide end."):PROCspc
  400D%=110:FORL%=3 TO 33 STEP 10:PROCp(L%,6,D%):D%=D%+1:NEXT:PROCt("These are sliders. Sliders will move in the direction of their arrow unless     there is an obstruction. If the         character blocks the path of a slider,")
  410PRINT"it will drain his health.":PROCspc
  420PROCp(18,6,93):PROCt("This is a stealer. Stealers will destroyall keys being carried on contact."):PROCspc
  430PROCp(18,6,94):PROCt("This is a vortex. On contact, the       left-most digit of the characters healthwill be moved right one place and the   left-most digit will become 0.          e.g. 2345 becomes 0245"):PROCspc
  440PROCp(18,6,95):PROCt("This is a potion. To take a potion just walk over it."):PROCspc
  450PROCp(18,6,96):PROCt("This is a magic shield. When taken, it  will increase the characters armour     value by 1 up to a maximum of 9."):PROCspc
  460PROCp(18,6,97):PROCt("This is a magic sword. When taken, it   will increase the characters weapon     strength value by 1 up to a maximum of  9."):PROCspc
  470PROCp(18,6,98):PROCt("This is a magic scroll. When taken, it  will increase the characters magic valueby 1 up to a maximum of 9."):PROCspc
  480PROCp(18,6,99):PROCt("This is a cask of beer. The Titan can   push casks into any empty space."):PROCspc
  490PROCp(18,6,100):PROCt("These are vines. Only the Warrior can   cut her way through these."):PROCspc
  500PROCp(18,6,101):PROCt("This is a magic pentagram. Only the     Enchanter can cross this."):PROCspc
  510PROCp(15,6,102):PROCp(22,6,103):PROCt("These are logs. Only the Leprechaun can climb over these."):PROCspc
  520PROCp(18,6,104):PROCt("This is a time pill. When taken it will reset the timer to its initial value."):PROCspc
  530PROCp(18,6,105):PROCt("This is a bomb. When touched it will    explode, hurting the character and      destroying whatever is directly north,  south, east and west of it."):PROCspc
  540PROCp(18,6,106):PROCt("This is an ammo box. When taken it will increase the number of weapons the      character can fire by 1 up to a maximum of 3."):PROCspc
  550PROCp(18,6,107):PROCt("This is a teleporter. When touched it   will move the character to somewhere on the same level and will destroy itself."):PROCspc
  560PROCp(18,6,108):PROCt("This is fungus. Fungus will grow into   any empty space. Fungus can be walked   through but will drain the characters   health."):PROCspc
  570PROCp(18,6,109):PROCt("This is a spellbook. When taken it will make the second-left most digit of the  characters health equal the right-most  digit and the left-most digit equal 0.  e.g. 2345 becomes 0545"):PROCspc
  580PROCp(18,6,114):PROCt("This is poisoned food. When taken it    will reduce the characters health by 40."):PROCspc
  590PROCp(18,6,115):PROCt("This is a cursed ring. When taken it    will give the following effects :-"):PRINT'"Leprechaun - Armour value = 1"'"Enchanter - Weapon strength = 1"'"Warrior - Number of weapons = 1"'"Titan - Magic value = 1"
  600PROCspc
  610PROCp(18,6,118):PROCt("This is the master key. This must be    taken to open the trap door."):PROCspc
  630PROCp(16,6,130):PROCp(21,6,131):PROCt("These are sprung buffers. Sliders and   missiles will bounce off these and      return in the opposite direction."):PROCspc
  640PROCp(18,6,132):PROCt("This is a golden crown. This is an item of treasure which doesn't need to be    collected to finish the level."):PROCspc
  660CLS:PRINT''"Want to see them again (Y/N) ?"
  665IF INKEY(-69) THEN 190
  670IF INKEY(-86) THEN 700
  680GOTO 665
  700*FX13 4
  710MODE6:VDU23,1,0;0;0;0;:PRINTTAB(13,1);"WHITE MAGIC 2";TAB(6,10);"The game is now loading"''''''
  720CHAIN "MAGIC2GAME"

*FX13 4
��4:�=&3000:�23,1,0;0;0;0;:�4,432,511:�5:�"WHITE MAGIC 2":�4,432,515:�"WHITE MAGIC 2":�4:�14,18);"Instructions":�28,0,31,39,20:*LOAD "INSTGRAPH" 3000
z�l=0 � 2 � 2:P%=&900:[OPT l:.Prt:LDA &408:STA &70:LDA &409:STA &71:LDA&40C:STA &72:LDA &40D:STA &73:LDA#0:STA&74:LDY#0
(6.Goprt:LDA (&70),Y:STA(&72),Y:INY:CPY#24:BNE Goprt
2�LDY#0:LDA&70:CLC:ADC#24:STA&70:LDA&71:ADC#0:STA&71:LDA&72:CLC:ADC#64:STA &72:LDA&73:ADC#1:STA&73:INC &74:LDA&74:CMP #3:BNE Goprt:RTS
<�.int:STA&80:STX&81:STY&82:CMP#4:BNEno4:LDA#&AE:STA&FE07:LDA#119:STA&FE08:LDA#211:STA&FE09:LDX#0:LDY#0:.loop:INX:CPX#70:BNEloop:INY:CPY#7:BNEloop:LDA#&A6:STA&FE07:LDA#16:STA&FE08:LDA#17:STA&FE09:LDA&80:LDX&81:LDY&82:.no4:RTS
F/]:�:?&220=int � 256:?&221=int � 256:*FX14 4
P
� �tt@
ZB��p(X%,Y%,A%):C%=&5800+(X%*8)+(Y%*320):B%=&3000+(A%*72):�Prt:�
d&��g:�L%=0 � 36 � 3:�p(L%,6,47):�:�
n��t($&B00):�:�$&B00:�
�<��spc:�8,11);"Press SPACE to continue";:� � �(-99):�g:�
�5��wall(D%):�L%=2 � 34 � 8:�p(L%,6,D%):D%=D%+1:�:�
�2�L%=0 � 36 � 3:�K%=0 � 12 � 3:�p(L%,K%,47):�:�
���p(3,6,0):�p(13,6,8):�p(24,6,24):�p(34,6,16):�t("The four characters. The LEPRECHAUN,    ENCHANTER, TITAN and WARRIOR            respectively."):�spc
���p(3,6,37):�p(13,6,41):�p(24,6,68):�p(34,6,64):�t("These are the characters weapons. The   Leprechauns arrow, the Enchanters       fireball, the Titans axe and the        Warriors sword respectively."):�spc
܂�p(13,6,45):�p(24,6,46):�t("These are doors. A key is needed to opena door. To open a door simply move      against it."):�spc
�n�p(18,6,49):�t("This is a key. Each key will open any   one door. To take a key simply walk overit."):�spc
��p(18,6,48):�t("This is food which will boost the       characters health by 80 points. To take food just walk over it."):�spc
���p(18,6,50):�t("This is a ghost. Ghosts can be killed bymissile fire or hand to hand combat.    Ghosts come out of skeletons but can't  take much damage."):�spc
��p(18,6,54):�t("This is a guard. Guards can be killed bymissile fire or hand to hand combat.    Guards come out of huts and are quite   tough to kill."):�spc
��p(18,6,58):�t("This is the trapdoor which leads down tothe next level. The trapdoor can only beopened when the master key and all of   the treasure has been collected."):�spc
��p(18,6,59):�t("This is a treasure chest. All of the    treasure chests on a level must be      collected before the trapdoor will open.To collect treasure just move over it."):�spc
"z�p(18,6,60):�t("This is a cross of rejuvenation. When   taken it will increase every characters health by 1000."):�spc
,��p(18,6,61):�t("This is a staff of speed. When taken by the character, it will enable the       Enchanter, Titan and Warrior to run as  fast as the Leprechaun. The effect will wear off before the next level."):�spc
6d�p(18,6,62):�t("This is a magic orb which will reverse  the effect of the staff of speed."):�spc
@z�p(18,6,63):�t("This is an amulet of healing. When takenit will give the character in use a     health of 4000."):�spc
h��p(13,6,85):�p(23,6,87):�t("These are skeletons. Ghosts will appear from skeletons. Skeletons can be        destroyed by missiles of weapon strength4 or higher but not by hand to hand     combat."):�spc
ry�p(5,6,86):�p(18,6,128):�p(31,6,129):�t("These are spikes. Spikes will drain the characters health on contact."):�spc
|��p(18,6,88):�t("This is a guards hut. Guards will appearfrom here. Huts can be destroyed by     missiles of weapon strength 7 or higher but not by hand to hand combat."):�spc
��D%=89:�L%=3 � 33 � 10:�p(L%,6,D%):D%=D%+1:�:�t("These are passages which become narrowertowards one end. These passages can onlybe used from the wide end."):�spc
��D%=110:�L%=3 � 33 � 10:�p(L%,6,D%):D%=D%+1:�:�t("These are sliders. Sliders will move in the direction of their arrow unless     there is an obstruction. If the         character blocks the path of a slider,")
�%�"it will drain his health.":�spc
�e�p(18,6,93):�t("This is a stealer. Stealers will destroyall keys being carried on contact."):�spc
���p(18,6,94):�t("This is a vortex. On contact, the       left-most digit of the characters healthwill be moved right one place and the   left-most digit will become 0.          e.g. 2345 becomes 0245"):�spc
�P�p(18,6,95):�t("This is a potion. To take a potion just walk over it."):�spc
‹�p(18,6,96):�t("This is a magic shield. When taken, it  will increase the characters armour     value by 1 up to a maximum of 9."):�spc
̕�p(18,6,97):�t("This is a magic sword. When taken, it   will increase the characters weapon     strength value by 1 up to a maximum of  9."):�spc
օ�p(18,6,98):�t("This is a magic scroll. When taken, it  will increase the characters magic valueby 1 up to a maximum of 9."):�spc
�c�p(18,6,99):�t("This is a cask of beer. The Titan can   push casks into any empty space."):�spc
�^�p(18,6,100):�t("These are vines. Only the Warrior can   cut her way through these."):�spc
�]�p(18,6,101):�t("This is a magic pentagram. Only the     Enchanter can cross this."):�spc
�b�p(15,6,102):�p(22,6,103):�t("These are logs. Only the Leprechaun can climb over these."):�spc
i�p(18,6,104):�t("This is a time pill. When taken it will reset the timer to its initial value."):�spc
��p(18,6,105):�t("This is a bomb. When touched it will    explode, hurting the character and      destroying whatever is directly north,  south, east and west of it."):�spc
��p(18,6,106):�t("This is an ammo box. When taken it will increase the number of weapons the      character can fire by 1 up to a maximum of 3."):�spc
&��p(18,6,107):�t("This is a teleporter. When touched it   will move the character to somewhere on the same level and will destroy itself."):�spc
0��p(18,6,108):�t("This is fungus. Fungus will grow into   any empty space. Fungus can be walked   through but will drain the characters   health."):�spc
:��p(18,6,109):�t("This is a spellbook. When taken it will make the second-left most digit of the  characters health equal the right-most  digit and the left-most digit equal 0.  e.g. 2345 becomes 0545"):�spc
Dl�p(18,6,114):�t("This is poisoned food. When taken it    will reduce the characters health by 40."):�spc
N��p(18,6,115):�t("This is a cursed ring. When taken it    will give the following effects :-"):�'"Leprechaun - Armour value = 1"'"Enchanter - Weapon strength = 1"'"Warrior - Number of weapons = 1"'"Titan - Magic value = 1"
X�spc
b`�p(18,6,118):�t("This is the master key. This must be    taken to open the trap door."):�spc
v��p(16,6,130):�p(21,6,131):�t("These are sprung buffers. Sliders and   missiles will bounce off these and      return in the opposite direction."):�spc
���p(18,6,132):�t("This is a golden crown. This is an item of treasure which doesn't need to be    collected to finish the level."):�spc
�)�:�''"Want to see them again (Y/N) ?"
�� �(-69) � �t~@
�� �(-86) � �t|B
�
� �tYB
�*FX13 4
�T�6:�23,1,0;0;0;0;:�13,1);"WHITE MAGIC 2";�6,10);"The game is now loading"''''''
�� "MAGIC2GAME"
�
00000000  0d 00 0a 0b 2a 46 58 31  33 20 34 0d 00 14 99 eb  |....*FX13 4.....|
00000010  34 3a d3 3d 26 33 30 30  30 3a ef 32 33 2c 31 2c  |4:.=&3000:.23,1,|
00000020  30 3b 30 3b 30 3b 30 3b  3a f0 34 2c 34 33 32 2c  |0;0;0;0;:.4,432,|
00000030  35 31 31 3a ef 35 3a f1  22 57 48 49 54 45 20 4d  |511:.5:."WHITE M|
00000040  41 47 49 43 20 32 22 3a  f0 34 2c 34 33 32 2c 35  |AGIC 2":.4,432,5|
00000050  31 35 3a f1 22 57 48 49  54 45 20 4d 41 47 49 43  |15:."WHITE MAGIC|
00000060  20 32 22 3a ef 34 3a f1  8a 31 34 2c 31 38 29 3b  | 2":.4:..14,18);|
00000070  22 49 6e 73 74 72 75 63  74 69 6f 6e 73 22 3a ef  |"Instructions":.|
00000080  32 38 2c 30 2c 33 31 2c  33 39 2c 32 30 3a 2a 4c  |28,0,31,39,20:*L|
00000090  4f 41 44 20 22 49 4e 53  54 47 52 41 50 48 22 20  |OAD "INSTGRAPH" |
000000a0  33 30 30 30 0d 00 1e 7a  e3 6c 3d 30 20 b8 20 32  |3000...z.l=0 . 2|
000000b0  20 88 20 32 3a 50 25 3d  26 39 30 30 3a 5b 4f 50  | . 2:P%=&900:[OP|
000000c0  54 20 6c 3a 2e 50 72 74  3a 4c 44 41 20 26 34 30  |T l:.Prt:LDA &40|
000000d0  38 3a 53 54 41 20 26 37  30 3a 4c 44 41 20 26 34  |8:STA &70:LDA &4|
000000e0  30 39 3a 53 54 41 20 26  37 31 3a 4c 44 41 26 34  |09:STA &71:LDA&4|
000000f0  30 43 3a 53 54 41 20 26  37 32 3a 4c 44 41 20 26  |0C:STA &72:LDA &|
00000100  34 30 44 3a 53 54 41 20  26 37 33 3a 4c 44 41 23  |40D:STA &73:LDA#|
00000110  30 3a 53 54 41 26 37 34  3a 4c 44 59 23 30 0d 00  |0:STA&74:LDY#0..|
00000120  28 36 2e 47 6f 70 72 74  3a 4c 44 41 20 28 26 37  |(6.Goprt:LDA (&7|
00000130  30 29 2c 59 3a 53 54 41  28 26 37 32 29 2c 59 3a  |0),Y:STA(&72),Y:|
00000140  49 4e 59 3a 43 50 59 23  32 34 3a 42 4e 45 20 47  |INY:CPY#24:BNE G|
00000150  6f 70 72 74 0d 00 32 88  4c 44 59 23 30 3a 4c 44  |oprt..2.LDY#0:LD|
00000160  41 26 37 30 3a 43 4c 43  3a 41 44 43 23 32 34 3a  |A&70:CLC:ADC#24:|
00000170  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
00000180  43 23 30 3a 53 54 41 26  37 31 3a 4c 44 41 26 37  |C#0:STA&71:LDA&7|
00000190  32 3a 43 4c 43 3a 41 44  43 23 36 34 3a 53 54 41  |2:CLC:ADC#64:STA|
000001a0  20 26 37 32 3a 4c 44 41  26 37 33 3a 41 44 43 23  | &72:LDA&73:ADC#|
000001b0  31 3a 53 54 41 26 37 33  3a 49 4e 43 20 26 37 34  |1:STA&73:INC &74|
000001c0  3a 4c 44 41 26 37 34 3a  43 4d 50 20 23 33 3a 42  |:LDA&74:CMP #3:B|
000001d0  4e 45 20 47 6f 70 72 74  3a 52 54 53 0d 00 3c e3  |NE Goprt:RTS..<.|
000001e0  2e 69 6e 74 3a 53 54 41  26 38 30 3a 53 54 58 26  |.int:STA&80:STX&|
000001f0  38 31 3a 53 54 59 26 38  32 3a 43 4d 50 23 34 3a  |81:STY&82:CMP#4:|
00000200  42 4e 45 6e 6f 34 3a 4c  44 41 23 26 41 45 3a 53  |BNEno4:LDA#&AE:S|
00000210  54 41 26 46 45 30 37 3a  4c 44 41 23 31 31 39 3a  |TA&FE07:LDA#119:|
00000220  53 54 41 26 46 45 30 38  3a 4c 44 41 23 32 31 31  |STA&FE08:LDA#211|
00000230  3a 53 54 41 26 46 45 30  39 3a 4c 44 58 23 30 3a  |:STA&FE09:LDX#0:|
00000240  4c 44 59 23 30 3a 2e 6c  6f 6f 70 3a 49 4e 58 3a  |LDY#0:.loop:INX:|
00000250  43 50 58 23 37 30 3a 42  4e 45 6c 6f 6f 70 3a 49  |CPX#70:BNEloop:I|
00000260  4e 59 3a 43 50 59 23 37  3a 42 4e 45 6c 6f 6f 70  |NY:CPY#7:BNEloop|
00000270  3a 4c 44 41 23 26 41 36  3a 53 54 41 26 46 45 30  |:LDA#&A6:STA&FE0|
00000280  37 3a 4c 44 41 23 31 36  3a 53 54 41 26 46 45 30  |7:LDA#16:STA&FE0|
00000290  38 3a 4c 44 41 23 31 37  3a 53 54 41 26 46 45 30  |8:LDA#17:STA&FE0|
000002a0  39 3a 4c 44 41 26 38 30  3a 4c 44 58 26 38 31 3a  |9:LDA&80:LDX&81:|
000002b0  4c 44 59 26 38 32 3a 2e  6e 6f 34 3a 52 54 53 0d  |LDY&82:.no4:RTS.|
000002c0  00 46 2f 5d 3a ed 3a 3f  26 32 32 30 3d 69 6e 74  |.F/]:.:?&220=int|
000002d0  20 83 20 32 35 36 3a 3f  26 32 32 31 3d 69 6e 74  | . 256:?&221=int|
000002e0  20 81 20 32 35 36 3a 2a  46 58 31 34 20 34 0d 00  | . 256:*FX14 4..|
000002f0  50 0a e5 20 8d 74 74 40  0d 00 5a 42 dd f2 70 28  |P.. .tt@..ZB..p(|
00000300  58 25 2c 59 25 2c 41 25  29 3a 43 25 3d 26 35 38  |X%,Y%,A%):C%=&58|
00000310  30 30 2b 28 58 25 2a 38  29 2b 28 59 25 2a 33 32  |00+(X%*8)+(Y%*32|
00000320  30 29 3a 42 25 3d 26 33  30 30 30 2b 28 41 25 2a  |0):B%=&3000+(A%*|
00000330  37 32 29 3a d6 50 72 74  3a e1 0d 00 64 26 dd f2  |72):.Prt:...d&..|
00000340  67 3a e3 4c 25 3d 30 20  b8 20 33 36 20 88 20 33  |g:.L%=0 . 36 . 3|
00000350  3a f2 70 28 4c 25 2c 36  2c 34 37 29 3a ed 3a e1  |:.p(L%,6,47):.:.|
00000360  0d 00 6e 19 dd f2 74 28  24 26 42 30 30 29 3a db  |..n...t($&B00):.|
00000370  3a f1 24 26 42 30 30 3a  e1 0d 00 aa 3c dd f2 73  |:.$&B00:....<..s|
00000380  70 63 3a f1 8a 38 2c 31  31 29 3b 22 50 72 65 73  |pc:..8,11);"Pres|
00000390  73 20 53 50 41 43 45 20  74 6f 20 63 6f 6e 74 69  |s SPACE to conti|
000003a0  6e 75 65 22 3b 3a f5 20  fd 20 a6 28 2d 39 39 29  |nue";:. . .(-99)|
000003b0  3a f2 67 3a e1 0d 00 af  35 dd f2 77 61 6c 6c 28  |:.g:....5..wall(|
000003c0  44 25 29 3a e3 4c 25 3d  32 20 b8 20 33 34 20 88  |D%):.L%=2 . 34 .|
000003d0  20 38 3a f2 70 28 4c 25  2c 36 2c 44 25 29 3a 44  | 8:.p(L%,6,D%):D|
000003e0  25 3d 44 25 2b 31 3a ed  3a e1 0d 00 b4 32 e3 4c  |%=D%+1:.:....2.L|
000003f0  25 3d 30 20 b8 20 33 36  20 88 20 33 3a e3 4b 25  |%=0 . 36 . 3:.K%|
00000400  3d 30 20 b8 20 31 32 20  88 20 33 3a f2 70 28 4c  |=0 . 12 . 3:.p(L|
00000410  25 2c 4b 25 2c 34 37 29  3a ed 3a ed 0d 00 be 99  |%,K%,47):.:.....|
00000420  f2 70 28 33 2c 36 2c 30  29 3a f2 70 28 31 33 2c  |.p(3,6,0):.p(13,|
00000430  36 2c 38 29 3a f2 70 28  32 34 2c 36 2c 32 34 29  |6,8):.p(24,6,24)|
00000440  3a f2 70 28 33 34 2c 36  2c 31 36 29 3a f2 74 28  |:.p(34,6,16):.t(|
00000450  22 54 68 65 20 66 6f 75  72 20 63 68 61 72 61 63  |"The four charac|
00000460  74 65 72 73 2e 20 54 68  65 20 4c 45 50 52 45 43  |ters. The LEPREC|
00000470  48 41 55 4e 2c 20 20 20  20 45 4e 43 48 41 4e 54  |HAUN,    ENCHANT|
00000480  45 52 2c 20 54 49 54 41  4e 20 61 6e 64 20 57 41  |ER, TITAN and WA|
00000490  52 52 49 4f 52 20 20 20  20 20 20 20 20 20 20 20  |RRIOR           |
000004a0  20 72 65 73 70 65 63 74  69 76 65 6c 79 2e 22 29  | respectively.")|
000004b0  3a f2 73 70 63 0d 00 d2  d2 f2 70 28 33 2c 36 2c  |:.spc.....p(3,6,|
000004c0  33 37 29 3a f2 70 28 31  33 2c 36 2c 34 31 29 3a  |37):.p(13,6,41):|
000004d0  f2 70 28 32 34 2c 36 2c  36 38 29 3a f2 70 28 33  |.p(24,6,68):.p(3|
000004e0  34 2c 36 2c 36 34 29 3a  f2 74 28 22 54 68 65 73  |4,6,64):.t("Thes|
000004f0  65 20 61 72 65 20 74 68  65 20 63 68 61 72 61 63  |e are the charac|
00000500  74 65 72 73 20 77 65 61  70 6f 6e 73 2e 20 54 68  |ters weapons. Th|
00000510  65 20 20 20 4c 65 70 72  65 63 68 61 75 6e 73 20  |e   Leprechauns |
00000520  61 72 72 6f 77 2c 20 74  68 65 20 45 6e 63 68 61  |arrow, the Encha|
00000530  6e 74 65 72 73 20 20 20  20 20 20 20 66 69 72 65  |nters       fire|
00000540  62 61 6c 6c 2c 20 74 68  65 20 54 69 74 61 6e 73  |ball, the Titans|
00000550  20 61 78 65 20 61 6e 64  20 74 68 65 20 20 20 20  | axe and the    |
00000560  20 20 20 20 57 61 72 72  69 6f 72 73 20 73 77 6f  |    Warriors swo|
00000570  72 64 20 72 65 73 70 65  63 74 69 76 65 6c 79 2e  |rd respectively.|
00000580  22 29 3a f2 73 70 63 0d  00 dc 82 f2 70 28 31 33  |"):.spc.....p(13|
00000590  2c 36 2c 34 35 29 3a f2  70 28 32 34 2c 36 2c 34  |,6,45):.p(24,6,4|
000005a0  36 29 3a f2 74 28 22 54  68 65 73 65 20 61 72 65  |6):.t("These are|
000005b0  20 64 6f 6f 72 73 2e 20  41 20 6b 65 79 20 69 73  | doors. A key is|
000005c0  20 6e 65 65 64 65 64 20  74 6f 20 6f 70 65 6e 61  | needed to opena|
000005d0  20 64 6f 6f 72 2e 20 54  6f 20 6f 70 65 6e 20 61  | door. To open a|
000005e0  20 64 6f 6f 72 20 73 69  6d 70 6c 79 20 6d 6f 76  | door simply mov|
000005f0  65 20 20 20 20 20 20 61  67 61 69 6e 73 74 20 69  |e      against i|
00000600  74 2e 22 29 3a f2 73 70  63 0d 00 e6 6e f2 70 28  |t."):.spc...n.p(|
00000610  31 38 2c 36 2c 34 39 29  3a f2 74 28 22 54 68 69  |18,6,49):.t("Thi|
00000620  73 20 69 73 20 61 20 6b  65 79 2e 20 45 61 63 68  |s is a key. Each|
00000630  20 6b 65 79 20 77 69 6c  6c 20 6f 70 65 6e 20 61  | key will open a|
00000640  6e 79 20 20 20 6f 6e 65  20 64 6f 6f 72 2e 20 54  |ny   one door. T|
00000650  6f 20 74 61 6b 65 20 61  20 6b 65 79 20 73 69 6d  |o take a key sim|
00000660  70 6c 79 20 77 61 6c 6b  20 6f 76 65 72 69 74 2e  |ply walk overit.|
00000670  22 29 3a f2 73 70 63 0d  00 f0 82 f2 70 28 31 38  |"):.spc.....p(18|
00000680  2c 36 2c 34 38 29 3a f2  74 28 22 54 68 69 73 20  |,6,48):.t("This |
00000690  69 73 20 66 6f 6f 64 20  77 68 69 63 68 20 77 69  |is food which wi|
000006a0  6c 6c 20 62 6f 6f 73 74  20 74 68 65 20 20 20 20  |ll boost the    |
000006b0  20 20 20 63 68 61 72 61  63 74 65 72 73 20 68 65  |   characters he|
000006c0  61 6c 74 68 20 62 79 20  38 30 20 70 6f 69 6e 74  |alth by 80 point|
000006d0  73 2e 20 54 6f 20 74 61  6b 65 20 66 6f 6f 64 20  |s. To take food |
000006e0  6a 75 73 74 20 77 61 6c  6b 20 6f 76 65 72 20 69  |just walk over i|
000006f0  74 2e 22 29 3a f2 73 70  63 0d 00 fa a4 f2 70 28  |t."):.spc.....p(|
00000700  31 38 2c 36 2c 35 30 29  3a f2 74 28 22 54 68 69  |18,6,50):.t("Thi|
00000710  73 20 69 73 20 61 20 67  68 6f 73 74 2e 20 47 68  |s is a ghost. Gh|
00000720  6f 73 74 73 20 63 61 6e  20 62 65 20 6b 69 6c 6c  |osts can be kill|
00000730  65 64 20 62 79 6d 69 73  73 69 6c 65 20 66 69 72  |ed bymissile fir|
00000740  65 20 6f 72 20 68 61 6e  64 20 74 6f 20 68 61 6e  |e or hand to han|
00000750  64 20 63 6f 6d 62 61 74  2e 20 20 20 20 47 68 6f  |d combat.    Gho|
00000760  73 74 73 20 63 6f 6d 65  20 6f 75 74 20 6f 66 20  |sts come out of |
00000770  73 6b 65 6c 65 74 6f 6e  73 20 62 75 74 20 63 61  |skeletons but ca|
00000780  6e 27 74 20 20 74 61 6b  65 20 6d 75 63 68 20 64  |n't  take much d|
00000790  61 6d 61 67 65 2e 22 29  3a f2 73 70 63 0d 01 04  |amage."):.spc...|
000007a0  a1 f2 70 28 31 38 2c 36  2c 35 34 29 3a f2 74 28  |..p(18,6,54):.t(|
000007b0  22 54 68 69 73 20 69 73  20 61 20 67 75 61 72 64  |"This is a guard|
000007c0  2e 20 47 75 61 72 64 73  20 63 61 6e 20 62 65 20  |. Guards can be |
000007d0  6b 69 6c 6c 65 64 20 62  79 6d 69 73 73 69 6c 65  |killed bymissile|
000007e0  20 66 69 72 65 20 6f 72  20 68 61 6e 64 20 74 6f  | fire or hand to|
000007f0  20 68 61 6e 64 20 63 6f  6d 62 61 74 2e 20 20 20  | hand combat.   |
00000800  20 47 75 61 72 64 73 20  63 6f 6d 65 20 6f 75 74  | Guards come out|
00000810  20 6f 66 20 68 75 74 73  20 61 6e 64 20 61 72 65  | of huts and are|
00000820  20 71 75 69 74 65 20 20  20 74 6f 75 67 68 20 74  | quite   tough t|
00000830  6f 20 6b 69 6c 6c 2e 22  29 3a f2 73 70 63 0d 01  |o kill."):.spc..|
00000840  0e b3 f2 70 28 31 38 2c  36 2c 35 38 29 3a f2 74  |...p(18,6,58):.t|
00000850  28 22 54 68 69 73 20 69  73 20 74 68 65 20 74 72  |("This is the tr|
00000860  61 70 64 6f 6f 72 20 77  68 69 63 68 20 6c 65 61  |apdoor which lea|
00000870  64 73 20 64 6f 77 6e 20  74 6f 74 68 65 20 6e 65  |ds down tothe ne|
00000880  78 74 20 6c 65 76 65 6c  2e 20 54 68 65 20 74 72  |xt level. The tr|
00000890  61 70 64 6f 6f 72 20 63  61 6e 20 6f 6e 6c 79 20  |apdoor can only |
000008a0  62 65 6f 70 65 6e 65 64  20 77 68 65 6e 20 74 68  |beopened when th|
000008b0  65 20 6d 61 73 74 65 72  20 6b 65 79 20 61 6e 64  |e master key and|
000008c0  20 61 6c 6c 20 6f 66 20  20 20 74 68 65 20 74 72  | all of   the tr|
000008d0  65 61 73 75 72 65 20 68  61 73 20 62 65 65 6e 20  |easure has been |
000008e0  63 6f 6c 6c 65 63 74 65  64 2e 22 29 3a f2 73 70  |collected."):.sp|
000008f0  63 0d 01 18 b9 f2 70 28  31 38 2c 36 2c 35 39 29  |c.....p(18,6,59)|
00000900  3a f2 74 28 22 54 68 69  73 20 69 73 20 61 20 74  |:.t("This is a t|
00000910  72 65 61 73 75 72 65 20  63 68 65 73 74 2e 20 41  |reasure chest. A|
00000920  6c 6c 20 6f 66 20 74 68  65 20 20 20 20 74 72 65  |ll of the    tre|
00000930  61 73 75 72 65 20 63 68  65 73 74 73 20 6f 6e 20  |asure chests on |
00000940  61 20 6c 65 76 65 6c 20  6d 75 73 74 20 62 65 20  |a level must be |
00000950  20 20 20 20 20 63 6f 6c  6c 65 63 74 65 64 20 62  |     collected b|
00000960  65 66 6f 72 65 20 74 68  65 20 74 72 61 70 64 6f  |efore the trapdo|
00000970  6f 72 20 77 69 6c 6c 20  6f 70 65 6e 2e 54 6f 20  |or will open.To |
00000980  63 6f 6c 6c 65 63 74 20  74 72 65 61 73 75 72 65  |collect treasure|
00000990  20 6a 75 73 74 20 6d 6f  76 65 20 6f 76 65 72 20  | just move over |
000009a0  69 74 2e 22 29 3a f2 73  70 63 0d 01 22 7a f2 70  |it."):.spc.."z.p|
000009b0  28 31 38 2c 36 2c 36 30  29 3a f2 74 28 22 54 68  |(18,6,60):.t("Th|
000009c0  69 73 20 69 73 20 61 20  63 72 6f 73 73 20 6f 66  |is is a cross of|
000009d0  20 72 65 6a 75 76 65 6e  61 74 69 6f 6e 2e 20 57  | rejuvenation. W|
000009e0  68 65 6e 20 20 20 74 61  6b 65 6e 20 69 74 20 77  |hen   taken it w|
000009f0  69 6c 6c 20 69 6e 63 72  65 61 73 65 20 65 76 65  |ill increase eve|
00000a00  72 79 20 63 68 61 72 61  63 74 65 72 73 20 68 65  |ry characters he|
00000a10  61 6c 74 68 20 62 79 20  31 30 30 30 2e 22 29 3a  |alth by 1000."):|
00000a20  f2 73 70 63 0d 01 2c da  f2 70 28 31 38 2c 36 2c  |.spc..,..p(18,6,|
00000a30  36 31 29 3a f2 74 28 22  54 68 69 73 20 69 73 20  |61):.t("This is |
00000a40  61 20 73 74 61 66 66 20  6f 66 20 73 70 65 65 64  |a staff of speed|
00000a50  2e 20 57 68 65 6e 20 74  61 6b 65 6e 20 62 79 20  |. When taken by |
00000a60  74 68 65 20 63 68 61 72  61 63 74 65 72 2c 20 69  |the character, i|
00000a70  74 20 77 69 6c 6c 20 65  6e 61 62 6c 65 20 74 68  |t will enable th|
00000a80  65 20 20 20 20 20 20 20  45 6e 63 68 61 6e 74 65  |e       Enchante|
00000a90  72 2c 20 54 69 74 61 6e  20 61 6e 64 20 57 61 72  |r, Titan and War|
00000aa0  72 69 6f 72 20 74 6f 20  72 75 6e 20 61 73 20 20  |rior to run as  |
00000ab0  66 61 73 74 20 61 73 20  74 68 65 20 4c 65 70 72  |fast as the Lepr|
00000ac0  65 63 68 61 75 6e 2e 20  54 68 65 20 65 66 66 65  |echaun. The effe|
00000ad0  63 74 20 77 69 6c 6c 20  77 65 61 72 20 6f 66 66  |ct will wear off|
00000ae0  20 62 65 66 6f 72 65 20  74 68 65 20 6e 65 78 74  | before the next|
00000af0  20 6c 65 76 65 6c 2e 22  29 3a f2 73 70 63 0d 01  | level."):.spc..|
00000b00  36 64 f2 70 28 31 38 2c  36 2c 36 32 29 3a f2 74  |6d.p(18,6,62):.t|
00000b10  28 22 54 68 69 73 20 69  73 20 61 20 6d 61 67 69  |("This is a magi|
00000b20  63 20 6f 72 62 20 77 68  69 63 68 20 77 69 6c 6c  |c orb which will|
00000b30  20 72 65 76 65 72 73 65  20 20 74 68 65 20 65 66  | reverse  the ef|
00000b40  66 65 63 74 20 6f 66 20  74 68 65 20 73 74 61 66  |fect of the staf|
00000b50  66 20 6f 66 20 73 70 65  65 64 2e 22 29 3a f2 73  |f of speed."):.s|
00000b60  70 63 0d 01 40 7a f2 70  28 31 38 2c 36 2c 36 33  |pc..@z.p(18,6,63|
00000b70  29 3a f2 74 28 22 54 68  69 73 20 69 73 20 61 6e  |):.t("This is an|
00000b80  20 61 6d 75 6c 65 74 20  6f 66 20 68 65 61 6c 69  | amulet of heali|
00000b90  6e 67 2e 20 57 68 65 6e  20 74 61 6b 65 6e 69 74  |ng. When takenit|
00000ba0  20 77 69 6c 6c 20 67 69  76 65 20 74 68 65 20 63  | will give the c|
00000bb0  68 61 72 61 63 74 65 72  20 69 6e 20 75 73 65 20  |haracter in use |
00000bc0  61 20 20 20 20 20 68 65  61 6c 74 68 20 6f 66 20  |a     health of |
00000bd0  34 30 30 30 2e 22 29 3a  f2 73 70 63 0d 01 68 ce  |4000."):.spc..h.|
00000be0  f2 70 28 31 33 2c 36 2c  38 35 29 3a f2 70 28 32  |.p(13,6,85):.p(2|
00000bf0  33 2c 36 2c 38 37 29 3a  f2 74 28 22 54 68 65 73  |3,6,87):.t("Thes|
00000c00  65 20 61 72 65 20 73 6b  65 6c 65 74 6f 6e 73 2e  |e are skeletons.|
00000c10  20 47 68 6f 73 74 73 20  77 69 6c 6c 20 61 70 70  | Ghosts will app|
00000c20  65 61 72 20 66 72 6f 6d  20 73 6b 65 6c 65 74 6f  |ear from skeleto|
00000c30  6e 73 2e 20 53 6b 65 6c  65 74 6f 6e 73 20 63 61  |ns. Skeletons ca|
00000c40  6e 20 62 65 20 20 20 20  20 20 20 20 64 65 73 74  |n be        dest|
00000c50  72 6f 79 65 64 20 62 79  20 6d 69 73 73 69 6c 65  |royed by missile|
00000c60  73 20 6f 66 20 77 65 61  70 6f 6e 20 73 74 72 65  |s of weapon stre|
00000c70  6e 67 74 68 34 20 6f 72  20 68 69 67 68 65 72 20  |ngth4 or higher |
00000c80  62 75 74 20 6e 6f 74 20  62 79 20 68 61 6e 64 20  |but not by hand |
00000c90  74 6f 20 68 61 6e 64 20  20 20 20 20 63 6f 6d 62  |to hand     comb|
00000ca0  61 74 2e 22 29 3a f2 73  70 63 0d 01 72 79 f2 70  |at."):.spc..ry.p|
00000cb0  28 35 2c 36 2c 38 36 29  3a f2 70 28 31 38 2c 36  |(5,6,86):.p(18,6|
00000cc0  2c 31 32 38 29 3a f2 70  28 33 31 2c 36 2c 31 32  |,128):.p(31,6,12|
00000cd0  39 29 3a f2 74 28 22 54  68 65 73 65 20 61 72 65  |9):.t("These are|
00000ce0  20 73 70 69 6b 65 73 2e  20 53 70 69 6b 65 73 20  | spikes. Spikes |
00000cf0  77 69 6c 6c 20 64 72 61  69 6e 20 74 68 65 20 63  |will drain the c|
00000d00  68 61 72 61 63 74 65 72  73 20 68 65 61 6c 74 68  |haracters health|
00000d10  20 6f 6e 20 63 6f 6e 74  61 63 74 2e 22 29 3a f2  | on contact."):.|
00000d20  73 70 63 0d 01 7c b2 f2  70 28 31 38 2c 36 2c 38  |spc..|..p(18,6,8|
00000d30  38 29 3a f2 74 28 22 54  68 69 73 20 69 73 20 61  |8):.t("This is a|
00000d40  20 67 75 61 72 64 73 20  68 75 74 2e 20 47 75 61  | guards hut. Gua|
00000d50  72 64 73 20 77 69 6c 6c  20 61 70 70 65 61 72 66  |rds will appearf|
00000d60  72 6f 6d 20 68 65 72 65  2e 20 48 75 74 73 20 63  |rom here. Huts c|
00000d70  61 6e 20 62 65 20 64 65  73 74 72 6f 79 65 64 20  |an be destroyed |
00000d80  62 79 20 20 20 20 20 6d  69 73 73 69 6c 65 73 20  |by     missiles |
00000d90  6f 66 20 77 65 61 70 6f  6e 20 73 74 72 65 6e 67  |of weapon streng|
00000da0  74 68 20 37 20 6f 72 20  68 69 67 68 65 72 20 62  |th 7 or higher b|
00000db0  75 74 20 6e 6f 74 20 62  79 20 68 61 6e 64 20 74  |ut not by hand t|
00000dc0  6f 20 68 61 6e 64 20 63  6f 6d 62 61 74 2e 22 29  |o hand combat.")|
00000dd0  3a f2 73 70 63 0d 01 86  a5 44 25 3d 38 39 3a e3  |:.spc....D%=89:.|
00000de0  4c 25 3d 33 20 b8 20 33  33 20 88 20 31 30 3a f2  |L%=3 . 33 . 10:.|
00000df0  70 28 4c 25 2c 36 2c 44  25 29 3a 44 25 3d 44 25  |p(L%,6,D%):D%=D%|
00000e00  2b 31 3a ed 3a f2 74 28  22 54 68 65 73 65 20 61  |+1:.:.t("These a|
00000e10  72 65 20 70 61 73 73 61  67 65 73 20 77 68 69 63  |re passages whic|
00000e20  68 20 62 65 63 6f 6d 65  20 6e 61 72 72 6f 77 65  |h become narrowe|
00000e30  72 74 6f 77 61 72 64 73  20 6f 6e 65 20 65 6e 64  |rtowards one end|
00000e40  2e 20 54 68 65 73 65 20  70 61 73 73 61 67 65 73  |. These passages|
00000e50  20 63 61 6e 20 6f 6e 6c  79 62 65 20 75 73 65 64  | can onlybe used|
00000e60  20 66 72 6f 6d 20 74 68  65 20 77 69 64 65 20 65  | from the wide e|
00000e70  6e 64 2e 22 29 3a f2 73  70 63 0d 01 90 d5 44 25  |nd."):.spc....D%|
00000e80  3d 31 31 30 3a e3 4c 25  3d 33 20 b8 20 33 33 20  |=110:.L%=3 . 33 |
00000e90  88 20 31 30 3a f2 70 28  4c 25 2c 36 2c 44 25 29  |. 10:.p(L%,6,D%)|
00000ea0  3a 44 25 3d 44 25 2b 31  3a ed 3a f2 74 28 22 54  |:D%=D%+1:.:.t("T|
00000eb0  68 65 73 65 20 61 72 65  20 73 6c 69 64 65 72 73  |hese are sliders|
00000ec0  2e 20 53 6c 69 64 65 72  73 20 77 69 6c 6c 20 6d  |. Sliders will m|
00000ed0  6f 76 65 20 69 6e 20 74  68 65 20 64 69 72 65 63  |ove in the direc|
00000ee0  74 69 6f 6e 20 6f 66 20  74 68 65 69 72 20 61 72  |tion of their ar|
00000ef0  72 6f 77 20 75 6e 6c 65  73 73 20 20 20 20 20 74  |row unless     t|
00000f00  68 65 72 65 20 69 73 20  61 6e 20 6f 62 73 74 72  |here is an obstr|
00000f10  75 63 74 69 6f 6e 2e 20  49 66 20 74 68 65 20 20  |uction. If the  |
00000f20  20 20 20 20 20 20 20 63  68 61 72 61 63 74 65 72  |       character|
00000f30  20 62 6c 6f 63 6b 73 20  74 68 65 20 70 61 74 68  | blocks the path|
00000f40  20 6f 66 20 61 20 73 6c  69 64 65 72 2c 22 29 0d  | of a slider,").|
00000f50  01 9a 25 f1 22 69 74 20  77 69 6c 6c 20 64 72 61  |..%."it will dra|
00000f60  69 6e 20 68 69 73 20 68  65 61 6c 74 68 2e 22 3a  |in his health.":|
00000f70  f2 73 70 63 0d 01 a4 65  f2 70 28 31 38 2c 36 2c  |.spc...e.p(18,6,|
00000f80  39 33 29 3a f2 74 28 22  54 68 69 73 20 69 73 20  |93):.t("This is |
00000f90  61 20 73 74 65 61 6c 65  72 2e 20 53 74 65 61 6c  |a stealer. Steal|
00000fa0  65 72 73 20 77 69 6c 6c  20 64 65 73 74 72 6f 79  |ers will destroy|
00000fb0  61 6c 6c 20 6b 65 79 73  20 62 65 69 6e 67 20 63  |all keys being c|
00000fc0  61 72 72 69 65 64 20 6f  6e 20 63 6f 6e 74 61 63  |arried on contac|
00000fd0  74 2e 22 29 3a f2 73 70  63 0d 01 ae d1 f2 70 28  |t."):.spc.....p(|
00000fe0  31 38 2c 36 2c 39 34 29  3a f2 74 28 22 54 68 69  |18,6,94):.t("Thi|
00000ff0  73 20 69 73 20 61 20 76  6f 72 74 65 78 2e 20 4f  |s is a vortex. O|
00001000  6e 20 63 6f 6e 74 61 63  74 2c 20 74 68 65 20 20  |n contact, the  |
00001010  20 20 20 20 20 6c 65 66  74 2d 6d 6f 73 74 20 64  |     left-most d|
00001020  69 67 69 74 20 6f 66 20  74 68 65 20 63 68 61 72  |igit of the char|
00001030  61 63 74 65 72 73 20 68  65 61 6c 74 68 77 69 6c  |acters healthwil|
00001040  6c 20 62 65 20 6d 6f 76  65 64 20 72 69 67 68 74  |l be moved right|
00001050  20 6f 6e 65 20 70 6c 61  63 65 20 61 6e 64 20 74  | one place and t|
00001060  68 65 20 20 20 6c 65 66  74 2d 6d 6f 73 74 20 64  |he   left-most d|
00001070  69 67 69 74 20 77 69 6c  6c 20 62 65 63 6f 6d 65  |igit will become|
00001080  20 30 2e 20 20 20 20 20  20 20 20 20 20 65 2e 67  | 0.          e.g|
00001090  2e 20 32 33 34 35 20 62  65 63 6f 6d 65 73 20 30  |. 2345 becomes 0|
000010a0  32 34 35 22 29 3a f2 73  70 63 0d 01 b8 50 f2 70  |245"):.spc...P.p|
000010b0  28 31 38 2c 36 2c 39 35  29 3a f2 74 28 22 54 68  |(18,6,95):.t("Th|
000010c0  69 73 20 69 73 20 61 20  70 6f 74 69 6f 6e 2e 20  |is is a potion. |
000010d0  54 6f 20 74 61 6b 65 20  61 20 70 6f 74 69 6f 6e  |To take a potion|
000010e0  20 6a 75 73 74 20 77 61  6c 6b 20 6f 76 65 72 20  | just walk over |
000010f0  69 74 2e 22 29 3a f2 73  70 63 0d 01 c2 8b f2 70  |it."):.spc.....p|
00001100  28 31 38 2c 36 2c 39 36  29 3a f2 74 28 22 54 68  |(18,6,96):.t("Th|
00001110  69 73 20 69 73 20 61 20  6d 61 67 69 63 20 73 68  |is is a magic sh|
00001120  69 65 6c 64 2e 20 57 68  65 6e 20 74 61 6b 65 6e  |ield. When taken|
00001130  2c 20 69 74 20 20 77 69  6c 6c 20 69 6e 63 72 65  |, it  will incre|
00001140  61 73 65 20 74 68 65 20  63 68 61 72 61 63 74 65  |ase the characte|
00001150  72 73 20 61 72 6d 6f 75  72 20 20 20 20 20 76 61  |rs armour     va|
00001160  6c 75 65 20 62 79 20 31  20 75 70 20 74 6f 20 61  |lue by 1 up to a|
00001170  20 6d 61 78 69 6d 75 6d  20 6f 66 20 39 2e 22 29  | maximum of 9.")|
00001180  3a f2 73 70 63 0d 01 cc  95 f2 70 28 31 38 2c 36  |:.spc.....p(18,6|
00001190  2c 39 37 29 3a f2 74 28  22 54 68 69 73 20 69 73  |,97):.t("This is|
000011a0  20 61 20 6d 61 67 69 63  20 73 77 6f 72 64 2e 20  | a magic sword. |
000011b0  57 68 65 6e 20 74 61 6b  65 6e 2c 20 69 74 20 20  |When taken, it  |
000011c0  20 77 69 6c 6c 20 69 6e  63 72 65 61 73 65 20 74  | will increase t|
000011d0  68 65 20 63 68 61 72 61  63 74 65 72 73 20 77 65  |he characters we|
000011e0  61 70 6f 6e 20 20 20 20  20 73 74 72 65 6e 67 74  |apon     strengt|
000011f0  68 20 76 61 6c 75 65 20  62 79 20 31 20 75 70 20  |h value by 1 up |
00001200  74 6f 20 61 20 6d 61 78  69 6d 75 6d 20 6f 66 20  |to a maximum of |
00001210  20 39 2e 22 29 3a f2 73  70 63 0d 01 d6 85 f2 70  | 9."):.spc.....p|
00001220  28 31 38 2c 36 2c 39 38  29 3a f2 74 28 22 54 68  |(18,6,98):.t("Th|
00001230  69 73 20 69 73 20 61 20  6d 61 67 69 63 20 73 63  |is is a magic sc|
00001240  72 6f 6c 6c 2e 20 57 68  65 6e 20 74 61 6b 65 6e  |roll. When taken|
00001250  2c 20 69 74 20 20 77 69  6c 6c 20 69 6e 63 72 65  |, it  will incre|
00001260  61 73 65 20 74 68 65 20  63 68 61 72 61 63 74 65  |ase the characte|
00001270  72 73 20 6d 61 67 69 63  20 76 61 6c 75 65 62 79  |rs magic valueby|
00001280  20 31 20 75 70 20 74 6f  20 61 20 6d 61 78 69 6d  | 1 up to a maxim|
00001290  75 6d 20 6f 66 20 39 2e  22 29 3a f2 73 70 63 0d  |um of 9."):.spc.|
000012a0  01 e0 63 f2 70 28 31 38  2c 36 2c 39 39 29 3a f2  |..c.p(18,6,99):.|
000012b0  74 28 22 54 68 69 73 20  69 73 20 61 20 63 61 73  |t("This is a cas|
000012c0  6b 20 6f 66 20 62 65 65  72 2e 20 54 68 65 20 54  |k of beer. The T|
000012d0  69 74 61 6e 20 63 61 6e  20 20 20 70 75 73 68 20  |itan can   push |
000012e0  63 61 73 6b 73 20 69 6e  74 6f 20 61 6e 79 20 65  |casks into any e|
000012f0  6d 70 74 79 20 73 70 61  63 65 2e 22 29 3a f2 73  |mpty space."):.s|
00001300  70 63 0d 01 ea 5e f2 70  28 31 38 2c 36 2c 31 30  |pc...^.p(18,6,10|
00001310  30 29 3a f2 74 28 22 54  68 65 73 65 20 61 72 65  |0):.t("These are|
00001320  20 76 69 6e 65 73 2e 20  4f 6e 6c 79 20 74 68 65  | vines. Only the|
00001330  20 57 61 72 72 69 6f 72  20 63 61 6e 20 20 20 63  | Warrior can   c|
00001340  75 74 20 68 65 72 20 77  61 79 20 74 68 72 6f 75  |ut her way throu|
00001350  67 68 20 74 68 65 73 65  2e 22 29 3a f2 73 70 63  |gh these."):.spc|
00001360  0d 01 f4 5d f2 70 28 31  38 2c 36 2c 31 30 31 29  |...].p(18,6,101)|
00001370  3a f2 74 28 22 54 68 69  73 20 69 73 20 61 20 6d  |:.t("This is a m|
00001380  61 67 69 63 20 70 65 6e  74 61 67 72 61 6d 2e 20  |agic pentagram. |
00001390  4f 6e 6c 79 20 74 68 65  20 20 20 20 20 45 6e 63  |Only the     Enc|
000013a0  68 61 6e 74 65 72 20 63  61 6e 20 63 72 6f 73 73  |hanter can cross|
000013b0  20 74 68 69 73 2e 22 29  3a f2 73 70 63 0d 01 fe  | this."):.spc...|
000013c0  62 f2 70 28 31 35 2c 36  2c 31 30 32 29 3a f2 70  |b.p(15,6,102):.p|
000013d0  28 32 32 2c 36 2c 31 30  33 29 3a f2 74 28 22 54  |(22,6,103):.t("T|
000013e0  68 65 73 65 20 61 72 65  20 6c 6f 67 73 2e 20 4f  |hese are logs. O|
000013f0  6e 6c 79 20 74 68 65 20  4c 65 70 72 65 63 68 61  |nly the Leprecha|
00001400  75 6e 20 63 61 6e 20 63  6c 69 6d 62 20 6f 76 65  |un can climb ove|
00001410  72 20 74 68 65 73 65 2e  22 29 3a f2 73 70 63 0d  |r these."):.spc.|
00001420  02 08 69 f2 70 28 31 38  2c 36 2c 31 30 34 29 3a  |..i.p(18,6,104):|
00001430  f2 74 28 22 54 68 69 73  20 69 73 20 61 20 74 69  |.t("This is a ti|
00001440  6d 65 20 70 69 6c 6c 2e  20 57 68 65 6e 20 74 61  |me pill. When ta|
00001450  6b 65 6e 20 69 74 20 77  69 6c 6c 20 72 65 73 65  |ken it will rese|
00001460  74 20 74 68 65 20 74 69  6d 65 72 20 74 6f 20 69  |t the timer to i|
00001470  74 73 20 69 6e 69 74 69  61 6c 20 76 61 6c 75 65  |ts initial value|
00001480  2e 22 29 3a f2 73 70 63  0d 02 12 af f2 70 28 31  |."):.spc.....p(1|
00001490  38 2c 36 2c 31 30 35 29  3a f2 74 28 22 54 68 69  |8,6,105):.t("Thi|
000014a0  73 20 69 73 20 61 20 62  6f 6d 62 2e 20 57 68 65  |s is a bomb. Whe|
000014b0  6e 20 74 6f 75 63 68 65  64 20 69 74 20 77 69 6c  |n touched it wil|
000014c0  6c 20 20 20 20 65 78 70  6c 6f 64 65 2c 20 68 75  |l    explode, hu|
000014d0  72 74 69 6e 67 20 74 68  65 20 63 68 61 72 61 63  |rting the charac|
000014e0  74 65 72 20 61 6e 64 20  20 20 20 20 20 64 65 73  |ter and      des|
000014f0  74 72 6f 79 69 6e 67 20  77 68 61 74 65 76 65 72  |troying whatever|
00001500  20 69 73 20 64 69 72 65  63 74 6c 79 20 6e 6f 72  | is directly nor|
00001510  74 68 2c 20 20 73 6f 75  74 68 2c 20 65 61 73 74  |th,  south, east|
00001520  20 61 6e 64 20 77 65 73  74 20 6f 66 20 69 74 2e  | and west of it.|
00001530  22 29 3a f2 73 70 63 0d  02 1c 99 f2 70 28 31 38  |"):.spc.....p(18|
00001540  2c 36 2c 31 30 36 29 3a  f2 74 28 22 54 68 69 73  |,6,106):.t("This|
00001550  20 69 73 20 61 6e 20 61  6d 6d 6f 20 62 6f 78 2e  | is an ammo box.|
00001560  20 57 68 65 6e 20 74 61  6b 65 6e 20 69 74 20 77  | When taken it w|
00001570  69 6c 6c 20 69 6e 63 72  65 61 73 65 20 74 68 65  |ill increase the|
00001580  20 6e 75 6d 62 65 72 20  6f 66 20 77 65 61 70 6f  | number of weapo|
00001590  6e 73 20 74 68 65 20 20  20 20 20 20 63 68 61 72  |ns the      char|
000015a0  61 63 74 65 72 20 63 61  6e 20 66 69 72 65 20 62  |acter can fire b|
000015b0  79 20 31 20 75 70 20 74  6f 20 61 20 6d 61 78 69  |y 1 up to a maxi|
000015c0  6d 75 6d 20 6f 66 20 33  2e 22 29 3a f2 73 70 63  |mum of 3."):.spc|
000015d0  0d 02 26 93 f2 70 28 31  38 2c 36 2c 31 30 37 29  |..&..p(18,6,107)|
000015e0  3a f2 74 28 22 54 68 69  73 20 69 73 20 61 20 74  |:.t("This is a t|
000015f0  65 6c 65 70 6f 72 74 65  72 2e 20 57 68 65 6e 20  |eleporter. When |
00001600  74 6f 75 63 68 65 64 20  69 74 20 20 20 77 69 6c  |touched it   wil|
00001610  6c 20 6d 6f 76 65 20 74  68 65 20 63 68 61 72 61  |l move the chara|
00001620  63 74 65 72 20 74 6f 20  73 6f 6d 65 77 68 65 72  |cter to somewher|
00001630  65 20 6f 6e 20 74 68 65  20 73 61 6d 65 20 6c 65  |e on the same le|
00001640  76 65 6c 20 61 6e 64 20  77 69 6c 6c 20 64 65 73  |vel and will des|
00001650  74 72 6f 79 20 69 74 73  65 6c 66 2e 22 29 3a f2  |troy itself."):.|
00001660  73 70 63 0d 02 30 9b f2  70 28 31 38 2c 36 2c 31  |spc..0..p(18,6,1|
00001670  30 38 29 3a f2 74 28 22  54 68 69 73 20 69 73 20  |08):.t("This is |
00001680  66 75 6e 67 75 73 2e 20  46 75 6e 67 75 73 20 77  |fungus. Fungus w|
00001690  69 6c 6c 20 67 72 6f 77  20 69 6e 74 6f 20 20 20  |ill grow into   |
000016a0  61 6e 79 20 65 6d 70 74  79 20 73 70 61 63 65 2e  |any empty space.|
000016b0  20 46 75 6e 67 75 73 20  63 61 6e 20 62 65 20 77  | Fungus can be w|
000016c0  61 6c 6b 65 64 20 20 20  74 68 72 6f 75 67 68 20  |alked   through |
000016d0  62 75 74 20 77 69 6c 6c  20 64 72 61 69 6e 20 74  |but will drain t|
000016e0  68 65 20 63 68 61 72 61  63 74 65 72 73 20 20 20  |he characters   |
000016f0  68 65 61 6c 74 68 2e 22  29 3a f2 73 70 63 0d 02  |health."):.spc..|
00001700  3a d2 f2 70 28 31 38 2c  36 2c 31 30 39 29 3a f2  |:..p(18,6,109):.|
00001710  74 28 22 54 68 69 73 20  69 73 20 61 20 73 70 65  |t("This is a spe|
00001720  6c 6c 62 6f 6f 6b 2e 20  57 68 65 6e 20 74 61 6b  |llbook. When tak|
00001730  65 6e 20 69 74 20 77 69  6c 6c 20 6d 61 6b 65 20  |en it will make |
00001740  74 68 65 20 73 65 63 6f  6e 64 2d 6c 65 66 74 20  |the second-left |
00001750  6d 6f 73 74 20 64 69 67  69 74 20 6f 66 20 74 68  |most digit of th|
00001760  65 20 20 63 68 61 72 61  63 74 65 72 73 20 68 65  |e  characters he|
00001770  61 6c 74 68 20 65 71 75  61 6c 20 74 68 65 20 72  |alth equal the r|
00001780  69 67 68 74 2d 6d 6f 73  74 20 20 64 69 67 69 74  |ight-most  digit|
00001790  20 61 6e 64 20 74 68 65  20 6c 65 66 74 2d 6d 6f  | and the left-mo|
000017a0  73 74 20 64 69 67 69 74  20 65 71 75 61 6c 20 30  |st digit equal 0|
000017b0  2e 20 20 65 2e 67 2e 20  32 33 34 35 20 62 65 63  |.  e.g. 2345 bec|
000017c0  6f 6d 65 73 20 30 35 34  35 22 29 3a f2 73 70 63  |omes 0545"):.spc|
000017d0  0d 02 44 6c f2 70 28 31  38 2c 36 2c 31 31 34 29  |..Dl.p(18,6,114)|
000017e0  3a f2 74 28 22 54 68 69  73 20 69 73 20 70 6f 69  |:.t("This is poi|
000017f0  73 6f 6e 65 64 20 66 6f  6f 64 2e 20 57 68 65 6e  |soned food. When|
00001800  20 74 61 6b 65 6e 20 69  74 20 20 20 20 77 69 6c  | taken it    wil|
00001810  6c 20 72 65 64 75 63 65  20 74 68 65 20 63 68 61  |l reduce the cha|
00001820  72 61 63 74 65 72 73 20  68 65 61 6c 74 68 20 62  |racters health b|
00001830  79 20 34 30 2e 22 29 3a  f2 73 70 63 0d 02 4e e1  |y 40."):.spc..N.|
00001840  f2 70 28 31 38 2c 36 2c  31 31 35 29 3a f2 74 28  |.p(18,6,115):.t(|
00001850  22 54 68 69 73 20 69 73  20 61 20 63 75 72 73 65  |"This is a curse|
00001860  64 20 72 69 6e 67 2e 20  57 68 65 6e 20 74 61 6b  |d ring. When tak|
00001870  65 6e 20 69 74 20 20 20  20 77 69 6c 6c 20 67 69  |en it    will gi|
00001880  76 65 20 74 68 65 20 66  6f 6c 6c 6f 77 69 6e 67  |ve the following|
00001890  20 65 66 66 65 63 74 73  20 3a 2d 22 29 3a f1 27  | effects :-"):.'|
000018a0  22 4c 65 70 72 65 63 68  61 75 6e 20 2d 20 41 72  |"Leprechaun - Ar|
000018b0  6d 6f 75 72 20 76 61 6c  75 65 20 3d 20 31 22 27  |mour value = 1"'|
000018c0  22 45 6e 63 68 61 6e 74  65 72 20 2d 20 57 65 61  |"Enchanter - Wea|
000018d0  70 6f 6e 20 73 74 72 65  6e 67 74 68 20 3d 20 31  |pon strength = 1|
000018e0  22 27 22 57 61 72 72 69  6f 72 20 2d 20 4e 75 6d  |"'"Warrior - Num|
000018f0  62 65 72 20 6f 66 20 77  65 61 70 6f 6e 73 20 3d  |ber of weapons =|
00001900  20 31 22 27 22 54 69 74  61 6e 20 2d 20 4d 61 67  | 1"'"Titan - Mag|
00001910  69 63 20 76 61 6c 75 65  20 3d 20 31 22 0d 02 58  |ic value = 1"..X|
00001920  08 f2 73 70 63 0d 02 62  60 f2 70 28 31 38 2c 36  |..spc..b`.p(18,6|
00001930  2c 31 31 38 29 3a f2 74  28 22 54 68 69 73 20 69  |,118):.t("This i|
00001940  73 20 74 68 65 20 6d 61  73 74 65 72 20 6b 65 79  |s the master key|
00001950  2e 20 54 68 69 73 20 6d  75 73 74 20 62 65 20 20  |. This must be  |
00001960  20 20 74 61 6b 65 6e 20  74 6f 20 6f 70 65 6e 20  |  taken to open |
00001970  74 68 65 20 74 72 61 70  20 64 6f 6f 72 2e 22 29  |the trap door.")|
00001980  3a f2 73 70 63 0d 02 76  9a f2 70 28 31 36 2c 36  |:.spc..v..p(16,6|
00001990  2c 31 33 30 29 3a f2 70  28 32 31 2c 36 2c 31 33  |,130):.p(21,6,13|
000019a0  31 29 3a f2 74 28 22 54  68 65 73 65 20 61 72 65  |1):.t("These are|
000019b0  20 73 70 72 75 6e 67 20  62 75 66 66 65 72 73 2e  | sprung buffers.|
000019c0  20 53 6c 69 64 65 72 73  20 61 6e 64 20 20 20 6d  | Sliders and   m|
000019d0  69 73 73 69 6c 65 73 20  77 69 6c 6c 20 62 6f 75  |issiles will bou|
000019e0  6e 63 65 20 6f 66 66 20  74 68 65 73 65 20 61 6e  |nce off these an|
000019f0  64 20 20 20 20 20 20 72  65 74 75 72 6e 20 69 6e  |d      return in|
00001a00  20 74 68 65 20 6f 70 70  6f 73 69 74 65 20 64 69  | the opposite di|
00001a10  72 65 63 74 69 6f 6e 2e  22 29 3a f2 73 70 63 0d  |rection."):.spc.|
00001a20  02 80 8a f2 70 28 31 38  2c 36 2c 31 33 32 29 3a  |....p(18,6,132):|
00001a30  f2 74 28 22 54 68 69 73  20 69 73 20 61 20 67 6f  |.t("This is a go|
00001a40  6c 64 65 6e 20 63 72 6f  77 6e 2e 20 54 68 69 73  |lden crown. This|
00001a50  20 69 73 20 61 6e 20 69  74 65 6d 20 6f 66 20 74  | is an item of t|
00001a60  72 65 61 73 75 72 65 20  77 68 69 63 68 20 64 6f  |reasure which do|
00001a70  65 73 6e 27 74 20 6e 65  65 64 20 74 6f 20 62 65  |esn't need to be|
00001a80  20 20 20 20 63 6f 6c 6c  65 63 74 65 64 20 74 6f  |    collected to|
00001a90  20 66 69 6e 69 73 68 20  74 68 65 20 6c 65 76 65  | finish the leve|
00001aa0  6c 2e 22 29 3a f2 73 70  63 0d 02 94 29 db 3a f1  |l."):.spc...).:.|
00001ab0  27 27 22 57 61 6e 74 20  74 6f 20 73 65 65 20 74  |''"Want to see t|
00001ac0  68 65 6d 20 61 67 61 69  6e 20 28 59 2f 4e 29 20  |hem again (Y/N) |
00001ad0  3f 22 0d 02 99 13 e7 20  a6 28 2d 36 39 29 20 8c  |?"..... .(-69) .|
00001ae0  20 8d 74 7e 40 0d 02 9e  13 e7 20 a6 28 2d 38 36  | .t~@..... .(-86|
00001af0  29 20 8c 20 8d 74 7c 42  0d 02 a8 0a e5 20 8d 74  |) . .t|B..... .t|
00001b00  59 42 0d 02 bc 0b 2a 46  58 31 33 20 34 0d 02 c6  |YB....*FX13 4...|
00001b10  54 eb 36 3a ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |T.6:.23,1,0;0;0;|
00001b20  30 3b 3a f1 8a 31 33 2c  31 29 3b 22 57 48 49 54  |0;:..13,1);"WHIT|
00001b30  45 20 4d 41 47 49 43 20  32 22 3b 8a 36 2c 31 30  |E MAGIC 2";.6,10|
00001b40  29 3b 22 54 68 65 20 67  61 6d 65 20 69 73 20 6e  |);"The game is n|
00001b50  6f 77 20 6c 6f 61 64 69  6e 67 22 27 27 27 27 27  |ow loading"'''''|
00001b60  27 0d 02 d0 12 d7 20 22  4d 41 47 49 43 32 47 41  |'..... "MAGIC2GA|
00001b70  4d 45 22 0d ff                                    |ME"..|
00001b75
INSTPROG.m0
INSTPROG.m1
INSTPROG.m2
INSTPROG.m4
INSTPROG.m5