Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape11b_acorn_play_it_again_sam_5.wav » GAME1
GAME1
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 tapes » Commercial_Releases » box05_tape11b_acorn_play_it_again_sam_5.wav |
Filename: | GAME1 |
Read OK: | ✔ |
File size: | 0A82 bytes |
Load address: | 1100 |
Exec address: | 1100 |
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 » GAME1
- Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_5_10.ADF » Sam5/Moonraider/GAME1
- Personal collection » Acorn hard disk » zipped_disks » elk07 » sam5_10/Sam5/Moonraider/GAME1
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape11b_acorn_play_it_again_sam_5.wav » GAME1
File contents
10REM Moon Raider 11 12REM (c) 1983 Program Power 20 30REM Written by David Elliot 40 45REM Elliot Software Ltd 46 60IF PAGE=&B00 THEN */GAME 80DIM key$(122),com$(5),add%(5),ks% 9 90PROCinit 100REM ON ERROR GOTO 26000 1000ON ERROR RUN 1010MODE4 1015*FX200,0 1020PROCtitle 1030PRINT 1050PRINT" By David Elliot (c) 1983 Program Power" 1100PROCinstructions 2000 2020PRINT" Press Space to start" 2030PRINT'" Press RETURN to define keys" 3000A$=GET$ 3010IF A$=" " THEN 32000 3020IF A$=CHR$13 THEN 4000 3030GOTO 3000 4000MODE6 4020 4100 4110CLS 4125PRINT" DEFINE USER KEYS" 4130PRINT 4135PRINT " Press your preferred control key" 4136PRINT 4140FOR A%=0 TO 5 4150PRINT " Press "com$(A%);TAB(16);" key ";TAB(24); 4160C%=0 4165REPEAT 4170FOR B%=-1 TO -122 STEP -1 4180IF INKEYB% C%=B% 4190NEXT 4200UNTILC%<0 4210 4220IF key$(-C%)="" THEN 4160 4230A%?&A00=C% 4231IF PAGE=&B00 THEN $ks%=key$(-C%)+" ":!add%(A%)=!ks% 4235PRINTkey$(-C%) 4236REPEAT UNTIL INKEY(C%)=0 4240NEXTA% 4300PRINT' 4340PRINT 4350TIME=0:T%=TIME:REPEATUNTILTIME=T%+400 8000*FX 15 0 9000GOTO 1000 10000 10010DEF FNkey(A%) 10020LOCAL B%,A$ 10025PRINTTAB(27); 10030A$=key$(256-A%?&A00) 10040IF A$="" THEN PRINT "None":="" 10050 10060PRINT A$ 10070="" 15000 15010DEFPROCtitle 15020COLOUR0:COLOUR129 15030PRINTTAB(12,1)" " 15040PRINTTAB(12,2)" MOON RAIDER " 15050PRINTTAB(12,3)" " 15060COLOUR1:COLOUR128:ENDPROC 20000 20010DEF PROCinit 20020RESTORE 20021FOR A%=0 TO 5:READ com$(A%),add%(A%):NEXT 20030FOR A%=1 TO 122 20040READ key$(A%) 20050NEXT 20060A%=&A00:?A%=-102:A%?1=-66:A%?2=-103:A%?3=-104:A%?4=-82:A%?5=-67:A%?6=-17:A%?7=-34:A%?8=-56 20099ENDPROC 24000 24010DATA Laser,&495A 24020DATA Bomb,&4968 24030DATA Left,&493F 24040DATA Right,&494C 24050DATA Up,&4927 24060DATA Down,&4932 25000 25010REM Data for keys 25020 25030DATA Shft,Ctrl,,,,,,,,,,,,,, 25040DATA Q,3,4,5,f4,8,f7,-,^,Left 25050DATA ,,,,,,f0,W,E,T,7,I,9,0 25060DATA _,Down,,,,,,,1 25070DATA 2,D,R,6,U,O,P,[,Up 25080DATA ,,,,,,Caps,A,X,F,Y 25090DATA J,K,@,:,Ret,,,,, 25100DATA ,Lock,S,C,G,H,N,L,;,] 25110DATA Del,,,,,,,Tab,Z,Spce 25120DATA V,B,M,',.,/,Copy,,, 25130DATA ,,,Escape,f1,f2,f3,f5,f6,f8 25140DATA f9,\,rght, 26000 26005IF ERR=17 AND ERL>4099 AND ERL<5000 THEN 1000 26010IF ERR=17 THEN 27000 26020REPORT:PRINT" at line ";ERL 26030END 30000 30010DEF PROCinstructions 30020 30030VDU19,1,6;0; 30120PRINT 30130PRINT" Your mission is to raid an Alien" 30140PRINT" base situated on the Moon. However" 30150PRINT" there are five stages of defences to" 30160PRINT" negotiate before you can destroy the" 30170PRINT" alien command base and complete your" 30180PRINT" first mission. Further missions will" 30190PRINT" be even more difficult !" 30200PRINT 30210PRINT" You are in command of a highly" 30220PRINT" manoeuvrable ship equipped with" 30230PRINT" a rapid fire laser and the latest" 30240PRINT" Tyrex bombs." 30241PRINT 30242PRINT" You must refuel between stages" 30243PRINT" by docking with the Space Tanker" 30250PRINT 30260PRINT" You can skip stages of the" 30270PRINT" defences and select a more" 30280PRINT" difficult mission by pressing keys" 30290PRINT" 1 to 5 and A to D." 30900PRINT 30930ENDPROC 32000IF PAGE=&B00 THEN CALL&1900 32010*L.PICT1 32020*L.BIT 32030*L. CHARS1 32040*L. MAP 32050*/RAIDOBJ
� Moon Raider � (c) 1983 Program Power � Written by David Elliot ( -� Elliot Software Ltd . <� �=&B00 � */GAME P%� key$(122),com$(5),add%(5),ks% 9 Z �init d� ON ERROR GOTO 26000 � � � � ��4 �*FX200,0 � �title � .�" By David Elliot (c) 1983 Program Power" L�instructions � ��" Press Space to start" �%�'" Press RETURN to define keys" �A$=� �� A$=" " � �P@} �� A$=�13 � �t`O � � �txK ��6 � � #�" DEFINE USER KEYS" "� ')� " Press your preferred control key" (� ,� A%=0 � 5 6*� " Press "com$(A%);�16);" key ";�24); @C%=0 E� J� B%=-1 � -122 � -1 T� �B% C%=B% ^� h �C%<0 r |� key$(-C%)="" � �D@P �A%?&A00=C% �2� �=&B00 � $ks%=key$(-C%)+" ":!add%(A%)=!ks% ��key$(-C%) �� � �(C%)=0 ��A% ��' �� ��=0:T%=�:���=T%+400 @*FX 15 0 #( � �dhC ' '� �key(A%) '$� B%,A$ ') �27); '.A$=key$(256-A%?&A00) '8� A$="" � � "None":="" 'B 'L� A$ 'V="" :� :���title :��0:�129 :��12,1)" " :��12,2)" MOON RAIDER " :��12,3)" " :� �1:�128:� N N*� �init N4� N5$� A%=0 � 5:� com$(A%),add%(A%):� N>� A%=1 � 122 NH� key$(A%) NR� N\^A%=&A00:?A%=-102:A%?1=-66:A%?2=-103:A%?3=-104:A%?4=-82:A%?5=-67:A%?6=-17:A%?7=-34:A%?8=-56 N�� ]� ]�� Laser,&495A ]�� Bomb,&4968 ]�� Left,&493F ]�� Right,&494C ]�� Up,&4927 ]�� Down,&4932 a� a�� Data for keys a� a�� Shft,Ctrl,,,,,,,,,,,,,, a�� Q,3,4,5,f4,8,f7,-,^,Left a�� ,,,,,,f0,W,E,T,7,I,9,0 a�� _,Down,,,,,,,1 a�� 2,D,R,6,U,O,P,[,Up a�� ,,,,,,Caps,A,X,F,Y b� J,K,@,:,Ret,,,,, b� ,Lock,S,C,G,H,N,L,;,] b� Del,,,,,,,Tab,Z,Spce b � V,B,M,',.,/,Copy,,, b*!� ,,,Escape,f1,f2,f3,f5,f6,f8 b4� f9,\,rght, e� e�#� �=17 � �>4099 � �<5000 � �dhC e�� �=17 � �@xi e��:�" at line ";� e�� u0 u:� �instructions uD uN�19,1,6;0; u�� u�,�" Your mission is to raid an Alien" u�,�" base situated on the Moon. However" u�-�" there are five stages of defences to" u�-�" negotiate before you can destroy the" u�-�" alien command base and complete your" u�-�" first mission. Further missions will" u�!�" be even more difficult !" u�� v)�" You are in command of a highly" v(�" manoeuvrable ship equipped with" v*�" a rapid fire laser and the latest" v �" Tyrex bombs." v!� v")�" You must refuel between stages" v#)�" by docking with the Space Tanker" v*� v4%�" You can skip stages of the" v>#�" defences and select a more" vH+�" difficult mission by pressing keys" vR�" 1 to 5 and A to D." x�� x�� } � �=&B00 � �&1900 } *L.PICT1 } *L.BIT }*L. CHARS1 }(*L. MAP }2 */RAIDOBJ � 3vu ��� � "