Home » Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Galactic/COMMAND

Galactic/COMMAND

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 » Micropower.ADF
Filename: Galactic/COMMAND
Read OK:
File size: 0536 bytes
Load address: 1900
Exec address: 8023
File contents
   20 HIMEM=&55FF
  900DATA4,7
 1100DATA "GALACTIC",0,"COMMANDER ",32
 1300DATA " ",," ","    A    Left"
 1400DATA " ","    D    Right"," ","  Return Thrust"
 1500DATA""
 1600 DATA " "," "," "," "
 2300MODE5:HIMEM=&3800
 2400VDU23,1,0;0;0;0;
 2500READ T%,U%:VDU19,3,T%;0;19,2,U%;0;
 2600COLOUR131:CLS
 2700L%=96:R%=1184
 2800GCOL0,0
 2900FOR X%=0 TO 1280 STEP 24
 3000MOVE X%,0:DRAW X%,1025
 3100MOVE 0,X%*.8333:DRAW 1280,X%*.8333
 3200NEXT
 3300PROCb(L%,64,R%,256)
 3400PROCb(L%,320,R%,752)
 3500COLOUR0:COLOUR130
 3600PROCs(4,2,"PROGRAM",FALSE)
 3700PROCs(6,5,"POWER",FALSE)
 3750GCOL0,0:VDU26
 3800 READA$,O%:PROCs(6,9,A$,TRUE):READA$,O%:PROCs(5,11,A$,TRUE)
 4400COLOUR0
 4404 COLOUR 129:COLOUR2
 4460 COLOUR 130:COLOUR0
 4470 FORI%=0 TO 7:READ A$:PRINTTAB(2,13+I%)A$;:NEXT 
 4500VDU 28,2,28,17,24,23,1,1;0;0;0;0;
 4555 !&70=&01010101
 4560 COLOUR 130
 4570 VDU 23,1,0;0;0;0;
 4700*L.
 4800CHAIN""
 5300DEFPROCa(A%,B%,C%,D%,E%)
 5400VDU24,A%-8;B%-4;C%+8;D%+4;18,0,128,16,24,A%;B%;C%;D%;18;E%+128,16
 5500ENDPROC
 5700DEFPROCb(A%,B%,C%,D%)
 5800PROCa(A%,B%,C%,D%,1)
 5900PROCa(A%+16,B%+16,C%+16,D%+16,2)
 6000ENDPROC
 6200DEFPROCd(X%,Y%,C%)
 6300LOCAL A%,B%
 6400A%=&5800+320*Y%+X%*16
 6500MOVEX%*64+O%,(32-Y%)*32
 6550VDUC%
 6600FORB%=0TO7
 6700?(A%+320+B%)=?(A%+B%DIV2+4)
 6800?(A%+328+B%)=?(A%+B%DIV2+12)
 6900NEXT
 7000FOR B%=7 TO 0 STEP -1
 7100?(A%+B%)=?(A%+B%DIV2)
 7200?(A%+B%+8)=?(A%+8+B%DIV2)
 7300NEXT
 7400ENDPROC
 7500DEFPROCs(X%,Y%,A$,F%)
 7600LOCAL A%
 7650IF F% THEN VDU5
 7700FOR A%=1 TO LEN A$
 7800IF F% THEN PROCd(X%+A%-1,Y%,ASCMID$(A$,A%)) ELSE PROCl(X%+A%*2-2,Y%,ASCMID$(A$,A%))
 7900NEXT
 7950IF F% THEN VDU4,23,1,0;0;0;0;
 8000ENDPROC
 8200DEFPROCl(x%,y%,L%)
 8300LOCAL A%,B%:A%=x%*64:B%=32*(31-y%)
 8400PROCb(A%-32,B%-32,A%+64,B%+32)
 8500VDU 31,x%,y%,L%
 8600ENDPROC
 �=&55FF
