� Imogen cheat
 � Electron version
 :
( �4:�'"Imogen cheat"':�mc
2) �ask("Infinite transformations",int)
<; �'"OK - Insert Imogen tape and press"'"     play ..."'
F
 �init
P �=&E00:�""
Z �
d ��ask(A$,A%)
nK �;A$;�26-�A$," ");"(Y/N) : ";:A$=�:� A$="Y" � �;"Yes" � �;"No":?A%=&60
x �
�	 ��mc
� �I%=0�2 �2
� P%=&900
� [OPTI%
� .inter
� PHP:PHA:TXA:PHA:TYA:PHA
� LDA&2D00:CMP#0:BNEout
� JSRint
� LDA#13:LDX#4:JSR&FFF4
�% .out PLA:TAY:PLA:TAX:PLA:PLP:RTS
�0 .int LDA#&EA:STA&2C98:STA&2C99:STA&2C9A:RTS
� .init LDA#1:STA&2D00
�J LDA#inter � 256:STA&220:LDA#inter � 256:STA&221:LDA#14:LDX#4:JSR&FFF4

 RTS

 ]

 �

" �
�

00000000  0d 00 0a 13 20 f4 20 49  6d 6f 67 65 6e 20 63 68  |.... . Imogen ch|
00000010  65 61 74 0d 00 14 17 20  f4 20 45 6c 65 63 74 72  |eat.... . Electr|
00000020  6f 6e 20 76 65 72 73 69  6f 6e 0d 00 1e 06 20 3a  |on version.... :|
00000030  0d 00 28 1d 20 eb 34 3a  f1 27 22 49 6d 6f 67 65  |..(. .4:.'"Imoge|
00000040  6e 20 63 68 65 61 74 22  27 3a f2 6d 63 0d 00 32  |n cheat"':.mc..2|
00000050  29 20 f2 61 73 6b 28 22  49 6e 66 69 6e 69 74 65  |) .ask("Infinite|
00000060  20 74 72 61 6e 73 66 6f  72 6d 61 74 69 6f 6e 73  | transformations|
00000070  22 2c 69 6e 74 29 0d 00  3c 3b 20 f1 27 22 4f 4b  |",int)..<; .'"OK|
00000080  20 2d 20 49 6e 73 65 72  74 20 49 6d 6f 67 65 6e  | - Insert Imogen|
00000090  20 74 61 70 65 20 61 6e  64 20 70 72 65 73 73 22  | tape and press"|
000000a0  27 22 20 20 20 20 20 70  6c 61 79 20 2e 2e 2e 22  |'"     play ..."|
000000b0  27 0d 00 46 0a 20 d6 69  6e 69 74 0d 00 50 0f 20  |'..F. .init..P. |
000000c0  d0 3d 26 45 30 30 3a d7  22 22 0d 00 5a 06 20 e0  |.=&E00:.""..Z. .|
000000d0  0d 00 64 11 20 dd f2 61  73 6b 28 41 24 2c 41 25  |..d. ..ask(A$,A%|
000000e0  29 0d 00 6e 4b 20 f1 3b  41 24 3b c4 32 36 2d a9  |)..nK .;A$;.26-.|
000000f0  41 24 2c 22 20 22 29 3b  22 28 59 2f 4e 29 20 3a  |A$," ");"(Y/N) :|
00000100  20 22 3b 3a 41 24 3d be  3a e7 20 41 24 3d 22 59  | ";:A$=.:. A$="Y|
00000110  22 20 8c 20 f1 3b 22 59  65 73 22 20 8b 20 f1 3b  |" . .;"Yes" . .;|
00000120  22 4e 6f 22 3a 3f 41 25  3d 26 36 30 0d 00 78 06  |"No":?A%=&60..x.|
00000130  20 e1 0d 00 82 09 20 dd  f2 6d 63 0d 00 8c 0f 20  | ..... ..mc.... |
00000140  e3 49 25 3d 30 b8 32 20  88 32 0d 00 96 0c 20 50  |.I%=0.2 .2.... P|
00000150  25 3d 26 39 30 30 0d 00  a0 0b 20 5b 4f 50 54 49  |%=&900.... [OPTI|
00000160  25 0d 00 aa 0b 20 2e 69  6e 74 65 72 0d 00 b4 1c  |%.... .inter....|
00000170  20 50 48 50 3a 50 48 41  3a 54 58 41 3a 50 48 41  | PHP:PHA:TXA:PHA|
00000180  3a 54 59 41 3a 50 48 41  0d 00 be 1a 20 4c 44 41  |:TYA:PHA.... LDA|
00000190  26 32 44 30 30 3a 43 4d  50 23 30 3a 42 4e 45 6f  |&2D00:CMP#0:BNEo|
000001a0  75 74 0d 00 c8 0b 20 4a  53 52 69 6e 74 0d 00 d2  |ut.... JSRint...|
000001b0  1a 20 4c 44 41 23 31 33  3a 4c 44 58 23 34 3a 4a  |. LDA#13:LDX#4:J|
000001c0  53 52 26 46 46 46 34 0d  00 dc 25 20 2e 6f 75 74  |SR&FFF4...% .out|
000001d0  20 50 4c 41 3a 54 41 59  3a 50 4c 41 3a 54 41 58  | PLA:TAY:PLA:TAX|
000001e0  3a 50 4c 41 3a 50 4c 50  3a 52 54 53 0d 00 e6 30  |:PLA:PLP:RTS...0|
000001f0  20 2e 69 6e 74 20 4c 44  41 23 26 45 41 3a 53 54  | .int LDA#&EA:ST|
00000200  41 26 32 43 39 38 3a 53  54 41 26 32 43 39 39 3a  |A&2C98:STA&2C99:|
00000210  53 54 41 26 32 43 39 41  3a 52 54 53 0d 00 f0 19  |STA&2C9A:RTS....|
00000220  20 2e 69 6e 69 74 20 4c  44 41 23 31 3a 53 54 41  | .init LDA#1:STA|
00000230  26 32 44 30 30 0d 00 fa  4a 20 4c 44 41 23 69 6e  |&2D00...J LDA#in|
00000240  74 65 72 20 83 20 32 35  36 3a 53 54 41 26 32 32  |ter . 256:STA&22|
00000250  30 3a 4c 44 41 23 69 6e  74 65 72 20 81 20 32 35  |0:LDA#inter . 25|
00000260  36 3a 53 54 41 26 32 32  31 3a 4c 44 41 23 31 34  |6:STA&221:LDA#14|
00000270  3a 4c 44 58 23 34 3a 4a  53 52 26 46 46 46 34 0d  |:LDX#4:JSR&FFF4.|
00000280  01 04 08 20 52 54 53 0d  01 0e 06 20 5d 0d 01 18  |... RTS.... ]...|
00000290  06 20 ed 0d 01 22 06 20  e1 0d ff                 |. ...". ...|
0000029b