Home » Personal collection » Acorn DFS disks » dfs_box03_disk04_games_2_backup.scp » S.DATA
S.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_disk04_games_2_backup.scp |
Filename: | S.DATA |
Read OK: | ✔ |
File size: | 2200 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 » S.DATA
- Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » S.DATA
File contents
356REMLENANDINTERRORpLEN4ERRORqLEN0TIMEpLOADPAGECOLOURGCOLqINKEYqEND<PAGEREADORpTIMEpORIGINpLOADLOADLOADLOADLOADLOADLOADPAGEPROCGCOLqINKEYqEND?PAGELOCALLENORERRORpLEN7ERRORqLEN3TIMEpASNiINTPAGEGCOLqLEFT$(ANDPAGEVDUINKEYqEND9PAGELETEVAL EXT3LENLEFT$(ERRORpLEN5ERRORqLEN@ERRORrLEN8ERRORsLENLEFT$(TIMErLOADLOADORIGINpORIGINpORIGINpORIGINpORIGINpOFPLOT LOADPAGEIFGCOLqGCOLsPAGEENDPROCEVALTRUEERL ONOSCLISTEPPAGERESTOREEVALLENENDPROC ONOSCLISTEPPAGESTOP` ` 200LOMEM=&2FC9:ONERRORRUN 300*TV255 400ENVELOPE1,1,-3,-4,-7,20,15,30,127,0,0,-3,115,110:ENVELOPE2,129,2,4,8,8,4,2,126,-1,0,-126,126,115:ENVELOPE3,1,4,-1,-2,20,25,15,127,0,-1,-2,125,124:ENVELOPE4,1,5,10,15,5,10,15,127,-50,-1,-1,127,126:*FX16,0 500V%=&FFFF:VDU23,224,V%;V%;V%;V%;23,225,&FFD4;V%;V%;V%;:@%=1:GOSUB1500:R%=LOMEM-89:P%=LOMEM-69:H%=0:!1240=!14:FORI%=0TO4:R%!(4*I%)=0:P%?(13*I%)=13:NEXT:*FX10,70 550*TV0 600MODE2:VDU19,8,1;0;19,15,0;0;19,12,7;0;:GOSUB2900:CALL&2F25:COLOUR7:COLOUR132:VDU5:GCOL0,2:MOVE1216,28:VDU225:GCOL0,6:MOVE64,951:PRINT"FUEL"CHR$4TAB(0,4)" 0"SPC(13-(H%<1)+(H%>99))10*H%TAB(0,4);:CALL&297A:*TV255 700I%=?&2FC7:J%=?&2FC6:O%=I%DIV16*1000+I%MOD16*100+J%DIV16*10+J%MOD16:MODE7:C%=1:FORI%=16TO0STEP-4:IFO%>R%!I%C%=I% 800NEXT:IFC%=1PRINT' 900PRINT"Score: "O%*10".":IFC%=1GOTO1300 1000IFC%<16FORI%=4TOC%/4+1STEP-1:Y%=P%+I%*13:Z%=R%+4*I%:!Z%=Z%!-4:$Y%=$(Y%-13):NEXT 1100R%!C%=O%:PRINT'"Your score is ranked number "C%DIV4+1"."''"What is your name? ";:REPEAT:UNTILINKEY(9)<0:*FX15,0 1200INPUT""$&3000:?&300C=13:$(C%DIV4*13+P%)=$&3000:IFO%>H%H%=O% 1300GOSUB2900:PRINT''''SPC3STRING$(30,"*")'SPC3"*"SPC28"*":FORI%=0TO4:PRINT" * ";:VDU129+I%-(I%=1)+(I%=2)-2*(I%=3) 1400PRINTI%+1". "$(P%+13*I%)TAB(24);:@%=5:PRINT10*R%!(4*I%);" �*":@%=1:NEXT:PRINT" *"SPC28"*"'SPC3STRING$(30,"*")''''':GOSUB3200:GOTO550 1500GOSUB3000:FORI%=255TO10STEP-12:SOUND1,-12,I%,2:NEXT:SOUND1,4,15,2:PRINT'SPC7"Do you want instructions? ";:*FX15,1 1600REPEATA%=GET:Q%=A%OR32:UNTILQ%=110ORQ%=121:VDUA%:IFQ%=110PRINT:GOTO2700ELSEMODE2:GOSUB2900 1700COLOUR5:PRINTTAB(7,2)"SCORING"'''':COLOUR6:PRINT''" MUTANT"SPC10"50"''" SWARMER"SPC8"100"''" TRIMORT"SPC8"150"''" BAITER"SPC9"150"''" BARYON"SPC9"150"''" ASTEROID"SPC9"0"''" FUEL DUMP"SPC8"0" 1800FORI%=0TO28STEP4:M%=&4810:FORJ%=&1A88TO&1BE8STEP32:M%!I%=J%!I%:J%=J%-64*(J%=&1AC8)-96*(J%=&1B68):M%=M%+&500:NEXT:NEXT:COLOUR12:PRINTTAB(3,29)"PRESS SPACE BAR":*FX15,1 1900REPEATUNTILGET=32:GOSUB3000 2000PRINT" The object of the game is to defend"'" your planet from the menacing aliens."'" You are in control of a spaceship"'" equipped with a laser gun and three"'" smart bombs. To control the spaceship use the following keys:"' 2100PRINT" �A �to move upwards;"'" �Z �to move downwards;"'" �COPY �to fire the laser gun;"'" �DELETE�for thrust control;"'" �RETURN�to use a smart bomb."' 2200PRINT" You must attempt to destroy the aliens with the laser gun or the smart bombs."'" Smart bombs destroy all the aliens on the screen."':GOSUB3100:VDU28,0,24,39,5:CLS:PRINT'" Each type of alien moves in a specific manner:" 2300PRINT"�Mutants�move about randomly."'"�Swarmers�move away from your spaceship.�Trimorts�move at random, and have to be hit 3 times before they are destroyed."'"�Baiters�move towards your spaceship." 2400PRINT"�Baryons�move towards your spaceship"'" but not as directly as the baiters do."''" The baryons and the asteroids can only be destroyed by a smart bomb."''" You must shoot at the fuel dumps to"'" replenish your fuel supply."''' 2500GOSUB3100:CLS 2600PRINT'" Bonus spaceships are awarded for scores of�10000�and�20000�points."''" If you want to alter the skill level at the end of the game, press the�ESCAPE key. To exit from the game, press�the �BREAK�key."' 2700PRINT'SPC7"Which skill level (1-6)? ";:*FX15,1 2800REPEATA%=GET:UNTILA%>48ANDA%<55:VDUA%:?&2FC5=A%-48:RETURN 2900VDU23;8202;0;0;0;:RETURN 3000MODE7:FORI%=0TO196STEP4:I%!&7C00=I%!7240:NEXT:PRINTTAB(0,5):RETURN 3100PRINTSPC2;:GOSUB2900 3200PRINTSPC7"����PRESS SPACE BAR �";::*FX15,0 3300REPEATUNTILGET=32:RETURN
d���p�4�q�0�p���q�q�<��p�pȑp����������q�q�?�ꩄ�p�7�q�3�p�i���q����q�9�� �3���p�5�q�@�r�8�s���r��ȑpȑpȑpȑpȑp�� ����q�s���� ����� ��` ` ��=&2FC9:� , *TV255 ���1,1,-3,-4,-7,20,15,30,127,0,0,-3,115,110:�2,129,2,4,8,8,4,2,126,-1,0,-126,126,115:�3,1,4,-1,-2,20,25,15,127,0,-1,-2,125,124:�4,1,5,10,15,5,10,15,127,-50,-1,-1,127,126:*FX16,0 �V%=&FFFF:�23,224,V%;V%;V%;V%;23,225,&FFD4;V%;V%;V%;:@%=1:�d\E:R%=�-89:P%=�-69:H%=0:!1240=!14:�I%=0�4:R%!(4*I%)=0:P%?(13*I%)=13:�:*FX10,70 &*TV0 X��2:�19,8,1;0;19,15,0;0;19,12,7;0;:�DTK:�&2F25:�7:�132:�5:�0,2:�1216,28:�225:�0,6:�64,951:�"FUEL"�4�0,4)" 0"�(13-(H%<1)+(H%>99))10*H%�0,4);:�&297A:*TV255 �aI%=?&2FC7:J%=?&2FC6:O%=I%�16*1000+I%�16*100+J%�16*10+J%�16:�7:C%=1:�I%=16�0�-4:�O%>R%!I%C%=I% �:�C%=1�' �!�"Score: "O%*10".":�C%=1�TTE �I�C%<16�I%=4�C%/4+1�-1:Y%=P%+I%*13:Z%=R%+4*I%:!Z%=Z%!-4:$Y%=$(Y%-13):� L`R%!C%=O%:�'"Your score is ranked number "C%�4+1"."''"What is your name? ";:�:��(9)<0:*FX15,0 �8�""$&3000:?&300C=13:$(C%�4*13+P%)=$&3000:�O%>H%H%=O% V�DTK:�''''�3�30,"*")'�3"*"�28"*":�I%=0�4:�" * ";:�129+I%-(I%=1)+(I%=2)-2*(I%=3) xi�I%+1". "$(P%+13*I%)�24);:@%=5:�10*R%!(4*I%);" �*":@%=1:�:�" *"�28"*"'�3�30,"*")''''':�t@L:�TfB �Z�txK:�I%=255�10�-12:�1,-12,I%,2:�:�1,4,15,2:�'�7"Do you want instructions? ";:*FX15,1 @=�A%=�:Q%=A%�32:�Q%=110�Q%=121:�A%:�Q%=110�:�tLJ��2:�DTK ���5:�7,2)"SCORING"'''':�6:�''" MUTANT"�10"50"''" SWARMER"�8"100"''" TRIMORT"�8"150"''" BAITER"�9"150"''" BARYON"�9"150"''" ASTEROID"�9"0"''" FUEL DUMP"�8"0" ��I%=0�28�4:M%=&4810:�J%=&1A88�&1BE8�32:M%!I%=J%!I%:J%=J%-64*(J%=&1AC8)-96*(J%=&1B68):M%=M%+&500:�:�:�12:�3,29)"PRESS SPACE BAR":*FX15,1 l���=32:�txK ���" The object of the game is to defend"'" your planet from the menacing aliens."'" You are in control of a spaceship"'" equipped with a laser gun and three"'" smart bombs. To control the spaceship use the following keys:"' 4��" �A �to move upwards;"'" �Z �to move downwards;"'" �COPY �to fire the laser gun;"'" �DELETE�for thrust control;"'" �RETURN�to use a smart bomb."' ���" You must attempt to destroy the aliens with the laser gun or the smart bombs."'" Smart bombs destroy all the aliens on the screen."':�T\L:�28,0,24,39,5:�:�'" Each type of alien moves in a specific manner:" ���"�Mutants�move about randomly."'"�Swarmers�move away from your spaceship.�Trimorts�move at random, and have to be hit 3 times before they are destroyed."'"�Baiters�move towards your spaceship." `��"�Baryons�move towards your spaceship"'" but not as directly as the baiters do."''" The baryons and the asteroids can only be destroyed by a smart bomb."''" You must shoot at the fuel dumps to"'" replenish your fuel supply."''' ��T\L:� (��'" Bonus spaceships are awarded for scores of�10000�and�20000�points."''" If you want to alter the skill level at the end of the game, press the�ESCAPE key. To exit from the game, press�the �BREAK�key."' �-�'�7"Which skill level (1-6)? ";:*FX15,1 �)�A%=�:�A%>48�A%<55:�A%:?&2FC5=A%-48:� T�23;8202;0;0;0;:� �.�7:�I%=0�196�4:I%!&7C00=I%!7240:�:�0,5):� �2;:�DTK �)�7"����PRESS SPACE BAR �";::*FX15,0 ����=32:� �,52:� �5 33 ## 033 !## 0330 !##! ^^ 666 6)<3 3<!9"