� Cheat Finder
 �6:� 28,0,24,39,13
8 OSFIND=&FFCE:OSGBPB=&FFD1:OSWRCH=&FFEE:OSASCI=&FFE3
() �"How many files (at least 2)",files
25 �"Filename (excluding final letter)":� filename$
<& � pass=0 � 2 � 2:P%=&B00:[OPTpass
F� .start LDA#0:STAflag:LDA#�("A"):STAletter:LDA#files:STA&70:LDA#0:STA&71:.openloop LDA#&40:LDX#(filename �256):LDY#(filename �256):JSR OSFIND:LDX&71:STAhandles,X:INC&71:INCletter:DEC&70:BNEopenloop
P� LDA#0:STAmempos:.newcycle LDA#0:STAfileno:LDAhandles:STAGBPBdata:LDA#&50:STAGBPBdata+2:LDA#&20:STAGBPBdata+6:LDA#4:LDX#(GBPBdata �256):LDY#(GBPBdata �256):JSR OSGBPB:BCCnextfile:JMPerror
Z� .nextfile INCfileno:LDXfileno:CPX#files:BNEcont:JMPendcycle:.cont LDAhandles,X:STAGBPBdata:LDA#&30:STAGBPBdata+2:LDA#&20:STAGBPBdata+6:LDA#4:LDX#(GBPBdata �256):LDY#(GBPBdata �256):JSR OSGBPB:BCCok2:JMPerror:.ok2
d� LDY#0:STY&70:STY&72:LDA#&30:STA&71:LDA#&50:STA&73:LDXfileno:.checkloop LDA(&72),Y:CMPdata:BNEnextbyte:LDA(&70),Y:CMPdata,X:BEQnextbyte:LDAdata:CLC:ADC#1:STA(&72),Y
nU .nextbyte INY:BNEcheckloop:INC&71:INC&73:LDA&73:CMP#&70:BNEcheckloop:JMPnextfile
x� .endcycle LDA(&70),Y:CMPdata:BNEnext:LDA#1:STAflag:LDA&71:SEC:SBC#&50:CLC:ADCmempos:JSRhexprint:TYA:JSRhexprint:LDA#13:JSR OSASCI:.next INY:BNEendcycle:INC&71:LDA&71:CMP#&70:BNEendcycle
�_ LDAmempos:CLC:ADC#&20:CMP#&80:BEQclose:STAmempos:JMPnewcycle:.close LDA#0:LDY#0:JSR OSFIND
�] LDAflag:BNEend:LDX#0:.printloop LDAmessage,X:JSR OSASCI:INX:CMP#13:BNEprintloop:.end RTS
�I .hexprint TAX:LSR A:LSR A:LSR A:LSR A:JSRdigit:TXA:�#&F:JSRdigit:RTS
�H .digit CLC:ADC#48:CMP#58:BCCnumber:CLC:ADC#7:.number JSR OSWRCH:RTS
�, .error BRK:EQUB0:EQUS"OSGBPB error":BRK
�Z .fileno EQUB0:.flag EQUB0:.mempos EQUB0:.GBPBdata EQUB0:EQUD&FFFF3000:EQUD&2000:EQUD0
�� .message EQUS"No possibilities found":EQUB13:.filename:]:$P%=filename$:P%=P%+�(filename$):[OPTpass:.letter EQUS"A":EQUB13:.handles:]:P%=P%+files:data=P%
� � pass
�G �:� file=1 � files:�"Value in file ";�(64+file);:� data?(file-1):�
� �start
�

00000000  0d 00 0a 13 20 f4 20 43  68 65 61 74 20 46 69 6e  |.... . Cheat Fin|
00000010  64 65 72 0d 00 14 17 20  eb 36 3a ef 20 32 38 2c  |der.... .6:. 28,|
00000020  30 2c 32 34 2c 33 39 2c  31 33 0d 00 1e 38 20 4f  |0,24,39,13...8 O|
00000030  53 46 49 4e 44 3d 26 46  46 43 45 3a 4f 53 47 42  |SFIND=&FFCE:OSGB|
00000040  50 42 3d 26 46 46 44 31  3a 4f 53 57 52 43 48 3d  |PB=&FFD1:OSWRCH=|
00000050  26 46 46 45 45 3a 4f 53  41 53 43 49 3d 26 46 46  |&FFEE:OSASCI=&FF|
00000060  45 33 0d 00 28 29 20 e8  22 48 6f 77 20 6d 61 6e  |E3..() ."How man|
00000070  79 20 66 69 6c 65 73 20  28 61 74 20 6c 65 61 73  |y files (at leas|
00000080  74 20 32 29 22 2c 66 69  6c 65 73 0d 00 32 35 20  |t 2)",files..25 |
00000090  f1 22 46 69 6c 65 6e 61  6d 65 20 28 65 78 63 6c  |."Filename (excl|
000000a0  75 64 69 6e 67 20 66 69  6e 61 6c 20 6c 65 74 74  |uding final lett|
000000b0  65 72 29 22 3a e8 20 66  69 6c 65 6e 61 6d 65 24  |er)":. filename$|
000000c0  0d 00 3c 26 20 e3 20 70  61 73 73 3d 30 20 b8 20  |..<& . pass=0 . |
000000d0  32 20 88 20 32 3a 50 25  3d 26 42 30 30 3a 5b 4f  |2 . 2:P%=&B00:[O|
000000e0  50 54 70 61 73 73 0d 00  46 c9 20 2e 73 74 61 72  |PTpass..F. .star|
000000f0  74 20 4c 44 41 23 30 3a  53 54 41 66 6c 61 67 3a  |t LDA#0:STAflag:|
00000100  4c 44 41 23 97 28 22 41  22 29 3a 53 54 41 6c 65  |LDA#.("A"):STAle|
00000110  74 74 65 72 3a 4c 44 41  23 66 69 6c 65 73 3a 53  |tter:LDA#files:S|
00000120  54 41 26 37 30 3a 4c 44  41 23 30 3a 53 54 41 26  |TA&70:LDA#0:STA&|
00000130  37 31 3a 2e 6f 70 65 6e  6c 6f 6f 70 20 4c 44 41  |71:.openloop LDA|
00000140  23 26 34 30 3a 4c 44 58  23 28 66 69 6c 65 6e 61  |#&40:LDX#(filena|
00000150  6d 65 20 83 32 35 36 29  3a 4c 44 59 23 28 66 69  |me .256):LDY#(fi|
00000160  6c 65 6e 61 6d 65 20 81  32 35 36 29 3a 4a 53 52  |lename .256):JSR|
00000170  20 4f 53 46 49 4e 44 3a  4c 44 58 26 37 31 3a 53  | OSFIND:LDX&71:S|
00000180  54 41 68 61 6e 64 6c 65  73 2c 58 3a 49 4e 43 26  |TAhandles,X:INC&|
00000190  37 31 3a 49 4e 43 6c 65  74 74 65 72 3a 44 45 43  |71:INCletter:DEC|
000001a0  26 37 30 3a 42 4e 45 6f  70 65 6e 6c 6f 6f 70 0d  |&70:BNEopenloop.|
000001b0  00 50 bf 20 4c 44 41 23  30 3a 53 54 41 6d 65 6d  |.P. LDA#0:STAmem|
000001c0  70 6f 73 3a 2e 6e 65 77  63 79 63 6c 65 20 4c 44  |pos:.newcycle LD|
000001d0  41 23 30 3a 53 54 41 66  69 6c 65 6e 6f 3a 4c 44  |A#0:STAfileno:LD|
000001e0  41 68 61 6e 64 6c 65 73  3a 53 54 41 47 42 50 42  |Ahandles:STAGBPB|
000001f0  64 61 74 61 3a 4c 44 41  23 26 35 30 3a 53 54 41  |data:LDA#&50:STA|
00000200  47 42 50 42 64 61 74 61  2b 32 3a 4c 44 41 23 26  |GBPBdata+2:LDA#&|
00000210  32 30 3a 53 54 41 47 42  50 42 64 61 74 61 2b 36  |20:STAGBPBdata+6|
00000220  3a 4c 44 41 23 34 3a 4c  44 58 23 28 47 42 50 42  |:LDA#4:LDX#(GBPB|
00000230  64 61 74 61 20 83 32 35  36 29 3a 4c 44 59 23 28  |data .256):LDY#(|
00000240  47 42 50 42 64 61 74 61  20 81 32 35 36 29 3a 4a  |GBPBdata .256):J|
00000250  53 52 20 4f 53 47 42 50  42 3a 42 43 43 6e 65 78  |SR OSGBPB:BCCnex|
00000260  74 66 69 6c 65 3a 4a 4d  50 65 72 72 6f 72 0d 00  |tfile:JMPerror..|
00000270  5a d9 20 2e 6e 65 78 74  66 69 6c 65 20 49 4e 43  |Z. .nextfile INC|
00000280  66 69 6c 65 6e 6f 3a 4c  44 58 66 69 6c 65 6e 6f  |fileno:LDXfileno|
00000290  3a 43 50 58 23 66 69 6c  65 73 3a 42 4e 45 63 6f  |:CPX#files:BNEco|
000002a0  6e 74 3a 4a 4d 50 65 6e  64 63 79 63 6c 65 3a 2e  |nt:JMPendcycle:.|
000002b0  63 6f 6e 74 20 4c 44 41  68 61 6e 64 6c 65 73 2c  |cont LDAhandles,|
000002c0  58 3a 53 54 41 47 42 50  42 64 61 74 61 3a 4c 44  |X:STAGBPBdata:LD|
000002d0  41 23 26 33 30 3a 53 54  41 47 42 50 42 64 61 74  |A#&30:STAGBPBdat|
000002e0  61 2b 32 3a 4c 44 41 23  26 32 30 3a 53 54 41 47  |a+2:LDA#&20:STAG|
000002f0  42 50 42 64 61 74 61 2b  36 3a 4c 44 41 23 34 3a  |BPBdata+6:LDA#4:|
00000300  4c 44 58 23 28 47 42 50  42 64 61 74 61 20 83 32  |LDX#(GBPBdata .2|
00000310  35 36 29 3a 4c 44 59 23  28 47 42 50 42 64 61 74  |56):LDY#(GBPBdat|
00000320  61 20 81 32 35 36 29 3a  4a 53 52 20 4f 53 47 42  |a .256):JSR OSGB|
00000330  50 42 3a 42 43 43 6f 6b  32 3a 4a 4d 50 65 72 72  |PB:BCCok2:JMPerr|
00000340  6f 72 3a 2e 6f 6b 32 0d  00 64 a8 20 4c 44 59 23  |or:.ok2..d. LDY#|
00000350  30 3a 53 54 59 26 37 30  3a 53 54 59 26 37 32 3a  |0:STY&70:STY&72:|
00000360  4c 44 41 23 26 33 30 3a  53 54 41 26 37 31 3a 4c  |LDA#&30:STA&71:L|
00000370  44 41 23 26 35 30 3a 53  54 41 26 37 33 3a 4c 44  |DA#&50:STA&73:LD|
00000380  58 66 69 6c 65 6e 6f 3a  2e 63 68 65 63 6b 6c 6f  |Xfileno:.checklo|
00000390  6f 70 20 4c 44 41 28 26  37 32 29 2c 59 3a 43 4d  |op LDA(&72),Y:CM|
000003a0  50 64 61 74 61 3a 42 4e  45 6e 65 78 74 62 79 74  |Pdata:BNEnextbyt|
000003b0  65 3a 4c 44 41 28 26 37  30 29 2c 59 3a 43 4d 50  |e:LDA(&70),Y:CMP|
000003c0  64 61 74 61 2c 58 3a 42  45 51 6e 65 78 74 62 79  |data,X:BEQnextby|
000003d0  74 65 3a 4c 44 41 64 61  74 61 3a 43 4c 43 3a 41  |te:LDAdata:CLC:A|
000003e0  44 43 23 31 3a 53 54 41  28 26 37 32 29 2c 59 0d  |DC#1:STA(&72),Y.|
000003f0  00 6e 55 20 2e 6e 65 78  74 62 79 74 65 20 49 4e  |.nU .nextbyte IN|
00000400  59 3a 42 4e 45 63 68 65  63 6b 6c 6f 6f 70 3a 49  |Y:BNEcheckloop:I|
00000410  4e 43 26 37 31 3a 49 4e  43 26 37 33 3a 4c 44 41  |NC&71:INC&73:LDA|
00000420  26 37 33 3a 43 4d 50 23  26 37 30 3a 42 4e 45 63  |&73:CMP#&70:BNEc|
00000430  68 65 63 6b 6c 6f 6f 70  3a 4a 4d 50 6e 65 78 74  |heckloop:JMPnext|
00000440  66 69 6c 65 0d 00 78 be  20 2e 65 6e 64 63 79 63  |file..x. .endcyc|
00000450  6c 65 20 4c 44 41 28 26  37 30 29 2c 59 3a 43 4d  |le LDA(&70),Y:CM|
00000460  50 64 61 74 61 3a 42 4e  45 6e 65 78 74 3a 4c 44  |Pdata:BNEnext:LD|
00000470  41 23 31 3a 53 54 41 66  6c 61 67 3a 4c 44 41 26  |A#1:STAflag:LDA&|
00000480  37 31 3a 53 45 43 3a 53  42 43 23 26 35 30 3a 43  |71:SEC:SBC#&50:C|
00000490  4c 43 3a 41 44 43 6d 65  6d 70 6f 73 3a 4a 53 52  |LC:ADCmempos:JSR|
000004a0  68 65 78 70 72 69 6e 74  3a 54 59 41 3a 4a 53 52  |hexprint:TYA:JSR|
000004b0  68 65 78 70 72 69 6e 74  3a 4c 44 41 23 31 33 3a  |hexprint:LDA#13:|
000004c0  4a 53 52 20 4f 53 41 53  43 49 3a 2e 6e 65 78 74  |JSR OSASCI:.next|
000004d0  20 49 4e 59 3a 42 4e 45  65 6e 64 63 79 63 6c 65  | INY:BNEendcycle|
000004e0  3a 49 4e 43 26 37 31 3a  4c 44 41 26 37 31 3a 43  |:INC&71:LDA&71:C|
000004f0  4d 50 23 26 37 30 3a 42  4e 45 65 6e 64 63 79 63  |MP#&70:BNEendcyc|
00000500  6c 65 0d 00 82 5f 20 4c  44 41 6d 65 6d 70 6f 73  |le..._ LDAmempos|
00000510  3a 43 4c 43 3a 41 44 43  23 26 32 30 3a 43 4d 50  |:CLC:ADC#&20:CMP|
00000520  23 26 38 30 3a 42 45 51  63 6c 6f 73 65 3a 53 54  |#&80:BEQclose:ST|
00000530  41 6d 65 6d 70 6f 73 3a  4a 4d 50 6e 65 77 63 79  |Amempos:JMPnewcy|
00000540  63 6c 65 3a 2e 63 6c 6f  73 65 20 4c 44 41 23 30  |cle:.close LDA#0|
00000550  3a 4c 44 59 23 30 3a 4a  53 52 20 4f 53 46 49 4e  |:LDY#0:JSR OSFIN|
00000560  44 0d 00 8c 5d 20 4c 44  41 66 6c 61 67 3a 42 4e  |D...] LDAflag:BN|
00000570  45 65 6e 64 3a 4c 44 58  23 30 3a 2e 70 72 69 6e  |Eend:LDX#0:.prin|
00000580  74 6c 6f 6f 70 20 4c 44  41 6d 65 73 73 61 67 65  |tloop LDAmessage|
00000590  2c 58 3a 4a 53 52 20 4f  53 41 53 43 49 3a 49 4e  |,X:JSR OSASCI:IN|
000005a0  58 3a 43 4d 50 23 31 33  3a 42 4e 45 70 72 69 6e  |X:CMP#13:BNEprin|
000005b0  74 6c 6f 6f 70 3a 2e 65  6e 64 20 52 54 53 0d 00  |tloop:.end RTS..|
000005c0  96 49 20 2e 68 65 78 70  72 69 6e 74 20 54 41 58  |.I .hexprint TAX|
000005d0  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
000005e0  20 41 3a 4c 53 52 20 41  3a 4a 53 52 64 69 67 69  | A:LSR A:JSRdigi|
000005f0  74 3a 54 58 41 3a 80 23  26 46 3a 4a 53 52 64 69  |t:TXA:.#&F:JSRdi|
00000600  67 69 74 3a 52 54 53 0d  00 a0 48 20 2e 64 69 67  |git:RTS...H .dig|
00000610  69 74 20 43 4c 43 3a 41  44 43 23 34 38 3a 43 4d  |it CLC:ADC#48:CM|
00000620  50 23 35 38 3a 42 43 43  6e 75 6d 62 65 72 3a 43  |P#58:BCCnumber:C|
00000630  4c 43 3a 41 44 43 23 37  3a 2e 6e 75 6d 62 65 72  |LC:ADC#7:.number|
00000640  20 4a 53 52 20 4f 53 57  52 43 48 3a 52 54 53 0d  | JSR OSWRCH:RTS.|
00000650  00 aa 2c 20 2e 65 72 72  6f 72 20 42 52 4b 3a 45  |.., .error BRK:E|
00000660  51 55 42 30 3a 45 51 55  53 22 4f 53 47 42 50 42  |QUB0:EQUS"OSGBPB|
00000670  20 65 72 72 6f 72 22 3a  42 52 4b 0d 00 b4 5a 20  | error":BRK...Z |
00000680  2e 66 69 6c 65 6e 6f 20  45 51 55 42 30 3a 2e 66  |.fileno EQUB0:.f|
00000690  6c 61 67 20 45 51 55 42  30 3a 2e 6d 65 6d 70 6f  |lag EQUB0:.mempo|
000006a0  73 20 45 51 55 42 30 3a  2e 47 42 50 42 64 61 74  |s EQUB0:.GBPBdat|
000006b0  61 20 45 51 55 42 30 3a  45 51 55 44 26 46 46 46  |a EQUB0:EQUD&FFF|
000006c0  46 33 30 30 30 3a 45 51  55 44 26 32 30 30 30 3a  |F3000:EQUD&2000:|
000006d0  45 51 55 44 30 0d 00 be  9d 20 2e 6d 65 73 73 61  |EQUD0.... .messa|
000006e0  67 65 20 45 51 55 53 22  4e 6f 20 70 6f 73 73 69  |ge EQUS"No possi|
000006f0  62 69 6c 69 74 69 65 73  20 66 6f 75 6e 64 22 3a  |bilities found":|
00000700  45 51 55 42 31 33 3a 2e  66 69 6c 65 6e 61 6d 65  |EQUB13:.filename|
00000710  3a 5d 3a 24 50 25 3d 66  69 6c 65 6e 61 6d 65 24  |:]:$P%=filename$|
00000720  3a 50 25 3d 50 25 2b a9  28 66 69 6c 65 6e 61 6d  |:P%=P%+.(filenam|
00000730  65 24 29 3a 5b 4f 50 54  70 61 73 73 3a 2e 6c 65  |e$):[OPTpass:.le|
00000740  74 74 65 72 20 45 51 55  53 22 41 22 3a 45 51 55  |tter EQUS"A":EQU|
00000750  42 31 33 3a 2e 68 61 6e  64 6c 65 73 3a 5d 3a 50  |B13:.handles:]:P|
00000760  25 3d 50 25 2b 66 69 6c  65 73 3a 64 61 74 61 3d  |%=P%+files:data=|
00000770  50 25 0d 00 c8 0b 20 ed  20 70 61 73 73 0d 00 d2  |P%.... . pass...|
00000780  47 20 f1 3a e3 20 66 69  6c 65 3d 31 20 b8 20 66  |G .:. file=1 . f|
00000790  69 6c 65 73 3a f1 22 56  61 6c 75 65 20 69 6e 20  |iles:."Value in |
000007a0  66 69 6c 65 20 22 3b bd  28 36 34 2b 66 69 6c 65  |file ";.(64+file|
000007b0  29 3b 3a e8 20 64 61 74  61 3f 28 66 69 6c 65 2d  |);:. data?(file-|
000007c0  31 29 3a ed 0d 00 dc 0b  20 d6 73 74 61 72 74 0d  |1):..... .start.|
000007d0  ff                                                |.|
000007d1