��4,7
L"� "GALACTIC",0,"COMMANDER ",32
� " ",," ","    A    Left"
x0� " ","    D    Right"," ","  Return Thrust"
��""
@ � " "," "," "," "
��5:�=&3800
	`�23,1,0;0;0;0;
	�!� T%,U%:�19,3,T%;0;19,2,U%;0;
(
�131:�
�L%=96:R%=1184
��0,0
T� X%=0 � 1280 � 24
�� X%,0:� X%,1025
 � 0,X%*.8333:� 1280,X%*.8333
��
��b(L%,64,R%,256)

H�b(L%,320,R%,752)

��0:�130
�s(4,2,"PROGRAM",�)
t�s(6,5,"POWER",�)
��0,0:�26
�- �A$,O%:�s(6,9,A$,�):�A$,O%:�s(5,11,A$,�)
0�0
4
 � 129:�2
l
 � 130:�0
v$ �I%=0 � 7:� A$:�2,13+I%)A$;:� 
�#� 28,2,28,17,24,23,1,1;0;0;0;0;
� !&70=&01010101
�
 � 130
� � 23,1,0;0;0;0;
\*L.
��""
���a(A%,B%,C%,D%,E%)
C�24,A%-8;B%-4;C%+8;D%+4;18,0,128,16,24,A%;B%;C%;D%;18;E%+128,16
|�
D��b(A%,B%,C%,D%)
��a(A%,B%,C%,D%,1)
!�a(A%+16,B%+16,C%+16,D%+16,2)
p�
8��d(X%,Y%,C%)
�� A%,B%
A%=&5800+320*Y%+X%*16
d�X%*64+O%,(32-Y%)*32
��C%
��B%=0�7
,?(A%+320+B%)=?(A%+B%�2+4)
�?(A%+328+B%)=?(A%+B%�2+12)
��
X� B%=7 � 0 � -1
�?(A%+B%)=?(A%+B%�2)
 ?(A%+B%+8)=?(A%+8+B%�2)
��
��
L��s(X%,Y%,A$,F%)
�� A%
�
� F% � �5
� A%=1 � � A$
x>� F% � �d(X%+A%-1,Y%,��A$,A%)) � �l(X%+A%*2-2,Y%,��A$,A%))
��
� F% � �4,23,1,0;0;0;0;
@�
 ��l(x%,y%,L%)
 l"� A%,B%:A%=x%*64:B%=32*(31-y%)
 ��b(A%-32,B%-32,A%+64,B%+32)
!4� 31,x%,y%,L%
!��
�
00000000  0d 00 14 0c 20 d3 3d 26  35 35 46 46 0d 03 84 08  |.... .=&55FF....|
00000010  dc 34 2c 37 0d 04 4c 22  dc 20 22 47 41 4c 41 43  |.4,7..L". "GALAC|
00000020  54 49 43 22 2c 30 2c 22  43 4f 4d 4d 41 4e 44 45  |TIC",0,"COMMANDE|
00000030  52 20 22 2c 33 32 0d 05  14 1e dc 20 22 20 22 2c  |R ",32..... " ",|
00000040  2c 22 20 22 2c 22 20 20  20 20 41 20 20 20 20 4c  |," ","    A    L|
00000050  65 66 74 22 0d 05 78 30  dc 20 22 20 22 2c 22 20  |eft"..x0. " "," |
00000060  20 20 20 44 20 20 20 20  52 69 67 68 74 22 2c 22  |   D    Right","|
00000070  20 22 2c 22 20 20 52 65  74 75 72 6e 20 54 68 72  | ","  Return Thr|
00000080  75 73 74 22 0d 05 dc 07  dc 22 22 0d 06 40 16 20  |ust".....""..@. |
00000090  dc 20 22 20 22 2c 22 20  22 2c 22 20 22 2c 22 20  |. " "," "," "," |
000000a0  22 0d 08 fc 0e eb 35 3a  d3 3d 26 33 38 30 30 0d  |".....5:.=&3800.|
000000b0  09 60 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.`..23,1,0;0;0;0|
000000c0  3b 0d 09 c4 21 f3 20 54  25 2c 55 25 3a ef 31 39  |;...!. T%,U%:.19|
000000d0  2c 33 2c 54 25 3b 30 3b  31 39 2c 32 2c 55 25 3b  |,3,T%;0;19,2,U%;|
000000e0  30 3b 0d 0a 28 0a fb 31  33 31 3a db 0d 0a 8c 11  |0;..(..131:.....|
000000f0  4c 25 3d 39 36 3a 52 25  3d 31 31 38 34 0d 0a f0  |L%=96:R%=1184...|
00000100  08 e6 30 2c 30 0d 0b 54  16 e3 20 58 25 3d 30 20  |..0,0..T.. X%=0 |
00000110  b8 20 31 32 38 30 20 88  20 32 34 0d 0b b8 14 ec  |. 1280 . 24.....|
00000120  20 58 25 2c 30 3a df 20  58 25 2c 31 30 32 35 0d  | X%,0:. X%,1025.|
00000130  0c 1c 20 ec 20 30 2c 58  25 2a 2e 38 33 33 33 3a  |.. . 0,X%*.8333:|
00000140  df 20 31 32 38 30 2c 58  25 2a 2e 38 33 33 33 0d  |. 1280,X%*.8333.|
00000150  0c 80 05 ed 0d 0c e4 14  f2 62 28 4c 25 2c 36 34  |.........b(L%,64|
00000160  2c 52 25 2c 32 35 36 29  0d 0d 48 15 f2 62 28 4c  |,R%,256)..H..b(L|
00000170  25 2c 33 32 30 2c 52 25  2c 37 35 32 29 0d 0d ac  |%,320,R%,752)...|
00000180  0b fb 30 3a fb 31 33 30  0d 0e 10 17 f2 73 28 34  |..0:.130.....s(4|
00000190  2c 32 2c 22 50 52 4f 47  52 41 4d 22 2c a3 29 0d  |,2,"PROGRAM",.).|
000001a0  0e 74 15 f2 73 28 36 2c  35 2c 22 50 4f 57 45 52  |.t..s(6,5,"POWER|
000001b0  22 2c a3 29 0d 0e a6 0c  e6 30 2c 30 3a ef 32 36  |",.).....0,0:.26|
000001c0  0d 0e d8 2d 20 f3 41 24  2c 4f 25 3a f2 73 28 36  |...- .A$,O%:.s(6|
000001d0  2c 39 2c 41 24 2c b9 29  3a f3 41 24 2c 4f 25 3a  |,9,A$,.):.A$,O%:|
000001e0  f2 73 28 35 2c 31 31 2c  41 24 2c b9 29 0d 11 30  |.s(5,11,A$,.)..0|
000001f0  06 fb 30 0d 11 34 0d 20  fb 20 31 32 39 3a fb 32  |..0..4. . 129:.2|
00000200  0d 11 6c 0d 20 fb 20 31  33 30 3a fb 30 0d 11 76  |..l. . 130:.0..v|
00000210  24 20 e3 49 25 3d 30 20  b8 20 37 3a f3 20 41 24  |$ .I%=0 . 7:. A$|
00000220  3a f1 8a 32 2c 31 33 2b  49 25 29 41 24 3b 3a ed  |:..2,13+I%)A$;:.|
00000230  20 0d 11 94 23 ef 20 32  38 2c 32 2c 32 38 2c 31  | ...#. 28,2,28,1|
00000240  37 2c 32 34 2c 32 33 2c  31 2c 31 3b 30 3b 30 3b  |7,24,23,1,1;0;0;|
00000250  30 3b 30 3b 0d 11 cb 13  20 21 26 37 30 3d 26 30  |0;0;.... !&70=&0|
00000260  31 30 31 30 31 30 31 0d  11 d0 0a 20 fb 20 31 33  |1010101.... . 13|
00000270  30 0d 11 da 14 20 ef 20  32 33 2c 31 2c 30 3b 30  |0.... . 23,1,0;0|
00000280  3b 30 3b 30 3b 0d 12 5c  07 2a 4c 2e 0d 12 c0 07  |;0;0;..\.*L.....|
00000290  d7 22 22 0d 14 b4 17 dd  f2 61 28 41 25 2c 42 25  |.""......a(A%,B%|
000002a0  2c 43 25 2c 44 25 2c 45  25 29 0d 15 18 43 ef 32  |,C%,D%,E%)...C.2|
000002b0  34 2c 41 25 2d 38 3b 42  25 2d 34 3b 43 25 2b 38  |4,A%-8;B%-4;C%+8|
000002c0  3b 44 25 2b 34 3b 31 38  2c 30 2c 31 32 38 2c 31  |;D%+4;18,0,128,1|
000002d0  36 2c 32 34 2c 41 25 3b  42 25 3b 43 25 3b 44 25  |6,24,A%;B%;C%;D%|
000002e0  3b 31 38 3b 45 25 2b 31  32 38 2c 31 36 0d 15 7c  |;18;E%+128,16..||
000002f0  05 e1 0d 16 44 14 dd f2  62 28 41 25 2c 42 25 2c  |....D...b(A%,B%,|
00000300  43 25 2c 44 25 29 0d 16  a8 15 f2 61 28 41 25 2c  |C%,D%).....a(A%,|
00000310  42 25 2c 43 25 2c 44 25  2c 31 29 0d 17 0c 21 f2  |B%,C%,D%,1)...!.|
00000320  61 28 41 25 2b 31 36 2c  42 25 2b 31 36 2c 43 25  |a(A%+16,B%+16,C%|
00000330  2b 31 36 2c 44 25 2b 31  36 2c 32 29 0d 17 70 05  |+16,D%+16,2)..p.|
00000340  e1 0d 18 38 11 dd f2 64  28 58 25 2c 59 25 2c 43  |...8...d(X%,Y%,C|
00000350  25 29 0d 18 9c 0b ea 20  41 25 2c 42 25 0d 19 00  |%)..... A%,B%...|
00000360  19 41 25 3d 26 35 38 30  30 2b 33 32 30 2a 59 25  |.A%=&5800+320*Y%|
00000370  2b 58 25 2a 31 36 0d 19  64 18 ec 58 25 2a 36 34  |+X%*16..d..X%*64|
00000380  2b 4f 25 2c 28 33 32 2d  59 25 29 2a 33 32 0d 19  |+O%,(32-Y%)*32..|
00000390  96 07 ef 43 25 0d 19 c8  0b e3 42 25 3d 30 b8 37  |...C%.....B%=0.7|
000003a0  0d 1a 2c 1d 3f 28 41 25  2b 33 32 30 2b 42 25 29  |..,.?(A%+320+B%)|
000003b0  3d 3f 28 41 25 2b 42 25  81 32 2b 34 29 0d 1a 90  |=?(A%+B%.2+4)...|
000003c0  1e 3f 28 41 25 2b 33 32  38 2b 42 25 29 3d 3f 28  |.?(A%+328+B%)=?(|
000003d0  41 25 2b 42 25 81 32 2b  31 32 29 0d 1a f4 05 ed  |A%+B%.2+12).....|
000003e0  0d 1b 58 13 e3 20 42 25  3d 37 20 b8 20 30 20 88  |..X.. B%=7 . 0 .|
000003f0  20 2d 31 0d 1b bc 17 3f  28 41 25 2b 42 25 29 3d  | -1....?(A%+B%)=|
00000400  3f 28 41 25 2b 42 25 81  32 29 0d 1c 20 1b 3f 28  |?(A%+B%.2).. .?(|
00000410  41 25 2b 42 25 2b 38 29  3d 3f 28 41 25 2b 38 2b  |A%+B%+8)=?(A%+8+|
00000420  42 25 81 32 29 0d 1c 84  05 ed 0d 1c e8 05 e1 0d  |B%.2)...........|
00000430  1d 4c 14 dd f2 73 28 58  25 2c 59 25 2c 41 24 2c  |.L...s(X%,Y%,A$,|
00000440  46 25 29 0d 1d b0 08 ea  20 41 25 0d 1d e2 0d e7  |F%)..... A%.....|
00000450  20 46 25 20 8c 20 ef 35  0d 1e 14 11 e3 20 41 25  | F% . .5..... A%|
00000460  3d 31 20 b8 20 a9 20 41  24 0d 1e 78 3e e7 20 46  |=1 . . A$..x>. F|
00000470  25 20 8c 20 f2 64 28 58  25 2b 41 25 2d 31 2c 59  |% . .d(X%+A%-1,Y|
00000480  25 2c 97 c1 41 24 2c 41  25 29 29 20 8b 20 f2 6c  |%,..A$,A%)) . .l|
00000490  28 58 25 2b 41 25 2a 32  2d 32 2c 59 25 2c 97 c1  |(X%+A%*2-2,Y%,..|
000004a0  41 24 2c 41 25 29 29 0d  1e dc 05 ed 0d 1f 0e 1b  |A$,A%)).........|
000004b0  e7 20 46 25 20 8c 20 ef  34 2c 32 33 2c 31 2c 30  |. F% . .4,23,1,0|
000004c0  3b 30 3b 30 3b 30 3b 0d  1f 40 05 e1 0d 20 08 11  |;0;0;0;..@... ..|
000004d0  dd f2 6c 28 78 25 2c 79  25 2c 4c 25 29 0d 20 6c  |..l(x%,y%,L%). l|
000004e0  22 ea 20 41 25 2c 42 25  3a 41 25 3d 78 25 2a 36  |". A%,B%:A%=x%*6|
000004f0  34 3a 42 25 3d 33 32 2a  28 33 31 2d 79 25 29 0d  |4:B%=32*(31-y%).|
00000500  20 d0 1f f2 62 28 41 25  2d 33 32 2c 42 25 2d 33  | ...b(A%-32,B%-3|
00000510  32 2c 41 25 2b 36 34 2c  42 25 2b 33 32 29 0d 21  |2,A%+64,B%+32).!|
00000520  34 11 ef 20 33 31 2c 78  25 2c 79 25 2c 4c 25 0d  |4.. 31,x%,y%,L%.|
00000530  21 98 05 e1 0d ff                                 |!.....|
00000536
Galactic/COMMAND.m0
Galactic/COMMAND.m1
Galactic/COMMAND.m2
Galactic/COMMAND.m4
Galactic/COMMAND.m5