Home » Personal collection » Acorn DFS disks » dfs_box03_disk05_games_3_backup.scp » 1.RAIDER
1.RAIDER
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_disk05_games_3_backup.scp |
Filename: | 1.RAIDER |
Read OK: | ✔ |
File size: | 0409 bytes |
Load address: | FF1900 |
Exec address: | FF801F |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn DFS disks » dfs_box03_disk05_games_3_backup.scp » 1.RAIDER
- Personal collection » Acorn DFS disks » dfs_box03_disk05b_games_3_backup.scp » 1.RAIDER
File contents
0REM ...Rocket Raid... V1 100REM 200REM Copyright (C) Acornsoft 1982 300REM 400*L.2.RAIDER 1900 450FORK%=0TO&269DSTEP4:K%!&E00=K%!&1900:NEXT 500MODE7 600VDU23;10,32,0;0;0; 700PROCheader("Acornsoft Rocket Raid") 800PROCdouble(CHR$&86+"Instructions ") 900PRINTTAB(6,4);"Keys:" 1000FORI%=5TO11:READA$:PROCjustify(A$,I%):NEXT 1100PROCcentre(CHR$&82+"Use Joystick with"+CHR$&83+"EITHER",13) 1200PROCcentre(CHR$&82+"Fire Button"+CHR$&83+"OR"+CHR$&82+"Shift and Return",14) 1300PROCcentre(CHR$&82+"to Bomb and Fire",15) 1400PROCcentre(CHR$&87+"Press SPACE BAR or Fire Button",20) 1500PROCcentre(CHR$&87+"on Joystick to Start",21) 1600PROCcentre(CHR$&85+"Use 'S' and 'Q' to turn",17) 1700PROCcentre(CHR$&85+"sound on and off",18) 1800PROCcentre(CHR$&86+" Copyright (C) Acornsoft 1982 ",23) 1900CALL&3400 2000 2100DEFPROCcentre(A$,vpos)PRINTTAB((19-LENA$DIV2),vpos);A$:ENDPROC 2200 2300DEFPROCheader(A$)VDU30:FORI=0TO1:PRINTCHR$&81;CHR$&9D;CHR$&83;CHR$&8D;:PROCcentre(A$,VPOS):NEXT:ENDPROC 2400 2500DEFPROCjustify(A$,vpos)LOCALtemp:temp=INSTR(A$,"-"):PRINTTAB(20-temp,vpos);A$:ENDPROC 2600 2700DEFPROCdouble(A$)FORI=0TO1:PROCcentre(CHR$&8D+A$,VPOS):NEXT:ENDPROC 2800DATA "A - Up","Z - Down","SPACE BAR - Back","SHIFT - Forwards","TAB - Bomb","RETURN - Fire","ESCAPE - Restart"
� ...Rocket Raid... V1 d� �"� Copyright (C) Acornsoft 1982 ,� �*L.2.RAIDER 1900 �$�K%=0�&269D�4:K%!&E00=K%!&1900:� ��7 X�23;10,32,0;0;0; �$�header("Acornsoft Rocket Raid") "�double(�&86+"Instructions ") ��6,4);"Keys:" �"�I%=5�11:�A$:�justify(A$,I%):� L6�centre(�&82+"Use Joystick with"+�&83+"EITHER",13) �D�centre(�&82+"Fire Button"+�&83+"OR"+�&82+"Shift and Return",14) '�centre(�&82+"to Bomb and Fire",15) x5�centre(�&87+"Press SPACE BAR or Fire Button",20) �+�centre(�&87+"on Joystick to Start",21) @.�centre(�&85+"Use 'S' and 'Q' to turn",17) �'�centre(�&85+"sound on and off",18) 5�centre(�&86+" Copyright (C) Acornsoft 1982 ",23) l �&3400 � 4,��centre(A$,vpos)�(19-�A$�2),vpos);A$:� � �B��header(A$)�30:�I=0�1:�&81;�&9D;�&83;�&8D;:�centre(A$,�):�:� ` �>��justify(A$,vpos)�temp:temp=�A$,"-"):�20-temp,vpos);A$:� ( �-��double(A$)�I=0�1:�centre(�&8D+A$,�):�:� �o� "A - Up","Z - Down","SPACE BAR - Back","SHIFT - Forwards","TAB - Bomb","RETURN - Fire","ESCAPE - Restart" �
00000000 0d 00 00 1e f4 20 20 20 20 2e 2e 2e 52 6f 63 6b |..... ...Rock| 00000010 65 74 20 52 61 69 64 2e 2e 2e 20 20 56 31 0d 00 |et Raid... V1..| 00000020 64 05 f4 0d 00 c8 22 f4 20 43 6f 70 79 72 69 67 |d.....". Copyrig| 00000030 68 74 20 28 43 29 20 41 63 6f 72 6e 73 6f 66 74 |ht (C) Acornsoft| 00000040 20 31 39 38 32 0d 01 2c 05 f4 0d 01 90 14 2a 4c | 1982..,......*L| 00000050 2e 32 2e 52 41 49 44 45 52 20 31 39 30 30 0d 01 |.2.RAIDER 1900..| 00000060 c2 24 e3 4b 25 3d 30 b8 26 32 36 39 44 88 34 3a |.$.K%=0.&269D.4:| 00000070 4b 25 21 26 45 30 30 3d 4b 25 21 26 31 39 30 30 |K%!&E00=K%!&1900| 00000080 3a ed 0d 01 f4 06 eb 37 0d 02 58 14 ef 32 33 3b |:......7..X..23;| 00000090 31 30 2c 33 32 2c 30 3b 30 3b 30 3b 0d 02 bc 24 |10,32,0;0;0;...$| 000000a0 f2 68 65 61 64 65 72 28 22 41 63 6f 72 6e 73 6f |.header("Acornso| 000000b0 66 74 20 52 6f 63 6b 65 74 20 52 61 69 64 22 29 |ft Rocket Raid")| 000000c0 0d 03 20 22 f2 64 6f 75 62 6c 65 28 bd 26 38 36 |.. ".double(.&86| 000000d0 2b 22 49 6e 73 74 72 75 63 74 69 6f 6e 73 20 20 |+"Instructions | 000000e0 22 29 0d 03 84 12 f1 8a 36 2c 34 29 3b 22 4b 65 |")......6,4);"Ke| 000000f0 79 73 3a 22 0d 03 e8 22 e3 49 25 3d 35 b8 31 31 |ys:"...".I%=5.11| 00000100 3a f3 41 24 3a f2 6a 75 73 74 69 66 79 28 41 24 |:.A$:.justify(A$| 00000110 2c 49 25 29 3a ed 0d 04 4c 36 f2 63 65 6e 74 72 |,I%):...L6.centr| 00000120 65 28 bd 26 38 32 2b 22 55 73 65 20 4a 6f 79 73 |e(.&82+"Use Joys| 00000130 74 69 63 6b 20 77 69 74 68 22 2b bd 26 38 33 2b |tick with"+.&83+| 00000140 22 45 49 54 48 45 52 22 2c 31 33 29 0d 04 b0 44 |"EITHER",13)...D| 00000150 f2 63 65 6e 74 72 65 28 bd 26 38 32 2b 22 46 69 |.centre(.&82+"Fi| 00000160 72 65 20 42 75 74 74 6f 6e 22 2b bd 26 38 33 2b |re Button"+.&83+| 00000170 22 4f 52 22 2b bd 26 38 32 2b 22 53 68 69 66 74 |"OR"+.&82+"Shift| 00000180 20 61 6e 64 20 52 65 74 75 72 6e 22 2c 31 34 29 | and Return",14)| 00000190 0d 05 14 27 f2 63 65 6e 74 72 65 28 bd 26 38 32 |...'.centre(.&82| 000001a0 2b 22 74 6f 20 42 6f 6d 62 20 61 6e 64 20 46 69 |+"to Bomb and Fi| 000001b0 72 65 22 2c 31 35 29 0d 05 78 35 f2 63 65 6e 74 |re",15)..x5.cent| 000001c0 72 65 28 bd 26 38 37 2b 22 50 72 65 73 73 20 53 |re(.&87+"Press S| 000001d0 50 41 43 45 20 42 41 52 20 6f 72 20 46 69 72 65 |PACE BAR or Fire| 000001e0 20 42 75 74 74 6f 6e 22 2c 32 30 29 0d 05 dc 2b | Button",20)...+| 000001f0 f2 63 65 6e 74 72 65 28 bd 26 38 37 2b 22 6f 6e |.centre(.&87+"on| 00000200 20 4a 6f 79 73 74 69 63 6b 20 74 6f 20 53 74 61 | Joystick to Sta| 00000210 72 74 22 2c 32 31 29 0d 06 40 2e f2 63 65 6e 74 |rt",21)..@..cent| 00000220 72 65 28 bd 26 38 35 2b 22 55 73 65 20 27 53 27 |re(.&85+"Use 'S'| 00000230 20 61 6e 64 20 27 51 27 20 74 6f 20 74 75 72 6e | and 'Q' to turn| 00000240 22 2c 31 37 29 0d 06 a4 27 f2 63 65 6e 74 72 65 |",17)...'.centre| 00000250 28 bd 26 38 35 2b 22 73 6f 75 6e 64 20 6f 6e 20 |(.&85+"sound on | 00000260 61 6e 64 20 6f 66 66 22 2c 31 38 29 0d 07 08 35 |and off",18)...5| 00000270 f2 63 65 6e 74 72 65 28 bd 26 38 36 2b 22 20 43 |.centre(.&86+" C| 00000280 6f 70 79 72 69 67 68 74 20 28 43 29 20 41 63 6f |opyright (C) Aco| 00000290 72 6e 73 6f 66 74 20 31 39 38 32 20 22 2c 32 33 |rnsoft 1982 ",23| 000002a0 29 0d 07 6c 0a d6 26 33 34 30 30 0d 07 d0 05 20 |)..l..&3400.... | 000002b0 0d 08 34 2c dd f2 63 65 6e 74 72 65 28 41 24 2c |..4,..centre(A$,| 000002c0 76 70 6f 73 29 f1 8a 28 31 39 2d a9 41 24 81 32 |vpos)..(19-.A$.2| 000002d0 29 2c 76 70 6f 73 29 3b 41 24 3a e1 0d 08 98 05 |),vpos);A$:.....| 000002e0 20 0d 08 fc 42 dd f2 68 65 61 64 65 72 28 41 24 | ...B..header(A$| 000002f0 29 ef 33 30 3a e3 49 3d 30 b8 31 3a f1 bd 26 38 |).30:.I=0.1:..&8| 00000300 31 3b bd 26 39 44 3b bd 26 38 33 3b bd 26 38 44 |1;.&9D;.&83;.&8D| 00000310 3b 3a f2 63 65 6e 74 72 65 28 41 24 2c bc 29 3a |;:.centre(A$,.):| 00000320 ed 3a e1 0d 09 60 05 20 0d 09 c4 3e dd f2 6a 75 |.:...`. ...>..ju| 00000330 73 74 69 66 79 28 41 24 2c 76 70 6f 73 29 ea 74 |stify(A$,vpos).t| 00000340 65 6d 70 3a 74 65 6d 70 3d a7 41 24 2c 22 2d 22 |emp:temp=.A$,"-"| 00000350 29 3a f1 8a 32 30 2d 74 65 6d 70 2c 76 70 6f 73 |):..20-temp,vpos| 00000360 29 3b 41 24 3a e1 0d 0a 28 05 20 0d 0a 8c 2d dd |);A$:...(. ...-.| 00000370 f2 64 6f 75 62 6c 65 28 41 24 29 e3 49 3d 30 b8 |.double(A$).I=0.| 00000380 31 3a f2 63 65 6e 74 72 65 28 bd 26 38 44 2b 41 |1:.centre(.&8D+A| 00000390 24 2c bc 29 3a ed 3a e1 0d 0a f0 6f dc 20 22 41 |$,.):.:....o. "A| 000003a0 20 2d 20 55 70 22 2c 22 5a 20 2d 20 44 6f 77 6e | - Up","Z - Down| 000003b0 22 2c 22 53 50 41 43 45 20 42 41 52 20 2d 20 42 |","SPACE BAR - B| 000003c0 61 63 6b 22 2c 22 53 48 49 46 54 20 2d 20 46 6f |ack","SHIFT - Fo| 000003d0 72 77 61 72 64 73 22 2c 22 54 41 42 20 2d 20 42 |rwards","TAB - B| 000003e0 6f 6d 62 22 2c 22 52 45 54 55 52 4e 20 2d 20 46 |omb","RETURN - F| 000003f0 69 72 65 22 2c 22 45 53 43 41 50 45 20 2d 20 52 |ire","ESCAPE - R| 00000400 65 73 74 61 72 74 22 0d ff |estart"..| 00000409