*|

� 3D Dotty cheat
� Electron Tape version
`�1:�19,3,6,0,0,0,23,230,0,&FF,0,&FF,0,0,0,0:�2:�'"3D Dotty cheat":�1:�"��������������"':�mc1
(�mc
2"�ask("Infinite lives",inlives)
< �ask("Infinite energy",inen)
FM�:�a("`OK @- `Insert @3D Dotty `tape and press          play ...."):�':�2
P�7
Z*L."3D-DOTTY-E" 2600
d�4
n
�&1100
x�
���ask(A$,A%)
�R�a("`"+A$+�25-�A$," ")+"@ (Y/N) `: @"):A$=�:�A$="Y" � �;"Yes" � �;"No":?A%=&60
��
���mc
��I%=0�2 �2
�P%=&1100
�
[OPTI%
�!LDY#load � 256:LDX#load � 256
�JSR&FFF7
�JSRinlives:JSRinen
�JMP&2DA5
�.inlives
�LDA#&AD:STA&3417:RTS

	.inen

8LDA#&60:STA&3624:LDA#&A5:STA&2589:LDA#0:STA&25A0:RTS

	.load

"]:$P%="LOAD E.DOTTY"+�13:�

,�

6	��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

J^.colour1 LDA#2:JMPchange:.colour2 LDA#3:.change TAX:LDA#17:JSR&FFEE:TXA:JSR&FFEE:JMPbackin

T	]:�:�

^��a($&1600)

h�&1700:�
�

00000000  0d 00 01 07 2a 7c 15 0d  00 0a 14 f4 20 33 44 20  |....*|...... 3D |
00000010  44 6f 74 74 79 20 63 68  65 61 74 0d 00 14 1b f4  |Dotty cheat.....|
00000020  20 45 6c 65 63 74 72 6f  6e 20 54 61 70 65 20 76  | Electron Tape v|
00000030  65 72 73 69 6f 6e 0d 00  1e 60 eb 31 3a ef 31 39  |ersion...`.1:.19|
00000040  2c 33 2c 36 2c 30 2c 30  2c 30 2c 32 33 2c 32 33  |,3,6,0,0,0,23,23|
00000050  30 2c 30 2c 26 46 46 2c  30 2c 26 46 46 2c 30 2c  |0,0,&FF,0,&FF,0,|
00000060  30 2c 30 2c 30 3a fb 32  3a f1 27 22 33 44 20 44  |0,0,0:.2:.'"3D D|
00000070  6f 74 74 79 20 63 68 65  61 74 22 3a fb 31 3a f1  |otty cheat":.1:.|
00000080  22 86 86 86 86 86 86 86  86 86 86 86 86 86 86 22  |".............."|
00000090  27 3a f2 6d 63 31 0d 00  28 07 f2 6d 63 0d 00 32  |':.mc1..(..mc..2|
000000a0  22 f2 61 73 6b 28 22 49  6e 66 69 6e 69 74 65 20  |".ask("Infinite |
000000b0  6c 69 76 65 73 22 2c 69  6e 6c 69 76 65 73 29 0d  |lives",inlives).|
000000c0  00 3c 20 f2 61 73 6b 28  22 49 6e 66 69 6e 69 74  |.< .ask("Infinit|
000000d0  65 20 65 6e 65 72 67 79  22 2c 69 6e 65 6e 29 0d  |e energy",inen).|
000000e0  00 46 4d f1 3a f2 61 28  22 60 4f 4b 20 40 2d 20  |.FM.:.a("`OK @- |
000000f0  60 49 6e 73 65 72 74 20  40 33 44 20 44 6f 74 74  |`Insert @3D Dott|
00000100  79 20 60 74 61 70 65 20  61 6e 64 20 70 72 65 73  |y `tape and pres|
00000110  73 20 20 20 20 20 20 20  20 20 20 70 6c 61 79 20  |s          play |
00000120  2e 2e 2e 2e 22 29 3a f1  27 3a fb 32 0d 00 50 06  |...."):.':.2..P.|
00000130  ef 37 0d 00 5a 18 2a 4c  2e 22 33 44 2d 44 4f 54  |.7..Z.*L."3D-DOT|
00000140  54 59 2d 45 22 20 32 36  30 30 0d 00 64 06 eb 34  |TY-E" 2600..d..4|
00000150  0d 00 6e 0a d6 26 31 31  30 30 0d 00 78 05 e0 0d  |..n..&1100..x...|
00000160  00 82 10 dd f2 61 73 6b  28 41 24 2c 41 25 29 0d  |.....ask(A$,A%).|
00000170  00 8c 52 f2 61 28 22 60  22 2b 41 24 2b c4 32 35  |..R.a("`"+A$+.25|
00000180  2d a9 41 24 2c 22 20 22  29 2b 22 40 20 28 59 2f  |-.A$," ")+"@ (Y/|
00000190  4e 29 20 60 3a 20 40 22  29 3a 41 24 3d be 3a e7  |N) `: @"):A$=.:.|
000001a0  41 24 3d 22 59 22 20 8c  20 f1 3b 22 59 65 73 22  |A$="Y" . .;"Yes"|
000001b0  20 8b 20 f1 3b 22 4e 6f  22 3a 3f 41 25 3d 26 36  | . .;"No":?A%=&6|
000001c0  30 0d 00 96 05 e1 0d 00  a0 08 dd f2 6d 63 0d 00  |0...........mc..|
000001d0  aa 0e e3 49 25 3d 30 b8  32 20 88 32 0d 00 b4 0c  |...I%=0.2 .2....|
000001e0  50 25 3d 26 31 31 30 30  0d 00 be 0a 5b 4f 50 54  |P%=&1100....[OPT|
000001f0  49 25 0d 00 c8 21 4c 44  59 23 6c 6f 61 64 20 81  |I%...!LDY#load .|
00000200  20 32 35 36 3a 4c 44 58  23 6c 6f 61 64 20 83 20  | 256:LDX#load . |
00000210  32 35 36 0d 00 d2 0c 4a  53 52 26 46 46 46 37 0d  |256....JSR&FFF7.|
00000220  00 dc 16 4a 53 52 69 6e  6c 69 76 65 73 3a 4a 53  |...JSRinlives:JS|
00000230  52 69 6e 65 6e 0d 00 e6  0c 4a 4d 50 26 32 44 41  |Rinen....JMP&2DA|
00000240  35 0d 00 f0 0c 2e 69 6e  6c 69 76 65 73 0d 00 fa  |5.....inlives...|
00000250  18 4c 44 41 23 26 41 44  3a 53 54 41 26 33 34 31  |.LDA#&AD:STA&341|
00000260  37 3a 52 54 53 0d 01 04  09 2e 69 6e 65 6e 0d 01  |7:RTS.....inen..|
00000270  0e 38 4c 44 41 23 26 36  30 3a 53 54 41 26 33 36  |.8LDA#&60:STA&36|
00000280  32 34 3a 4c 44 41 23 26  41 35 3a 53 54 41 26 32  |24:LDA#&A5:STA&2|
00000290  35 38 39 3a 4c 44 41 23  30 3a 53 54 41 26 32 35  |589:LDA#0:STA&25|
000002a0  41 30 3a 52 54 53 0d 01  18 09 2e 6c 6f 61 64 0d  |A0:RTS.....load.|
000002b0  01 22 1e 5d 3a 24 50 25  3d 22 4c 4f 41 44 20 45  |.".]:$P%="LOAD E|
000002c0  2e 44 4f 54 54 59 22 2b  bd 31 33 3a ed 0d 01 2c  |.DOTTY"+.13:...,|
000002d0  05 e1 0d 01 36 09 dd f2  6d 63 31 0d 01 40 99 e3  |....6...mc1..@..|
000002e0  49 25 3d 30 b8 32 20 88  32 3a 50 25 3d 26 31 37  |I%=0.2 .2:P%=&17|
000002f0  30 30 3a 5b 4f 50 54 49  25 3a 4c 44 59 23 30 3a  |00:[OPTI%:LDY#0:|
00000300  2e 6c 6f 6f 70 32 20 4c  44 41 26 31 36 30 30 2c  |.loop2 LDA&1600,|
00000310  59 3a 43 4d 50 23 31 33  3a 42 45 51 65 6e 64 3a  |Y:CMP#13:BEQend:|
00000320  43 4d 50 23 97 22 40 22  3a 42 45 51 63 6f 6c 6f  |CMP#."@":BEQcolo|
00000330  75 72 31 3a 43 4d 50 23  97 22 60 22 3a 42 45 51  |ur1:CMP#."`":BEQ|
00000340  63 6f 6c 6f 75 72 32 3a  4a 53 52 26 46 46 45 45  |colour2:JSR&FFEE|
00000350  3a 2e 62 61 63 6b 69 6e  3a 49 4e 59 3a 43 50 59  |:.backin:INY:CPY|
00000360  23 30 3a 42 4e 45 6c 6f  6f 70 32 3a 2e 65 6e 64  |#0:BNEloop2:.end|
00000370  3a 52 54 53 0d 01 4a 5e  2e 63 6f 6c 6f 75 72 31  |:RTS..J^.colour1|
00000380  20 4c 44 41 23 32 3a 4a  4d 50 63 68 61 6e 67 65  | LDA#2:JMPchange|
00000390  3a 2e 63 6f 6c 6f 75 72  32 20 4c 44 41 23 33 3a  |:.colour2 LDA#3:|
000003a0  2e 63 68 61 6e 67 65 20  54 41 58 3a 4c 44 41 23  |.change TAX:LDA#|
000003b0  31 37 3a 4a 53 52 26 46  46 45 45 3a 54 58 41 3a  |17:JSR&FFEE:TXA:|
000003c0  4a 53 52 26 46 46 45 45  3a 4a 4d 50 62 61 63 6b  |JSR&FFEE:JMPback|
000003d0  69 6e 0d 01 54 09 5d 3a  ed 3a e1 0d 01 5e 0f dd  |in..T.]:.:...^..|
000003e0  f2 61 28 24 26 31 36 30  30 29 0d 01 68 0c d6 26  |.a($&1600)..h..&|
000003f0  31 37 30 30 3a e1 0d ff                           |1700:...|
000003f8