10*FX200 3
20IFPAGE<>&1100THENPAGE=&1100:CHAIN"CASTLE"
30LOMEM=&1800
40ENVELOPE1,129,-8,2,0,1,4,0,15,0,0,-127,126,126
50ENVELOPE3,&81,-3,0,0,200,0,0,0,0,0,0,0,0
60MODE1:HIMEM=&2000:PROCT
70*FX15,1
80ENVELOPE1,&81,0,0,0,0,0,0,85,-20,0,0,85,0:ENVELOPE2,&81,-1,0,0,200,0,0,127,0,0,-127,126,0:ENVELOPE3,&81,-3,0,0,200,0,0,0,0,0,0,0,0:ENVELOPE4,&83,0,0,0,0,0,0,60,-20,0,0,60,0:ENVELOPE5,&81,2,2,-1,12,30,150,127,-1,0,-127,126,0
90MODE7:VDU23,1,0;0;0;0;
100FORA=0TO16STEP4:A!&3E0=A!&1700:NEXT
110*QUEST1
120DEFPROCT
130VDU23,1,0;0;0;0;
140VDU19,1;0;0;19,2,0;0;
150*FX9,10
160*FX10,5
170*L.QUEST2
180*FX15,0
190SOUND17,3,240,32:SOUND16,-15,7,16
200VDU19,1,8;0;19,2,15;0;19,0,15;0;:A=INKEY42:SOUND17,3,240,32:SOUND16,-15,7,16:A=INKEY15:SOUND17,3,240,32:SOUND16,-15,7,16
210!&80=&2400
220VDU19,0,0;0;
230PRINTTAB(8,17)"Program by Tony Sothcott"
240PROCA
250*L.QUEST3
260FORT%=&2000TO&255ASTEP3
270D%=(!T%)AND&FFFF:IF?D%=0THEN?D%=T%?2
280NEXT
290*L.QUEST4
300FORT%=&2600TO&2878STEP8
310T%!&5000=!T%:T%!&5004=T%!4:T%!&5280=T%!&280:T%!&5284=T%!&284
320T%!&5500=T%!&500:T%!&5504=T%!&504:T%!&5780=T%!&780:T%!&5784=T%!&784
330IF(T%MOD32)=0THENSOUND1,1,RND(30)+100,1
340A=INKEY1:NEXT:SOUND1,0,0,0
350*L.QUEST5
360FORT=0TO&5FSTEP4:T!&8C0=T!&29A0:NEXT:?&8C0=&81
370*FX14,5
380A%=4:X%=&78:Y%=0:CALL&FFF1
390PRINTTAB(9,19)"Press SPACE to begin...":A=GET:PRINTTAB(9,19)"The Quest begins here...":CALL&B46
400CALL&B26
410*FX15,0
420ENDPROC
430DEFPROCA
440*L.QUEST6
450!&78=&FFFFFFFC:?&7C=&FF
460*FX14,4
470CALL&ADD
480ENDPROC
04F8 80 18 20 80 18 4C 1B 2B .. ..L.+
0500 4C 7B 26 20 7B 26 4C 44 L{& {&LD
0508 23 20 44 23 4C FC 22 20 # D#L."
0510 44 23 20 15 23 20 20 23 D# .# #
0518 4C 39 2E 20 39 2E 4C C5 L9. 9.L.
0520 25 A5 71 30 7A BD 18 0D %.q0z...
0528 C9 04 30 0D 20 C0 00 F0 ..0. ...
0530 08 A9 FF 85 71 85 70 18 ....q.p.
0538 60 BD A0 0B 85 77 29 07 `....w).
0540 F0 5D 18 65 74 C9 08 10 .].et...
0548 56 BD E8 0B 85 78 A5 71 V....x.q
0550 F0 15 BD 30 0C 85 76 C6 ...0..v.
0558 76 30 44 20 69 07 D0 1F v0D i...
0560 68 68 4C 60 18 30 38 BD hhL`.08.
0568 30 0C 18 65 73 85 76 20 0..es.v
0570 69 07 C9 01 F0 29 C9 04 i....)..
0578 F0 14 BD 30 0C 85 76 20 ...0..v
0580 69 07 C9 0B F0 08 C9 06 i.......
0588 10 15 C9 04 30 11 BD 30 ....0..0
0590 0C 29 01 18 69 04 9D 18 .)..i...
0598 0D A9 FF 85 70 18 60 A9 ....p.`.
05A0 FF 85 71 38 60 A5 9E 30 ..q8`..0
05A8 35 A4 9C 30 31 A5 50 D0 5..01.P.
05B0 2D B9 00 00 C9 04 F0 1F -.......
05B8 48 A5 70 99 00 00 20 DC H.p... .
05C0 2E 68 99 00 00 84 72 20 .h....r
05C8 9A 21 20 DC 2E 20 50 1C .! .. P.
05D0 20 3F 1C A4 72 90 07 A9 ?..r...
05D8 FF 85 71 85 70 60 18 60 ..q.p`.`
05E0 A5 9E 85 70 A2 2F 10 C9 ...p./..
05E8 A2 2F A5 9D 10 14 20 98 ./.... .
05F0 21 20 10 09 A5 79 C9 10 ! ...y..
05F8 30 04 C9 3B 30 04 A5 70 0..;0..p
0600 A9 00 AA 9D 00 30 E8 D0 .....0..
0608 FA EE E5 03 10 F5 4C 28 ......L(
0610 15 26 37 43 3D 26 46 46 .&7C=&FF
0618 0D 03 02 0B 2A 46 58 31 ....*FX1
0620 34 2C 34 0D 03 0C 09 D6 4,4.....
0628 26 41 44 44 0D 03 16 05 &ADD....
0630 E1 0D FF 26 0C 88 CC 39 ...&...9
0638 0C D0 1C AD A9 0B 38 ED ......8.
0640 CF 0B 90 13 C9 03 B0 0F ........
0648 A9 FF 85 6D 85 53 85 6C ...m.S.l
0650 AE CF 17 BD D9 17 8D E6 ........
0658 17 BD DF 17 8D E7 17 BD ........
0660 D3 17 38 FD D2 17 8D D0 ..8.....
0668 17 BD D2 17 A0 13 38 C8 ......8.
0670 E9 0A 10 FB 69 0A 8C EC ....i...
0678 17 8D ED 17 A9 0A 38 ED ......8.
0680 ED 17 CD D0 17 90 03 AD ........
0688 D0 17 8D D1 17 09 20 8D ...... .
0690 EE 17 A9 7F A2 E5 A0 17 ........
0698 20 F1 FF AD EF 17 D0 2E .......
06A0 AD D0 17 38 ED D1 17 F0 ...8....
06A8 17 8D D0 17 EE EC 17 AD ........
06B0 EE 17 29 0F A8 EE E7 17 ..).....
06B8 88 D0 FA 8C ED 17 F0 BC ........
06C0 EE CF 17 AD CF 17 C9 06 ........
06C8 D0 03 4C 40 43 60 60 00 ..L@C``.
06D0 00 00 00 1C 1E 2E 3D 43 ......=C
06D8 73 10 00 00 80 00 00 3F s......?
06E0 0A 20 64 24 30 00 00 00 . d$0...
06E8 FF FF 03 53 00 00 00 00 ...S....
06F0 00 00 00 0A 20 64 24 30 .... d$0
06F8 00 00 00 FF FF 03 53 ......S