Home » Personal collection » Acorn tapes » Commercial_Releases » box03_tape11b_acorn_cheat_it_again_joe_2.wav » Galaforc-O

Galaforc-O

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 » box03_tape11b_acorn_cheat_it_again_joe_2.wav
Filename: Galaforc-O
Read OK:
File size: 0771 bytes
Load address: 1900
Exec address: 1900
File contents
   10REM Galaforce cheat
   20REM All versions
   30REM Electron tape version
   31*FX200,3
   40MODE1:VDU19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0,17,1:PRINT'"Galaforce cheat":COLOUR2:PRINT"���������������"':PROCmc1
   50PROCa("`Starting wave@          (01-15)` : @")
   60INPUT""wave:IF wave<1 OR wave>15 THEN GOTO50
   70wave=wave-1
   80PROCmc
   90PROCask("Infinite lives",inlives)
  100PROCask("Die to complete level",die)
  110PROCask("Immortal",imm)
  120PROCask("Increase firing speed",fsp)
  130PROCask("Slow down bombs",slowb)
  140PRINT:PROCa("`OK@ - `Insert @Galaforce` tape and press         play ..."):VDU7,13,10,10,17,2,21
  150*FX18
  160*K.1 LOAD"Galaforce"|F|M90|M250CALL&1600|MRUN|M
  170*FX138,0,129
  180END
  190DEFPROCask(A$,A%)
  200PROCa("`"+A$+STRING$(25-LENA$," ")+"@(Y/N)` : @"):A$=GET$:IF A$="Y" THEN PRINT;"Yes" ELSE PRINT;"No":?A%=&60
  210ENDPROC
  220DEFPROCa($&1800)
  230CALL&1700:ENDPROC
  240DEFPROCmc1
  250FORI%=0TO2 STEP2
  260P%=&1700
  270[OPTI%
  280LDY#0:.loop2
  290LDA&1800,Y
  300CMP#13:BEQend
  310CMP#ASC"@":BEQcolour1
  320CMP#ASC"`":BEQcolour2
  330JSR&FFEE
  340.backin
  350INY:CPY#0:BNEloop2
  360.end
  370RTS
  380.colour1 LDA#2:JMPchange
  390.colour2 LDA#3
  400.change TAX:LDA#17:JSR&FFEE
  410        TXA:JSR&FFEE
  420        JMPbackin
  430]
  440NEXT
  450ENDPROC
  455REM 
  460DEFPROCmc
  470FORI%=0TO2 STEP2
  480P%=&1600
  490[OPTI%
  500LDX#load MOD 256:LDY#load DIV 256
  510JSR&FFF7
  520JSRdecode
  530LDA#wave:STA&1DFE
  540JSRinlives
  550JSRdie
  560JSRimm
  570JSRslowb
  580JSRfsp
  590JMP&4800
  600.inlives
  610LDA#&EA:STA&1D71:STA&1D72:STA&1D73:RTS
  620.die
  630LDA#&EA:STA&1D6E:STA&1D6F:STA&1D70:RTS
  640LDA#&EA:STA&1A83:STA&1A84
  650RTS
  660.imm
  670LDA#&EA:STA&2678:STA&2679:LDA#&38:STA&2593:LDA#&69:STA&2595:RTS
  680.slowb
  690LDA#7:STA&2C27:RTS
  700.fsp
  710LDA#1:STA&2B48:RTS
  720.decode
  730LDA#&59:STA&75:STA&76
  740LDA#&A7:STA&77
  750LDY#0:.loop LDA&1900,Y
  760EOR&75:DEC&76:EOR&76:EOR&77
  770.loop2 STA&1900,Y
  780INC&77:LDA&77:SEC:SBC#&5F
  790EOR&76:STA&77:EOR&75:STA&75
  800EOR#&E4:STA&76:EOR&77
  810INY:BNEloop
  820INCloop+2
  830INCloop2+2
  840LDAloop2+2:CMP#&67:BNEloop
  850RTS
  860.load EQUS"L. GAME"+CHR$129+CHR$127+" 1900"+CHR$13
  870]:NEXT
  880ENDPROC

