Home » Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_1_2.ADF » Sam1/Ravenskull/CONTROL
Sam1/Ravenskull/CONTROL
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/CONTROL |
Read OK: | ✔ |
File size: | 1500 bytes |
Load address: | FFFF1900 |
Exec address: | FFFF8023 |
Duplicates
There are 7 duplicate copies of this file in the archive:
- Recent acquisitions » Acorn tapes » tape048d_acorn_play_it_again_sam_1_electron.wav » CONTROL
- AEW website » superior » superior_tapes_Ravenskull_Ravenskull_E.uef » CONTROL
- AEW website » superior_acornsoft » superior_acornsoft_tapes_Ravenskull_Ravenskull_E.uef » CONTROL
- AEW website » superior » superior_tapes_Ravenskull_PIASRR_E_Ravenskull-PIASRR_E.uef » CONTROL
- AEW website » superior_blue_ribbon » superior_blue_ribbon_tapes_Ravenskull_Ravenskull_E.uef » CONTROL
- Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_1_2.ADF » Sam1/Ravenskull/CONTROL
- Personal collection » Acorn hard disk » zipped_disks » elk07 » sam1_2/Sam1/Ravenskull/CONTROL
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape09b_acorn_play_it_again_sam_1.wav » CONTROL
File contents
5*FX200,3 6*FX4,1 10MODE4:VDU23,1;0;0;0;0;:VDU19,1,6,0,0,0:FORT%=0TO7:PRINTTAB(9,14)"PLEASE STOP THE TAPE.":FORD%=0TO1000:NEXT:PRINTTAB(9,14)" ":FORD%=0TO500:NEXT:NEXT 20VDU23,1;0;0;0;0;:PROCSCREEN:CLS:MODE5:VDU23,1;0;0;0;0;:GOTO20000 95FORT%=0TO34:PRINT':*FX19 96*FX19 97NEXT 98?&80=C% 99MODE4:VDU23,1;0;0;0;0;: 100PROCdrawraven:PROCSC2 120FORI%=0TO1500:NEXT 160*FX16,0 165PRINTTAB(2,27)"RESTART" 166PRINTTAB(3,28)"TAPE" 212VDU28,13,30,26,26:COLOUR129:COLOUR0:FORX%=0TO5:PRINT" ";:NEXT 213VDU31,0,0 215*T. 216*FX20,0 220*RUN SCREEN 999END 1010ENDPROC 1100DEFPROCSCREEN 1101PROCdrawraven 1102PROCnames:FORG%=0TO5500:NEXT:ENDPROC 1104DEFPROCSC2 1106PRINT'''''"_____________** CONTROLS **_____________" 1110PRINT'" RUN NORTH - *":PRINT" RUN SOUTH - ?":PRINT" RUN EAST - X":PRINT" RUN WEST - Z" 1112PRINT'" PICK UP OBJECT - P":PRINT" HAND LEFT - <":PRINT" HAND RIGHT - >":PRINT" EXAMINE OBJECT - E":PRINT" USE OBJECT - RETURN":PRINT" DROP OBJECT - D" 1120PRINT'" LEVEL JUMP - J":PRINT'" LOSE LIFE - 1 RESTART - ESCAPE":PRINT" FREEZE - COPY UNFREEZE - DELETE" 1125PRINT" SOUND ON - S SOUND OFF - Q" 1150X%=129:*FX21,0 1176ENDPROC 2000DEFPROCnames:Y%=10 2005IFY%=1X%=3:R%=3060:PRINTTAB(0,1)"��":GOTO2020 2010IFY%=10X%=19:R%=3000 ELSEIFY%=12X%=10:R%=3010 ELSEIFY%=14X%=19:R%=3020 ELSEIFY%=16X%=12:R%=3030 ELSEIFY%=18X%=10:R%=3040 ELSEIFY%=20X%=16:R%=3045 ELSEENDPROC 2020RESTORER% 2030READA$ 2040IFA$="Z"GOTO2080 2050PROCslide 2060X%=X%+1 2070GOTO2030 2080IFY%=0Y%=1:GOTO2005 ELSEIFY%=1Y%=10:GOTO2010 ELSEY%=Y%+2:GOTO2010 2090ENDPROC 2100DEFPROCslide 2110FORT%=39TOX% STEP-1 2120PRINTTAB(T%,Y%)A$; 2130NEXTT% 2140PRINT" ":ENDPROC 3000DATAB,Y,Z 3010DATAN,I,C,H,O,L,A,S, ,C,H,A,M,B,E,R,L,A,I,N,Z 3020DATA&,Z 3030DATAM,A,R,T,I,N, ,E,D,M,O,N,D,S,O,N,Z 3040DATAF,O,R, ,S,U,P,E,R,I,O,R, ,S,O,F,T,W,A,R,E,Z 3045DATA(,C,), ,1,9,8,6,Z 9999END 20000REM 20010PROCmc 20015VDU23,1;0;0;0;0;0; 20020FORI%=&5600TO&5800:?I%=0:NEXT 20050C%=1:O%=1 20060VDU19,1,4,0,0,0,19,2,2,0,0,0,19,3,5,0,0,0 20070COLOUR1:PRINT'" RAVENSKULL" 20080GCOL0,0:MOVE100,980:DRAW1000,980 20090COLOUR3:PRINT'" PRESS 1,2,3 OR 4 TO SELECT A CHARACTER AND RETURN TO LOAD" 20100COLOUR2 20110PRINT''''" 1) ADVENTURER" 20120PRINT'''''" 2) WIZARD" 20130PRINT'''''" 3) WARRIOR" 20140PRINT'''''" 4) ELF" 20150PROChand 20160A=GET:IFA=49 THENO%=C%:C%=1:PROChand:GOTO20160 20170IFA=50 THENO%=C%:C%=2:PROChand:GOTO20160 20180IFA=51 THENO%=C%:C%=3:PROChand:GOTO20160 20190IFA=52 THENO%=C%:C%=4:PROChand:GOTO20160 20200IFA=13 GOTO95 20210GOTO20160 20220END 20230DEFPROChand 20240IFO%=1 THEN?&70=&44:?&71=&63 20250IFO%=2 THEN?&70=&04:?&71=&6C 20260IFO%=3 THEN?&70=&84:?&71=&73 20270IFO%=4 THEN?&70=&04:?&71=&7B 20280?&72=0:?&73=&56:X%=13:Y%=35:CALL&A00 20290IFC%=1 THEN?&70=&44:?&71=&63 20300IFC%=2 THEN?&70=&04:?&71=&6C 20310IFC%=3 THEN?&70=&84:?&71=&73 20320IFC%=4 THEN?&70=&04:?&71=&7B 20330X%=13:Y%=35:?&72=0:?&73=(PAGE+&1300)DIV256:CALL&A00:ENDPROC 20340DEFPROCmc 20350FORPASS=0TO2STEP2 20360P%=&A00 20370[OPTPASS 20380.chr STX&74:STY&75:LDA&70:STAchr2+4:LDA&71:STAchr2+5:LDA&72:STAchr2+1:LDA&73:STAchr2+2:LDY#0:LDX#0 20390.chr2 LDA&3000,X:STA&3000,Y:INX:CPX&74:BEQchr4:TYA:CLC:ADC#8:TAY:BCCchr2:INCchr2+5:JMPchr2 20400.chr4 DEC&75:BEQchr5:LDX#0:LDY#0:CLC:LDAchr2+1:ADC&74:STAchr2+1:BCCchr9:INCchr2+2:.chr9 INC&70:BNEchr7:INC&71:.chr7 LDA&70:AND#7:BEQchr6:LDA&70:STAchr2+4:LDA&71:STAchr2+5:JMPchr2:.chr6 CLC:LDA&70:ADC#&38:STA&70:STAchr2+4 20410LDA&71:ADC#1:STA&71:STAchr2+5:JMPchr2:.chr5 RTS 20420]NEXTPASS 20430ENDPROC 31111VDU23,81,238,102,102,60,24,24,112,0 32000DEFPROCdrawraven:VDU19,1,6,0,0,0 32001P%=&B00:[OPT2 32002LDA#0:STA&72:LDA#&58:STA&73:LDY#0:.loop LDA(&70),Y:STA(&72),Y:INY:BNEloop:INC&71:INC&73:LDA&73:CMP#&5B:BNEloop:.loop1 LDA(&70),Y:STA(&72),Y:INY:CPY#&E0:BNEloop1:RTS 32003] 32010?&70=0:?&71=(PAGE+&F00)DIV256:CALL&B00 32100ENDPROC
*FX200,3 *FX4,1 ��4:�23,1;0;0;0;0;:�19,1,6,0,0,0:�T%=0�7:�9,14)"PLEASE STOP THE TAPE.":�D%=0�1000:�:�9,14)" ":�D%=0�500:�:� 4�23,1;0;0;0;0;:�SCREEN:�:�5:�23,1;0;0;0;0;:�P`N _�T%=0�34:�':*FX19 ` *FX19 a� b?&80=C% c�4:�23,1;0;0;0;0;: d�drawraven:�SC2 x�I%=0�1500:� �*FX16,0 ��2,27)"RESTART" ��3,28)"TAPE" �<�28,13,30,26,26:�129:�0:�X%=0�5:�" ";:� ��31,0,0 �*T. �*FX20,0 �*RUN SCREEN �� �� L��SCREEN M�drawraven N�names:�G%=0�5500:�:� P ��SC2 R4�'''''"_____________** CONTROLS **_____________" V��'" RUN NORTH - *":�" RUN SOUTH - ?":�" RUN EAST - X":�" RUN WEST - Z" X��'" PICK UP OBJECT - P":�" HAND LEFT - <":�" HAND RIGHT - >":�" EXAMINE OBJECT - E":�" USE OBJECT - RETURN":�" DROP OBJECT - D" `z�'" LEVEL JUMP - J":�'" LOSE LIFE - 1 RESTART - ESCAPE":�" FREEZE - COPY UNFREEZE - DELETE" e)�" SOUND ON - S SOUND OFF - Q" ~X%=129:*FX21,0 �� ���names:Y%=10 �&�Y%=1X%=3:R%=3060:�0,1)"��":�ddG ڃ�Y%=10X%=19:R%=3000 ��Y%=12X%=10:R%=3010 ��Y%=14X%=19:R%=3020 ��Y%=16X%=12:R%=3030 ��Y%=18X%=10:R%=3040 ��Y%=20X%=16:R%=3045 �� ��R% ��A$ ��A$="Z"�T`H �slide X%=X%+1 �dnG 4�Y%=0Y%=1:�dUG ��Y%=1Y%=10:�dZG �Y%=Y%+2:�dZG *� 4��slide >�T%=39�X% �-1 H�T%,Y%)A$; R�T% \"�" ":� � �B,Y,Z �.�N,I,C,H,O,L,A,S, ,C,H,A,M,B,E,R,L,A,I,N,Z ��&,Z �&�M,A,R,T,I,N, ,E,D,M,O,N,D,S,O,N,Z �0�F,O,R, ,S,U,P,E,R,I,O,R, ,S,O,F,T,W,A,R,E,Z ��(,C,), ,1,9,8,6,Z '� N � N*�mc N/�23,1;0;0;0;0;0; N4�I%=&5600�&5800:?I%=0:� NR C%=1:O%=1 N\+�19,1,4,0,0,0,19,2,2,0,0,0,19,3,5,0,0,0 Nf�1:�'" RAVENSKULL" Np�0,0:�100,980:�1000,980 NzF�3:�'" PRESS 1,2,3 OR 4 TO SELECT A CHARACTER AND RETURN TO LOAD" N��2 N��''''" 1) ADVENTURER" N��'''''" 2) WIZARD" N��'''''" 3) WARRIOR" N��'''''" 4) ELF" N� �hand N�%A=�:�A=49 �O%=C%:C%=1:�hand:�`@N N�!�A=50 �O%=C%:C%=2:�hand:�`@N N�!�A=51 �O%=C%:C%=3:�hand:�`@N N�!�A=52 �O%=C%:C%=4:�hand:�`@N N��A=13 �D_@ N� �`@N N�� O ��hand O�O%=1 �?&70=&44:?&71=&63 O�O%=2 �?&70=&04:?&71=&6C O$�O%=3 �?&70=&84:?&71=&73 O.�O%=4 �?&70=&04:?&71=&7B O8%?&72=0:?&73=&56:X%=13:Y%=35:�&A00 OB�C%=1 �?&70=&44:?&71=&63 OL�C%=2 �?&70=&04:?&71=&6C OV�C%=3 �?&70=&84:?&71=&73 O`�C%=4 �?&70=&04:?&71=&7B Oj1X%=13:Y%=35:?&72=0:?&73=(�+&1300)�256:�&A00:� Ot��mc O~�PASS=0�2�2 O�P%=&A00 O�[OPTPASS O�f.chr STX&74:STY&75:LDA&70:STAchr2+4:LDA&71:STAchr2+5:LDA&72:STAchr2+1:LDA&73:STAchr2+2:LDY#0:LDX#0 O�^.chr2 LDA&3000,X:STA&3000,Y:INX:CPX&74:BEQchr4:TYA:CLC:ADC#8:TAY:BCCchr2:INCchr2+5:JMPchr2 O��.chr4 DEC&75:BEQchr5:LDX#0:LDY#0:CLC:LDAchr2+1:ADC&74:STAchr2+1:BCCchr9:INCchr2+2:.chr9 INC&70:BNEchr7:INC&71:.chr7 LDA&70:�#7:BEQchr6:LDA&70:STAchr2+4:LDA&71:STAchr2+5:JMPchr2:.chr6 CLC:LDA&70:ADC#&38:STA&70:STAchr2+4 O�3LDA&71:ADC#1:STA&71:STAchr2+5:JMPchr2:.chr5 RTS O� ]�PASS O�� y�%�23,81,238,102,102,60,24,24,112,0 } ��drawraven:�19,1,6,0,0,0 }P%=&B00:[OPT2 }�LDA#0:STA&72:LDA#&58:STA&73:LDY#0:.loop LDA(&70),Y:STA(&72),Y:INY:BNEloop:INC&71:INC&73:LDA&73:CMP#&5B:BNEloop:.loop1 LDA(&70),Y:STA(&72),Y:INY:CPY#&E0:BNEloop1:RTS }] } "?&70=0:?&71=(�+&F00)�256:�&B00 }d� �( &mF slide C}Z�19,1,6,0,0,0 }d� ��19,1,6,0,0,0 }d� � }d� �6,0,0,0 }d� �,6,0,0,0 }d� �0 SP% }&SCREEN ��&drawraven &�&names �} $ �&hr slide I%=0�&3E0:?(&5800+I%)=?(�+&F00+I%):� }d� �0ven �)�)names � +$ �)Z�)slide �!�*sentence �( $ *�� <***** Ravenskull _ ELECTRON Version I. (C) 1986 *****> Press SPACE to continue..... �*scroll !(+mc &