%*|"���9��������������������������
&*|"�����C�O�L�O�U�R�_�P�R�I�N�T���
%*|"���9��������������������������
(&*|"�����(C) M.GOLDFINCH 1987   ���
2&*|"�����Telesoftware v.2.8     ���
<&*|"�����EPSON FX80 /COMPATIBLES���
F&*|"�����Part 1 assembles code  ���
P&*|"�����for printing & screen  ���
Z&*|"�����control�in Mode 1/2/4/5���
d%*|"�`````````````````````````````
n��A("FX4"):�:�;" ";�:�
x3�7:�23,0,10,79;0;0;0;:�O%40:�C:�G:�D:�E:�I:�F:�
�5�-1,&900,0,&900,1,&900,245,&E00,253,&E00,888,&900
�$��A($O%)X%=O%:Y%=O%�256:�&FFF7:�
�!��B(W%):�=0:���>W%*100��-97:�
�y��D:�23,-1,&AAFE;&AAD6;&AAD6;&FE;:�A("FX212,152"):�A("FX213,230"):�A("FX214,3"):�A("FX229,1"):�A("FX4,2"):D%=0:M%=1:�
�*��E:A%=&EA:X%=0:Y%=&FF:�&FFF4�&FF00�H
�NI%=�-256:��tB@:��C%,B%:�C%=I%�C%=888:Y%=0:A%=0:F%=�&FFDA�&FF:�F%<3 B%=&E00
��
����G:�23,0,2,52;0;0;0;:A$="COLOUR,PRINT":B$=�34,"`"):C$=�34,"p"):�L%=&7C01�&7FFD�8:!L%=&24779A90+�(7):L%?4=&3F:�:�H%=2�3:�4,H%)"��";A$�22,H%)A$:�:�10,12)"�by  Mike Goldfinch�":�2,17)"�6";B$;"i"�2,18)"�5�"�37,18)"�j"�2,19)"�e";C$;":"
�;�28,5,18,36,18,7,12:�"����Initialising:�please wait";:�
�?��F:�B(2):�:�I%<2�"�BBC B";��I%=245�"�COMPACT";��"�MASTER";
�8E%=&1100:S%=B%+255:�"�mc &";~B%;"�data &";~E%;:�B(5)
�(�:�"�Loading Colour2.";:�"Colour2":�
�4��H:�7,12:�"������Turn of�TUBE�& rerun����";:�:�

@��C:�=&1900��7:�0,12)"�����PAGE not =�&1900�� Reloading."

�=&1900:�"Colour1":�

���I:O=&73:P=&74:F=&80:Q=&81:C=&82:G=&83:R=&84:S=&85:K=&86:T=&87:`=&88:�L=0�2�2:P%=B%:[OPTL:JSRa:JSRU:JSRb:JSRD:.I JSRc:.V JSRd:LDAR:CMPO:BEQH:CMP`:CLC:BNEe:SEC:.e RORT:JSRW:DECK:LDAK:BNEV:JSRp:JSRp:JSRE:JSRX:JMPI:.p LDAT:JSRA:RTS

"�.c LDA#8:STAK:RTS:.d LDA#9:LDX#F:LDY#0:JSR&FFF1:RTS:.X CLC:LDAF:ADC#4:STAF:BCSM:RTS:.M INCQ:RTS:.E SEC:LDAC:SBC#16:STAC:BCCZ:RTS:.Z DECG:RTS:.W CLC:LDAC:ADC#2:STAC:BCSN:RTS:.N INCG:RTS:.H JSRD:JSRB:JSRE:LDAG:CMP&73:BNEI:JMP_:RTS

,�.B LDA#0:STAF:STAQ:RTS:.U LDA#27:JSRA:LDA#51:JSRA:LDA#24:JSRA:RTS:.a:LDA#2:JSR&FFEE:LDA#27:JSRA:LDA#64:JSRA:RTS:.b JSRB:LDA#&F0:STAC:LDA#3:STAG:RTS:.A STAS:LDA#1:JSR&FFEE:LDAS:JSR&FFEE:RTS:.D LDA#&A:JSRA:LDA#27:JSRA

6�LDA#42:JSRA:LDA#4:JSRA:LDA#128:JSRA:LDA#2:JSRA:RTS:._ LDA#&F:LDX#0:JSR&FFF4:LDY#&C:.f LDA#&A:JSRA:DEY:CPY#2:BCSf:LDA#3:JSR&FFEE:RTS:LDXP:LDY#0:STY&75:STY&77:.J LDA(&75),Y:STA(&77),Y:INY:BNEJ:INC&76:INC&78:DEX:BNEJ:RTS:]�:�
�

00000000  0d 00 0a 25 2a 7c 22 9e  9a 94 39 97 92 93 92 91  |...%*|"...9.....|
00000010  96 97 92 94 96 92 91 96  97 94 93 96 94 91 97 96  |................|
00000020  95 93 96 94 92 0d 00 14  26 2a 7c 22 84 9d 81 9d  |........&*|"....|
00000030  82 43 83 4f 84 4c 86 4f  85 55 87 52 82 5f 86 50  |.C.O.L.O.U.R._.P|
00000040  82 52 84 49 85 4e 83 54  84 9d 9c 0d 00 1e 25 2a  |.R.I.N.T......%*|
00000050  7c 22 9e 9a 94 39 93 92  91 96 97 92 91 94 95 97  ||"...9..........|
00000060  93 96 94 96 92 97 94 95  97 94 93 95 91 97 96 96  |................|
00000070  0d 00 28 26 2a 7c 22 84  9d 85 9d 83 28 43 29 20  |..(&*|".....(C) |
00000080  4d 2e 47 4f 4c 44 46 49  4e 43 48 20 31 39 38 37  |M.GOLDFINCH 1987|
00000090  20 20 20 84 9d 9c 0d 00  32 26 2a 7c 22 84 9d 85  |   .....2&*|"...|
000000a0  9d 83 54 65 6c 65 73 6f  66 74 77 61 72 65 20 76  |..Telesoftware v|
000000b0  2e 32 2e 38 20 20 20 20  20 84 9d 9c 0d 00 3c 26  |.2.8     .....<&|
000000c0  2a 7c 22 84 9d 82 9d 81  45 50 53 4f 4e 20 46 58  |*|".....EPSON FX|
000000d0  38 30 20 2f 43 4f 4d 50  41 54 49 42 4c 45 53 84  |80 /COMPATIBLES.|
000000e0  9d 9c 0d 00 46 26 2a 7c  22 84 9d 87 9d 84 50 61  |....F&*|".....Pa|
000000f0  72 74 20 31 20 61 73 73  65 6d 62 6c 65 73 20 63  |rt 1 assembles c|
00000100  6f 64 65 20 20 84 9d 9c  0d 00 50 26 2a 7c 22 84  |ode  .....P&*|".|
00000110  9d 87 9d 84 66 6f 72 20  70 72 69 6e 74 69 6e 67  |....for printing|
00000120  20 26 20 73 63 72 65 65  6e 20 20 84 9d 9c 0d 00  | & screen  .....|
00000130  5a 26 2a 7c 22 84 9d 87  9d 84 63 6f 6e 74 72 6f  |Z&*|".....contro|
00000140  6c 85 69 6e 20 4d 6f 64  65 20 31 2f 32 2f 34 2f  |l.in Mode 1/2/4/|
00000150  35 84 9d 9c 0d 00 64 25  2a 7c 22 94 60 60 60 60  |5.....d%*|".````|
00000160  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |````````````````|
00000170  60 60 60 60 60 60 60 60  60 0d 00 6e 1c ee 85 f2  |`````````..n....|
00000180  41 28 22 46 58 34 22 29  3a f6 3a f1 9e 3b 22 20  |A("FX4"):.:..;" |
00000190  22 3b 9f 3a e0 0d 00 78  33 eb 37 3a ef 32 33 2c  |";.:...x3.7:.23,|
000001a0  30 2c 31 30 2c 37 39 3b  30 3b 30 3b 30 3b 3a de  |0,10,79;0;0;0;:.|
000001b0  4f 25 34 30 3a f2 43 3a  f2 47 3a f2 44 3a f2 45  |O%40:.C:.G:.D:.E|
000001c0  3a f2 49 3a f2 46 3a e0  0d 00 82 35 dc 2d 31 2c  |:.I:.F:....5.-1,|
000001d0  26 39 30 30 2c 30 2c 26  39 30 30 2c 31 2c 26 39  |&900,0,&900,1,&9|
000001e0  30 30 2c 32 34 35 2c 26  45 30 30 2c 32 35 33 2c  |00,245,&E00,253,|
000001f0  26 45 30 30 2c 38 38 38  2c 26 39 30 30 0d 00 8c  |&E00,888,&900...|
00000200  24 dd f2 41 28 24 4f 25  29 58 25 3d 4f 25 3a 59  |$..A($O%)X%=O%:Y|
00000210  25 3d 4f 25 81 32 35 36  3a d6 26 46 46 46 37 3a  |%=O%.256:.&FFF7:|
00000220  e1 0d 00 96 21 dd f2 42  28 57 25 29 3a d1 3d 30  |....!..B(W%):.=0|
00000230  3a f5 fd 91 3e 57 25 2a  31 30 30 84 a6 2d 39 37  |:...>W%*100..-97|
00000240  3a e1 0d 00 a0 79 dd f2  44 3a ef 32 33 2c 2d 31  |:....y..D:.23,-1|
00000250  2c 26 41 41 46 45 3b 26  41 41 44 36 3b 26 41 41  |,&AAFE;&AAD6;&AA|
00000260  44 36 3b 26 46 45 3b 3a  f2 41 28 22 46 58 32 31  |D6;&FE;:.A("FX21|
00000270  32 2c 31 35 32 22 29 3a  f2 41 28 22 46 58 32 31  |2,152"):.A("FX21|
00000280  33 2c 32 33 30 22 29 3a  f2 41 28 22 46 58 32 31  |3,230"):.A("FX21|
00000290  34 2c 33 22 29 3a f2 41  28 22 46 58 32 32 39 2c  |4,3"):.A("FX229,|
000002a0  31 22 29 3a f2 41 28 22  46 58 34 2c 32 22 29 3a  |1"):.A("FX4,2"):|
000002b0  44 25 3d 30 3a 4d 25 3d  31 3a e1 0d 00 aa 2a dd  |D%=0:M%=1:....*.|
000002c0  f2 45 3a 41 25 3d 26 45  41 3a 58 25 3d 30 3a 59  |.E:A%=&EA:X%=0:Y|
000002d0  25 3d 26 46 46 3a e7 ba  26 46 46 46 34 80 26 46  |%=&FF:..&FFF4.&F|
000002e0  46 30 30 f2 48 0d 00 b4  4e 49 25 3d a6 2d 32 35  |F00.H...NI%=.-25|
000002f0  36 3a f7 8d 74 42 40 3a  f5 f3 43 25 2c 42 25 3a  |6:..tB@:..C%,B%:|
00000300  fd 43 25 3d 49 25 84 43  25 3d 38 38 38 3a 59 25  |.C%=I%.C%=888:Y%|
00000310  3d 30 3a 41 25 3d 30 3a  46 25 3d ba 26 46 46 44  |=0:A%=0:F%=.&FFD|
00000320  41 80 26 46 46 3a e7 46  25 3c 33 20 42 25 3d 26  |A.&FF:.F%<3 B%=&|
00000330  45 30 30 0d 00 be 05 e1  0d 00 c8 ee dd f2 47 3a  |E00...........G:|
00000340  ef 32 33 2c 30 2c 32 2c  35 32 3b 30 3b 30 3b 30  |.23,0,2,52;0;0;0|
00000350  3b 3a 41 24 3d 22 43 4f  4c 4f 55 52 2c 50 52 49  |;:A$="COLOUR,PRI|
00000360  4e 54 22 3a 42 24 3d c4  33 34 2c 22 60 22 29 3a  |NT":B$=.34,"`"):|
00000370  43 24 3d c4 33 34 2c 22  70 22 29 3a e3 4c 25 3d  |C$=.34,"p"):.L%=|
00000380  26 37 43 30 31 b8 26 37  46 46 44 88 38 3a 21 4c  |&7C01.&7FFD.8:!L|
00000390  25 3d 26 32 34 37 37 39  41 39 30 2b b3 28 37 29  |%=&24779A90+.(7)|
000003a0  3a 4c 25 3f 34 3d 26 33  46 3a ed 3a e3 48 25 3d  |:L%?4=&3F:.:.H%=|
000003b0  32 b8 33 3a f1 8a 34 2c  48 25 29 22 8d 9a 22 3b  |2.3:..4,H%)"..";|
000003c0  41 24 8a 32 32 2c 48 25  29 41 24 3a ed 3a f1 8a  |A$.22,H%)A$:.:..|
000003d0  31 30 2c 31 32 29 22 83  62 79 20 20 4d 69 6b 65  |10,12)".by  Mike|
000003e0  20 47 6f 6c 64 66 69 6e  63 68 94 22 3a f1 8a 32  | Goldfinch.":..2|
000003f0  2c 31 37 29 22 94 36 22  3b 42 24 3b 22 69 22 8a  |,17)".6";B$;"i".|
00000400  32 2c 31 38 29 22 94 35  86 22 8a 33 37 2c 31 38  |2,18)".5.".37,18|
00000410  29 22 94 6a 22 8a 32 2c  31 39 29 22 94 65 22 3b  |)".j".2,19)".e";|
00000420  43 24 3b 22 3a 22 0d 00  d2 3b ef 32 38 2c 35 2c  |C$;":"...;.28,5,|
00000430  31 38 2c 33 36 2c 31 38  2c 37 2c 31 32 3a f1 22  |18,36,18,7,12:."|
00000440  88 ff 89 83 49 6e 69 74  69 61 6c 69 73 69 6e 67  |....Initialising|
00000450  3a 82 70 6c 65 61 73 65  20 77 61 69 74 22 3b 3a  |:.please wait";:|
00000460  e1 0d 00 dc 3f dd f2 46  3a f2 42 28 32 29 3a db  |....?..F:.B(2):.|
00000470  3a e7 49 25 3c 32 f1 22  82 42 42 43 20 42 22 3b  |:.I%<2.".BBC B";|
00000480  8b e7 49 25 3d 32 34 35  f1 22 86 43 4f 4d 50 41  |..I%=245.".COMPA|
00000490  43 54 22 3b 8b f1 22 81  4d 41 53 54 45 52 22 3b  |CT";..".MASTER";|
000004a0  0d 00 e6 38 45 25 3d 26  31 31 30 30 3a 53 25 3d  |...8E%=&1100:S%=|
000004b0  42 25 2b 32 35 35 3a f1  22 83 6d 63 20 26 22 3b  |B%+255:.".mc &";|
000004c0  7e 42 25 3b 22 85 64 61  74 61 20 26 22 3b 7e 45  |~B%;".data &";~E|
000004d0  25 3b 3a f2 42 28 35 29  0d 00 f0 28 db 3a f1 22  |%;:.B(5)...(.:."|
000004e0  83 4c 6f 61 64 69 6e 67  20 43 6f 6c 6f 75 72 32  |.Loading Colour2|
000004f0  2e 22 3b 3a d7 22 43 6f  6c 6f 75 72 32 22 3a e1  |.";:."Colour2":.|
00000500  0d 00 fa 34 dd f2 48 3a  ef 37 2c 31 32 3a f1 22  |...4..H:.7,12:."|
00000510  88 81 9d 86 ff 89 54 75  72 6e 20 6f 66 83 54 55  |......Turn of.TU|
00000520  42 45 86 26 20 72 65 72  75 6e 88 ff 89 9c 22 3b  |BE.& rerun....";|
00000530  3a e0 3a e1 0d 01 04 40  dd f2 43 3a e7 90 3d 26  |:.:....@..C:..=&|
00000540  31 39 30 30 e1 8b ef 37  3a f1 8a 30 2c 31 32 29  |1900...7:..0,12)|
00000550  22 84 9d 83 ff 82 50 41  47 45 20 6e 6f 74 20 3d  |".....PAGE not =|
00000560  86 26 31 39 30 30 87 ff  20 52 65 6c 6f 61 64 69  |.&1900.. Reloadi|
00000570  6e 67 2e 22 0d 01 0e 18  d0 3d 26 31 39 30 30 3a  |ng.".....=&1900:|
00000580  d7 22 43 6f 6c 6f 75 72  31 22 3a e1 0d 01 18 e9  |."Colour1":.....|
00000590  dd f2 49 3a 4f 3d 26 37  33 3a 50 3d 26 37 34 3a  |..I:O=&73:P=&74:|
000005a0  46 3d 26 38 30 3a 51 3d  26 38 31 3a 43 3d 26 38  |F=&80:Q=&81:C=&8|
000005b0  32 3a 47 3d 26 38 33 3a  52 3d 26 38 34 3a 53 3d  |2:G=&83:R=&84:S=|
000005c0  26 38 35 3a 4b 3d 26 38  36 3a 54 3d 26 38 37 3a  |&85:K=&86:T=&87:|
000005d0  60 3d 26 38 38 3a e3 4c  3d 30 b8 32 88 32 3a 50  |`=&88:.L=0.2.2:P|
000005e0  25 3d 42 25 3a 5b 4f 50  54 4c 3a 4a 53 52 61 3a  |%=B%:[OPTL:JSRa:|
000005f0  4a 53 52 55 3a 4a 53 52  62 3a 4a 53 52 44 3a 2e  |JSRU:JSRb:JSRD:.|
00000600  49 20 4a 53 52 63 3a 2e  56 20 4a 53 52 64 3a 4c  |I JSRc:.V JSRd:L|
00000610  44 41 52 3a 43 4d 50 4f  3a 42 45 51 48 3a 43 4d  |DAR:CMPO:BEQH:CM|
00000620  50 60 3a 43 4c 43 3a 42  4e 45 65 3a 53 45 43 3a  |P`:CLC:BNEe:SEC:|
00000630  2e 65 20 52 4f 52 54 3a  4a 53 52 57 3a 44 45 43  |.e RORT:JSRW:DEC|
00000640  4b 3a 4c 44 41 4b 3a 42  4e 45 56 3a 4a 53 52 70  |K:LDAK:BNEV:JSRp|
00000650  3a 4a 53 52 70 3a 4a 53  52 45 3a 4a 53 52 58 3a  |:JSRp:JSRE:JSRX:|
00000660  4a 4d 50 49 3a 2e 70 20  4c 44 41 54 3a 4a 53 52  |JMPI:.p LDAT:JSR|
00000670  41 3a 52 54 53 0d 01 22  e8 2e 63 20 4c 44 41 23  |A:RTS.."..c LDA#|
00000680  38 3a 53 54 41 4b 3a 52  54 53 3a 2e 64 20 4c 44  |8:STAK:RTS:.d LD|
00000690  41 23 39 3a 4c 44 58 23  46 3a 4c 44 59 23 30 3a  |A#9:LDX#F:LDY#0:|
000006a0  4a 53 52 26 46 46 46 31  3a 52 54 53 3a 2e 58 20  |JSR&FFF1:RTS:.X |
000006b0  43 4c 43 3a 4c 44 41 46  3a 41 44 43 23 34 3a 53  |CLC:LDAF:ADC#4:S|
000006c0  54 41 46 3a 42 43 53 4d  3a 52 54 53 3a 2e 4d 20  |TAF:BCSM:RTS:.M |
000006d0  49 4e 43 51 3a 52 54 53  3a 2e 45 20 53 45 43 3a  |INCQ:RTS:.E SEC:|
000006e0  4c 44 41 43 3a 53 42 43  23 31 36 3a 53 54 41 43  |LDAC:SBC#16:STAC|
000006f0  3a 42 43 43 5a 3a 52 54  53 3a 2e 5a 20 44 45 43  |:BCCZ:RTS:.Z DEC|
00000700  47 3a 52 54 53 3a 2e 57  20 43 4c 43 3a 4c 44 41  |G:RTS:.W CLC:LDA|
00000710  43 3a 41 44 43 23 32 3a  53 54 41 43 3a 42 43 53  |C:ADC#2:STAC:BCS|
00000720  4e 3a 52 54 53 3a 2e 4e  20 49 4e 43 47 3a 52 54  |N:RTS:.N INCG:RT|
00000730  53 3a 2e 48 20 4a 53 52  44 3a 4a 53 52 42 3a 4a  |S:.H JSRD:JSRB:J|
00000740  53 52 45 3a 4c 44 41 47  3a 43 4d 50 26 37 33 3a  |SRE:LDAG:CMP&73:|
00000750  42 4e 45 49 3a 4a 4d 50  5f 3a 52 54 53 0d 01 2c  |BNEI:JMP_:RTS..,|
00000760  db 2e 42 20 4c 44 41 23  30 3a 53 54 41 46 3a 53  |..B LDA#0:STAF:S|
00000770  54 41 51 3a 52 54 53 3a  2e 55 20 4c 44 41 23 32  |TAQ:RTS:.U LDA#2|
00000780  37 3a 4a 53 52 41 3a 4c  44 41 23 35 31 3a 4a 53  |7:JSRA:LDA#51:JS|
00000790  52 41 3a 4c 44 41 23 32  34 3a 4a 53 52 41 3a 52  |RA:LDA#24:JSRA:R|
000007a0  54 53 3a 2e 61 3a 4c 44  41 23 32 3a 4a 53 52 26  |TS:.a:LDA#2:JSR&|
000007b0  46 46 45 45 3a 4c 44 41  23 32 37 3a 4a 53 52 41  |FFEE:LDA#27:JSRA|
000007c0  3a 4c 44 41 23 36 34 3a  4a 53 52 41 3a 52 54 53  |:LDA#64:JSRA:RTS|
000007d0  3a 2e 62 20 4a 53 52 42  3a 4c 44 41 23 26 46 30  |:.b JSRB:LDA#&F0|
000007e0  3a 53 54 41 43 3a 4c 44  41 23 33 3a 53 54 41 47  |:STAC:LDA#3:STAG|
000007f0  3a 52 54 53 3a 2e 41 20  53 54 41 53 3a 4c 44 41  |:RTS:.A STAS:LDA|
00000800  23 31 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 53  |#1:JSR&FFEE:LDAS|
00000810  3a 4a 53 52 26 46 46 45  45 3a 52 54 53 3a 2e 44  |:JSR&FFEE:RTS:.D|
00000820  20 4c 44 41 23 26 41 3a  4a 53 52 41 3a 4c 44 41  | LDA#&A:JSRA:LDA|
00000830  23 32 37 3a 4a 53 52 41  0d 01 36 e2 4c 44 41 23  |#27:JSRA..6.LDA#|
00000840  34 32 3a 4a 53 52 41 3a  4c 44 41 23 34 3a 4a 53  |42:JSRA:LDA#4:JS|
00000850  52 41 3a 4c 44 41 23 31  32 38 3a 4a 53 52 41 3a  |RA:LDA#128:JSRA:|
00000860  4c 44 41 23 32 3a 4a 53  52 41 3a 52 54 53 3a 2e  |LDA#2:JSRA:RTS:.|
00000870  5f 20 4c 44 41 23 26 46  3a 4c 44 58 23 30 3a 4a  |_ LDA#&F:LDX#0:J|
00000880  53 52 26 46 46 46 34 3a  4c 44 59 23 26 43 3a 2e  |SR&FFF4:LDY#&C:.|
00000890  66 20 4c 44 41 23 26 41  3a 4a 53 52 41 3a 44 45  |f LDA#&A:JSRA:DE|
000008a0  59 3a 43 50 59 23 32 3a  42 43 53 66 3a 4c 44 41  |Y:CPY#2:BCSf:LDA|
000008b0  23 33 3a 4a 53 52 26 46  46 45 45 3a 52 54 53 3a  |#3:JSR&FFEE:RTS:|
000008c0  4c 44 58 50 3a 4c 44 59  23 30 3a 53 54 59 26 37  |LDXP:LDY#0:STY&7|
000008d0  35 3a 53 54 59 26 37 37  3a 2e 4a 20 4c 44 41 28  |5:STY&77:.J LDA(|
000008e0  26 37 35 29 2c 59 3a 53  54 41 28 26 37 37 29 2c  |&75),Y:STA(&77),|
000008f0  59 3a 49 4e 59 3a 42 4e  45 4a 3a 49 4e 43 26 37  |Y:INY:BNEJ:INC&7|
00000900  36 3a 49 4e 43 26 37 38  3a 44 45 58 3a 42 4e 45  |6:INC&78:DEX:BNE|
00000910  4a 3a 52 54 53 3a 5d ed  3a e1 0d ff              |J:RTS:].:...|
0000091c