Home » Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_1_2.ADF » Sam1/Ravenskull/Ravenskull
Sam1/Ravenskull/Ravenskull
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_1_2.ADF |
Filename: | Sam1/Ravenskull/Ravenskull |
Read OK: | ✔ |
File size: | 0663 bytes |
Load address: | FFFF1D00 |
Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_1_2.ADF » Sam1/Ravenskull/Ravenskull
- Personal collection » Acorn hard disk » zipped_disks » elk07 » sam1_2/Sam1/Ravenskull/Ravenskull
File contents
5A%=163:X%=128:Y%=1:CALL&FFF4 10REM ///// CASTLE RAVENSKULL ///// 20REM ///// VERSION II ///// 30REM ///// Martin Edmondson ///// 40REM ///// Nick Chamberlain ///// 50REM ///// (C) 1986 ///// 60REM 65PROCCHRS 70PROCPIC 80*FX200,3 90*FX4,1 100MODE5:VDU23;8202;0;0;0; 110*LOAD PIC 115CLS 120FORI%=0TO3:VDU19,I%,0,0,0,0:NEXT:CALL&B00:VDU20:VDU19,2,4,0,0,0 130FORvol=0TO-15STEP-5:SOUND1,vol,0,1:SOUND2,vol,1,1:SOUND3,vol,0,1:NEXTvol 140FORvol=-15TO0:SOUND1,vol,0,2:SOUND2,vol,1,2:SOUND3,vol,0,2:NEXTvol 150A=INKEY(200) 160VDU28,3,21,16,18 180CHAIN"CONTROL" 190DEFPROCPIC 200P%=&B00 210[OPT2 220LDA#0:STA&70:LDA#&26:STA&71:LDA#&C0:STA&72:LDA#&60:STA&73:LDY#0:.loop LDA(&70),Y:STA(&72),Y:INY:BNEloop:INC&71:INC&73:LDA&71:CMP#&30:BNEloop:LDA#13:STA&9E:RTS 230] 240ENDPROC 29999DEFPROCCHRS 30000VDU23,65,63,102,102,254,102,102,204,0 30010VDU23,66,252,6,102,252,102,102,124,0 30020VDU23,67,252,6,98,96,98,102,62,0 30030VDU23,68,248,28,78,102,102,110,124,0 30040VDU23,69,254,2,100,124,100,98,254,0 30050VDU23,70,254,2,96,124,96,96,96,192 30060VDU23,71,252,6,96,108,102,102,62,6 30070VDU23,72,204,102,102,254,102,102,51,0 30080VDU23,73,126,90,24,24,24,90,126,0 30090VDU23,75,227,102,108,126,127,99,99,0 30100VDU23,76,192,96,96,96,98,98,126,0 30110VDU23,77,227,119,127,107,107,99,198,0 30120VDU23,78,252,102,102,102,102,102,51,0 30130VDU23,79,252,6,102,102,102,102,62,0 30140VDU23,80,252,6,102,252,96,96,192,0 30150VDU23,81,252,6,102,102,106,108,55,0 30160VDU23,82,252,6,102,252,108,102,115,0 30170VDU23,83,252,6,96,60,6,102,62,0 30180VDU23,84,255,219,153,24,24,24,60,0 30190VDU23,85,204,102,102,102,102,102,62,0 30200VDU23,86,238,102,102,108,120,112,96,0 30210VDU23,87,198,99,107,107,127,119,99,0 30220VDU23,88,206,102,44,24,52,102,115,0 30230VDU23,89,204,102,102,60,24,24,48,0 30240VDU23,90,254,134,140,24,49,97,127,0 30250ENDPROC
A%=163:X%=128:Y%=1:�&FFF4 #� ///// CASTLE RAVENSKULL ///// #� ///// VERSION II ///// #� ///// Martin Edmondson ///// (#� ///// Nick Chamberlain ///// 2#� ///// (C) 1986 ///// <� A �CHRS F�PIC P*FX200,3 Z *FX4,1 d�5:�23;8202;0;0;0; n *LOAD PIC s� x4�I%=0�3:�19,I%,0,0,0,0:�:�&B00:�20:�19,2,4,0,0,0 �7�vol=0�-15�-5:�1,vol,0,1:�2,vol,1,1:�3,vol,0,1:�vol �4�vol=-15�0:�1,vol,0,2:�2,vol,1,2:�3,vol,0,2:�vol �A=�(200) ��28,3,21,16,18 ��"CONTROL" � ��PIC �P%=&B00 � [OPT2 ܢLDA#0:STA&70:LDA#&26:STA&71:LDA#&C0:STA&72:LDA#&60:STA&73:LDY#0:.loop LDA(&70),Y:STA(&72),Y:INY:BNEloop:INC&71:INC&73:LDA&71:CMP#&30:BNEloop:LDA#13:STA&9E:RTS �] �� u/ ��CHRS u0'�23,65,63,102,102,254,102,102,204,0 u:&�23,66,252,6,102,252,102,102,124,0 uD"�23,67,252,6,98,96,98,102,62,0 uN&�23,68,248,28,78,102,102,110,124,0 uX%�23,69,254,2,100,124,100,98,254,0 ub$�23,70,254,2,96,124,96,96,96,192 ul$�23,71,252,6,96,108,102,102,62,6 uv'�23,72,204,102,102,254,102,102,51,0 u�#�23,73,126,90,24,24,24,90,126,0 u�&�23,75,227,102,108,126,127,99,99,0 u�#�23,76,192,96,96,96,98,98,126,0 u�'�23,77,227,119,127,107,107,99,198,0 u�'�23,78,252,102,102,102,102,102,51,0 u�%�23,79,252,6,102,102,102,102,62,0 u�$�23,80,252,6,102,252,96,96,192,0 u�%�23,81,252,6,102,102,106,108,55,0 u�&�23,82,252,6,102,252,108,102,115,0 u�!�23,83,252,6,96,60,6,102,62,0 u�$�23,84,255,219,153,24,24,24,60,0 u�'�23,85,204,102,102,102,102,102,62,0 u�'�23,86,238,102,102,108,120,112,96,0 v&�23,87,198,99,107,107,127,119,99,0 v%�23,88,206,102,44,24,52,102,115,0 v$�23,89,204,102,102,60,24,24,48,0 v %�23,90,254,134,140,24,49,97,127,0 v*� �
00000000 0d 00 05 1d 41 25 3d 31 36 33 3a 58 25 3d 31 32 |....A%=163:X%=12| 00000010 38 3a 59 25 3d 31 3a d6 26 46 46 46 34 0d 00 0a |8:Y%=1:.&FFF4...| 00000020 23 f4 20 2f 2f 2f 2f 2f 20 43 41 53 54 4c 45 20 |#. ///// CASTLE | 00000030 52 41 56 45 4e 53 4b 55 4c 4c 20 2f 2f 2f 2f 2f |RAVENSKULL /////| 00000040 0d 00 14 23 f4 20 2f 2f 2f 2f 2f 20 20 20 20 56 |...#. ///// V| 00000050 45 52 53 49 4f 4e 20 49 49 20 20 20 20 20 2f 2f |ERSION II //| 00000060 2f 2f 2f 0d 00 1e 23 f4 20 2f 2f 2f 2f 2f 20 4d |///...#. ///// M| 00000070 61 72 74 69 6e 20 45 64 6d 6f 6e 64 73 6f 6e 20 |artin Edmondson | 00000080 20 2f 2f 2f 2f 2f 0d 00 28 23 f4 20 2f 2f 2f 2f | /////..(#. ////| 00000090 2f 20 4e 69 63 6b 20 43 68 61 6d 62 65 72 6c 61 |/ Nick Chamberla| 000000a0 69 6e 20 20 2f 2f 2f 2f 2f 0d 00 32 23 f4 20 2f |in /////..2#. /| 000000b0 2f 2f 2f 2f 20 20 20 20 20 28 43 29 20 31 39 38 |//// (C) 198| 000000c0 36 20 20 20 20 20 20 2f 2f 2f 2f 2f 0d 00 3c 05 |6 /////..<.| 000000d0 f4 0d 00 41 09 f2 43 48 52 53 0d 00 46 08 f2 50 |...A..CHRS..F..P| 000000e0 49 43 0d 00 50 0c 2a 46 58 32 30 30 2c 33 0d 00 |IC..P.*FX200,3..| 000000f0 5a 0a 2a 46 58 34 2c 31 0d 00 64 16 eb 35 3a ef |Z.*FX4,1..d..5:.| 00000100 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 0d 00 |23;8202;0;0;0;..| 00000110 6e 0d 2a 4c 4f 41 44 20 50 49 43 0d 00 73 05 db |n.*LOAD PIC..s..| 00000120 0d 00 78 34 e3 49 25 3d 30 b8 33 3a ef 31 39 2c |..x4.I%=0.3:.19,| 00000130 49 25 2c 30 2c 30 2c 30 2c 30 3a ed 3a d6 26 42 |I%,0,0,0,0:.:.&B| 00000140 30 30 3a ef 32 30 3a ef 31 39 2c 32 2c 34 2c 30 |00:.20:.19,2,4,0| 00000150 2c 30 2c 30 0d 00 82 37 e3 76 6f 6c 3d 30 b8 2d |,0,0...7.vol=0.-| 00000160 31 35 88 2d 35 3a d4 31 2c 76 6f 6c 2c 30 2c 31 |15.-5:.1,vol,0,1| 00000170 3a d4 32 2c 76 6f 6c 2c 31 2c 31 3a d4 33 2c 76 |:.2,vol,1,1:.3,v| 00000180 6f 6c 2c 30 2c 31 3a ed 76 6f 6c 0d 00 8c 34 e3 |ol,0,1:.vol...4.| 00000190 76 6f 6c 3d 2d 31 35 b8 30 3a d4 31 2c 76 6f 6c |vol=-15.0:.1,vol| 000001a0 2c 30 2c 32 3a d4 32 2c 76 6f 6c 2c 31 2c 32 3a |,0,2:.2,vol,1,2:| 000001b0 d4 33 2c 76 6f 6c 2c 30 2c 32 3a ed 76 6f 6c 0d |.3,vol,0,2:.vol.| 000001c0 00 96 0c 41 3d a6 28 32 30 30 29 0d 00 a0 12 ef |...A=.(200).....| 000001d0 32 38 2c 33 2c 32 31 2c 31 36 2c 31 38 0d 00 b4 |28,3,21,16,18...| 000001e0 0e d7 22 43 4f 4e 54 52 4f 4c 22 0d 00 be 09 dd |.."CONTROL".....| 000001f0 f2 50 49 43 0d 00 c8 0b 50 25 3d 26 42 30 30 0d |.PIC....P%=&B00.| 00000200 00 d2 09 5b 4f 50 54 32 0d 00 dc a2 4c 44 41 23 |...[OPT2....LDA#| 00000210 30 3a 53 54 41 26 37 30 3a 4c 44 41 23 26 32 36 |0:STA&70:LDA#&26| 00000220 3a 53 54 41 26 37 31 3a 4c 44 41 23 26 43 30 3a |:STA&71:LDA#&C0:| 00000230 53 54 41 26 37 32 3a 4c 44 41 23 26 36 30 3a 53 |STA&72:LDA#&60:S| 00000240 54 41 26 37 33 3a 4c 44 59 23 30 3a 2e 6c 6f 6f |TA&73:LDY#0:.loo| 00000250 70 20 4c 44 41 28 26 37 30 29 2c 59 3a 53 54 41 |p LDA(&70),Y:STA| 00000260 28 26 37 32 29 2c 59 3a 49 4e 59 3a 42 4e 45 6c |(&72),Y:INY:BNEl| 00000270 6f 6f 70 3a 49 4e 43 26 37 31 3a 49 4e 43 26 37 |oop:INC&71:INC&7| 00000280 33 3a 4c 44 41 26 37 31 3a 43 4d 50 23 26 33 30 |3:LDA&71:CMP#&30| 00000290 3a 42 4e 45 6c 6f 6f 70 3a 4c 44 41 23 31 33 3a |:BNEloop:LDA#13:| 000002a0 53 54 41 26 39 45 3a 52 54 53 0d 00 e6 05 5d 0d |STA&9E:RTS....].| 000002b0 00 f0 05 e1 0d 75 2f 0a dd f2 43 48 52 53 0d 75 |.....u/...CHRS.u| 000002c0 30 27 ef 32 33 2c 36 35 2c 36 33 2c 31 30 32 2c |0'.23,65,63,102,| 000002d0 31 30 32 2c 32 35 34 2c 31 30 32 2c 31 30 32 2c |102,254,102,102,| 000002e0 32 30 34 2c 30 0d 75 3a 26 ef 32 33 2c 36 36 2c |204,0.u:&.23,66,| 000002f0 32 35 32 2c 36 2c 31 30 32 2c 32 35 32 2c 31 30 |252,6,102,252,10| 00000300 32 2c 31 30 32 2c 31 32 34 2c 30 0d 75 44 22 ef |2,102,124,0.uD".| 00000310 32 33 2c 36 37 2c 32 35 32 2c 36 2c 39 38 2c 39 |23,67,252,6,98,9| 00000320 36 2c 39 38 2c 31 30 32 2c 36 32 2c 30 0d 75 4e |6,98,102,62,0.uN| 00000330 26 ef 32 33 2c 36 38 2c 32 34 38 2c 32 38 2c 37 |&.23,68,248,28,7| 00000340 38 2c 31 30 32 2c 31 30 32 2c 31 31 30 2c 31 32 |8,102,102,110,12| 00000350 34 2c 30 0d 75 58 25 ef 32 33 2c 36 39 2c 32 35 |4,0.uX%.23,69,25| 00000360 34 2c 32 2c 31 30 30 2c 31 32 34 2c 31 30 30 2c |4,2,100,124,100,| 00000370 39 38 2c 32 35 34 2c 30 0d 75 62 24 ef 32 33 2c |98,254,0.ub$.23,| 00000380 37 30 2c 32 35 34 2c 32 2c 39 36 2c 31 32 34 2c |70,254,2,96,124,| 00000390 39 36 2c 39 36 2c 39 36 2c 31 39 32 0d 75 6c 24 |96,96,96,192.ul$| 000003a0 ef 32 33 2c 37 31 2c 32 35 32 2c 36 2c 39 36 2c |.23,71,252,6,96,| 000003b0 31 30 38 2c 31 30 32 2c 31 30 32 2c 36 32 2c 36 |108,102,102,62,6| 000003c0 0d 75 76 27 ef 32 33 2c 37 32 2c 32 30 34 2c 31 |.uv'.23,72,204,1| 000003d0 30 32 2c 31 30 32 2c 32 35 34 2c 31 30 32 2c 31 |02,102,254,102,1| 000003e0 30 32 2c 35 31 2c 30 0d 75 80 23 ef 32 33 2c 37 |02,51,0.u.#.23,7| 000003f0 33 2c 31 32 36 2c 39 30 2c 32 34 2c 32 34 2c 32 |3,126,90,24,24,2| 00000400 34 2c 39 30 2c 31 32 36 2c 30 0d 75 8a 26 ef 32 |4,90,126,0.u.&.2| 00000410 33 2c 37 35 2c 32 32 37 2c 31 30 32 2c 31 30 38 |3,75,227,102,108| 00000420 2c 31 32 36 2c 31 32 37 2c 39 39 2c 39 39 2c 30 |,126,127,99,99,0| 00000430 0d 75 94 23 ef 32 33 2c 37 36 2c 31 39 32 2c 39 |.u.#.23,76,192,9| 00000440 36 2c 39 36 2c 39 36 2c 39 38 2c 39 38 2c 31 32 |6,96,96,98,98,12| 00000450 36 2c 30 0d 75 9e 27 ef 32 33 2c 37 37 2c 32 32 |6,0.u.'.23,77,22| 00000460 37 2c 31 31 39 2c 31 32 37 2c 31 30 37 2c 31 30 |7,119,127,107,10| 00000470 37 2c 39 39 2c 31 39 38 2c 30 0d 75 a8 27 ef 32 |7,99,198,0.u.'.2| 00000480 33 2c 37 38 2c 32 35 32 2c 31 30 32 2c 31 30 32 |3,78,252,102,102| 00000490 2c 31 30 32 2c 31 30 32 2c 31 30 32 2c 35 31 2c |,102,102,102,51,| 000004a0 30 0d 75 b2 25 ef 32 33 2c 37 39 2c 32 35 32 2c |0.u.%.23,79,252,| 000004b0 36 2c 31 30 32 2c 31 30 32 2c 31 30 32 2c 31 30 |6,102,102,102,10| 000004c0 32 2c 36 32 2c 30 0d 75 bc 24 ef 32 33 2c 38 30 |2,62,0.u.$.23,80| 000004d0 2c 32 35 32 2c 36 2c 31 30 32 2c 32 35 32 2c 39 |,252,6,102,252,9| 000004e0 36 2c 39 36 2c 31 39 32 2c 30 0d 75 c6 25 ef 32 |6,96,192,0.u.%.2| 000004f0 33 2c 38 31 2c 32 35 32 2c 36 2c 31 30 32 2c 31 |3,81,252,6,102,1| 00000500 30 32 2c 31 30 36 2c 31 30 38 2c 35 35 2c 30 0d |02,106,108,55,0.| 00000510 75 d0 26 ef 32 33 2c 38 32 2c 32 35 32 2c 36 2c |u.&.23,82,252,6,| 00000520 31 30 32 2c 32 35 32 2c 31 30 38 2c 31 30 32 2c |102,252,108,102,| 00000530 31 31 35 2c 30 0d 75 da 21 ef 32 33 2c 38 33 2c |115,0.u.!.23,83,| 00000540 32 35 32 2c 36 2c 39 36 2c 36 30 2c 36 2c 31 30 |252,6,96,60,6,10| 00000550 32 2c 36 32 2c 30 0d 75 e4 24 ef 32 33 2c 38 34 |2,62,0.u.$.23,84| 00000560 2c 32 35 35 2c 32 31 39 2c 31 35 33 2c 32 34 2c |,255,219,153,24,| 00000570 32 34 2c 32 34 2c 36 30 2c 30 0d 75 ee 27 ef 32 |24,24,60,0.u.'.2| 00000580 33 2c 38 35 2c 32 30 34 2c 31 30 32 2c 31 30 32 |3,85,204,102,102| 00000590 2c 31 30 32 2c 31 30 32 2c 31 30 32 2c 36 32 2c |,102,102,102,62,| 000005a0 30 0d 75 f8 27 ef 32 33 2c 38 36 2c 32 33 38 2c |0.u.'.23,86,238,| 000005b0 31 30 32 2c 31 30 32 2c 31 30 38 2c 31 32 30 2c |102,102,108,120,| 000005c0 31 31 32 2c 39 36 2c 30 0d 76 02 26 ef 32 33 2c |112,96,0.v.&.23,| 000005d0 38 37 2c 31 39 38 2c 39 39 2c 31 30 37 2c 31 30 |87,198,99,107,10| 000005e0 37 2c 31 32 37 2c 31 31 39 2c 39 39 2c 30 0d 76 |7,127,119,99,0.v| 000005f0 0c 25 ef 32 33 2c 38 38 2c 32 30 36 2c 31 30 32 |.%.23,88,206,102| 00000600 2c 34 34 2c 32 34 2c 35 32 2c 31 30 32 2c 31 31 |,44,24,52,102,11| 00000610 35 2c 30 0d 76 16 24 ef 32 33 2c 38 39 2c 32 30 |5,0.v.$.23,89,20| 00000620 34 2c 31 30 32 2c 31 30 32 2c 36 30 2c 32 34 2c |4,102,102,60,24,| 00000630 32 34 2c 34 38 2c 30 0d 76 20 25 ef 32 33 2c 39 |24,48,0.v %.23,9| 00000640 30 2c 32 35 34 2c 31 33 34 2c 31 34 30 2c 32 34 |0,254,134,140,24| 00000650 2c 34 39 2c 39 37 2c 31 32 37 2c 30 0d 76 2a 05 |,49,97,127,0.v*.| 00000660 e1 0d ff |...| 00000663