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:
- AEW website » superior_blue_ribbon » superior_blue_ribbon_Moonraider-PIASRR_E_Moonraider-PIASRR_E.uef » RAID
- Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_5_10.ADF » Sam5/Moonraider/RAID
- Personal collection » Acorn hard disk » zipped_disks » elk07 » sam5_10/Sam5/Moonraider/RAID
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape11b_acorn_play_it_again_sam_5.wav » RAID
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