Home » Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_5_10.ADF » Sam5/Moonraider/RAID

Sam5/Moonraider/RAID

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 ADFS disks » Electron » Play_it_again_Sam_5_10.ADF
Filename: Sam5/Moonraider/RAID
Read OK:
File size: 0652 bytes
Load address: FF0E00
Exec address: FF802B
Duplicates

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

File contents
   10MODE5
   20VDU23;8202;0;0;0;19,1,5;0;19,2,4;0;19,3,6;0;
   30VDU28,3,30,16,26
   40*LOAD SCREEN 5800
   50T%=TIME:*FX15,0
   60REPEATUNTILTIME>T%+800 ORINKEY(10)<>-1
   70 MODE 6
  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

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