*|

� Thunderstruck cheat
� Electron Tape version
j�1:�19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0:�2:�'"Thunderstruck cheat":�1:�"�������������������"':�mc1
(�mc
2 �ask("Infinite energy",inen)
<G�:�a("`OK @- `Insert @Thunderstruck `tape and press     play ....")
F �I%=0�&13:I%?&620=I%?&2E00:�
P,� ?inen<>&60 � ?&220=&20:?&221=6:*FX14,4
Z	*FX18
d�7,10,10,13,17,2,21
n(*KEY0 PAGE=&1A00|MOLD|M30|M50|MRUN|M
x>*KEY1 *LOAD THUNSTRUCK|F|M?&1872=7:?&1922=&AD|MCALL&1850|M
�*FX138,0,129
��
���ask(A$,A%)
�R�a("`"+A$+�25-�A$," ")+"@ (Y/N) `: @"):A$=�:�A$="Y" � �;"Yes" � �;"No":?A%=&60
��
���mc
��I%=0�2 �2
�P%=&620
�
[OPTI%
�PHP:PHA
�JSRinen
�PLA:PLP
�RTS

	.inen

#LDA#&FF:STA&423:LDA#&BD:STA&424

RTS

"]:�

, �I%=0�&13:I%?&2E00=I%?&620:�

6�

@ݤequs(A$)

J$P%=A$:P%=P%+�A$

T=I%

^	��mc1

h��I%=0�2 �2:P%=&1700:[OPTI%:LDY#0:.loop2 LDA&1600,Y:CMP#13:BEQend:CMP#�"@":BEQcolour1:CMP#�"`":BEQcolour2:JSR&FFEE:.backin:INY:CPY#0:BNEloop2:.end:RTS

r^.colour1 LDA#2:JMPchange:.colour2 LDA#3:.change TAX:LDA#17:JSR&FFEE:TXA:JSR&FFEE:JMPbackin

|	]:�:�

���a($&1600)

��&1700:�
�

00000000  0d 00 01 07 2a 7c 15 0d  00 0a 19 f4 20 54 68 75  |....*|...... Thu|
00000010  6e 64 65 72 73 74 72 75  63 6b 20 63 68 65 61 74  |nderstruck cheat|
00000020  0d 00 14 1b f4 20 45 6c  65 63 74 72 6f 6e 20 54  |..... Electron T|
00000030  61 70 65 20 76 65 72 73  69 6f 6e 0d 00 1e 6a eb  |ape version...j.|
00000040  31 3a ef 31 39 2c 33 2c  36 2c 30 2c 30 2c 30 2c  |1:.19,3,6,0,0,0,|
00000050  32 33 2c 32 33 30 2c 30  2c 26 46 46 2c 30 2c 26  |23,230,0,&FF,0,&|
00000060  46 46 2c 30 2c 30 2c 30  2c 30 3a fb 32 3a f1 27  |FF,0,0,0,0:.2:.'|
00000070  22 54 68 75 6e 64 65 72  73 74 72 75 63 6b 20 63  |"Thunderstruck c|
00000080  68 65 61 74 22 3a fb 31  3a f1 22 86 86 86 86 86  |heat":.1:.".....|
00000090  86 86 86 86 86 86 86 86  86 86 86 86 86 86 22 27  |.............."'|
000000a0  3a f2 6d 63 31 0d 00 28  07 f2 6d 63 0d 00 32 20  |:.mc1..(..mc..2 |
000000b0  f2 61 73 6b 28 22 49 6e  66 69 6e 69 74 65 20 65  |.ask("Infinite e|
000000c0  6e 65 72 67 79 22 2c 69  6e 65 6e 29 0d 00 3c 47  |nergy",inen)..<G|
000000d0  f1 3a f2 61 28 22 60 4f  4b 20 40 2d 20 60 49 6e  |.:.a("`OK @- `In|
000000e0  73 65 72 74 20 40 54 68  75 6e 64 65 72 73 74 72  |sert @Thunderstr|
000000f0  75 63 6b 20 60 74 61 70  65 20 61 6e 64 20 70 72  |uck `tape and pr|
00000100  65 73 73 20 20 20 20 20  70 6c 61 79 20 2e 2e 2e  |ess     play ...|
00000110  2e 22 29 0d 00 46 20 e3  49 25 3d 30 b8 26 31 33  |.")..F .I%=0.&13|
00000120  3a 49 25 3f 26 36 32 30  3d 49 25 3f 26 32 45 30  |:I%?&620=I%?&2E0|
00000130  30 3a ed 0d 00 50 2c e7  20 3f 69 6e 65 6e 3c 3e  |0:...P,. ?inen<>|
00000140  26 36 30 20 8c 20 3f 26  32 32 30 3d 26 32 30 3a  |&60 . ?&220=&20:|
00000150  3f 26 32 32 31 3d 36 3a  2a 46 58 31 34 2c 34 0d  |?&221=6:*FX14,4.|
00000160  00 5a 09 2a 46 58 31 38  0d 00 64 17 ef 37 2c 31  |.Z.*FX18..d..7,1|
00000170  30 2c 31 30 2c 31 33 2c  31 37 2c 32 2c 32 31 0d  |0,10,13,17,2,21.|
00000180  00 6e 28 2a 4b 45 59 30  20 50 41 47 45 3d 26 31  |.n(*KEY0 PAGE=&1|
00000190  41 30 30 7c 4d 4f 4c 44  7c 4d 33 30 7c 4d 35 30  |A00|MOLD|M30|M50|
000001a0  7c 4d 52 55 4e 7c 4d 0d  00 78 3e 2a 4b 45 59 31  ||MRUN|M..x>*KEY1|
000001b0  20 2a 4c 4f 41 44 20 54  48 55 4e 53 54 52 55 43  | *LOAD THUNSTRUC|
000001c0  4b 7c 46 7c 4d 3f 26 31  38 37 32 3d 37 3a 3f 26  |K|F|M?&1872=7:?&|
000001d0  31 39 32 32 3d 26 41 44  7c 4d 43 41 4c 4c 26 31  |1922=&AD|MCALL&1|
000001e0  38 35 30 7c 4d 0d 00 82  10 2a 46 58 31 33 38 2c  |850|M....*FX138,|
000001f0  30 2c 31 32 39 0d 00 8c  05 e0 0d 00 96 10 dd f2  |0,129...........|
00000200  61 73 6b 28 41 24 2c 41  25 29 0d 00 a0 52 f2 61  |ask(A$,A%)...R.a|
00000210  28 22 60 22 2b 41 24 2b  c4 32 35 2d a9 41 24 2c  |("`"+A$+.25-.A$,|
00000220  22 20 22 29 2b 22 40 20  28 59 2f 4e 29 20 60 3a  |" ")+"@ (Y/N) `:|
00000230  20 40 22 29 3a 41 24 3d  be 3a e7 41 24 3d 22 59  | @"):A$=.:.A$="Y|
00000240  22 20 8c 20 f1 3b 22 59  65 73 22 20 8b 20 f1 3b  |" . .;"Yes" . .;|
00000250  22 4e 6f 22 3a 3f 41 25  3d 26 36 30 0d 00 aa 05  |"No":?A%=&60....|
00000260  e1 0d 00 b4 08 dd f2 6d  63 0d 00 be 0e e3 49 25  |.......mc.....I%|
00000270  3d 30 b8 32 20 88 32 0d  00 c8 0b 50 25 3d 26 36  |=0.2 .2....P%=&6|
00000280  32 30 0d 00 d2 0a 5b 4f  50 54 49 25 0d 00 dc 0b  |20....[OPTI%....|
00000290  50 48 50 3a 50 48 41 0d  00 e6 0b 4a 53 52 69 6e  |PHP:PHA....JSRin|
000002a0  65 6e 0d 00 f0 0b 50 4c  41 3a 50 4c 50 0d 00 fa  |en....PLA:PLP...|
000002b0  07 52 54 53 0d 01 04 09  2e 69 6e 65 6e 0d 01 0e  |.RTS.....inen...|
000002c0  23 4c 44 41 23 26 46 46  3a 53 54 41 26 34 32 33  |#LDA#&FF:STA&423|
000002d0  3a 4c 44 41 23 26 42 44  3a 53 54 41 26 34 32 34  |:LDA#&BD:STA&424|
000002e0  0d 01 18 07 52 54 53 0d  01 22 07 5d 3a ed 0d 01  |....RTS..".]:...|
000002f0  2c 20 e3 49 25 3d 30 b8  26 31 33 3a 49 25 3f 26  |, .I%=0.&13:I%?&|
00000300  32 45 30 30 3d 49 25 3f  26 36 32 30 3a ed 0d 01  |2E00=I%?&620:...|
00000310  36 05 e1 0d 01 40 0e dd  a4 65 71 75 73 28 41 24  |6....@...equs(A$|
00000320  29 0d 01 4a 14 24 50 25  3d 41 24 3a 50 25 3d 50  |)..J.$P%=A$:P%=P|
00000330  25 2b a9 41 24 0d 01 54  07 3d 49 25 0d 01 5e 09  |%+.A$..T.=I%..^.|
00000340  dd f2 6d 63 31 0d 01 68  99 e3 49 25 3d 30 b8 32  |..mc1..h..I%=0.2|
00000350  20 88 32 3a 50 25 3d 26  31 37 30 30 3a 5b 4f 50  | .2:P%=&1700:[OP|
00000360  54 49 25 3a 4c 44 59 23  30 3a 2e 6c 6f 6f 70 32  |TI%:LDY#0:.loop2|
00000370  20 4c 44 41 26 31 36 30  30 2c 59 3a 43 4d 50 23  | LDA&1600,Y:CMP#|
00000380  31 33 3a 42 45 51 65 6e  64 3a 43 4d 50 23 97 22  |13:BEQend:CMP#."|
00000390  40 22 3a 42 45 51 63 6f  6c 6f 75 72 31 3a 43 4d  |@":BEQcolour1:CM|
000003a0  50 23 97 22 60 22 3a 42  45 51 63 6f 6c 6f 75 72  |P#."`":BEQcolour|
000003b0  32 3a 4a 53 52 26 46 46  45 45 3a 2e 62 61 63 6b  |2:JSR&FFEE:.back|
000003c0  69 6e 3a 49 4e 59 3a 43  50 59 23 30 3a 42 4e 45  |in:INY:CPY#0:BNE|
000003d0  6c 6f 6f 70 32 3a 2e 65  6e 64 3a 52 54 53 0d 01  |loop2:.end:RTS..|
000003e0  72 5e 2e 63 6f 6c 6f 75  72 31 20 4c 44 41 23 32  |r^.colour1 LDA#2|
000003f0  3a 4a 4d 50 63 68 61 6e  67 65 3a 2e 63 6f 6c 6f  |:JMPchange:.colo|
00000400  75 72 32 20 4c 44 41 23  33 3a 2e 63 68 61 6e 67  |ur2 LDA#3:.chang|
00000410  65 20 54 41 58 3a 4c 44  41 23 31 37 3a 4a 53 52  |e TAX:LDA#17:JSR|
00000420  26 46 46 45 45 3a 54 58  41 3a 4a 53 52 26 46 46  |&FFEE:TXA:JSR&FF|
00000430  45 45 3a 4a 4d 50 62 61  63 6b 69 6e 0d 01 7c 09  |EE:JMPbackin..|.|
00000440  5d 3a ed 3a e1 0d 01 86  0f dd f2 61 28 24 26 31  |]:.:.......a($&1|
00000450  36 30 30 29 0d 01 90 0c  d6 26 31 37 30 30 3a e1  |600).....&1700:.|
00000460  0d ff                                             |..|
00000462