�"Source filename",S$
 �"Destination filename",D$
 code=&A00
(_ lread=&70:mread=&72:hread=&74:oldcol=&76:newcol=&77:flag=&78:line=&79:subline=&7A:addr=&7B
2% �pass=0 � 2 � 2:P%=code:[OPTpass
<$ LDX#0:STXoldcol:LDA#1:STAnewcol
F .colourloop
P LDA#0:STAflag
Z LDA#0:STAline
d( LDA#&2D:STAhread+1:LDA#&87:STAhread
n( LDA#&30:STAlread+1:LDA#&01:STAlread
x( LDA#&2F:STAmread+1:LDA#&F8:STAmread
� .lineloop
� LDA#0:STAsubline
�
 .subloop
� LDA#0:STAaddr
�
 .pixloop
� LDY#8:LDA(mread),Y
� �#&AA:CMPcoloursA,X
� BEQright:JMPnextpix
� .right
� LDXnewcol
� LDA(mread),Y
� �#&55:CMP#&55:BNEleft
� LDA#1:STAflag

1 LDA(mread),Y:�#&AA:�AcoloursB,X:STA(mread),Y


 .left

 LDAaddr:BEQup

" LDY#0:LDA(mread),Y

, �#&55:CMP#&55:BNEup

6 LDA#1:STAflag

@1 LDA(mread),Y:�#&AA:�AcoloursB,X:STA(mread),Y

J .up

T& LDAline:BNEok1:LDAsubline:BEQdown

^ .ok1 LDA(hread),Y

h �#&AA:CMP#&AA:BNEdown

r LDA#1:STAflag

|1 LDA(hread),Y:�#&55:�AcoloursA,X:STA(hread),Y

�
 .down

�6 LDAline:CMP#31:BNEok2:LDAsubline:CMP#7:BEQnextpix

� .ok2 LDA(lread),Y

� �#&AA:CMP#&AA:BNEnextpix

� LDA#1:STAflag

�1 LDA(lread),Y:�#&55:�AcoloursA,X:STA(lread),Y

�
 .nextpix

� LDXoldcol

�3 LDAmread:CLC:ADC#8:STAmread:BCCa:INCmread+1:.a

� LDY#0:LDA(mread),Y

� �#&55:CMPcoloursB,X

� BEQup2:JMPnextpix2

�	 .up2
 LDXnewcol
' LDAline:BNEok3:LDAsubline:BEQdown2
 .ok3 LDA(hread),Y
& �#&55:CMP#&55:BNEdown2
0 LDA#1:STAflag
:1 LDA(hread),Y:�#&AA:�AcoloursB,X:STA(hread),Y
D .down2
N4 LDAline:CMP#31:BNEok4:LDAsubline:CMP#7:BEQleft2
X .ok4 LDA(lread),Y
b �#&55:CMP#&55:BNEleft2
l LDA#1:STAflag
v1 LDA(lread),Y:�#&AA:�AcoloursB,X:STA(lread),Y
� .left2
� LDA(mread),Y
� �#&AA:CMP#&AA:BNEright2
� LDA#1:STAflag
�1 LDA(mread),Y:�#&55:�AcoloursA,X:STA(mread),Y
� .right2
� LDAaddr:CMP#79:BEQnextpix2
� LDY#8:LDA(mread),Y
� �#&AA:CMP#&AA:BNEnextpix2
� LDA#1:STAflag
�1 LDA(mread),Y:�#&55:�AcoloursA,X:STA(mread),Y
� .nextpix2
� LDXoldcol
3 LDAhread:CLC:ADC#8:STAhread:BCCb:INChread+1:.b
3 LDAlread:CLC:ADC#8:STAlread:BCCc:INClread+1:.c
1 INCaddr:LDAaddr:CMP#79:BEQnextsub:JMPpixloop
 
 .nextsub
* LDAsubline:BNEnorm1
4% LDAhread:SEC:SBC#7:STAhread:JMPl
>E .norm1 LDAhread:SEC:SBC#&7F:STAhread:LDAhread+1:SBC#2:STAhread+1
H! .l LDAsubline:CMP#6:BNEnorm2
R% LDAlread:SEC:SBC#7:STAlread:JMPm
\E .norm2 LDAlread:SEC:SBC#&7F:STAlread:LDAlread+1:SBC#2:STAlread+1
fA .m LDAmread:SEC:SBC#&7F:STAmread:LDAmread+1:SBC#2:STAmread+1
p7 INCsubline:LDAsubline:CMP#8:BEQnextline:JMPsubloop
z .nextline
�> LDAmread:CLC:ADC#&78:STAmread:LDAmread+1:ADC#2:STAmread+1
�2 INCline:LDAline:CMP#32:BEQnextcol:JMPlineloop
�
 .nextcol
� LDAflag:BEQend
�. LDXnewcol:STXoldcol:INX:TXA:�#7:STAnewcol
� JMPcolourloop
�	 .end
� RTS
�F .coloursA EQUD&0A080200:EQUD&2A282220:EQUD&8A888280:EQUD&AAA8A2A0
�F .coloursB EQUD&05040100:EQUD&15141110:EQUD&45444140:EQUD&55545150
� ]:�
� �2:� 23,1,0;0;0;0;
� �"LOAD "+S$+" 3000"

 �code
 �"SAVE "+D$+" 3000 8000"
�

00000000  0d 00 0a 1a 20 e8 22 53  6f 75 72 63 65 20 66 69  |.... ."Source fi|
00000010  6c 65 6e 61 6d 65 22 2c  53 24 0d 00 14 1f 20 e8  |lename",S$.... .|
00000020  22 44 65 73 74 69 6e 61  74 69 6f 6e 20 66 69 6c  |"Destination fil|
00000030  65 6e 61 6d 65 22 2c 44  24 0d 00 1e 0e 20 63 6f  |ename",D$.... co|
00000040  64 65 3d 26 41 30 30 0d  00 28 5f 20 6c 72 65 61  |de=&A00..(_ lrea|
00000050  64 3d 26 37 30 3a 6d 72  65 61 64 3d 26 37 32 3a  |d=&70:mread=&72:|
00000060  68 72 65 61 64 3d 26 37  34 3a 6f 6c 64 63 6f 6c  |hread=&74:oldcol|
00000070  3d 26 37 36 3a 6e 65 77  63 6f 6c 3d 26 37 37 3a  |=&76:newcol=&77:|
00000080  66 6c 61 67 3d 26 37 38  3a 6c 69 6e 65 3d 26 37  |flag=&78:line=&7|
00000090  39 3a 73 75 62 6c 69 6e  65 3d 26 37 41 3a 61 64  |9:subline=&7A:ad|
000000a0  64 72 3d 26 37 42 0d 00  32 25 20 e3 70 61 73 73  |dr=&7B..2% .pass|
000000b0  3d 30 20 b8 20 32 20 88  20 32 3a 50 25 3d 63 6f  |=0 . 2 . 2:P%=co|
000000c0  64 65 3a 5b 4f 50 54 70  61 73 73 0d 00 3c 24 20  |de:[OPTpass..<$ |
000000d0  4c 44 58 23 30 3a 53 54  58 6f 6c 64 63 6f 6c 3a  |LDX#0:STXoldcol:|
000000e0  4c 44 41 23 31 3a 53 54  41 6e 65 77 63 6f 6c 0d  |LDA#1:STAnewcol.|
000000f0  00 46 10 20 2e 63 6f 6c  6f 75 72 6c 6f 6f 70 0d  |.F. .colourloop.|
00000100  00 50 12 20 4c 44 41 23  30 3a 53 54 41 66 6c 61  |.P. LDA#0:STAfla|
00000110  67 0d 00 5a 12 20 4c 44  41 23 30 3a 53 54 41 6c  |g..Z. LDA#0:STAl|
00000120  69 6e 65 0d 00 64 28 20  4c 44 41 23 26 32 44 3a  |ine..d( LDA#&2D:|
00000130  53 54 41 68 72 65 61 64  2b 31 3a 4c 44 41 23 26  |STAhread+1:LDA#&|
00000140  38 37 3a 53 54 41 68 72  65 61 64 0d 00 6e 28 20  |87:STAhread..n( |
00000150  4c 44 41 23 26 33 30 3a  53 54 41 6c 72 65 61 64  |LDA#&30:STAlread|
00000160  2b 31 3a 4c 44 41 23 26  30 31 3a 53 54 41 6c 72  |+1:LDA#&01:STAlr|
00000170  65 61 64 0d 00 78 28 20  4c 44 41 23 26 32 46 3a  |ead..x( LDA#&2F:|
00000180  53 54 41 6d 72 65 61 64  2b 31 3a 4c 44 41 23 26  |STAmread+1:LDA#&|
00000190  46 38 3a 53 54 41 6d 72  65 61 64 0d 00 82 0e 20  |F8:STAmread.... |
000001a0  2e 6c 69 6e 65 6c 6f 6f  70 0d 00 8c 15 20 4c 44  |.lineloop.... LD|
000001b0  41 23 30 3a 53 54 41 73  75 62 6c 69 6e 65 0d 00  |A#0:STAsubline..|
000001c0  96 0d 20 2e 73 75 62 6c  6f 6f 70 0d 00 a0 12 20  |.. .subloop.... |
000001d0  4c 44 41 23 30 3a 53 54  41 61 64 64 72 0d 00 aa  |LDA#0:STAaddr...|
000001e0  0d 20 2e 70 69 78 6c 6f  6f 70 0d 00 b4 17 20 4c  |. .pixloop.... L|
000001f0  44 59 23 38 3a 4c 44 41  28 6d 72 65 61 64 29 2c  |DY#8:LDA(mread),|
00000200  59 0d 00 be 18 20 80 23  26 41 41 3a 43 4d 50 63  |Y.... .#&AA:CMPc|
00000210  6f 6c 6f 75 72 73 41 2c  58 0d 00 c8 18 20 42 45  |oloursA,X.... BE|
00000220  51 72 69 67 68 74 3a 4a  4d 50 6e 65 78 74 70 69  |Qright:JMPnextpi|
00000230  78 0d 00 d2 0b 20 2e 72  69 67 68 74 0d 00 dc 0e  |x.... .right....|
00000240  20 4c 44 58 6e 65 77 63  6f 6c 0d 00 e6 11 20 4c  | LDXnewcol.... L|
00000250  44 41 28 6d 72 65 61 64  29 2c 59 0d 00 f0 1a 20  |DA(mread),Y.... |
00000260  80 23 26 35 35 3a 43 4d  50 23 26 35 35 3a 42 4e  |.#&55:CMP#&55:BN|
00000270  45 6c 65 66 74 0d 00 fa  12 20 4c 44 41 23 31 3a  |Eleft.... LDA#1:|
00000280  53 54 41 66 6c 61 67 0d  01 04 31 20 4c 44 41 28  |STAflag...1 LDA(|
00000290  6d 72 65 61 64 29 2c 59  3a 80 23 26 41 41 3a 84  |mread),Y:.#&AA:.|
000002a0  41 63 6f 6c 6f 75 72 73  42 2c 58 3a 53 54 41 28  |AcoloursB,X:STA(|
000002b0  6d 72 65 61 64 29 2c 59  0d 01 0e 0a 20 2e 6c 65  |mread),Y.... .le|
000002c0  66 74 0d 01 18 12 20 4c  44 41 61 64 64 72 3a 42  |ft.... LDAaddr:B|
000002d0  45 51 75 70 0d 01 22 17  20 4c 44 59 23 30 3a 4c  |EQup..". LDY#0:L|
000002e0  44 41 28 6d 72 65 61 64  29 2c 59 0d 01 2c 18 20  |DA(mread),Y..,. |
000002f0  80 23 26 35 35 3a 43 4d  50 23 26 35 35 3a 42 4e  |.#&55:CMP#&55:BN|
00000300  45 75 70 0d 01 36 12 20  4c 44 41 23 31 3a 53 54  |Eup..6. LDA#1:ST|
00000310  41 66 6c 61 67 0d 01 40  31 20 4c 44 41 28 6d 72  |Aflag..@1 LDA(mr|
00000320  65 61 64 29 2c 59 3a 80  23 26 41 41 3a 84 41 63  |ead),Y:.#&AA:.Ac|
00000330  6f 6c 6f 75 72 73 42 2c  58 3a 53 54 41 28 6d 72  |oloursB,X:STA(mr|
00000340  65 61 64 29 2c 59 0d 01  4a 08 20 2e 75 70 0d 01  |ead),Y..J. .up..|
00000350  54 26 20 4c 44 41 6c 69  6e 65 3a 42 4e 45 6f 6b  |T& LDAline:BNEok|
00000360  31 3a 4c 44 41 73 75 62  6c 69 6e 65 3a 42 45 51  |1:LDAsubline:BEQ|
00000370  64 6f 77 6e 0d 01 5e 16  20 2e 6f 6b 31 20 4c 44  |down..^. .ok1 LD|
00000380  41 28 68 72 65 61 64 29  2c 59 0d 01 68 1a 20 80  |A(hread),Y..h. .|
00000390  23 26 41 41 3a 43 4d 50  23 26 41 41 3a 42 4e 45  |#&AA:CMP#&AA:BNE|
000003a0  64 6f 77 6e 0d 01 72 12  20 4c 44 41 23 31 3a 53  |down..r. LDA#1:S|
000003b0  54 41 66 6c 61 67 0d 01  7c 31 20 4c 44 41 28 68  |TAflag..|1 LDA(h|
000003c0  72 65 61 64 29 2c 59 3a  80 23 26 35 35 3a 84 41  |read),Y:.#&55:.A|
000003d0  63 6f 6c 6f 75 72 73 41  2c 58 3a 53 54 41 28 68  |coloursA,X:STA(h|
000003e0  72 65 61 64 29 2c 59 0d  01 86 0a 20 2e 64 6f 77  |read),Y.... .dow|
000003f0  6e 0d 01 90 36 20 4c 44  41 6c 69 6e 65 3a 43 4d  |n...6 LDAline:CM|
00000400  50 23 33 31 3a 42 4e 45  6f 6b 32 3a 4c 44 41 73  |P#31:BNEok2:LDAs|
00000410  75 62 6c 69 6e 65 3a 43  4d 50 23 37 3a 42 45 51  |ubline:CMP#7:BEQ|
00000420  6e 65 78 74 70 69 78 0d  01 9a 16 20 2e 6f 6b 32  |nextpix.... .ok2|
00000430  20 4c 44 41 28 6c 72 65  61 64 29 2c 59 0d 01 a4  | LDA(lread),Y...|
00000440  1d 20 80 23 26 41 41 3a  43 4d 50 23 26 41 41 3a  |. .#&AA:CMP#&AA:|
00000450  42 4e 45 6e 65 78 74 70  69 78 0d 01 ae 12 20 4c  |BNEnextpix.... L|
00000460  44 41 23 31 3a 53 54 41  66 6c 61 67 0d 01 b8 31  |DA#1:STAflag...1|
00000470  20 4c 44 41 28 6c 72 65  61 64 29 2c 59 3a 80 23  | LDA(lread),Y:.#|
00000480  26 35 35 3a 84 41 63 6f  6c 6f 75 72 73 41 2c 58  |&55:.AcoloursA,X|
00000490  3a 53 54 41 28 6c 72 65  61 64 29 2c 59 0d 01 c2  |:STA(lread),Y...|
000004a0  0d 20 2e 6e 65 78 74 70  69 78 0d 01 cc 0e 20 4c  |. .nextpix.... L|
000004b0  44 58 6f 6c 64 63 6f 6c  0d 01 d6 33 20 4c 44 41  |DXoldcol...3 LDA|
000004c0  6d 72 65 61 64 3a 43 4c  43 3a 41 44 43 23 38 3a  |mread:CLC:ADC#8:|
000004d0  53 54 41 6d 72 65 61 64  3a 42 43 43 61 3a 49 4e  |STAmread:BCCa:IN|
000004e0  43 6d 72 65 61 64 2b 31  3a 2e 61 0d 01 e0 17 20  |Cmread+1:.a.... |
000004f0  4c 44 59 23 30 3a 4c 44  41 28 6d 72 65 61 64 29  |LDY#0:LDA(mread)|
00000500  2c 59 0d 01 ea 18 20 80  23 26 35 35 3a 43 4d 50  |,Y.... .#&55:CMP|
00000510  63 6f 6c 6f 75 72 73 42  2c 58 0d 01 f4 17 20 42  |coloursB,X.... B|
00000520  45 51 75 70 32 3a 4a 4d  50 6e 65 78 74 70 69 78  |EQup2:JMPnextpix|
00000530  32 0d 01 fe 09 20 2e 75  70 32 0d 02 08 0e 20 4c  |2.... .up2.... L|
00000540  44 58 6e 65 77 63 6f 6c  0d 02 12 27 20 4c 44 41  |DXnewcol...' LDA|
00000550  6c 69 6e 65 3a 42 4e 45  6f 6b 33 3a 4c 44 41 73  |line:BNEok3:LDAs|
00000560  75 62 6c 69 6e 65 3a 42  45 51 64 6f 77 6e 32 0d  |ubline:BEQdown2.|
00000570  02 1c 16 20 2e 6f 6b 33  20 4c 44 41 28 68 72 65  |... .ok3 LDA(hre|
00000580  61 64 29 2c 59 0d 02 26  1b 20 80 23 26 35 35 3a  |ad),Y..&. .#&55:|
00000590  43 4d 50 23 26 35 35 3a  42 4e 45 64 6f 77 6e 32  |CMP#&55:BNEdown2|
000005a0  0d 02 30 12 20 4c 44 41  23 31 3a 53 54 41 66 6c  |..0. LDA#1:STAfl|
000005b0  61 67 0d 02 3a 31 20 4c  44 41 28 68 72 65 61 64  |ag..:1 LDA(hread|
000005c0  29 2c 59 3a 80 23 26 41  41 3a 84 41 63 6f 6c 6f  |),Y:.#&AA:.Acolo|
000005d0  75 72 73 42 2c 58 3a 53  54 41 28 68 72 65 61 64  |ursB,X:STA(hread|
000005e0  29 2c 59 0d 02 44 0b 20  2e 64 6f 77 6e 32 0d 02  |),Y..D. .down2..|
000005f0  4e 34 20 4c 44 41 6c 69  6e 65 3a 43 4d 50 23 33  |N4 LDAline:CMP#3|
00000600  31 3a 42 4e 45 6f 6b 34  3a 4c 44 41 73 75 62 6c  |1:BNEok4:LDAsubl|
00000610  69 6e 65 3a 43 4d 50 23  37 3a 42 45 51 6c 65 66  |ine:CMP#7:BEQlef|
00000620  74 32 0d 02 58 16 20 2e  6f 6b 34 20 4c 44 41 28  |t2..X. .ok4 LDA(|
00000630  6c 72 65 61 64 29 2c 59  0d 02 62 1b 20 80 23 26  |lread),Y..b. .#&|
00000640  35 35 3a 43 4d 50 23 26  35 35 3a 42 4e 45 6c 65  |55:CMP#&55:BNEle|
00000650  66 74 32 0d 02 6c 12 20  4c 44 41 23 31 3a 53 54  |ft2..l. LDA#1:ST|
00000660  41 66 6c 61 67 0d 02 76  31 20 4c 44 41 28 6c 72  |Aflag..v1 LDA(lr|
00000670  65 61 64 29 2c 59 3a 80  23 26 41 41 3a 84 41 63  |ead),Y:.#&AA:.Ac|
00000680  6f 6c 6f 75 72 73 42 2c  58 3a 53 54 41 28 6c 72  |oloursB,X:STA(lr|
00000690  65 61 64 29 2c 59 0d 02  80 0b 20 2e 6c 65 66 74  |ead),Y.... .left|
000006a0  32 0d 02 8a 11 20 4c 44  41 28 6d 72 65 61 64 29  |2.... LDA(mread)|
000006b0  2c 59 0d 02 94 1c 20 80  23 26 41 41 3a 43 4d 50  |,Y.... .#&AA:CMP|
000006c0  23 26 41 41 3a 42 4e 45  72 69 67 68 74 32 0d 02  |#&AA:BNEright2..|
000006d0  9e 12 20 4c 44 41 23 31  3a 53 54 41 66 6c 61 67  |.. LDA#1:STAflag|
000006e0  0d 02 a8 31 20 4c 44 41  28 6d 72 65 61 64 29 2c  |...1 LDA(mread),|
000006f0  59 3a 80 23 26 35 35 3a  84 41 63 6f 6c 6f 75 72  |Y:.#&55:.Acolour|
00000700  73 41 2c 58 3a 53 54 41  28 6d 72 65 61 64 29 2c  |sA,X:STA(mread),|
00000710  59 0d 02 b2 0c 20 2e 72  69 67 68 74 32 0d 02 bc  |Y.... .right2...|
00000720  1f 20 4c 44 41 61 64 64  72 3a 43 4d 50 23 37 39  |. LDAaddr:CMP#79|
00000730  3a 42 45 51 6e 65 78 74  70 69 78 32 0d 02 c6 17  |:BEQnextpix2....|
00000740  20 4c 44 59 23 38 3a 4c  44 41 28 6d 72 65 61 64  | LDY#8:LDA(mread|
00000750  29 2c 59 0d 02 d0 1e 20  80 23 26 41 41 3a 43 4d  |),Y.... .#&AA:CM|
00000760  50 23 26 41 41 3a 42 4e  45 6e 65 78 74 70 69 78  |P#&AA:BNEnextpix|
00000770  32 0d 02 da 12 20 4c 44  41 23 31 3a 53 54 41 66  |2.... LDA#1:STAf|
00000780  6c 61 67 0d 02 e4 31 20  4c 44 41 28 6d 72 65 61  |lag...1 LDA(mrea|
00000790  64 29 2c 59 3a 80 23 26  35 35 3a 84 41 63 6f 6c  |d),Y:.#&55:.Acol|
000007a0  6f 75 72 73 41 2c 58 3a  53 54 41 28 6d 72 65 61  |oursA,X:STA(mrea|
000007b0  64 29 2c 59 0d 02 ee 0e  20 2e 6e 65 78 74 70 69  |d),Y.... .nextpi|
000007c0  78 32 0d 02 f8 0e 20 4c  44 58 6f 6c 64 63 6f 6c  |x2.... LDXoldcol|
000007d0  0d 03 02 33 20 4c 44 41  68 72 65 61 64 3a 43 4c  |...3 LDAhread:CL|
000007e0  43 3a 41 44 43 23 38 3a  53 54 41 68 72 65 61 64  |C:ADC#8:STAhread|
000007f0  3a 42 43 43 62 3a 49 4e  43 68 72 65 61 64 2b 31  |:BCCb:INChread+1|
00000800  3a 2e 62 0d 03 0c 33 20  4c 44 41 6c 72 65 61 64  |:.b...3 LDAlread|
00000810  3a 43 4c 43 3a 41 44 43  23 38 3a 53 54 41 6c 72  |:CLC:ADC#8:STAlr|
00000820  65 61 64 3a 42 43 43 63  3a 49 4e 43 6c 72 65 61  |ead:BCCc:INClrea|
00000830  64 2b 31 3a 2e 63 0d 03  16 31 20 49 4e 43 61 64  |d+1:.c...1 INCad|
00000840  64 72 3a 4c 44 41 61 64  64 72 3a 43 4d 50 23 37  |dr:LDAaddr:CMP#7|
00000850  39 3a 42 45 51 6e 65 78  74 73 75 62 3a 4a 4d 50  |9:BEQnextsub:JMP|
00000860  70 69 78 6c 6f 6f 70 0d  03 20 0d 20 2e 6e 65 78  |pixloop.. . .nex|
00000870  74 73 75 62 0d 03 2a 18  20 4c 44 41 73 75 62 6c  |tsub..*. LDAsubl|
00000880  69 6e 65 3a 42 4e 45 6e  6f 72 6d 31 0d 03 34 25  |ine:BNEnorm1..4%|
00000890  20 4c 44 41 68 72 65 61  64 3a 53 45 43 3a 53 42  | LDAhread:SEC:SB|
000008a0  43 23 37 3a 53 54 41 68  72 65 61 64 3a 4a 4d 50  |C#7:STAhread:JMP|
000008b0  6c 0d 03 3e 45 20 2e 6e  6f 72 6d 31 20 4c 44 41  |l..>E .norm1 LDA|
000008c0  68 72 65 61 64 3a 53 45  43 3a 53 42 43 23 26 37  |hread:SEC:SBC#&7|
000008d0  46 3a 53 54 41 68 72 65  61 64 3a 4c 44 41 68 72  |F:STAhread:LDAhr|
000008e0  65 61 64 2b 31 3a 53 42  43 23 32 3a 53 54 41 68  |ead+1:SBC#2:STAh|
000008f0  72 65 61 64 2b 31 0d 03  48 21 20 2e 6c 20 4c 44  |read+1..H! .l LD|
00000900  41 73 75 62 6c 69 6e 65  3a 43 4d 50 23 36 3a 42  |Asubline:CMP#6:B|
00000910  4e 45 6e 6f 72 6d 32 0d  03 52 25 20 4c 44 41 6c  |NEnorm2..R% LDAl|
00000920  72 65 61 64 3a 53 45 43  3a 53 42 43 23 37 3a 53  |read:SEC:SBC#7:S|
00000930  54 41 6c 72 65 61 64 3a  4a 4d 50 6d 0d 03 5c 45  |TAlread:JMPm..\E|
00000940  20 2e 6e 6f 72 6d 32 20  4c 44 41 6c 72 65 61 64  | .norm2 LDAlread|
00000950  3a 53 45 43 3a 53 42 43  23 26 37 46 3a 53 54 41  |:SEC:SBC#&7F:STA|
00000960  6c 72 65 61 64 3a 4c 44  41 6c 72 65 61 64 2b 31  |lread:LDAlread+1|
00000970  3a 53 42 43 23 32 3a 53  54 41 6c 72 65 61 64 2b  |:SBC#2:STAlread+|
00000980  31 0d 03 66 41 20 2e 6d  20 4c 44 41 6d 72 65 61  |1..fA .m LDAmrea|
00000990  64 3a 53 45 43 3a 53 42  43 23 26 37 46 3a 53 54  |d:SEC:SBC#&7F:ST|
000009a0  41 6d 72 65 61 64 3a 4c  44 41 6d 72 65 61 64 2b  |Amread:LDAmread+|
000009b0  31 3a 53 42 43 23 32 3a  53 54 41 6d 72 65 61 64  |1:SBC#2:STAmread|
000009c0  2b 31 0d 03 70 37 20 49  4e 43 73 75 62 6c 69 6e  |+1..p7 INCsublin|
000009d0  65 3a 4c 44 41 73 75 62  6c 69 6e 65 3a 43 4d 50  |e:LDAsubline:CMP|
000009e0  23 38 3a 42 45 51 6e 65  78 74 6c 69 6e 65 3a 4a  |#8:BEQnextline:J|
000009f0  4d 50 73 75 62 6c 6f 6f  70 0d 03 7a 0e 20 2e 6e  |MPsubloop..z. .n|
00000a00  65 78 74 6c 69 6e 65 0d  03 84 3e 20 4c 44 41 6d  |extline...> LDAm|
00000a10  72 65 61 64 3a 43 4c 43  3a 41 44 43 23 26 37 38  |read:CLC:ADC#&78|
00000a20  3a 53 54 41 6d 72 65 61  64 3a 4c 44 41 6d 72 65  |:STAmread:LDAmre|
00000a30  61 64 2b 31 3a 41 44 43  23 32 3a 53 54 41 6d 72  |ad+1:ADC#2:STAmr|
00000a40  65 61 64 2b 31 0d 03 8e  32 20 49 4e 43 6c 69 6e  |ead+1...2 INClin|
00000a50  65 3a 4c 44 41 6c 69 6e  65 3a 43 4d 50 23 33 32  |e:LDAline:CMP#32|
00000a60  3a 42 45 51 6e 65 78 74  63 6f 6c 3a 4a 4d 50 6c  |:BEQnextcol:JMPl|
00000a70  69 6e 65 6c 6f 6f 70 0d  03 98 0d 20 2e 6e 65 78  |ineloop.... .nex|
00000a80  74 63 6f 6c 0d 03 a2 13  20 4c 44 41 66 6c 61 67  |tcol.... LDAflag|
00000a90  3a 42 45 51 65 6e 64 0d  03 ac 2e 20 4c 44 58 6e  |:BEQend.... LDXn|
00000aa0  65 77 63 6f 6c 3a 53 54  58 6f 6c 64 63 6f 6c 3a  |ewcol:STXoldcol:|
00000ab0  49 4e 58 3a 54 58 41 3a  80 23 37 3a 53 54 41 6e  |INX:TXA:.#7:STAn|
00000ac0  65 77 63 6f 6c 0d 03 b6  12 20 4a 4d 50 63 6f 6c  |ewcol.... JMPcol|
00000ad0  6f 75 72 6c 6f 6f 70 0d  03 c0 09 20 2e 65 6e 64  |ourloop.... .end|
00000ae0  0d 03 ca 08 20 52 54 53  0d 03 d4 46 20 2e 63 6f  |.... RTS...F .co|
00000af0  6c 6f 75 72 73 41 20 45  51 55 44 26 30 41 30 38  |loursA EQUD&0A08|
00000b00  30 32 30 30 3a 45 51 55  44 26 32 41 32 38 32 32  |0200:EQUD&2A2822|
00000b10  32 30 3a 45 51 55 44 26  38 41 38 38 38 32 38 30  |20:EQUD&8A888280|
00000b20  3a 45 51 55 44 26 41 41  41 38 41 32 41 30 0d 03  |:EQUD&AAA8A2A0..|
00000b30  de 46 20 2e 63 6f 6c 6f  75 72 73 42 20 45 51 55  |.F .coloursB EQU|
00000b40  44 26 30 35 30 34 30 31  30 30 3a 45 51 55 44 26  |D&05040100:EQUD&|
00000b50  31 35 31 34 31 31 31 30  3a 45 51 55 44 26 34 35  |15141110:EQUD&45|
00000b60  34 34 34 31 34 30 3a 45  51 55 44 26 35 35 35 34  |444140:EQUD&5554|
00000b70  35 31 35 30 0d 03 e8 08  20 5d 3a ed 0d 03 f2 17  |5150.... ]:.....|
00000b80  20 eb 32 3a ef 20 32 33  2c 31 2c 30 3b 30 3b 30  | .2:. 23,1,0;0;0|
00000b90  3b 30 3b 0d 03 fc 18 20  ff 22 4c 4f 41 44 20 22  |;0;.... ."LOAD "|
00000ba0  2b 53 24 2b 22 20 33 30  30 30 22 0d 04 06 0a 20  |+S$+" 3000".... |
00000bb0  d6 63 6f 64 65 0d 04 10  1d 20 ff 22 53 41 56 45  |.code.... ."SAVE|
00000bc0  20 22 2b 44 24 2b 22 20  33 30 30 30 20 38 30 30  | "+D$+" 3000 800|
00000bd0  30 22 0d ff                                       |0"..|
00000bd4