� Hunchback cheat
� Electron (Sam 6) version
:
(�4:�'"Hunchback cheat"'
2�mc
<"�ask("Infinite lives",inlives)
F>�'"OK - Insert Hunchback tape and press         play ..."'
P�7,28,0,20,30,16:�&1100
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%=&1100
�
[OPTI%
�CLDA#un � 256:STA&220:LDA#un � 256:STA&221:LDA#14:LDX#4:JSR&FFF4
�!LDY#load � 256:LDX#load � 256
�JSR&FFF7
�LDA#13:LDX#4:JSR&FFF4
�JSRinlives:JMP&3C00
�0.inlives LDA#&AD:STA&3633:LDA#2:STA&3639:RTS
�!.un LDA&3CA:�#254:STA&3CA:RTS
�	.load
�]:$P%="LOAD HUNCHMC"+�13

�

�
�

00000000  0d 00 0a 15 f4 20 48 75  6e 63 68 62 61 63 6b 20  |..... Hunchback |
00000010  63 68 65 61 74 0d 00 14  1e f4 20 45 6c 65 63 74  |cheat..... Elect|
00000020  72 6f 6e 20 28 53 61 6d  20 36 29 20 76 65 72 73  |ron (Sam 6) vers|
00000030  69 6f 6e 0d 00 1e 05 3a  0d 00 28 1b eb 34 3a f1  |ion....:..(..4:.|
00000040  27 22 48 75 6e 63 68 62  61 63 6b 20 63 68 65 61  |'"Hunchback chea|
00000050  74 22 27 0d 00 32 07 f2  6d 63 0d 00 3c 22 f2 61  |t"'..2..mc..<".a|
00000060  73 6b 28 22 49 6e 66 69  6e 69 74 65 20 6c 69 76  |sk("Infinite liv|
00000070  65 73 22 2c 69 6e 6c 69  76 65 73 29 0d 00 46 3e  |es",inlives)..F>|
00000080  f1 27 22 4f 4b 20 2d 20  49 6e 73 65 72 74 20 48  |.'"OK - Insert H|
00000090  75 6e 63 68 62 61 63 6b  20 74 61 70 65 20 61 6e  |unchback tape an|
000000a0  64 20 70 72 65 73 73 20  20 20 20 20 20 20 20 20  |d press         |
000000b0  70 6c 61 79 20 2e 2e 2e  22 27 0d 00 50 1b ef 37  |play ..."'..P..7|
000000c0  2c 32 38 2c 30 2c 32 30  2c 33 30 2c 31 36 3a d6  |,28,0,20,30,16:.|
000000d0  26 31 31 30 30 0d 00 5a  05 e0 0d 00 64 10 dd f2  |&1100..Z....d...|
000000e0  61 73 6b 28 41 24 2c 41  25 29 0d 00 6e 4a f1 3b  |ask(A$,A%)..nJ.;|
000000f0  41 24 3b c4 32 36 2d a9  41 24 2c 22 20 22 29 3b  |A$;.26-.A$," ");|
00000100  22 28 59 2f 4e 29 20 3a  20 22 3b 3a 41 24 3d be  |"(Y/N) : ";:A$=.|
00000110  3a e7 20 41 24 3d 22 59  22 20 8c 20 f1 3b 22 59  |:. A$="Y" . .;"Y|
00000120  65 73 22 20 8b 20 f1 3b  22 4e 6f 22 3a 3f 41 25  |es" . .;"No":?A%|
00000130  3d 26 36 30 0d 00 78 05  e1 0d 00 82 08 dd f2 6d  |=&60..x........m|
00000140  63 0d 00 8c 10 e3 49 25  3d 30 20 b8 20 32 20 88  |c.....I%=0 . 2 .|
00000150  32 0d 00 96 0c 50 25 3d  26 31 31 30 30 0d 00 a0  |2....P%=&1100...|
00000160  0a 5b 4f 50 54 49 25 0d  00 aa 43 4c 44 41 23 75  |.[OPTI%...CLDA#u|
00000170  6e 20 83 20 32 35 36 3a  53 54 41 26 32 32 30 3a  |n . 256:STA&220:|
00000180  4c 44 41 23 75 6e 20 81  20 32 35 36 3a 53 54 41  |LDA#un . 256:STA|
00000190  26 32 32 31 3a 4c 44 41  23 31 34 3a 4c 44 58 23  |&221:LDA#14:LDX#|
000001a0  34 3a 4a 53 52 26 46 46  46 34 0d 00 b4 21 4c 44  |4:JSR&FFF4...!LD|
000001b0  59 23 6c 6f 61 64 20 81  20 32 35 36 3a 4c 44 58  |Y#load . 256:LDX|
000001c0  23 6c 6f 61 64 20 83 20  32 35 36 0d 00 be 0c 4a  |#load . 256....J|
000001d0  53 52 26 46 46 46 37 0d  00 c8 19 4c 44 41 23 31  |SR&FFF7....LDA#1|
000001e0  33 3a 4c 44 58 23 34 3a  4a 53 52 26 46 46 46 34  |3:LDX#4:JSR&FFF4|
000001f0  0d 00 d2 17 4a 53 52 69  6e 6c 69 76 65 73 3a 4a  |....JSRinlives:J|
00000200  4d 50 26 33 43 30 30 0d  00 dc 30 2e 69 6e 6c 69  |MP&3C00...0.inli|
00000210  76 65 73 20 4c 44 41 23  26 41 44 3a 53 54 41 26  |ves LDA#&AD:STA&|
00000220  33 36 33 33 3a 4c 44 41  23 32 3a 53 54 41 26 33  |3633:LDA#2:STA&3|
00000230  36 33 39 3a 52 54 53 0d  00 e6 21 2e 75 6e 20 4c  |639:RTS...!.un L|
00000240  44 41 26 33 43 41 3a 80  23 32 35 34 3a 53 54 41  |DA&3CA:.#254:STA|
00000250  26 33 43 41 3a 52 54 53  0d 00 f0 09 2e 6c 6f 61  |&3CA:RTS.....loa|
00000260  64 0d 00 fa 1c 5d 3a 24  50 25 3d 22 4c 4f 41 44  |d....]:$P%="LOAD|
00000270  20 48 55 4e 43 48 4d 43  22 2b bd 31 33 0d 01 04  | HUNCHMC"+.13...|
00000280  05 ed 0d 01 0e 05 e1 0d  ff                       |.........|
00000289