Home » Recent acquisitions » Acorn tapes » tape047d_acorn_computer_hits_2.wav » RAIDER

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 » Recent acquisitions » Acorn tapes » tape047d_acorn_computer_hits_2.wav
Filename: RAIDER
Read OK: ✔
File size: 05C5 bytes
Load address: 0E00
Exec address: 8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
  100 
  200REM      MOON RAIDER
  300 
  400REM  (C) 1983 Program Power
  500 
  600REM  Written by David Elliot
  700 
  800REM "���Label Colour
  900DATA4
 1000REM "���Program Name
 1100DATA "  MOON RAIDER"
 1200REM "���Instructions
 1300DATA " "
 1400DATA "  S    Up"
 1500DATA "  X    Down"
 1600DATA "  <    Left"
 1700DATA "  >    Right"
 1800DATA "  M    Laser"
 1900DATA "  A    Drop Bomb"
 2000DATA "Escape Pause"
 2100DATA " "," "
 2200*FX4 1
 2300ON ERROR RUN
 2400MODE5
 2500VDU23,1,0;0;0;0;
 2600READ T%:VDU19,3,T%;0;
 2700COLOUR131:CLS
 2800L%=96:R%=1184
 2900GCOL0,0
 3000FOR X%=0 TO 1280 STEP 24
 3100MOVE X%,0:DRAW X%,1025
 3200MOVE 0,X%*.8333:DRAW 1280,X%*.8333
 3300NEXT
 3400PROCb(L%,64,R%,256)
 3500PROCb(L%,320,R%,752)
 3600COLOUR0:COLOUR130
 3700PROCs(4,2,"PROGRAM",FALSE)
 3800PROCs(6,5,"POWER",FALSE)
 3900READA$:PROCs(2,9,A$,TRUE)
 4000COLOUR1
 4100FOR C%=0 TO 9
 4200READA$:PRINTTAB(2,C%+11)A$;
 4300NEXT
 4400 
 4500COLOUR0
 4600VDU 28,2,28,17,24,23,1,1;0;0;0;0;
 4700ENVELOPE1,1,-15,-15,-15,255,255,255,126,0,0,-126,126,120
 4800IF PAGE=&E00 THEN PAGE=&B00:CHAIN"GAME1"
 4900CHAIN "GAME1"
 5000 
 5100DEFPROCa(A%,B%,C%,D%,E%)
 5200VDU24,A%-8;B%-4;C%+8;D%+4;18,0,128,16,24,A%;B%;C%;D%;18;E%+128,16
 5300ENDPROC
 5400 
 5500DEFPROCb(A%,B%,C%,D%)
 5600PROCa(A%,B%,C%,D%,1)
 5700PROCa(A%+16,B%+16,C%+16,D%+16,2)
 5800ENDPROC
 5900 
 6000DEFPROCd(X%,Y%,C%)
 6100LOCAL A%,B%
 6200A%=&5800+320*Y%+X%*16
 6300VDU 31,X%,Y%,C%
 6400FORB%=0TO7
 6500?(A%+320+B%)=?(A%+B%DIV2+4)
 6600?(A%+328+B%)=?(A%+B%DIV2+12)
 6700NEXT
 6800FOR B%=7 TO 0 STEP -1
 6900?(A%+B%)=?(A%+B%DIV2)
 7000?(A%+B%+8)=?(A%+8+B%DIV2)
 7100NEXT
 7200ENDPROC
 7300DEFPROCs(X%,Y%,A$,F%)
 7400LOCAL A%
 7500FOR A%=1 TO LEN A$
 7600IF F% THEN PROCd(X%+A%-1,Y%,ASCMID$(A$,A%)) ELSE PROCl(X%+A%*2-2,Y%,ASCMID$(A$,A%))
 7700NEXT
 7800ENDPROC
 7900 
 8000DEFPROCl(x%,y%,L%)
 8100LOCAL A%,B%:A%=x%*64:B%=32*(31-y%)
 8200PROCb(A%-32,B%-32,A%+64,B%+32)
 8300VDU 31,x%,y%,L%
 8400ENDPROC