� Galaforce cheat
� All versions
� Electron tape version
*FX200,3
(d�1:�19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0,17,1:�'"Galaforce cheat":�2:�"���������������"':�mc1
2/�a("`Starting wave@          (01-15)` : @")
<&�""wave:� wave<1 � wave>15 � �Tr@
Fwave=wave-1
P�mc
Z"�ask("Infinite lives",inlives)
d%�ask("Die to complete level",die)
n�ask("Immortal",imm)
x%�ask("Increase firing speed",fsp)
�!�ask("Slow down bombs",slowb)
�Z�:�a("`OK@ - `Insert @Galaforce` tape and press         play ..."):�7,13,10,10,17,2,21
�	*FX18
�3*K.1 LOAD"Galaforce"|F|M90|M250CALL&1600|MRUN|M
�*FX138,0,129
��
���ask(A$,A%)
�R�a("`"+A$+�25-�A$," ")+"@(Y/N)` : @"):A$=�:� A$="Y" � �;"Yes" � �;"No":?A%=&60
��
���a($&1800)
��&1700:�
�	��mc1
��I%=0�2 �2
P%=&1700

[OPTI%
LDY#0:.loop2
"LDA&1800,Y
,CMP#13:BEQend
6CMP#�"@":BEQcolour1
@CMP#�"`":BEQcolour2
JJSR&FFEE
T.backin
^INY:CPY#0:BNEloop2
h.end
rRTS
|.colour1 LDA#2:JMPchange
�.colour2 LDA#3
�.change TAX:LDA#17:JSR&FFEE
�        TXA:JSR&FFEE
�        JMPbackin
�]
��
��
�	� 
���mc
��I%=0�2 �2
�P%=&1600
�
[OPTI%
�!LDX#load � 256:LDY#load � 256
�JSR&FFF7

JSRdecode
LDA#wave:STA&1DFE
JSRinlives
&
JSRdie
0
JSRimm
:JSRslowb
D
JSRfsp
NJMP&4800
X.inlives
b*LDA#&EA:STA&1D71:STA&1D72:STA&1D73:RTS
l.die
v*LDA#&EA:STA&1D6E:STA&1D6F:STA&1D70:RTS
�LDA#&EA:STA&1A83:STA&1A84
�RTS
�.imm
�CLDA#&EA:STA&2678:STA&2679:LDA#&38:STA&2593:LDA#&69:STA&2595:RTS
�
.slowb
�LDA#7:STA&2C27:RTS
�.fsp
�LDA#1:STA&2B48:RTS
�.decode
�LDA#&59:STA&75:STA&76
�LDA#&A7:STA&77
�LDY#0:.loop LDA&1900,Y
��&75:DEC&76:�&76:�&77
.loop2 STA&1900,Y
INC&77:LDA&77:SEC:SBC#&5F
�&76:STA&77:�&75:STA&75
 �#&E4:STA&76:�&77
*INY:BNEloop
4
INCloop+2
>INCloop2+2
HLDAloop2+2:CMP#&67:BNEloop
RRTS
\-.load EQUS"L. GAME"+�129+�127+" 1900"+�13
f]:�
p�
�
00000000  0d 00 0a 15 f4 20 47 61  6c 61 66 6f 72 63 65 20  |..... Galaforce |
00000010  63 68 65 61 74 0d 00 14  12 f4 20 41 6c 6c 20 76  |cheat..... All v|
00000020  65 72 73 69 6f 6e 73 0d  00 1e 1c f4 20 45 6c 65  |ersions..... Ele|
00000030  63 74 72 6f 6e 20 74 61  70 65 20 76 65 72 73 69  |ctron tape versi|
00000040  6f 6e 15 0d 00 1f 0c 2a  46 58 32 30 30 2c 33 0d  |on.....*FX200,3.|
00000050  00 28 64 eb 31 3a ef 31  39 2c 33 2c 36 2c 30 2c  |.(d.1:.19,3,6,0,|
00000060  30 2c 30 2c 32 33 2c 32  33 30 2c 30 2c 26 46 46  |0,0,23,230,0,&FF|
00000070  2c 30 2c 26 46 46 2c 30  2c 30 2c 30 2c 30 2c 31  |,0,&FF,0,0,0,0,1|
00000080  37 2c 31 3a f1 27 22 47  61 6c 61 66 6f 72 63 65  |7,1:.'"Galaforce|
00000090  20 63 68 65 61 74 22 3a  fb 32 3a f1 22 86 86 86  | cheat":.2:."...|
000000a0  86 86 86 86 86 86 86 86  86 86 86 86 22 27 3a f2  |............"':.|
000000b0  6d 63 31 0d 00 32 2f f2  61 28 22 60 53 74 61 72  |mc1..2/.a("`Star|
000000c0  74 69 6e 67 20 77 61 76  65 40 20 20 20 20 20 20  |ting wave@      |
000000d0  20 20 20 20 28 30 31 2d  31 35 29 60 20 3a 20 40  |    (01-15)` : @|
000000e0  22 29 0d 00 3c 26 e8 22  22 77 61 76 65 3a e7 20  |")..<&.""wave:. |
000000f0  77 61 76 65 3c 31 20 84  20 77 61 76 65 3e 31 35  |wave<1 . wave>15|
00000100  20 8c 20 e5 8d 54 72 40  0d 00 46 0f 77 61 76 65  | . ..Tr@..F.wave|
00000110  3d 77 61 76 65 2d 31 0d  00 50 07 f2 6d 63 0d 00  |=wave-1..P..mc..|
00000120  5a 22 f2 61 73 6b 28 22  49 6e 66 69 6e 69 74 65  |Z".ask("Infinite|
00000130  20 6c 69 76 65 73 22 2c  69 6e 6c 69 76 65 73 29  | lives",inlives)|
00000140  0d 00 64 25 f2 61 73 6b  28 22 44 69 65 20 74 6f  |..d%.ask("Die to|
00000150  20 63 6f 6d 70 6c 65 74  65 20 6c 65 76 65 6c 22  | complete level"|
00000160  2c 64 69 65 29 0d 00 6e  18 f2 61 73 6b 28 22 49  |,die)..n..ask("I|
00000170  6d 6d 6f 72 74 61 6c 22  2c 69 6d 6d 29 0d 00 78  |mmortal",imm)..x|
00000180  25 f2 61 73 6b 28 22 49  6e 63 72 65 61 73 65 20  |%.ask("Increase |
00000190  66 69 72 69 6e 67 20 73  70 65 65 64 22 2c 66 73  |firing speed",fs|
000001a0  70 29 0d 00 82 21 f2 61  73 6b 28 22 53 6c 6f 77  |p)...!.ask("Slow|
000001b0  20 64 6f 77 6e 20 62 6f  6d 62 73 22 2c 73 6c 6f  | down bombs",slo|
000001c0  77 62 29 0d 00 8c 5a f1  3a f2 61 28 22 60 4f 4b  |wb)...Z.:.a("`OK|
000001d0  40 20 2d 20 60 49 6e 73  65 72 74 20 40 47 61 6c  |@ - `Insert @Gal|
000001e0  61 66 6f 72 63 65 60 20  74 61 70 65 20 61 6e 64  |aforce` tape and|
000001f0  20 70 72 65 73 73 20 20  20 20 20 20 20 20 20 70  | press         p|
00000200  6c 61 79 20 2e 2e 2e 22  29 3a ef 37 2c 31 33 2c  |lay ..."):.7,13,|
00000210  31 30 2c 31 30 2c 31 37  2c 32 2c 32 31 0d 00 96  |10,10,17,2,21...|
00000220  09 2a 46 58 31 38 0d 00  a0 33 2a 4b 2e 31 20 4c  |.*FX18...3*K.1 L|
00000230  4f 41 44 22 47 61 6c 61  66 6f 72 63 65 22 7c 46  |OAD"Galaforce"|F|
00000240  7c 4d 39 30 7c 4d 32 35  30 43 41 4c 4c 26 31 36  ||M90|M250CALL&16|
00000250  30 30 7c 4d 52 55 4e 7c  4d 0d 00 aa 10 2a 46 58  |00|MRUN|M....*FX|
00000260  31 33 38 2c 30 2c 31 32  39 0d 00 b4 05 e0 0d 00  |138,0,129.......|
00000270  be 10 dd f2 61 73 6b 28  41 24 2c 41 25 29 0d 00  |....ask(A$,A%)..|
00000280  c8 52 f2 61 28 22 60 22  2b 41 24 2b c4 32 35 2d  |.R.a("`"+A$+.25-|
00000290  a9 41 24 2c 22 20 22 29  2b 22 40 28 59 2f 4e 29  |.A$," ")+"@(Y/N)|
000002a0  60 20 3a 20 40 22 29 3a  41 24 3d be 3a e7 20 41  |` : @"):A$=.:. A|
000002b0  24 3d 22 59 22 20 8c 20  f1 3b 22 59 65 73 22 20  |$="Y" . .;"Yes" |
000002c0  8b 20 f1 3b 22 4e 6f 22  3a 3f 41 25 3d 26 36 30  |. .;"No":?A%=&60|
000002d0  0d 00 d2 05 e1 0d 00 dc  0f dd f2 61 28 24 26 31  |...........a($&1|
000002e0  38 30 30 29 0d 00 e6 0c  d6 26 31 37 30 30 3a e1  |800).....&1700:.|
000002f0  0d 00 f0 09 dd f2 6d 63  31 0d 00 fa 0e e3 49 25  |......mc1.....I%|
00000300  3d 30 b8 32 20 88 32 0d  01 04 0c 50 25 3d 26 31  |=0.2 .2....P%=&1|
00000310  37 30 30 0d 01 0e 0a 5b  4f 50 54 49 25 0d 01 18  |700....[OPTI%...|
00000320  10 4c 44 59 23 30 3a 2e  6c 6f 6f 70 32 0d 01 22  |.LDY#0:.loop2.."|
00000330  0e 4c 44 41 26 31 38 30  30 2c 59 0d 01 2c 11 43  |.LDA&1800,Y..,.C|
00000340  4d 50 23 31 33 3a 42 45  51 65 6e 64 0d 01 36 17  |MP#13:BEQend..6.|
00000350  43 4d 50 23 97 22 40 22  3a 42 45 51 63 6f 6c 6f  |CMP#."@":BEQcolo|
00000360  75 72 31 0d 01 40 17 43  4d 50 23 97 22 60 22 3a  |ur1..@.CMP#."`":|
00000370  42 45 51 63 6f 6c 6f 75  72 32 0d 01 4a 0c 4a 53  |BEQcolour2..J.JS|
00000380  52 26 46 46 45 45 0d 01  54 0b 2e 62 61 63 6b 69  |R&FFEE..T..backi|
00000390  6e 0d 01 5e 16 49 4e 59  3a 43 50 59 23 30 3a 42  |n..^.INY:CPY#0:B|
000003a0  4e 45 6c 6f 6f 70 32 0d  01 68 08 2e 65 6e 64 0d  |NEloop2..h..end.|
000003b0  01 72 07 52 54 53 0d 01  7c 1c 2e 63 6f 6c 6f 75  |.r.RTS..|..colou|
000003c0  72 31 20 4c 44 41 23 32  3a 4a 4d 50 63 68 61 6e  |r1 LDA#2:JMPchan|
000003d0  67 65 0d 01 86 12 2e 63  6f 6c 6f 75 72 32 20 4c  |ge.....colour2 L|
000003e0  44 41 23 33 0d 01 90 1f  2e 63 68 61 6e 67 65 20  |DA#3.....change |
000003f0  54 41 58 3a 4c 44 41 23  31 37 3a 4a 53 52 26 46  |TAX:LDA#17:JSR&F|
00000400  46 45 45 0d 01 9a 18 20  20 20 20 20 20 20 20 54  |FEE....        T|
00000410  58 41 3a 4a 53 52 26 46  46 45 45 0d 01 a4 15 20  |XA:JSR&FFEE.... |
00000420  20 20 20 20 20 20 20 4a  4d 50 62 61 63 6b 69 6e  |       JMPbackin|
00000430  0d 01 ae 05 5d 0d 01 b8  05 ed 0d 01 c2 05 e1 0d  |....]...........|
00000440  01 c7 09 f4 20 16 00 15  0d 01 cc 08 dd f2 6d 63  |.... .........mc|
00000450  0d 01 d6 0e e3 49 25 3d  30 b8 32 20 88 32 0d 01  |.....I%=0.2 .2..|
00000460  e0 0c 50 25 3d 26 31 36  30 30 0d 01 ea 0a 5b 4f  |..P%=&1600....[O|
00000470  50 54 49 25 0d 01 f4 21  4c 44 58 23 6c 6f 61 64  |PTI%...!LDX#load|
00000480  20 83 20 32 35 36 3a 4c  44 59 23 6c 6f 61 64 20  | . 256:LDY#load |
00000490  81 20 32 35 36 0d 01 fe  0c 4a 53 52 26 46 46 46  |. 256....JSR&FFF|
000004a0  37 0d 02 08 0d 4a 53 52  64 65 63 6f 64 65 0d 02  |7....JSRdecode..|
000004b0  12 15 4c 44 41 23 77 61  76 65 3a 53 54 41 26 31  |..LDA#wave:STA&1|
000004c0  44 46 45 0d 02 1c 0e 4a  53 52 69 6e 6c 69 76 65  |DFE....JSRinlive|
000004d0  73 0d 02 26 0a 4a 53 52  64 69 65 0d 02 30 0a 4a  |s..&.JSRdie..0.J|
000004e0  53 52 69 6d 6d 0d 02 3a  0c 4a 53 52 73 6c 6f 77  |SRimm..:.JSRslow|
000004f0  62 0d 02 44 0a 4a 53 52  66 73 70 0d 02 4e 0c 4a  |b..D.JSRfsp..N.J|
00000500  4d 50 26 34 38 30 30 0d  02 58 0c 2e 69 6e 6c 69  |MP&4800..X..inli|
00000510  76 65 73 0d 02 62 2a 4c  44 41 23 26 45 41 3a 53  |ves..b*LDA#&EA:S|
00000520  54 41 26 31 44 37 31 3a  53 54 41 26 31 44 37 32  |TA&1D71:STA&1D72|
00000530  3a 53 54 41 26 31 44 37  33 3a 52 54 53 0d 02 6c  |:STA&1D73:RTS..l|
00000540  08 2e 64 69 65 0d 02 76  2a 4c 44 41 23 26 45 41  |..die..v*LDA#&EA|
00000550  3a 53 54 41 26 31 44 36  45 3a 53 54 41 26 31 44  |:STA&1D6E:STA&1D|
00000560  36 46 3a 53 54 41 26 31  44 37 30 3a 52 54 53 0d  |6F:STA&1D70:RTS.|
00000570  02 80 1d 4c 44 41 23 26  45 41 3a 53 54 41 26 31  |...LDA#&EA:STA&1|
00000580  41 38 33 3a 53 54 41 26  31 41 38 34 0d 02 8a 07  |A83:STA&1A84....|
00000590  52 54 53 0d 02 94 08 2e  69 6d 6d 0d 02 9e 43 4c  |RTS.....imm...CL|
000005a0  44 41 23 26 45 41 3a 53  54 41 26 32 36 37 38 3a  |DA#&EA:STA&2678:|
000005b0  53 54 41 26 32 36 37 39  3a 4c 44 41 23 26 33 38  |STA&2679:LDA#&38|
000005c0  3a 53 54 41 26 32 35 39  33 3a 4c 44 41 23 26 36  |:STA&2593:LDA#&6|
000005d0  39 3a 53 54 41 26 32 35  39 35 3a 52 54 53 0d 02  |9:STA&2595:RTS..|
000005e0  a8 0a 2e 73 6c 6f 77 62  0d 02 b2 16 4c 44 41 23  |...slowb....LDA#|
000005f0  37 3a 53 54 41 26 32 43  32 37 3a 52 54 53 0d 02  |7:STA&2C27:RTS..|
00000600  bc 08 2e 66 73 70 0d 02  c6 16 4c 44 41 23 31 3a  |...fsp....LDA#1:|
00000610  53 54 41 26 32 42 34 38  3a 52 54 53 0d 02 d0 0b  |STA&2B48:RTS....|
00000620  2e 64 65 63 6f 64 65 0d  02 da 19 4c 44 41 23 26  |.decode....LDA#&|
00000630  35 39 3a 53 54 41 26 37  35 3a 53 54 41 26 37 36  |59:STA&75:STA&76|
00000640  0d 02 e4 12 4c 44 41 23  26 41 37 3a 53 54 41 26  |....LDA#&A7:STA&|
00000650  37 37 0d 02 ee 1a 4c 44  59 23 30 3a 2e 6c 6f 6f  |77....LDY#0:.loo|
00000660  70 20 4c 44 41 26 31 39  30 30 2c 59 0d 02 f8 19  |p LDA&1900,Y....|
00000670  82 26 37 35 3a 44 45 43  26 37 36 3a 82 26 37 36  |.&75:DEC&76:.&76|
00000680  3a 82 26 37 37 0d 03 02  15 2e 6c 6f 6f 70 32 20  |:.&77.....loop2 |
00000690  53 54 41 26 31 39 30 30  2c 59 0d 03 0c 1d 49 4e  |STA&1900,Y....IN|
000006a0  43 26 37 37 3a 4c 44 41  26 37 37 3a 53 45 43 3a  |C&77:LDA&77:SEC:|
000006b0  53 42 43 23 26 35 46 0d  03 16 1b 82 26 37 36 3a  |SBC#&5F.....&76:|
000006c0  53 54 41 26 37 37 3a 82  26 37 35 3a 53 54 41 26  |STA&77:.&75:STA&|
000006d0  37 35 0d 03 20 15 82 23  26 45 34 3a 53 54 41 26  |75.. ..#&E4:STA&|
000006e0  37 36 3a 82 26 37 37 0d  03 2a 0f 49 4e 59 3a 42  |76:.&77..*.INY:B|
000006f0  4e 45 6c 6f 6f 70 0d 03  34 0d 49 4e 43 6c 6f 6f  |NEloop..4.INCloo|
00000700  70 2b 32 0d 03 3e 0e 49  4e 43 6c 6f 6f 70 32 2b  |p+2..>.INCloop2+|
00000710  32 0d 03 48 1e 4c 44 41  6c 6f 6f 70 32 2b 32 3a  |2..H.LDAloop2+2:|
00000720  43 4d 50 23 26 36 37 3a  42 4e 45 6c 6f 6f 70 0d  |CMP#&67:BNEloop.|
00000730  03 52 07 52 54 53 0d 03  5c 2d 2e 6c 6f 61 64 20  |.R.RTS..\-.load |
00000740  45 51 55 53 22 4c 2e 20  47 41 4d 45 22 2b bd 31  |EQUS"L. GAME"+.1|
00000750  32 39 2b bd 31 32 37 2b  22 20 31 39 30 30 22 2b  |29+.127+" 1900"+|
00000760  bd 31 33 0d 03 66 07 5d  3a ed 0d 03 70 05 e1 0d  |.13..f.]:...p...|
00000770  ff                                                |.|
00000771
Galaforc-O.m0
Galaforc-O.m1
Galaforc-O.m2
Galaforc-O.m4
Galaforc-O.m5