� Magic Mushrooms cheat
� Electron tape version
p�1:�19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0,17,1:�'"Magic Mushrooms cheat":�2:�"���������������������"':�mc1
(0lives=�ask("Number of lives","(00-99)",0,99)
2.level=�ask("Starting level","(00-09)",0,9)
<�mc
F/�a("`Infinite time"+�14," ")+"@(Y/N) `:@ ")
P.A$=�:� A$="Y" � �;"Yes" � �;"No":?stop=&60
Z]�:�a("`OK@ - `Insert @Magic Mushrooms` tape and         press play ..."):�7,13,10,10,17,2
d*L.MUSHROOMS 2200
n�4:�28,0,20,20,15:�&A10
x�
���a($&1600)
��&1700:�
�	��mc1
��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

".colour1 LDA#2:JMPchange

,.colour2 LDA#3

6.change TAX:LDA#17:JSR&FFEE

@        TXA:JSR&FFEE

J        JMPbackin

T]

^�

h�

rݤask(A$,B$,L%,M%)

|N�a("`"+A$+�25-�A$," ")+"@"+B$+"` : @"):�""A%:� A%<L% � A%>M% � �D|A � =A%

��

���mc

��I%=0�2 �2

�P%=&A10

�
[OPTI%

�LDA#un � 256:STA&220

�LDA#un � 256:STA&221

�LDA#&0E:LDX#4:JSR&FFF4

�!LDY#load � 256:LDX#load � 256

�JSR&FFF7

�LDA#&0D:LDX#4:JSR&FFF4

�LDA#lives:STA&36B8

�LDA#level:STA&32E0
JSRstop
JMP&4700
?.stop LDA#&A9:STA&2D02:STA&3287:LDA#1:STA&2D03:STA&3288:RTS
&!.un LDA&3CA:�#254:STA&3CA:RTS
0 .load EQUS"LOAD MUSHRM2"+�13
:]:�
D�
�

