Home » Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » A.DATA
A.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: | A.DATA |
Read OK: | ✔ |
File size: | 203A 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 » A.DATA
- Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » A.DATA
File contents
356REMEVALANDORpEXT0TAB(OFLINEqTIMEpLOADPAGECOLOURINPUTEND7PAGEREMEXTANDLINErORtORvEXT7LINEsINPUTLINEuINPUTLINEwTIMErTIMEtTIMEvORIGINrTIMEtTIMEvLOADLOADLOADLOADLOADLOADLOADPAGELOCAL` 200LOMEM=&2FC9:ONERRORRUN 300*TV255 400ENVELOPE1,1,-4,-1,-1,40,40,30,127,0,-1,-2,125,124:ENVELOPE2,1,3,4,5,6,2,4,127,-1,0,-3,127,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:*FX9,15 500@%=1:GOSUB1500:R%=LOMEM-89:P%=LOMEM-69:H%=0:!1255=!14:FORI%=0TO4:R%!(4*I%)=0:P%?(13*I%)=13:NEXT:*FX10,70 600MODE2:GOSUB3200:CALL&E05:COLOUR7:COLOUR132:VDU5:GCOL0,6:MOVE228,1008:PRINT"ALIEN DROPOUT"CHR$4TAB(0,2)" 0"SPC(13-(H%<1)+(H%>99))10*H%TAB(0,2);:CALL&2B94:*FX15,1 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,1 1200INPUT""$&3000:?&300C=13:$(C%DIV4*13+P%)=$&3000:IFO%>H%H%=O% 1300GOSUB3200: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,"*")''''':GOSUB3500:GOTO600 1500GOSUB3300:FORI%=210TO36STEP-8:SOUND1,-11,I%,2:SOUND0,-11,7,2:NEXT:SOUND1,3,15,2:PRINT'SPC6"Do you want instructions? ";:*FX15,1 1600REPEATA%=GET:Q%=A%OR32:UNTILQ%=110ORQ%=121:VDUA%:IFQ%=110PRINT:GOTO2800ELSEMODE2:GOSUB3200 1700VDU19,12,5;0;19,13,6;0;19,14,4;0;:COLOUR1:PRINTTAB(7,2)"SCORING"''''':COLOUR7:PRINT'''SPC11"2000"'''SPC12"80"''SPC12"60"''SPC12"40"''SPC12"20"'''' 1800!&8A=&4C40:CALL&2142:FORI%=0TO28STEP4:I%!&62D0=I%!&1A60:I%!&5DD0=I%!&1A80:I%!&58D0=I%!&1AA0:I%!&53D0=I%!&1AC0:NEXT:COLOUR12:PRINTTAB(3,29)"PRESS SPACE BAR";:*FX15,1 1900REPEATVDU19,14,4;0;:FORI%=1TO700:NEXT:VDU19,14,3;0;:FORI%=1TO700:NEXT:VDU19,14,1;0;:FORI%=1TO700:NEXT:UNTILINKEY(0)=32:GOSUB3300 2000 PRINT'" Killer moths are threatening Earth."''" The small moths fly into their boxes in sequence. When a box becomes full, one moth is released, and it will attempt to destroy your laser." 2100PRINT'" You must shoot at the moths with your laser - which is controlled by using the following keys:"''" �Z� to move the laser left;"'" �X� to move the laser right;"'" �COPY�to fire the laser." 2200PRINT'''SPC1;:GOSUB3400:VDU28,0,24,39,5:CLS:VDU23;29194;0;0;0;:PRINT'" Alternatively, joysticks may be used: Use the right-hand joystick to move the laser, and press the button on the" 2300PRINT" right-hand joystick to fire the laser."''" The large moth which appears in the centre of the screen is normally"'" indestructible, but if you manage to kill 200 of the small moths, the large moth"; 2400PRINT" will be released. If you destroy"'" the large moth, a new set of more"'" powerful moths will come into action."' 2500PRINT" Bonus laser-bases are awarded for"'" scores of 10000 and 20000 points."' 2600PRINT'SPC1;:GOSUB3400:VDU28,0,24,39,5:CLS:VDU23;29194;0;0;0; 2700PRINT'" 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."' 2800PRINT'SPC6"Are you using joysticks? ";:*FX15,1 2900REPEATA%=GET:Q%=A%OR32:UNTILQ%=110ORQ%=121:VDUA%:?&2F6E=Q% 3000PRINT''SPC6"Which skill level (1-6)? ";:*FX15,1 3100REPEATA%=GET:UNTILA%>48ANDA%<55:VDUA%:?&2FC5=A%-48:RETURN 3200VDU23;8202;0;0;0;:RETURN 3300MODE7:FORI%=0TO1:PRINTSPC11CHR$129CHR$141"ALIEN DROPOUT":NEXT:PRINT'SPC7CHR$131"(C) 1982. R.M.P. Hanson"':RETURN 3400GOSUB3200 3500PRINTSPC7"����PRESS SPACE BAR �";:*FX15,1 3600REPEATUNTILGET=32:RETURN
dI�p�0�ʆq�p����7��r�t�v�7�s�u�w�r�t�vȑr�t�v���������` ��=&2FC9:� , *TV255 ���1,1,-4,-1,-1,40,40,30,127,0,-1,-2,125,124:�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,125,124:�4,1,5,10,15,5,10,15,127,-50,-1,-1,127,126:*FX9,15 �Z@%=1:�d\E:R%=�-89:P%=�-69:H%=0:!1255=!14:�I%=0�4:R%!(4*I%)=0:P%?(13*I%)=13:�:*FX10,70 Xw�2:�t@L:�&E05:�7:�132:�5:�0,6:�228,1008:�"ALIEN DROPOUT"�4�0,2)" 0"�(13-(H%<1)+(H%>99))10*H%�0,2);:�&2B94:*FX15,1 �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,1 �8�""$&3000:?&300C=13:$(C%�4*13+P%)=$&3000:�O%>H%H%=O% V�t@L:�''''�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,"*")''''':�tlM:�DXB �d�ddL:�I%=210�36�-8:�1,-11,I%,2:�0,-11,7,2:�:�1,3,15,2:�'�6"Do you want instructions? ";:*FX15,1 @=�A%=�:Q%=A%�32:�Q%=110�Q%=121:�A%:�Q%=110�:�dpJ��2:�t@L �u�19,12,5;0;19,13,6;0;19,14,4;0;:�1:�7,2)"SCORING"''''':�7:�'''�11"2000"'''�12"80"''�12"60"''�12"40"''�12"20"'''' �!&8A=&4C40:�&2142:�I%=0�28�4:I%!&62D0=I%!&1A60:I%!&5DD0=I%!&1A80:I%!&58D0=I%!&1AA0:I%!&53D0=I%!&1AC0:�:�12:�3,29)"PRESS SPACE BAR";:*FX15,1 l[��19,14,4;0;:�I%=1�700:�:�19,14,3;0;:�I%=1�700:�:�19,14,1;0;:�I%=1�700:�:��(0)=32:�ddL �� �'" Killer moths are threatening Earth."''" The small moths fly into their boxes in sequence. When a box becomes full, one moth is released, and it will attempt to destroy your laser." 4��'" You must shoot at the moths with your laser - which is controlled by using the following keys:"''" �Z� to move the laser left;"'" �X� to move the laser right;"'" �COPY�to fire the laser." ���'''�1;:�DHM:�28,0,24,39,5:�:�23;29194;0;0;0;:�'" Alternatively, joysticks may be used: Use the right-hand joystick to move the laser, and press the button on the" ���" right-hand joystick to fire the laser."''" The large moth which appears in the centre of the screen is normally"'" indestructible, but if you manage to kill 200 of the small moths, the large moth"; `x�" will be released. If you destroy"'" the large moth, a new set of more"'" powerful moths will come into action."' �O�" Bonus laser-bases are awarded for"'" scores of 10000 and 20000 points."' (0�'�1;:�DHM:�28,0,24,39,5:�:�23;29194;0;0;0; ���'" 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."' �-�'�6"Are you using joysticks? ";:*FX15,1 T/�A%=�:Q%=A%�32:�Q%=110�Q%=121:�A%:?&2F6E=Q% �.�''�6"Which skill level (1-6)? ";:*FX15,1 )�A%=�:�A%>48�A%<55:�A%:?&2FC5=A%-48:� ��23;8202;0;0;0;:� �Q�7:�I%=0�1:�11�129�141"ALIEN DROPOUT":�:�'�7�131"(C) 1982. R.M.P. Hanson"':� H �t@L �(�7"����PRESS SPACE BAR �";:*FX15,1 ���=32:� �"2:� �0�����xx��?��>�4���X`�M�)��L�� ����A �@@����@@������� ���Â