Home » Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » G.DATA
G.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: | G.DATA |
Read OK: | ✔ |
File size: | 2100 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 » G.DATA
- Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » G.DATA
File contents
356REMLENANDINTERRORpLEN/ERRORqLEN0TIMEpLOADPAGECOLOURGCOLqINKEYqEND7PAGEREADORpTIMEpORIGINpLOADLOADLOADLOADLOADLOADLOADPAGEPROCGCOLqINKEYqEND:PAGELOCAL` 200LOMEM=&2FC9 300ONERRORRUN 600ENVELOPE1,1,-4,-1,-1,40,40,30,124,0,-1,-3,124,123 700ENVELOPE2,1,22,-16,-13,7,3,2,127,0,-1,-1,126,126 800ENVELOPE3,1,4,-1,-2,20,25,15,127,0,-1,-2,126,126 900ENVELOPE4,1,5,10,15,5,10,15,125,-10,-1,-1,125,120 1000VDU23,224,34,&77,&FD,&FF,&EF,&C7,74,2 1100VDU23,225,32,&70,&F8,&F8,&B8,24,&90,0 1200VDU23,226,20,20,&BE,&EB,62,62,93,73:CALL&1940 1300VDU23,227,0,0,&80,&80,0,0,0,0:*FX16,0 1400VDU23,228,&88,&9C,&7F,62,&6B,&BE,&94,20:*FX9,15 1500VDU23,229,&80,&80,0,0,0,&80,&80,0:*FX10,70 1600VDU23,230,&92,&D6,&FE,&FE,&7C,16,16,40:*TV255 1700MODE2:GOSUB8300:$&2F70="GALAXIANS ":FORI%=0TO19:COLOUR6:PRINTTAB(I%,9);CHR$230;:SOUND2,4,40+8*I%,2:FORJ%=1TO850:NEXT:!1218=!14 1800VDU127:IFI%MOD2=1COLOUR5:PRINTMID$($&2F70,1+I%DIV2,1);ELSEVDU32 1900NEXT:COLOUR6:PRINTTAB(19,9)CHR$230;:FORJ%=1TO4000:NEXT 2000@%=1:MODE7:GOSUB4900:R%=&2F70:P%=&2F84:H%=0 2100FORI%=0TO4:R%!(4*I%)=0:P%?(13*I%)=13:NEXT 2200MODE2:GOSUB8300:CALL&E05 2300VDU5:GCOL0,2:MOVE356,1008:PRINT"GALAXIANS"CHR$4 2400COLOUR132:COLOUR6:PRINT'" 0"; 2700PRINTSPC(13-(H%<1)+(H%>99));10*H%;TAB(0,2); 2800CALL&2D91 2900*FX15,1 3000I%=?&2FC7:J%=?&2FC6:O%=1000*(I%DIV16)+100*(I%MOD16)+10*(J%DIV16)+J%MOD16 3100MODE7 3200C%=1:FORI%=16TO0STEP-4:IFO%>R%!I% C%=I% 3300NEXT:IFC%=1PRINT' 3400PRINT"Score: ";O%*10".":IFC%=1GOTO3900 3500IFC%<16FORI%=4TOC%/4+1STEP-1:R%!(4*I%)=R%!(4*I%-4):$(P%+I%*13)=$(P%+I%*13-13):NEXT 3600R%!C%=O% 3700PRINT'"Your score is ranked number ";(C%DIV4)+1;"." 3750PRINT'"What is your name? ";:REPEAT:UNTILINKEY(10)=-1 3760*FX15,1 3800INPUT""$&3000:?&300C=13:$(13*(C%DIV4)+P%)=$&3000 3900PRINT''''SPC3STRING$(30,"*")'SPC3"*"SPC28"*" 4000GOSUB8300:FORI%=0TO4:PRINT" * ";:IFI%=1J%=131:GOTO4300 4100IFI%=2J%=130:GOTO4300 4200IFI%=3J%=134ELSEJ%=129+I% 4300PRINTCHR$J%;I%+1;". ";$(P%+13*I%);TAB(25);:@%=5:PRINT10*(R%!(4*I%));TAB(31)CHR$135"*":@%=1 4400NEXT:PRINT" *"SPC28"*"'SPC3STRING$(30,"*")''' 4500PRINT''SPC7CHR$136CHR$148CHR$157CHR$151"PRESS SPACE BAR "CHR$156; 4600IFO%>H%H%=O% 4700*FX15,1 4800REPEAT:UNTILGET=32:GOTO2200 4900GOSUB8400 5000FORI%=255TO10STEP-12:SOUND1,1,I%,1:SOUND2,1,I%,1:NEXT:SOUND1,2,30,1 5100PRINT'SPC4"�Do you want instructions? "; 5200*FX15,1 5300REPEATA%=GET:UNTILA%=78ORA%=89ORA%=110ORA%=121:PRINTCHR$A%;:IFA%=78ORA%=110GOTO7500 5400MODE2:GOSUB8300 5500COLOUR3:PRINTTAB(4,1)"HERE ARE THE"''" GALAXIANS!" 5600COLOUR6:PRINTTAB(13,7)"SCORE SCORE"SPC23"IN FLIGHT" 5700COLOUR7:PRINTTAB(4,12)"100 300"TAB(5,16)"50 200"TAB(5,20)"50 200"TAB(5,24)"20 100" 5800VDU5 5900GCOL0,5:MOVE24,642:VDU224,225:GCOL0,1:MOVE32,512:VDU226,227:MOVE32,384:VDU228,229:GCOL0,6:MOVE40,258:VDU230 6000GCOL0,2:MOVE76,508:DRAW76,512:MOVE62,508:DRAW62,512 6100GCOL0,15:PLOT69,76,634:GCOL0,11:PLOT69,62,500:PLOT69,76,500:PLOT69,62,370:PLOT69,76,370:GCOL0,3:MOVE42,258:DRAW58,250:MOVE72,250:DRAW88,258 6200VDU4:COLOUR11:PRINTTAB(3,30)"PRESS SPACE BAR"; 6300*FX15,1 6400REPEATUNTILGET=32 6500MODE7 6600GOSUB8400 6700PRINT'SPC3"�The following keys are used:"'SPC4"Z�moves the laser base left."'SPC4"X�moves the laser base right."'SPC4"COPY�fires the laser."'' 7100PRINTSPC3"�Extra laser bases are awarded"'SPC3"�when your score reaches�10000"'SPC3"�points and�20000�points."'' 7400PRINTSPC3"�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 program, press�BREAK." 7500PRINT''SPC4"�Which skill level (1-6)? "; 7600*FX15,1 7700REPEATA%=GET:UNTILA%>48ANDA%<55:VDUA%:?&2FC5=A%-48 7800RETURN 8300VDU23;8202;0;0;0;:RETURN 8400PRINTSPC13"�GALAXIANS"''SPC7"(C) R.M.P. Hanson. 1982"':RETURN
d8��p�/�q�0�p���q�q�7��p�pȑp����������q�q�:��` ��=&2FC9 ,� X.�1,1,-4,-1,-1,40,40,30,124,0,-1,-3,124,123 �-�2,1,22,-16,-13,7,3,2,127,0,-1,-1,126,126 -�3,1,4,-1,-2,20,25,15,127,0,-1,-2,126,126 �.�4,1,5,10,15,5,10,15,125,-10,-1,-1,125,120 �'�23,224,34,&77,&FD,&FF,&EF,&C7,74,2 L'�23,225,32,&70,&F8,&F8,&B8,24,&90,0 �,�23,226,20,20,&BE,&EB,62,62,93,73:�&1940 '�23,227,0,0,&80,&80,0,0,0,0:*FX16,0 x1�23,228,&88,&9C,&7F,62,&6B,&BE,&94,20:*FX9,15 �,�23,229,&80,&80,0,0,0,&80,&80,0:*FX10,70 @/�23,230,&92,&D6,&FE,&FE,&7C,16,16,40:*TV255 �_�2:�Dl`:$&2F70="GALAXIANS ":�I%=0�19:�6:�I%,9);�230;:�2,4,40+8*I%,2:�J%=1�850:�:!1218=!14 *�127:�I%�2=1�5:�$&2F70,1+I%�2,1);��32 l"�:�6:�19,9)�230;:�J%=1�4000:� �(@%=1:�7:�TdS:R%=&2F70:P%=&2F84:H%=0 4'�I%=0�4:R%!(4*I%)=0:P%?(13*I%)=13:� ��2:�Dl`:�&E05 �$�5:�0,2:�356,1008:�"GALAXIANS"�4 `�132:�6:�'" 0"; �&�(13-(H%<1)+(H%>99));10*H%;�0,2); � �&2D91 T*FX15,1 �DI%=?&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�' H"�"Score: ";O%*10".":�C%=1�T|O �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"*" �-�Dl`:�I%=0�4:�" * ";:�I%=1J%=131:�dLP �I%=2J%=130:�dLP h�I%=3J%=134�J%=129+I% �L�J%;I%+1;". ";$(P%+13*I%);�25);:@%=5:�10*(R%!(4*I%));�31)�135"*":@%=1 0!�:�" *"�28"*"'�3�30,"*")''' �1�''�7�136�148�157�151"PRESS SPACE BAR "�156; ��O%>H%H%=O% \*FX15,1 ��:��=32:�tXH $ �dP` �2�I%=255�10�-12:�1,1,I%,1:�2,1,I%,1:�:�1,2,30,1 �&�'�4"�Do you want instructions? "; P*FX15,1 �=�A%=�:�A%=78�A%=89�A%=110�A%=121:�A%;:�A%=78�A%=110�DL] �2:�Dl` |.�3:�4,1)"HERE ARE THE"''" GALAXIANS!" �-�6:�13,7)"SCORE SCORE"�23"IN FLIGHT" DY�7:�4,12)"100 300"�5,16)"50 200"�5,20)"50 200"�5,24)"20 100" ��5 R�0,5:�24,642:�224,225:�0,1:�32,512:�226,227:�32,384:�228,229:�0,6:�40,258:�230 p(�0,2:�76,508:�76,512:�62,508:�62,512 �k�0,15:�69,76,634:�0,11:�69,62,500:�69,76,500:�69,62,370:�69,76,370:�0,3:�42,258:�58,250:�72,250:�88,258 8$�4:�11:�3,30)"PRESS SPACE BAR"; �*FX15,1 ���=32 d�7 � �dP` ,��'�3"�The following keys are used:"'�4"Z�moves the laser base left."'�4"X�moves the laser base right."'�4"COPY�fires the laser."'' �j�3"�Extra laser bases are awarded"'�3"�when your score reaches�10000"'�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 program, press�BREAK." L'�''�4"�Which skill level (1-6)? "; �*FX15,1 '�A%=�:�A%>48�A%<55:�A%:?&2FC5=A%-48 x� l�23;8202;0;0;0;:� �4�13"�GALAXIANS"''�7"(C) R.M.P. Hanson. 1982"':� ���"x��F��N�G���u��t�e���X`�M�)��lt� �A�";��L`� �JJJEj& &&&&���`��`$-�� ����.��$�������ީ%��8�.H �#h��ˠL�#��� �#8�� �} ���hLz *��hhXLS.` �p�O��O����@�XhhL�$���@�X` 3333 "333"