00000000  0d 00 0a 1b f4 20 4d 61  67 69 63 20 4d 75 73 68  |..... Magic Mush|
00000010  72 6f 6f 6d 73 20 63 68  65 61 74 0d 00 14 1b f4  |rooms cheat.....|
00000020  20 45 6c 65 63 74 72 6f  6e 20 74 61 70 65 20 76  | Electron tape v|
00000030  65 72 73 69 6f 6e 0d 00  1e 70 eb 31 3a ef 31 39  |ersion...p.1:.19|
00000040  2c 33 2c 36 2c 30 2c 30  2c 30 2c 32 33 2c 32 33  |,3,6,0,0,0,23,23|
00000050  30 2c 30 2c 26 46 46 2c  30 2c 26 46 46 2c 30 2c  |0,0,&FF,0,&FF,0,|
00000060  30 2c 30 2c 30 2c 31 37  2c 31 3a f1 27 22 4d 61  |0,0,0,17,1:.'"Ma|
00000070  67 69 63 20 4d 75 73 68  72 6f 6f 6d 73 20 63 68  |gic Mushrooms ch|
00000080  65 61 74 22 3a fb 32 3a  f1 22 86 86 86 86 86 86  |eat":.2:."......|
00000090  86 86 86 86 86 86 86 86  86 86 86 86 86 86 86 22  |..............."|
000000a0  27 3a f2 6d 63 31 0d 00  28 30 6c 69 76 65 73 3d  |':.mc1..(0lives=|
000000b0  a4 61 73 6b 28 22 4e 75  6d 62 65 72 20 6f 66 20  |.ask("Number of |
000000c0  6c 69 76 65 73 22 2c 22  28 30 30 2d 39 39 29 22  |lives","(00-99)"|
000000d0  2c 30 2c 39 39 29 0d 00  32 2e 6c 65 76 65 6c 3d  |,0,99)..2.level=|
000000e0  a4 61 73 6b 28 22 53 74  61 72 74 69 6e 67 20 6c  |.ask("Starting l|
000000f0  65 76 65 6c 22 2c 22 28  30 30 2d 30 39 29 22 2c  |evel","(00-09)",|
00000100  30 2c 39 29 0d 00 3c 07  f2 6d 63 0d 00 46 2f f2  |0,9)..<..mc..F/.|
00000110  61 28 22 60 49 6e 66 69  6e 69 74 65 20 74 69 6d  |a("`Infinite tim|
00000120  65 22 2b c4 31 34 2c 22  20 22 29 2b 22 40 28 59  |e"+.14," ")+"@(Y|
00000130  2f 4e 29 20 60 3a 40 20  22 29 0d 00 50 2e 41 24  |/N) `:@ ")..P.A$|
00000140  3d be 3a e7 20 41 24 3d  22 59 22 20 8c 20 f1 3b  |=.:. A$="Y" . .;|
00000150  22 59 65 73 22 20 8b 20  f1 3b 22 4e 6f 22 3a 3f  |"Yes" . .;"No":?|
00000160  73 74 6f 70 3d 26 36 30  0d 00 5a 5d f1 3a f2 61  |stop=&60..Z].:.a|
00000170  28 22 60 4f 4b 40 20 2d  20 60 49 6e 73 65 72 74  |("`OK@ - `Insert|
00000180  20 40 4d 61 67 69 63 20  4d 75 73 68 72 6f 6f 6d  | @Magic Mushroom|
00000190  73 60 20 74 61 70 65 20  61 6e 64 20 20 20 20 20  |s` tape and     |
000001a0  20 20 20 20 70 72 65 73  73 20 70 6c 61 79 20 2e  |    press play .|
000001b0  2e 2e 22 29 3a ef 37 2c  31 33 2c 31 30 2c 31 30  |.."):.7,13,10,10|
000001c0  2c 31 37 2c 32 0d 00 64  15 2a 4c 2e 4d 55 53 48  |,17,2..d.*L.MUSH|
000001d0  52 4f 4f 4d 53 20 32 32  30 30 0d 00 6e 1b eb 34  |ROOMS 2200..n..4|
000001e0  3a ef 32 38 2c 30 2c 32  30 2c 32 30 2c 31 35 3a  |:.28,0,20,20,15:|
000001f0  d6 26 41 31 30 0d 00 78  05 e0 0d 00 82 0f dd f2  |.&A10..x........|
00000200  61 28 24 26 31 36 30 30  29 0d 00 8c 0c d6 26 31  |a($&1600).....&1|
00000210  37 30 30 3a e1 0d 00 96  09 dd f2 6d 63 31 0d 00  |700:.......mc1..|
00000220  a0 0e e3 49 25 3d 30 b8  32 20 88 32 0d 00 aa 0c  |...I%=0.2 .2....|
00000230  50 25 3d 26 31 37 30 30  0d 00 b4 0a 5b 4f 50 54  |P%=&1700....[OPT|
00000240  49 25 0d 00 be 10 4c 44  59 23 30 3a 2e 6c 6f 6f  |I%....LDY#0:.loo|
00000250  70 32 0d 00 c8 0e 4c 44  41 26 31 36 30 30 2c 59  |p2....LDA&1600,Y|
00000260  0d 00 d2 11 43 4d 50 23  31 33 3a 42 45 51 65 6e  |....CMP#13:BEQen|
00000270  64 0d 00 dc 17 43 4d 50  23 97 22 40 22 3a 42 45  |d....CMP#."@":BE|
00000280  51 63 6f 6c 6f 75 72 31  0d 00 e6 17 43 4d 50 23  |Qcolour1....CMP#|
00000290  97 22 60 22 3a 42 45 51  63 6f 6c 6f 75 72 32 0d  |."`":BEQcolour2.|
000002a0  00 f0 0c 4a 53 52 26 46  46 45 45 0d 00 fa 0b 2e  |...JSR&FFEE.....|
000002b0  62 61 63 6b 69 6e 0d 01  04 16 49 4e 59 3a 43 50  |backin....INY:CP|
000002c0  59 23 30 3a 42 4e 45 6c  6f 6f 70 32 0d 01 0e 08  |Y#0:BNEloop2....|
000002d0  2e 65 6e 64 0d 01 18 07  52 54 53 0d 01 22 1c 2e  |.end....RTS.."..|
000002e0  63 6f 6c 6f 75 72 31 20  4c 44 41 23 32 3a 4a 4d  |colour1 LDA#2:JM|
000002f0  50 63 68 61 6e 67 65 0d  01 2c 12 2e 63 6f 6c 6f  |Pchange..,..colo|
00000300  75 72 32 20 4c 44 41 23  33 0d 01 36 1f 2e 63 68  |ur2 LDA#3..6..ch|
00000310  61 6e 67 65 20 54 41 58  3a 4c 44 41 23 31 37 3a  |ange TAX:LDA#17:|
00000320  4a 53 52 26 46 46 45 45  0d 01 40 18 20 20 20 20  |JSR&FFEE..@.    |
00000330  20 20 20 20 54 58 41 3a  4a 53 52 26 46 46 45 45  |    TXA:JSR&FFEE|
00000340  0d 01 4a 15 20 20 20 20  20 20 20 20 4a 4d 50 62  |..J.        JMPb|
00000350  61 63 6b 69 6e 0d 01 54  05 5d 0d 01 5e 05 ed 0d  |ackin..T.]..^...|
00000360  01 68 05 e1 0d 01 72 16  dd a4 61 73 6b 28 41 24  |.h....r...ask(A$|
00000370  2c 42 24 2c 4c 25 2c 4d  25 29 0d 01 7c 4e f2 61  |,B$,L%,M%)..|N.a|
00000380  28 22 60 22 2b 41 24 2b  c4 32 35 2d a9 41 24 2c  |("`"+A$+.25-.A$,|
00000390  22 20 22 29 2b 22 40 22  2b 42 24 2b 22 60 20 3a  |" ")+"@"+B$+"` :|
000003a0  20 40 22 29 3a e8 22 22  41 25 3a e7 20 41 25 3c  | @"):.""A%:. A%<|
000003b0  4c 25 20 84 20 41 25 3e  4d 25 20 8c 20 e5 8d 44  |L% . A%>M% . ..D|
000003c0  7c 41 20 8b 20 3d 41 25  0d 01 86 05 e1 0d 01 90  ||A . =A%........|
000003d0  08 dd f2 6d 63 0d 01 9a  0e e3 49 25 3d 30 b8 32  |...mc.....I%=0.2|
000003e0  20 88 32 0d 01 a4 0b 50  25 3d 26 41 31 30 0d 01  | .2....P%=&A10..|
000003f0  ae 0a 5b 4f 50 54 49 25  0d 01 b8 18 4c 44 41 23  |..[OPTI%....LDA#|
00000400  75 6e 20 83 20 32 35 36  3a 53 54 41 26 32 32 30  |un . 256:STA&220|
00000410  0d 01 c2 18 4c 44 41 23  75 6e 20 81 20 32 35 36  |....LDA#un . 256|
00000420  3a 53 54 41 26 32 32 31  0d 01 cc 1a 4c 44 41 23  |:STA&221....LDA#|
00000430  26 30 45 3a 4c 44 58 23  34 3a 4a 53 52 26 46 46  |&0E:LDX#4:JSR&FF|
00000440  46 34 0d 01 d6 21 4c 44  59 23 6c 6f 61 64 20 81  |F4...!LDY#load .|
00000450  20 32 35 36 3a 4c 44 58  23 6c 6f 61 64 20 83 20  | 256:LDX#load . |
00000460  32 35 36 0d 01 e0 0c 4a  53 52 26 46 46 46 37 0d  |256....JSR&FFF7.|
00000470  01 ea 1a 4c 44 41 23 26  30 44 3a 4c 44 58 23 34  |...LDA#&0D:LDX#4|
00000480  3a 4a 53 52 26 46 46 46  34 0d 01 f4 16 4c 44 41  |:JSR&FFF4....LDA|
00000490  23 6c 69 76 65 73 3a 53  54 41 26 33 36 42 38 0d  |#lives:STA&36B8.|
000004a0  01 fe 16 4c 44 41 23 6c  65 76 65 6c 3a 53 54 41  |...LDA#level:STA|
000004b0  26 33 32 45 30 0d 02 08  0b 4a 53 52 73 74 6f 70  |&32E0....JSRstop|
000004c0  0d 02 12 0c 4a 4d 50 26  34 37 30 30 0d 02 1c 3f  |....JMP&4700...?|
000004d0  2e 73 74 6f 70 20 4c 44  41 23 26 41 39 3a 53 54  |.stop LDA#&A9:ST|
000004e0  41 26 32 44 30 32 3a 53  54 41 26 33 32 38 37 3a  |A&2D02:STA&3287:|
000004f0  4c 44 41 23 31 3a 53 54  41 26 32 44 30 33 3a 53  |LDA#1:STA&2D03:S|
00000500  54 41 26 33 32 38 38 3a  52 54 53 0d 02 26 21 2e  |TA&3288:RTS..&!.|
00000510  75 6e 20 4c 44 41 26 33  43 41 3a 80 23 32 35 34  |un LDA&3CA:.#254|
00000520  3a 53 54 41 26 33 43 41  3a 52 54 53 0d 02 30 20  |:STA&3CA:RTS..0 |
00000530  2e 6c 6f 61 64 20 45 51  55 53 22 4c 4f 41 44 20  |.load EQUS"LOAD |
00000540  4d 55 53 48 52 4d 32 22  2b bd 31 33 0d 02 3a 07  |MUSHRM2"+.13..:.|
00000550  5d 3a ed 0d 02 44 05 e1  0d ff                    |]:...D....|
0000055a