Home » Personal collection » Acorn DFS disks » dfs_box03_disk05b_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_disk05b_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:

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
1.RAIDER.m0
1.RAIDER.m1
1.RAIDER.m2
1.RAIDER.m4
1.RAIDER.m5