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 » superior_tapes_Ravenskull_PIASRR_E_Ravenskull-PIASRR_E.uef » CONTROL
- AEW website » superior_blue_ribbon » superior_blue_ribbon_tapes_Ravenskull_Ravenskull_E.uef » CONTROL
- AEW website » superior_acornsoft » superior_acornsoft_tapes_Ravenskull_Ravenskull_E.uef » CONTROL
- Personal collection » Acorn ADFS disks » Zipped » zipped_disks » elk07 » sam1_2/Sam1/Ravenskull/CONTROL
- Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_1_2.ADF » 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 &