#� This program should have been
!� on the June tape. Sorry for
� missing it off.

� 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%)
nJ�;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
�/.int LDA#&EA:STA&2C98:STA&2C99:STA&2C9A:RTS
�.init LDA#1:STA&2D00
�ILDA#inter � 256:STA&220:LDA#inter � 256:STA&221:LDA#14:LDX#4:JSR&FFF4

RTS

]

�

"�
�

00000000  0d 00 01 23 f4 20 54 68  69 73 20 70 72 6f 67 72  |...#. This progr|
00000010  61 6d 20 73 68 6f 75 6c  64 20 68 61 76 65 20 62  |am should have b|
00000020  65 65 6e 0d 00 02 21 f4  20 6f 6e 20 74 68 65 20  |een...!. on the |
00000030  4a 75 6e 65 20 74 61 70  65 2e 20 53 6f 72 72 79  |June tape. Sorry|
00000040  20 66 6f 72 0d 00 03 15  f4 20 6d 69 73 73 69 6e  | for..... missin|
00000050  67 20 69 74 20 6f 66 66  2e 0d 00 0a 12 f4 20 49  |g it off...... I|
00000060  6d 6f 67 65 6e 20 63 68  65 61 74 0d 00 14 16 f4  |mogen cheat.....|
00000070  20 45 6c 65 63 74 72 6f  6e 20 76 65 72 73 69 6f  | Electron versio|
00000080  6e 0d 00 1e 05 3a 0d 00  28 1c eb 34 3a f1 27 22  |n....:..(..4:.'"|
00000090  49 6d 6f 67 65 6e 20 63  68 65 61 74 22 27 3a f2  |Imogen cheat"':.|
000000a0  6d 63 0d 00 32 28 f2 61  73 6b 28 22 49 6e 66 69  |mc..2(.ask("Infi|
000000b0  6e 69 74 65 20 74 72 61  6e 73 66 6f 72 6d 61 74  |nite transformat|
000000c0  69 6f 6e 73 22 2c 69 6e  74 29 0d 00 3c 3e f1 27  |ions",int)..<>.'|
000000d0  22 4f 4b 20 2d 20 49 6e  73 65 72 74 20 49 6d 6f  |"OK - Insert Imo|
000000e0  67 65 6e 20 74 61 70 65  20 61 6e 64 20 70 72 65  |gen tape and pre|
000000f0  73 73 22 27 22 20 20 20  20 20 70 6c 61 79 20 2e  |ss"'"     play .|
00000100  2e 2e 22 27 20 20 20 20  0d 00 46 09 d6 69 6e 69  |.."'    ..F..ini|
00000110  74 0d 00 50 10 d0 3d 26  45 30 30 3a d7 22 22 20  |t..P..=&E00:."" |
00000120  20 0d 00 5a 05 e0 0d 00  64 10 dd f2 61 73 6b 28  | ..Z....d...ask(|
00000130  41 24 2c 41 25 29 0d 00  6e 4a f1 3b 41 24 3b c4  |A$,A%)..nJ.;A$;.|
00000140  32 36 2d a9 41 24 2c 22  20 22 29 3b 22 28 59 2f  |26-.A$," ");"(Y/|
00000150  4e 29 20 3a 20 22 3b 3a  41 24 3d be 3a e7 20 41  |N) : ";:A$=.:. A|
00000160  24 3d 22 59 22 20 8c 20  f1 3b 22 59 65 73 22 20  |$="Y" . .;"Yes" |
00000170  8b 20 f1 3b 22 4e 6f 22  3a 3f 41 25 3d 26 36 30  |. .;"No":?A%=&60|
00000180  0d 00 78 05 e1 0d 00 82  08 dd f2 6d 63 0d 00 8c  |..x........mc...|
00000190  0e e3 49 25 3d 30 b8 32  20 88 32 0d 00 96 0b 50  |..I%=0.2 .2....P|
000001a0  25 3d 26 39 30 30 0d 00  a0 0a 5b 4f 50 54 49 25  |%=&900....[OPTI%|
000001b0  0d 00 aa 0a 2e 69 6e 74  65 72 0d 00 b4 1b 50 48  |.....inter....PH|
000001c0  50 3a 50 48 41 3a 54 58  41 3a 50 48 41 3a 54 59  |P:PHA:TXA:PHA:TY|
000001d0  41 3a 50 48 41 0d 00 be  19 4c 44 41 26 32 44 30  |A:PHA....LDA&2D0|
000001e0  30 3a 43 4d 50 23 30 3a  42 4e 45 6f 75 74 0d 00  |0:CMP#0:BNEout..|
000001f0  c8 0a 4a 53 52 69 6e 74  0d 00 d2 19 4c 44 41 23  |..JSRint....LDA#|
00000200  31 33 3a 4c 44 58 23 34  3a 4a 53 52 26 46 46 46  |13:LDX#4:JSR&FFF|
00000210  34 0d 00 dc 24 2e 6f 75  74 20 50 4c 41 3a 54 41  |4...$.out PLA:TA|
00000220  59 3a 50 4c 41 3a 54 41  58 3a 50 4c 41 3a 50 4c  |Y:PLA:TAX:PLA:PL|
00000230  50 3a 52 54 53 0d 00 e6  2f 2e 69 6e 74 20 4c 44  |P:RTS.../.int LD|
00000240  41 23 26 45 41 3a 53 54  41 26 32 43 39 38 3a 53  |A#&EA:STA&2C98:S|
00000250  54 41 26 32 43 39 39 3a  53 54 41 26 32 43 39 41  |TA&2C99:STA&2C9A|
00000260  3a 52 54 53 0d 00 f0 18  2e 69 6e 69 74 20 4c 44  |:RTS.....init LD|
00000270  41 23 31 3a 53 54 41 26  32 44 30 30 0d 00 fa 49  |A#1:STA&2D00...I|
00000280  4c 44 41 23 69 6e 74 65  72 20 83 20 32 35 36 3a  |LDA#inter . 256:|
00000290  53 54 41 26 32 32 30 3a  4c 44 41 23 69 6e 74 65  |STA&220:LDA#inte|
000002a0  72 20 81 20 32 35 36 3a  53 54 41 26 32 32 31 3a  |r . 256:STA&221:|
000002b0  4c 44 41 23 31 34 3a 4c  44 58 23 34 3a 4a 53 52  |LDA#14:LDX#4:JSR|
000002c0  26 46 46 46 34 0d 01 04  07 52 54 53 0d 01 0e 05  |&FFF4....RTS....|
000002d0  5d 0d 01 18 05 ed 0d 01  22 05 e1 0d ff           |]......."....|
000002dd