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

6.colour2 LDA#3

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

J        TXA:JSR&FFEE

T        JMPbackin

^]

h�

r�

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

�N�a("`"+A$+�25-�A$," ")+"@"+B$+"` : @"):�""A%:� A%<L% � A%>M% � �tFA � =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
0!.un LDA&3CA:�#254:STA&3CA:RTS
:.load EQUS"LOAD "+�13
D]:�
N�
�

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 16 f4  |rooms cheat.....|
00000020  20 4f 72 69 67 69 6e 61  6c 20 76 65 72 73 69 6f  | Original versio|
00000030  6e 0d 00 1e 1b f4 20 45  6c 65 63 74 72 6f 6e 20  |n..... Electron |
00000040  74 61 70 65 20 76 65 72  73 69 6f 6e 0d 00 28 70  |tape version..(p|
00000050  eb 31 3a ef 31 39 2c 33  2c 36 2c 30 2c 30 2c 30  |.1:.19,3,6,0,0,0|
00000060  2c 32 33 2c 32 33 30 2c  30 2c 26 46 46 2c 30 2c  |,23,230,0,&FF,0,|
00000070  26 46 46 2c 30 2c 30 2c  30 2c 30 2c 31 37 2c 31  |&FF,0,0,0,0,17,1|
00000080  3a f1 27 22 4d 61 67 69  63 20 4d 75 73 68 72 6f  |:.'"Magic Mushro|
00000090  6f 6d 73 20 63 68 65 61  74 22 3a fb 32 3a f1 22  |oms cheat":.2:."|
000000a0  86 86 86 86 86 86 86 86  86 86 86 86 86 86 86 86  |................|
000000b0  86 86 86 86 86 22 27 3a  f2 6d 63 31 0d 00 32 30  |....."':.mc1..20|
000000c0  6c 69 76 65 73 3d a4 61  73 6b 28 22 4e 75 6d 62  |lives=.ask("Numb|
000000d0  65 72 20 6f 66 20 6c 69  76 65 73 22 2c 22 28 30  |er of lives","(0|
000000e0  30 2d 39 39 29 22 2c 30  2c 39 39 29 0d 00 3c 2e  |0-99)",0,99)..<.|
000000f0  6c 65 76 65 6c 3d a4 61  73 6b 28 22 53 74 61 72  |level=.ask("Star|
00000100  74 69 6e 67 20 6c 65 76  65 6c 22 2c 22 28 30 30  |ting level","(00|
00000110  2d 30 39 29 22 2c 30 2c  39 29 0d 00 46 07 f2 6d  |-09)",0,9)..F..m|
00000120  63 0d 00 50 2f f2 61 28  22 60 49 6e 66 69 6e 69  |c..P/.a("`Infini|
00000130  74 65 20 74 69 6d 65 22  2b c4 31 34 2c 22 20 22  |te time"+.14," "|
00000140  29 2b 22 40 28 59 2f 4e  29 20 60 3a 40 20 22 29  |)+"@(Y/N) `:@ ")|
00000150  0d 00 5a 2e 41 24 3d be  3a e7 20 41 24 3d 22 59  |..Z.A$=.:. A$="Y|
00000160  22 20 8c 20 f1 3b 22 59  65 73 22 20 8b 20 f1 3b  |" . .;"Yes" . .;|
00000170  22 4e 6f 22 3a 3f 73 74  6f 70 3d 26 36 30 0d 00  |"No":?stop=&60..|
00000180  64 5d f1 3a f2 61 28 22  60 4f 4b 40 20 2d 20 60  |d].:.a("`OK@ - `|
00000190  49 6e 73 65 72 74 20 40  4d 61 67 69 63 20 4d 75  |Insert @Magic Mu|
000001a0  73 68 72 6f 6f 6d 73 60  20 74 61 70 65 20 61 6e  |shrooms` tape an|
000001b0  64 20 20 20 20 20 20 20  20 20 70 72 65 73 73 20  |d         press |
000001c0  70 6c 61 79 20 2e 2e 2e  22 29 3a ef 37 2c 31 33  |play ..."):.7,13|
000001d0  2c 31 30 2c 31 30 2c 31  37 2c 32 0d 00 6e 15 2a  |,10,10,17,2..n.*|
000001e0  4c 2e 4d 55 53 48 52 4f  4f 4d 53 20 32 32 30 30  |L.MUSHROOMS 2200|
000001f0  0d 00 78 1b eb 34 3a ef  32 38 2c 30 2c 32 30 2c  |..x..4:.28,0,20,|
00000200  32 30 2c 31 35 3a d6 26  41 31 30 0d 00 82 05 e0  |20,15:.&A10.....|
00000210  0d 00 8c 0f dd f2 61 28  24 26 31 36 30 30 29 0d  |......a($&1600).|
00000220  00 96 0c d6 26 31 37 30  30 3a e1 0d 00 a0 09 dd  |....&1700:......|
00000230  f2 6d 63 31 0d 00 aa 0e  e3 49 25 3d 30 b8 32 20  |.mc1.....I%=0.2 |
00000240  88 32 0d 00 b4 0c 50 25  3d 26 31 37 30 30 0d 00  |.2....P%=&1700..|
00000250  be 0a 5b 4f 50 54 49 25  0d 00 c8 10 4c 44 59 23  |..[OPTI%....LDY#|
00000260  30 3a 2e 6c 6f 6f 70 32  0d 00 d2 0e 4c 44 41 26  |0:.loop2....LDA&|
00000270  31 36 30 30 2c 59 0d 00  dc 11 43 4d 50 23 31 33  |1600,Y....CMP#13|
00000280  3a 42 45 51 65 6e 64 0d  00 e6 17 43 4d 50 23 97  |:BEQend....CMP#.|
00000290  22 40 22 3a 42 45 51 63  6f 6c 6f 75 72 31 0d 00  |"@":BEQcolour1..|
000002a0  f0 17 43 4d 50 23 97 22  60 22 3a 42 45 51 63 6f  |..CMP#."`":BEQco|
000002b0  6c 6f 75 72 32 0d 00 fa  0c 4a 53 52 26 46 46 45  |lour2....JSR&FFE|
000002c0  45 0d 01 04 0b 2e 62 61  63 6b 69 6e 0d 01 0e 16  |E.....backin....|
000002d0  49 4e 59 3a 43 50 59 23  30 3a 42 4e 45 6c 6f 6f  |INY:CPY#0:BNEloo|
000002e0  70 32 0d 01 18 08 2e 65  6e 64 0d 01 22 07 52 54  |p2.....end..".RT|
000002f0  53 0d 01 2c 1c 2e 63 6f  6c 6f 75 72 31 20 4c 44  |S..,..colour1 LD|
00000300  41 23 32 3a 4a 4d 50 63  68 61 6e 67 65 0d 01 36  |A#2:JMPchange..6|
00000310  12 2e 63 6f 6c 6f 75 72  32 20 4c 44 41 23 33 0d  |..colour2 LDA#3.|
00000320  01 40 1f 2e 63 68 61 6e  67 65 20 54 41 58 3a 4c  |.@..change TAX:L|
00000330  44 41 23 31 37 3a 4a 53  52 26 46 46 45 45 0d 01  |DA#17:JSR&FFEE..|
00000340  4a 18 20 20 20 20 20 20  20 20 54 58 41 3a 4a 53  |J.        TXA:JS|
00000350  52 26 46 46 45 45 0d 01  54 15 20 20 20 20 20 20  |R&FFEE..T.      |
00000360  20 20 4a 4d 50 62 61 63  6b 69 6e 0d 01 5e 05 5d  |  JMPbackin..^.]|
00000370  0d 01 68 05 ed 0d 01 72  05 e1 0d 01 7c 16 dd a4  |..h....r....|...|
00000380  61 73 6b 28 41 24 2c 42  24 2c 4c 25 2c 4d 25 29  |ask(A$,B$,L%,M%)|
00000390  0d 01 86 4e f2 61 28 22  60 22 2b 41 24 2b c4 32  |...N.a("`"+A$+.2|
000003a0  35 2d a9 41 24 2c 22 20  22 29 2b 22 40 22 2b 42  |5-.A$," ")+"@"+B|
000003b0  24 2b 22 60 20 3a 20 40  22 29 3a e8 22 22 41 25  |$+"` : @"):.""A%|
000003c0  3a e7 20 41 25 3c 4c 25  20 84 20 41 25 3e 4d 25  |:. A%<L% . A%>M%|
000003d0  20 8c 20 e5 8d 74 46 41  20 8b 20 3d 41 25 0d 01  | . ..tFA . =A%..|
000003e0  90 05 e1 0d 01 9a 08 dd  f2 6d 63 0d 01 a4 0e e3  |.........mc.....|
000003f0  49 25 3d 30 b8 32 20 88  32 0d 01 ae 0b 50 25 3d  |I%=0.2 .2....P%=|
00000400  26 41 31 30 0d 01 b8 0a  5b 4f 50 54 49 25 0d 01  |&A10....[OPTI%..|
00000410  c2 18 4c 44 41 23 75 6e  20 83 20 32 35 36 3a 53  |..LDA#un . 256:S|
00000420  54 41 26 32 32 30 0d 01  cc 18 4c 44 41 23 75 6e  |TA&220....LDA#un|
00000430  20 81 20 32 35 36 3a 53  54 41 26 32 32 31 0d 01  | . 256:STA&221..|
00000440  d6 1a 4c 44 41 23 26 30  45 3a 4c 44 58 23 34 3a  |..LDA#&0E:LDX#4:|
00000450  4a 53 52 26 46 46 46 34  0d 01 e0 21 4c 44 59 23  |JSR&FFF4...!LDY#|
00000460  6c 6f 61 64 20 81 20 32  35 36 3a 4c 44 58 23 6c  |load . 256:LDX#l|
00000470  6f 61 64 20 83 20 32 35  36 0d 01 ea 0c 4a 53 52  |oad . 256....JSR|
00000480  26 46 46 46 37 0d 01 f4  1a 4c 44 41 23 26 30 44  |&FFF7....LDA#&0D|
00000490  3a 4c 44 58 23 34 3a 4a  53 52 26 46 46 46 34 0d  |:LDX#4:JSR&FFF4.|
000004a0  01 fe 16 4c 44 41 23 6c  69 76 65 73 3a 53 54 41  |...LDA#lives:STA|
000004b0  26 33 36 42 38 0d 02 08  16 4c 44 41 23 6c 65 76  |&36B8....LDA#lev|
000004c0  65 6c 3a 53 54 41 26 33  32 45 30 0d 02 12 0b 4a  |el:STA&32E0....J|
000004d0  53 52 73 74 6f 70 0d 02  1c 0c 4a 4d 50 26 34 37  |SRstop....JMP&47|
000004e0  30 30 0d 02 26 3f 2e 73  74 6f 70 20 4c 44 41 23  |00..&?.stop LDA#|
000004f0  26 41 39 3a 53 54 41 26  32 44 30 32 3a 53 54 41  |&A9:STA&2D02:STA|
00000500  26 33 32 38 37 3a 4c 44  41 23 31 3a 53 54 41 26  |&3287:LDA#1:STA&|
00000510  32 44 30 33 3a 53 54 41  26 33 32 38 38 3a 52 54  |2D03:STA&3288:RT|
00000520  53 0d 02 30 21 2e 75 6e  20 4c 44 41 26 33 43 41  |S..0!.un LDA&3CA|
00000530  3a 80 23 32 35 34 3a 53  54 41 26 33 43 41 3a 52  |:.#254:STA&3CA:R|
00000540  54 53 0d 02 3a 19 2e 6c  6f 61 64 20 45 51 55 53  |TS..:..load EQUS|
00000550  22 4c 4f 41 44 20 22 2b  bd 31 33 0d 02 44 07 5d  |"LOAD "+.13..D.]|
00000560  3a ed 0d 02 4e 05 e1 0d  ff                       |:...N....|
00000569