Home » Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » C.DATA
C.DATA
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 DFS disks » dfs_box03_disk04b_games_2_backup.scp |
Filename: | C.DATA |
Read OK: | ✔ |
File size: | 2000 bytes |
Load address: | 1900 |
Exec address: | 1900 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn DFS disks » dfs_box03_disk04_games_2_backup.scp » C.DATA
- Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » C.DATA
File contents
356REMLENANDINTERRORpLEN/ERRORqLEN0TIMEpLOADPAGECOLOURGCOLqINKEYqEND7PAGEREADORpTIMEpORIGINpLOADLOADLOADLOADLOADLOADLOADPAGEPROCGCOLqINKEYqEND:PAGELOCAL`KPAGE>ZCLSTO#DELETECLS,&ENDPROCFORkg1AND\ 200LOMEM=&2FC9 300ONERRORRUN 400*FX9,15 500*FX10,70 600ENVELOPE1,1,-4,-1,-1,40,40,30,127,0,-1,-2,126,126 700ENVELOPE2,1,3,4,5,6,2,4,127,-1,0,-3,127,115 800ENVELOPE3,1,4,-1,-2,20,25,15,127,0,-1,-2,112,111 900ENVELOPE4,1,5,10,15,5,10,15,126,-50,-1,-1,126,125 1000VDU23,224,255,255,255,255,255,255,255,255 1100*TV255,1 1200@%=1:MODE7:GOSUB4300:R%=&2F70:P%=&2F84:H%=0:!1232=!14 1300FORI%=0TO4:R%!(4*I%)=0:P%?(13*I%)=13:NEXT 1400MODE2:GOSUB6600:CALL&2AB8 1500VDU5:GCOL0,3:MOVE356,1008:PRINT"CENTIPEDE"CHR$4 1600COLOUR132:PRINT'" 0"; 1700I%=13:IFH%<1:I%=14 1800IFH%>99:I%=12 1900PRINTSPCI%;10*H%;TAB(0,2); 1950GOSUB7000 2000CALL&2900 2100*FX15,1 2200I%=?&2FC7:J%=?&2FC6:O%=1000*(I%DIV16)+100*(I%MOD16)+10*(J%DIV16)+(J%MOD16) 2300MODE7 2400C%=1:FORI%=16TO0STEP-4:IFO%>R%!I% C%=I% 2500NEXT:IFC%=1PRINT' 2600PRINT"Score: ";O%*10".":IFC%=1GOTO3300 2700IFC%<16FORI%=4TOC%/4+1STEP-1:R%!(4*I%)=R%!(4*I%-4):$(P%+I%*13)=$(P%+I%*13-13):NEXT 2800R%!C%=O% 2900PRINT'"Your score is ranked number ";(C%DIV4)+1;"." 3000PRINT'"What is your name? ";:REPEAT:UNTILINKEY(10)=-1 3100*FX15,1 3200INPUT""$&3000:?&300C=13:$(13*(C%DIV4)+P%)=$&3000 3300PRINT''''SPC3STRING$(30,"*")'SPC3"*"SPC28"*" 3400GOSUB6600:FORI%=0TO4:PRINT" * ";:IFI%=1J%=131:GOTO3700 3500IFI%=2J%=130:GOTO3700 3600IFI%=3J%=134ELSEJ%=129+I% 3700PRINTCHR$J%;I%+1;". ";$(P%+13*I%);TAB(25);:@%=5:PRINT10*(R%!(4*I%));TAB(31)CHR$135"*":@%=1 3800NEXT:PRINT" *"SPC28"*"'SPC3STRING$(30,"*")''' 3900PRINT''SPC7CHR$136CHR$148CHR$157CHR$151"PRESS SPACE BAR "CHR$156; 4000IFO%>H% H%=O% 4100*FX15,1 4200REPEAT:UNTILGET=32:GOTO1400 4300GOSUB6700 4400FORI%=255TO10STEP-12:SOUND1,-12,I%,2:SOUND2,-12,I%,2:NEXT:SOUND1,2,75,2 4500PRINT'SPC4"�Do you want instructions? "; 4600*FX15,1 4700REPEATA%=GET:UNTILA%=78 ORA%=89 ORA%=110 ORA%=121:PRINTCHR$A%;:IFA%=78 ORA%=110PRINT:GOTO6200 4800MODE2:GOSUB6600:GOSUB7000 4810COLOUR6:PRINTTAB(7,2);"SCORING"' :COLOUR1 4815PRINTTAB(8,10);"200 POINTS":PRINTTAB(7,13);"1000 POINTS":PRINTTAB(8,16);"500 POINTS":PRINTTAB(8,19);"100 POINTS":PRINTTAB(9,22);"50 POINTS" 4820FORI%=0TO&1F:I%?&4960=I%?&19A0:I%?&4980=I%?&19C0:I%?&50F0=I%?&1940:I%?&5870=I%?&19E0:I%?&5FF0=I%?&1A00:I%?&6770=I%?&1900:NEXT 4900COLOUR3:PRINTTAB(3,30)"PRESS SPACE BAR"; 5000*FX15,1 5100REPEATUNTILGET=32 5200MODE7 5300GOSUB6700 5310PRINTSPC3"�The object of the game is to"'SPC3"�prevent the centipede from"'SPC3"�reaching the bottom of the"'SPC3"�screen." 5400PRINT'SPC3"�The following keys are used:" 5500PRINTSPC3"�Z�moves the laser base left." 5600PRINTSPC3"�X�moves the laser base right." 5700PRINTSPC3"�COPY�fires the laser."' 5800PRINTSPC3"�Extra laser bases are awarded" 5900PRINTSPC3"�when your score reaches�10000" 6000PRINTSPC3"�points and�20000�points."' 6100PRINTSPC3"�If you want to alter the skill"'SPC3"�level at the end of the game,"'SPC3"�press the�ESCAPE�key. To exit"'SPC3"�from the game, press�BREAK." 6200PRINT'SPC4"�Which skill level (1-6)? "; 6300*FX15,1 6400REPEATA%=GET:UNTILA%>48 ANDA%<55:VDUA%:?&2FC5=A%-48 6500RETURN 6600VDU23;8202;0;0;0;:RETURN 6700PRINTSPC13"�CENTIPEDE"''SPC6"�(C) R.M.P. Hanson. 1982"':RETURN 7000VDU19,9,6;0;19,8,3;0;19,11,1;0;19,12,2;0;19,13,3;0;19,14,1;0;19,15,5;0;:RETURN
dJ��p�/�q�0�p���q�q�7��p�pȑp����������q�q�:��`K�>Z۸#��,&��kg1�\ ��=&2FC9 ,� �*FX9,15 �*FX10,70 X.�1,1,-4,-1,-1,40,40,30,127,0,-1,-2,126,126 �(�2,1,3,4,5,6,2,4,127,-1,0,-3,127,115 -�3,1,4,-1,-2,20,25,15,127,0,-1,-2,112,111 �.�4,1,5,10,15,5,10,15,126,-50,-1,-1,126,125 �+�23,224,255,255,255,255,255,255,255,255 L*TV255,1 �2@%=1:�7:�dLP:R%=&2F70:P%=&2F84:H%=0:!1232=!14 '�I%=0�4:R%!(4*I%)=0:P%?(13*I%)=13:� x�2:�dHY:�&2AB8 �$�5:�0,3:�356,1008:�"CENTIPEDE"�4 @�132:�'" 0"; �I%=13:�H%<1:I%=14 �H%>99:I%=12 l�I%;10*H%;�0,2); � �DX[ � �&2900 4*FX15,1 �FI%=?&2FC7:J%=?&2FC6:O%=1000*(I%�16)+100*(I%�16)+10*(J%�16)+(J%�16) ��7 `$C%=1:�I%=16�0�-4:�O%>R%!I% C%=I% � �:�C%=1�' ("�"Score: ";O%*10".":�C%=1�ddL �L�C%<16�I%=4�C%/4+1�-1:R%!(4*I%)=R%!(4*I%-4):$(P%+I%*13)=$(P%+I%*13-13):� �R%!C%=O% T1�'"Your score is ranked number ";(C%�4)+1;"." �(�'"What is your name? ";:�:��(10)=-1 *FX15,1 �.�""$&3000:?&300C=13:$(13*(C%�4)+P%)=$&3000 ��''''�3�30,"*")'�3"*"�28"*" H-�dHY:�I%=0�4:�" * ";:�I%=1J%=131:�DtN ��I%=2J%=130:�DtN �I%=3J%=134�J%=129+I% tL�J%;I%+1;". ";$(P%+13*I%);�25);:@%=5:�10*(R%!(4*I%));�31)�135"*":@%=1 �!�:�" *"�28"*"'�3�30,"*")''' <1�''�7�136�148�157�151"PRESS SPACE BAR "�156; ��O%>H% H%=O% *FX15,1 h�:��=32:�DxE � �TlZ 06�I%=255�10�-12:�1,-12,I%,2:�2,-12,I%,2:�:�1,2,75,2 �&�'�4"�Do you want instructions? "; �*FX15,1 \C�A%=�:�A%=78 �A%=89 �A%=110 �A%=121:�A%;:�A%=78 �A%=110�:�TxX ��2:�dHY:�DX[ ��6:�7,2);"SCORING"' :�1 �l�8,10);"200 POINTS":�7,13);"1000 POINTS":�8,16);"500 POINTS":�8,19);"100 POINTS":�9,22);"50 POINTS" �{�I%=0�&1F:I%?&4960=I%?&19A0:I%?&4980=I%?&19C0:I%?&50F0=I%?&1940:I%?&5870=I%?&19E0:I%?&5FF0=I%?&1A00:I%?&6770=I%?&1900:� $ �3:�3,30)"PRESS SPACE BAR"; �*FX15,1 � ���=32 P�7 � �TlZ �s�3"�The object of the game is to"'�3"�prevent the centipede from"'�3"�reaching the bottom of the"'�3"�screen." '�'�3"�The following keys are used:" |&�3"�Z�moves the laser base left." �'�3"�X�moves the laser base right." D �3"�COPY�fires the laser."' �'�3"�Extra laser bases are awarded" '�3"�when your score reaches�10000" p#�3"�points and�20000�points."' ԏ�3"�If you want to alter the skill"'�3"�level at the end of the game,"'�3"�press the�ESCAPE�key. To exit"'�3"�from the game, press�BREAK." 8&�'�4"�Which skill level (1-6)? "; �*FX15,1 (�A%=�:�A%>48 �A%<55:�A%:?&2FC5=A%-48 d� ��23;8202;0;0;0;:� ,5�13"�CENTIPEDE"''�6"�(C) R.M.P. Hanson. 1982"':� XK�19,9,6;0;19,8,3;0;19,11,1;0;19,12,2;0;19,13,3;0;19,14,1;0;19,15,5;0;:� �1001;:� �;0;:� �1,15,5;0;:� �05;0;:� �X)��LW���F`� ����� �` "*A@EPQT������ � t�< �U* �@��`%�r��P��PP�����PPP� ��� PP �� EEEE ������ ����ώ A����A ������À�������@ ����Â