d 
��      MOON RAIDER
, 
��  (C) 1983 Program Power
� 
X�  Written by David Elliot
� 
 � "���Label Colour
��4
�� "���Program Name
L� "  MOON RAIDER"
�� "���Instructions
	� " "
x� "  S    Up"
�� "  X    Down"
@� "  <    Left"
�� "  >    Right"
� "  M    Laser"
l� "  A    Drop Bomb"
�� "Escape Pause"
4
� " "," "
�
*FX4 1
�	� � �
	`�5
	��23,1,0;0;0;0;
(� T%:�19,3,T%;0;
�
�131:�
�L%=96:R%=1184
T�0,0
�� X%=0 � 1280 � 24
� X%,0:� X%,1025
� � 0,X%*.8333:� 1280,X%*.8333
��

H�b(L%,64,R%,256)

��b(L%,320,R%,752)
�0:�130
t�s(4,2,"PROGRAM",�)
��s(6,5,"POWER",�)
<�A$:�s(2,9,A$,�)
��1
� C%=0 � 9
h�A$:�2,C%+11)A$;
��
0 
��0
�#� 28,2,28,17,24,23,1,1;0;0;0;0;
\5�1,1,-15,-15,-15,255,255,255,126,0,0,-126,126,120
�� �=&E00 � �=&B00:�"GAME1"
$
� "GAME1"
� 
���a(A%,B%,C%,D%,E%)
PC�24,A%-8;B%-4;C%+8;D%+4;18,0,128,16,24,A%;B%;C%;D%;18;E%+128,16
��
 
|��b(A%,B%,C%,D%)
��a(A%,B%,C%,D%,1)
D!�a(A%+16,B%+16,C%+16,D%+16,2)
��
 
p��d(X%,Y%,C%)
�� A%,B%
8A%=&5800+320*Y%+X%*16
�� 31,X%,Y%,C%
�B%=0�7
d?(A%+320+B%)=?(A%+B%�2+4)
�?(A%+328+B%)=?(A%+B%�2+12)
,�
�� B%=7 � 0 � -1
�?(A%+B%)=?(A%+B%�2)
X?(A%+B%+8)=?(A%+8+B%�2)
��
 �
���s(X%,Y%,A$,F%)
�� A%
L� A%=1 � � A$
�>� F% � �d(X%+A%-1,Y%,��A$,A%)) � �l(X%+A%*2-2,Y%,��A$,A%))
�
x�
� 
@��l(x%,y%,L%)
�"� A%,B%:A%=x%*64:B%=32*(31-y%)
 �b(A%-32,B%-32,A%+64,B%+32)
 l� 31,x%,y%,L%
 ��
�
00000000  0d 00 64 05 20 0d 00 c8  16 f4 20 20 20 20 20 20  |..d. .....      |
00000010  4d 4f 4f 4e 20 52 41 49  44 45 52 0d 01 2c 05 20  |MOON RAIDER..,. |
00000020  0d 01 90 1d f4 20 20 28  43 29 20 31 39 38 33 20  |.....  (C) 1983 |
00000030  50 72 6f 67 72 61 6d 20  50 6f 77 65 72 0d 01 f4  |Program Power...|
00000040  05 20 0d 02 58 1e f4 20  20 57 72 69 74 74 65 6e  |. ..X..  Written|
00000050  20 62 79 20 44 61 76 69  64 20 45 6c 6c 69 6f 74  | by David Elliot|
00000060  0d 02 bc 05 20 0d 03 20  16 f4 20 22 83 9d 81 4c  |.... .. .. "...L|
00000070  61 62 65 6c 20 43 6f 6c  6f 75 72 0d 03 84 06 dc  |abel Colour.....|
00000080  34 0d 03 e8 16 f4 20 22  84 9d 83 50 72 6f 67 72  |4..... "...Progr|
00000090  61 6d 20 4e 61 6d 65 0d  04 4c 15 dc 20 22 20 20  |am Name..L.. "  |
000000a0  4d 4f 4f 4e 20 52 41 49  44 45 52 22 0d 04 b0 16  |MOON RAIDER"....|
000000b0  f4 20 22 81 9d 86 49 6e  73 74 72 75 63 74 69 6f  |. "...Instructio|
000000c0  6e 73 0d 05 14 09 dc 20  22 20 22 0d 05 78 11 dc  |ns..... " "..x..|
000000d0  20 22 20 20 53 20 20 20  20 55 70 22 0d 05 dc 13  | "  S    Up"....|
000000e0  dc 20 22 20 20 58 20 20  20 20 44 6f 77 6e 22 0d  |. "  X    Down".|
000000f0  06 40 13 dc 20 22 20 20  3c 20 20 20 20 4c 65 66  |.@.. "  <    Lef|
00000100  74 22 0d 06 a4 14 dc 20  22 20 20 3e 20 20 20 20  |t"..... "  >    |
00000110  52 69 67 68 74 22 0d 07  08 14 dc 20 22 20 20 4d  |Right"..... "  M|
00000120  20 20 20 20 4c 61 73 65  72 22 0d 07 6c 18 dc 20  |    Laser"..l.. |
00000130  22 20 20 41 20 20 20 20  44 72 6f 70 20 42 6f 6d  |"  A    Drop Bom|
00000140  62 22 0d 07 d0 14 dc 20  22 45 73 63 61 70 65 20  |b"..... "Escape |
00000150  50 61 75 73 65 22 0d 08  34 0d dc 20 22 20 22 2c  |Pause"..4.. " ",|
00000160  22 20 22 0d 08 98 0a 2a  46 58 34 20 31 0d 08 fc  |" "....*FX4 1...|
00000170  09 ee 20 85 20 f9 0d 09  60 06 eb 35 0d 09 c4 12  |.. . ...`..5....|
00000180  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 0a  |.23,1,0;0;0;0;..|
00000190  28 14 f3 20 54 25 3a ef  31 39 2c 33 2c 54 25 3b  |(.. T%:.19,3,T%;|
000001a0  30 3b 0d 0a 8c 0a fb 31  33 31 3a db 0d 0a f0 11  |0;.....131:.....|
000001b0  4c 25 3d 39 36 3a 52 25  3d 31 31 38 34 0d 0b 54  |L%=96:R%=1184..T|
000001c0  08 e6 30 2c 30 0d 0b b8  16 e3 20 58 25 3d 30 20  |..0,0..... X%=0 |
000001d0  b8 20 31 32 38 30 20 88  20 32 34 0d 0c 1c 14 ec  |. 1280 . 24.....|
000001e0  20 58 25 2c 30 3a df 20  58 25 2c 31 30 32 35 0d  | X%,0:. X%,1025.|
000001f0  0c 80 20 ec 20 30 2c 58  25 2a 2e 38 33 33 33 3a  |.. . 0,X%*.8333:|
00000200  df 20 31 32 38 30 2c 58  25 2a 2e 38 33 33 33 0d  |. 1280,X%*.8333.|
00000210  0c e4 05 ed 0d 0d 48 14  f2 62 28 4c 25 2c 36 34  |......H..b(L%,64|
00000220  2c 52 25 2c 32 35 36 29  0d 0d ac 15 f2 62 28 4c  |,R%,256).....b(L|
00000230  25 2c 33 32 30 2c 52 25  2c 37 35 32 29 0d 0e 10  |%,320,R%,752)...|
00000240  0b fb 30 3a fb 31 33 30  0d 0e 74 17 f2 73 28 34  |..0:.130..t..s(4|
00000250  2c 32 2c 22 50 52 4f 47  52 41 4d 22 2c a3 29 0d  |,2,"PROGRAM",.).|
00000260  0e d8 15 f2 73 28 36 2c  35 2c 22 50 4f 57 45 52  |....s(6,5,"POWER|
00000270  22 2c a3 29 0d 0f 3c 14  f3 41 24 3a f2 73 28 32  |",.)..<..A$:.s(2|
00000280  2c 39 2c 41 24 2c b9 29  0d 0f a0 06 fb 31 0d 10  |,9,A$,.).....1..|
00000290  04 0e e3 20 43 25 3d 30  20 b8 20 39 0d 10 68 15  |... C%=0 . 9..h.|
000002a0  f3 41 24 3a f1 8a 32 2c  43 25 2b 31 31 29 41 24  |.A$:..2,C%+11)A$|
000002b0  3b 0d 10 cc 05 ed 0d 11  30 05 20 0d 11 94 06 fb  |;.......0. .....|
000002c0  30 0d 11 f8 23 ef 20 32  38 2c 32 2c 32 38 2c 31  |0...#. 28,2,28,1|
000002d0  37 2c 32 34 2c 32 33 2c  31 2c 31 3b 30 3b 30 3b  |7,24,23,1,1;0;0;|
000002e0  30 3b 30 3b 0d 12 5c 35  e2 31 2c 31 2c 2d 31 35  |0;0;..\5.1,1,-15|
000002f0  2c 2d 31 35 2c 2d 31 35  2c 32 35 35 2c 32 35 35  |,-15,-15,255,255|
00000300  2c 32 35 35 2c 31 32 36  2c 30 2c 30 2c 2d 31 32  |,255,126,0,0,-12|
00000310  36 2c 31 32 36 2c 31 32  30 0d 12 c0 1e e7 20 90  |6,126,120..... .|
00000320  3d 26 45 30 30 20 8c 20  d0 3d 26 42 30 30 3a d7  |=&E00 . .=&B00:.|
00000330  22 47 41 4d 45 31 22 0d  13 24 0d d7 20 22 47 41  |"GAME1"..$.. "GA|
00000340  4d 45 31 22 0d 13 88 05  20 0d 13 ec 17 dd f2 61  |ME1".... ......a|
00000350  28 41 25 2c 42 25 2c 43  25 2c 44 25 2c 45 25 29  |(A%,B%,C%,D%,E%)|
00000360  0d 14 50 43 ef 32 34 2c  41 25 2d 38 3b 42 25 2d  |..PC.24,A%-8;B%-|
00000370  34 3b 43 25 2b 38 3b 44  25 2b 34 3b 31 38 2c 30  |4;C%+8;D%+4;18,0|
00000380  2c 31 32 38 2c 31 36 2c  32 34 2c 41 25 3b 42 25  |,128,16,24,A%;B%|
00000390  3b 43 25 3b 44 25 3b 31  38 3b 45 25 2b 31 32 38  |;C%;D%;18;E%+128|
000003a0  2c 31 36 0d 14 b4 05 e1  0d 15 18 05 20 0d 15 7c  |,16......... ..||
000003b0  14 dd f2 62 28 41 25 2c  42 25 2c 43 25 2c 44 25  |...b(A%,B%,C%,D%|
000003c0  29 0d 15 e0 15 f2 61 28  41 25 2c 42 25 2c 43 25  |).....a(A%,B%,C%|
000003d0  2c 44 25 2c 31 29 0d 16  44 21 f2 61 28 41 25 2b  |,D%,1)..D!.a(A%+|
000003e0  31 36 2c 42 25 2b 31 36  2c 43 25 2b 31 36 2c 44  |16,B%+16,C%+16,D|
000003f0  25 2b 31 36 2c 32 29 0d  16 a8 05 e1 0d 17 0c 05  |%+16,2).........|
00000400  20 0d 17 70 11 dd f2 64  28 58 25 2c 59 25 2c 43  | ..p...d(X%,Y%,C|
00000410  25 29 0d 17 d4 0b ea 20  41 25 2c 42 25 0d 18 38  |%)..... A%,B%..8|
00000420  19 41 25 3d 26 35 38 30  30 2b 33 32 30 2a 59 25  |.A%=&5800+320*Y%|
00000430  2b 58 25 2a 31 36 0d 18  9c 11 ef 20 33 31 2c 58  |+X%*16..... 31,X|
00000440  25 2c 59 25 2c 43 25 0d  19 00 0b e3 42 25 3d 30  |%,Y%,C%.....B%=0|
00000450  b8 37 0d 19 64 1d 3f 28  41 25 2b 33 32 30 2b 42  |.7..d.?(A%+320+B|
00000460  25 29 3d 3f 28 41 25 2b  42 25 81 32 2b 34 29 0d  |%)=?(A%+B%.2+4).|
00000470  19 c8 1e 3f 28 41 25 2b  33 32 38 2b 42 25 29 3d  |...?(A%+328+B%)=|
00000480  3f 28 41 25 2b 42 25 81  32 2b 31 32 29 0d 1a 2c  |?(A%+B%.2+12)..,|
00000490  05 ed 0d 1a 90 13 e3 20  42 25 3d 37 20 b8 20 30  |....... B%=7 . 0|
000004a0  20 88 20 2d 31 0d 1a f4  17 3f 28 41 25 2b 42 25  | . -1....?(A%+B%|
000004b0  29 3d 3f 28 41 25 2b 42  25 81 32 29 0d 1b 58 1b  |)=?(A%+B%.2)..X.|
000004c0  3f 28 41 25 2b 42 25 2b  38 29 3d 3f 28 41 25 2b  |?(A%+B%+8)=?(A%+|
000004d0  38 2b 42 25 81 32 29 0d  1b bc 05 ed 0d 1c 20 05  |8+B%.2)....... .|
000004e0  e1 0d 1c 84 14 dd f2 73  28 58 25 2c 59 25 2c 41  |.......s(X%,Y%,A|
000004f0  24 2c 46 25 29 0d 1c e8  08 ea 20 41 25 0d 1d 4c  |$,F%)..... A%..L|
00000500  11 e3 20 41 25 3d 31 20  b8 20 a9 20 41 24 0d 1d  |.. A%=1 . . A$..|
00000510  b0 3e e7 20 46 25 20 8c  20 f2 64 28 58 25 2b 41  |.>. F% . .d(X%+A|
00000520  25 2d 31 2c 59 25 2c 97  c1 41 24 2c 41 25 29 29  |%-1,Y%,..A$,A%))|
00000530  20 8b 20 f2 6c 28 58 25  2b 41 25 2a 32 2d 32 2c  | . .l(X%+A%*2-2,|
00000540  59 25 2c 97 c1 41 24 2c  41 25 29 29 0d 1e 14 05  |Y%,..A$,A%))....|
00000550  ed 0d 1e 78 05 e1 0d 1e  dc 05 20 0d 1f 40 11 dd  |...x...... ..@..|
00000560  f2 6c 28 78 25 2c 79 25  2c 4c 25 29 0d 1f a4 22  |.l(x%,y%,L%)..."|
00000570  ea 20 41 25 2c 42 25 3a  41 25 3d 78 25 2a 36 34  |. A%,B%:A%=x%*64|
00000580  3a 42 25 3d 33 32 2a 28  33 31 2d 79 25 29 0d 20  |:B%=32*(31-y%). |
00000590  08 1f f2 62 28 41 25 2d  33 32 2c 42 25 2d 33 32  |...b(A%-32,B%-32|
000005a0  2c 41 25 2b 36 34 2c 42  25 2b 33 32 29 0d 20 6c  |,A%+64,B%+32). l|
000005b0  11 ef 20 33 31 2c 78 25  2c 79 25 2c 4c 25 0d 20  |.. 31,x%,y%,L%. |
000005c0  d0 05 e1 0d ff                                    |.....|
000005c5
RAIDER.m0
RAIDER.m1
RAIDER.m2
RAIDER.m4
RAIDER.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .