� Repton Infinity cheat
� Electron version
!�4:�'"Repton Infinity cheat"'
(�mc
2"�ask("Infinite lives",inlives)
<'�ask("Passwords not needed",nopass)
FD�'"OK - Insert Repton Infinity tape and         press play ..."'
P�&900:�=&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%
�%LDA&204:STAbyte:LDA&205:STAbyte+1
�LDA#0:STA&3300
�LDA#inter � 256:STA&204
�LDA#inter � 256:STA&205
�RTS
�
.inter
�PHP:PHA:TXA:PHA:TYA:PHA
�LDA&3300:CMP#&4F:BNEout
�JSRinlives:JSRnopass
�%LDAbyte:STA&204:LDAbyte+1:STA&205
�.out

%PLA:TAY:PLA:TAX:PLA:PLP:JMP(byte)

.byte NOP:NOP

).nopass LDA#&EA:STA&21E6:STA&21E7:RTS

"0.inlives LDA#&A9:STA&F0A:LDA#&B2:STA&F0B:RTS

,]:�

6�
�

00000000  0d 00 0a 1b f4 20 52 65  70 74 6f 6e 20 49 6e 66  |..... Repton Inf|
00000010  69 6e 69 74 79 20 63 68  65 61 74 0d 00 14 16 f4  |inity cheat.....|
00000020  20 45 6c 65 63 74 72 6f  6e 20 76 65 72 73 69 6f  | Electron versio|
00000030  6e 0d 00 1e 21 eb 34 3a  f1 27 22 52 65 70 74 6f  |n...!.4:.'"Repto|
00000040  6e 20 49 6e 66 69 6e 69  74 79 20 63 68 65 61 74  |n Infinity cheat|
00000050  22 27 0d 00 28 07 f2 6d  63 0d 00 32 22 f2 61 73  |"'..(..mc..2".as|
00000060  6b 28 22 49 6e 66 69 6e  69 74 65 20 6c 69 76 65  |k("Infinite live|
00000070  73 22 2c 69 6e 6c 69 76  65 73 29 0d 00 3c 27 f2  |s",inlives)..<'.|
00000080  61 73 6b 28 22 50 61 73  73 77 6f 72 64 73 20 6e  |ask("Passwords n|
00000090  6f 74 20 6e 65 65 64 65  64 22 2c 6e 6f 70 61 73  |ot needed",nopas|
000000a0  73 29 0d 00 46 44 f1 27  22 4f 4b 20 2d 20 49 6e  |s)..FD.'"OK - In|
000000b0  73 65 72 74 20 52 65 70  74 6f 6e 20 49 6e 66 69  |sert Repton Infi|
000000c0  6e 69 74 79 20 74 61 70  65 20 61 6e 64 20 20 20  |nity tape and   |
000000d0  20 20 20 20 20 20 70 72  65 73 73 20 70 6c 61 79  |      press play|
000000e0  20 2e 2e 2e 22 27 0d 00  50 14 d6 26 39 30 30 3a  | ..."'..P..&900:|
000000f0  d0 3d 26 45 30 30 3a d7  22 22 0d 00 5a 05 e0 0d  |.=&E00:.""..Z...|
00000100  00 64 10 dd f2 61 73 6b  28 41 24 2c 41 25 29 0d  |.d...ask(A$,A%).|
00000110  00 6e 4a f1 3b 41 24 3b  c4 32 36 2d a9 41 24 2c  |.nJ.;A$;.26-.A$,|
00000120  22 20 22 29 3b 22 28 59  2f 4e 29 20 3a 20 22 3b  |" ");"(Y/N) : ";|
00000130  3a 41 24 3d be 3a e7 20  41 24 3d 22 59 22 20 8c  |:A$=.:. A$="Y" .|
00000140  20 f1 3b 22 59 65 73 22  20 8b 20 f1 3b 22 4e 6f  | .;"Yes" . .;"No|
00000150  22 3a 3f 41 25 3d 26 36  30 0d 00 78 05 e1 0d 00  |":?A%=&60..x....|
00000160  82 08 dd f2 6d 63 0d 00  8c 1d e3 49 25 3d 30 b8  |....mc.....I%=0.|
00000170  32 20 88 32 3a 50 25 3d  26 39 30 30 3a 5b 4f 50  |2 .2:P%=&900:[OP|
00000180  54 49 25 0d 00 96 25 4c  44 41 26 32 30 34 3a 53  |TI%...%LDA&204:S|
00000190  54 41 62 79 74 65 3a 4c  44 41 26 32 30 35 3a 53  |TAbyte:LDA&205:S|
000001a0  54 41 62 79 74 65 2b 31  0d 00 a0 12 4c 44 41 23  |TAbyte+1....LDA#|
000001b0  30 3a 53 54 41 26 33 33  30 30 0d 00 aa 1b 4c 44  |0:STA&3300....LD|
000001c0  41 23 69 6e 74 65 72 20  83 20 32 35 36 3a 53 54  |A#inter . 256:ST|
000001d0  41 26 32 30 34 0d 00 b4  1b 4c 44 41 23 69 6e 74  |A&204....LDA#int|
000001e0  65 72 20 81 20 32 35 36  3a 53 54 41 26 32 30 35  |er . 256:STA&205|
000001f0  0d 00 be 07 52 54 53 0d  00 c8 0a 2e 69 6e 74 65  |....RTS.....inte|
00000200  72 0d 00 d2 1b 50 48 50  3a 50 48 41 3a 54 58 41  |r....PHP:PHA:TXA|
00000210  3a 50 48 41 3a 54 59 41  3a 50 48 41 0d 00 dc 1b  |:PHA:TYA:PHA....|
00000220  4c 44 41 26 33 33 30 30  3a 43 4d 50 23 26 34 46  |LDA&3300:CMP#&4F|
00000230  3a 42 4e 45 6f 75 74 0d  00 e6 18 4a 53 52 69 6e  |:BNEout....JSRin|
00000240  6c 69 76 65 73 3a 4a 53  52 6e 6f 70 61 73 73 0d  |lives:JSRnopass.|
00000250  00 f0 25 4c 44 41 62 79  74 65 3a 53 54 41 26 32  |..%LDAbyte:STA&2|
00000260  30 34 3a 4c 44 41 62 79  74 65 2b 31 3a 53 54 41  |04:LDAbyte+1:STA|
00000270  26 32 30 35 0d 00 fa 08  2e 6f 75 74 0d 01 04 25  |&205.....out...%|
00000280  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 3a  |PLA:TAY:PLA:TAX:|
00000290  50 4c 41 3a 50 4c 50 3a  4a 4d 50 28 62 79 74 65  |PLA:PLP:JMP(byte|
000002a0  29 0d 01 0e 11 2e 62 79  74 65 20 4e 4f 50 3a 4e  |).....byte NOP:N|
000002b0  4f 50 0d 01 18 29 2e 6e  6f 70 61 73 73 20 4c 44  |OP...).nopass LD|
000002c0  41 23 26 45 41 3a 53 54  41 26 32 31 45 36 3a 53  |A#&EA:STA&21E6:S|
000002d0  54 41 26 32 31 45 37 3a  52 54 53 0d 01 22 30 2e  |TA&21E7:RTS.."0.|
000002e0  69 6e 6c 69 76 65 73 20  4c 44 41 23 26 41 39 3a  |inlives LDA#&A9:|
000002f0  53 54 41 26 46 30 41 3a  4c 44 41 23 26 42 32 3a  |STA&F0A:LDA#&B2:|
00000300  53 54 41 26 46 30 42 3a  52 54 53 0d 01 2c 07 5d  |STA&F0B:RTS..,.]|
00000310  3a ed 0d 01 36 05 e1 0d  ff                       |:...6....|
00000319