Home » CEEFAX disks » telesoftware12.adl » 20-01-89/Colour2

20-01-89/Colour2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware12.adl
Filename: 20-01-89/Colour2
Read OK:
File size: 1415 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10REM"�Colour2�(c)M.Goldfinch'89�v88A
   20ONERRORREPORT:END
   30DIMO%40:PROCA:REPEATMODE7:VDU&17;&3402;0;0;0;&117;0;0;0;0;:PROCF:PROCG:PROCR:PROCB:MODEM%:VDU&117;0;0;0;0;:PROCN:PROCC:PROCK:PROCO:UNTIL0:END
   40DEFPROCE($O%)X%=O%:Y%=O%DIV256:CALL&FFF7:ENDPROC
   50DEFPROCT(T%)VDU7:TIME=0:REPEATUNTILTIME>T%*100:ENDPROC
   60DEFPROCGREPEATPRINTTAB(4,4)E$:IFINKEY-114PROCPELSEIFINKEY-33PROCD
   70UNTILINKEY-115:ENDPROC
   80DEFPROCF PRINT"��"'"����Colourprint���������������� menu��� ����Colourprint���������������� menu��� ���"STRING$(35,"p")"  ����";E$"��"'"���"STRING$(35,"�")"  �����Screen Mode    ���Drive No.     ��"'"��"'"�����mode 1 ��      ���drive 0 ��"'"��  �mode 2 ��"SPC8"�drive 1 ��"
   90PRINT"��  �mode 4 ��"SPC8"�drive 2 ��"'"��  �mode 5 ��"SPC8"�drive 3 ��"'"�"STRING$(39,",")"���7"STRING$(34,"`")"k ���5� �Information"SPC19"�j ����"SPC33"�j ���5�Colourprint�produces multicolour�j ���5�screen dumps on�FX-80�and later �j"
  100PRINT"���5�Epson�/ compatible printers,  � �j ���5�using the wide range�of�colour ��j ���5�ribbons now�available."SPC10"�j ���5"SPC34"j ����"STRING$(34,"�")"� ��"'"���(C) M.Goldfinch 1989�Telesoft�v8.8A";:ENDPROC
  110DEFPROCDPROCE("FX219,92"):VDU7:A%=0:PRINTTAB(4,4)"�<TAB> select�Mode�+ <RETURN>   ";:M%=8:REPEATPRINTTAB(2,M%-1)"� "TAB(2,M%)"��":IFM%=8PRINTTAB(2,11)"� "
  120REPEATA$=GET$:A%=INSTR("1245\"+CHR$13,A$):UNTILA%>0:IFA%=5M%=M%+1:IFM%>11M%=8
  130UNTILA%=6:VDU7:M%=M%-7:IFM%>2M%=M%+1
  140PRINTTAB(18,4)"Drive�+ <RETURN>";:A%=0:D%=8:REPEATPRINTTAB(20,D%-1)"� "TAB(20,D%)"��":IFD%=8PRINTTAB(20,11)"� "
  150REPEATA$=GET$:A%=INSTR("0123\"+CHR$13,A$):UNTILA%>0:IFA%=5 D%=D%+1:IFD%>11 D%=8
  160UNTILA%=6:VDU7:D%=D%-8:PROCE("DR."+STR$D%):ENDPROC
  170DEFPROCPPRINTTAB(4,4)"����<SHIFT>�scrolls information ":VDU28,4,21,36,16,12:PRINT" �After�Mode�&�drive�selection a �screen is�*loaded.� The colours �can be altered to optimise the  �subsequent choice of ribbon"'"�colours.":PROCL
  180PRINT"�Keys�<0..7>�cycle logical colour�<F> =�flashing colours�<0>=8 etc�<Q>�cancels <F> while�<@>�resets�all flashing colours."'"�<D>�=default palette."'"�<C>�continues..�";:PROCL
  190PRINT"��The�dump routine�cycles through�the logical colours, reverse"'"�feeding the paper�and�prompting �for�a�different�colour�ribbon"'"�after�each�single�colour�screen �has�been�printed.�";:PROCL
  200PRINT"��Before printing each logical"'"�colour, key�<F>�will highlight"'"�this region on the screen."'"�<S>�resets the screen and should�be used before printing.";:PROCL
  210PRINT"� <f5>�allows any logical colour �to be skipped.�After reverse_"'"�feeding the�cursor keys�advance/�reverse the paper (1/216 steps).�Only�worn�printers need this"'"�facility!.�";:PROCL
  220PRINT" �After printing all the logical �colours, any colour can be"'"�reprinted.�The�machine code�and �reverse�paper�feed�routines suit�Epson�FX80�and compatibles.�";:VDU26:ENDPROC
  230DEFPROCA E$="�f0 set Mode�f1 info�f2 continue":F$="�f3 catalogue�f4 *LOAD screen   ":ENDPROC
  240DEFPROCLPROCT(1):PRINTTAB(22,5)"����>>����";:REPEATUNTILINKEY-1:VDU12:ENDPROC
  250DEFPROCRVDU7:REPEATPRINTTAB(4,4)F$:IFINKEY-116PROCH
  260UNTILINKEY-21:ENDPROC
  270DEFPROCHVDU7:PRINTTAB(4,4)"����<SHIFT>�scrolls catalogue":VDU28,0,23,39,13,12:VDU14:PROCE("."):PRINTTAB(22,9)"��<SPACE>  �":REPEATUNTILINKEY-99:VDU15,12,26:ENDPROC
  280DEFPROCBVDU7,28,0,23,39,13,12:D$=STRING$(9,"_"):C$="":PRINT''"�������Enter file name�";D$:VDU31,23,2,23,1,1;0;0;0;23,0,10,79;0;0;0;:PROCM:ENDPROC
  290DEFPROCN:LL%=&FFFF3000:IFM%>3 LL%=&FFFF5800
  300IFL%LL%=V%
  310PROCE("L."+C$+" "+STR$~LL%):ENDPROC
  320DEFPROCC W%=19:IFM%=1ORM%=4 W%=39
  330?&74=&8:IFM%<4 !&75=&11003500:VDU28,0,4,W%,2ELSE!&75=&11005B00:VDU28,0,7,W%,3
  340IFL%OSCLI"S.Tscr"+" "+STR$~V%+"+"+STR$2000:ENDPROC
  350CALLS%:ENDPROC
  360DEFPROCI ?&74=&8:IFM%<4!&75=&35001100ELSE!&75=&5B001100
  370IFL%OSCLI"L.Tscr"+" "+STR$~V%:ENDPROC
  380CALLS%:ENDPROC
  390DEFPROCKCLS:G%=4:IFM%=2G%=8ELSEIFM%=4G%=2
  400IFM%=4PRINT"� Optimise choice of ribbons"'"� <0-7> cycle colours"'"� <F> flashing � <Q> normal colours"'"� <@> reset flashing colours"'"� <D> normal palette � [C] continue";:ELSEIFM%=2PRINT"�<0-7> colours � <F>/<Q> flash� <@>reset�<D>efault �<C>ont.";
  410IFM%=1PRINT"� <0-7> cycle colours � <F>/<Q> toggle  flashing colours � <@> reset flashing   � <D> default palette � <C> continue";:ELSEIFM%=5PRINT"�<0-7> cycle colours� <F>/<Q> flashing  colours � <@> reset flashing � <D>efault� <C> continue";
  420U%=0:R%=0:F%=0:REPEATE%=TRUE:H%=GET-48:IFH%<0ORH%>G%-1VDU7:E%=0
  430IFH%=16PROCSELSEIFH%=22U%=8ELSEIFH%=33U%=0ELSEIFH%=19 E%=0:F%=TRUEELSEIFH%=20VDU20:E%=0
  440IFE%VDU19,H%,R%;0;
  450R%=R%+1:IFR%>7+U%R%=0
  460UNTILF%:ENDPROC
  470DEFPROCSFORZ%=G%TO2*G%-1:VDU19,Z%,Z%-G%;0;:NEXT:VDU7:ENDPROC
  480DEFPROCMPROCE("FX21"):REPEATD$=GET$:IFASCD$=&7FANDLENC$>0 C$=LEFT$(C$,LENC$-1):PRINTD$;ELSEIFASCD$>31ANDASCD$<127:IFLENC$<9 C$=C$+D$:PRINTD$;ELSEVDU7
  490UNTILINKEY-74ANDC$<>""ANDVALLEFT$(D$,0)<>13:ENDPROC
  500DEFPROCO:C%=0:J%=0:REPEATI%=0:CLS:VDU7
  510IFM%=5PRINT"Colour ";C%;"�key <F>/<S>to locate�Insert newribbon+<RET.> or key<f5> to skip colour";:ELSEIFM%=1PRINT"� Print colour #";C%;" � Locate with <F>flash/<S> steady � Insert ribbon & key <RET.>to print � To skip colour #";C%;" key <f5>";
  520IFM%=4PRINT"� Print (logical) colour #";C%'"� Locate with <F> flash <S> steady"'"� Insert ribbon & key <RET.> to print"'"� To skip colour #";C%;" key <f5>";:ELSEIFM%=2PRINT"�Col.#";C%;" �<F>/<S>showcol. � <f5>skip col.� ribbon +<RETURN>";
  530Q%=&36F:P%=Q%?C%:IFL%P%=C%
  540REPEATIFINKEY-68VDU19,C%,9;0;ELSEIFINKEY-82VDU19,C%,P%;0;ELSEIFINKEY-117CLS:PRINT"�Skipping colour ";C%:I%=TRUE:PROCT(2)
  550UNTILINKEY-74ORI%:VDU7:IFI%THEN570ELSEIFC%>0ANDJ%PROCJ
  560CLS:PROCI:J%=TRUE:?&73=255:?&88=C%:CALLB%
  570C%=C%+1:UNTILC%=G%:VV%=0:REPEATCLS:PRINT"� Repeat any colour Y/N":A=GET:IFINKEY-69PROCU ELSEIFINKEY-86VV%=TRUE
  580UNTILVV%:ENDPROC
  590DEFPROCUREPEATCLS:VDU7:INPUT"� Colour number:"B$:UNTILLENB$>0ANDVALB$>-1ANDVALB$<16:PROCJ:CLS:PROCI:?&73=255:?&88=VALB$:CALLB%:ENDPROC
  600DEFPROCJ CLS:VDU7,3:PRINT"�Key <R> to reverse feed for next color";:REPEATUNTILINKEY-52:VDU2:K%=0:REPEATVDU1,7,1,27,1,106,1,255:K%=K%+1:UNTILK%=7:VDU1,7,1,27,1,106,1,15:PROCT(8):VDU3,12:PRINT"� Cursor keys: fine adjust paper"'"� <RETURN> to print";:VDU2:PROCE("FX4,1"):REPEAT
  610N%=GET:IFN%=&8BVDU1,7,1,27,1,74,1,1ELSEIFN%=&8AVDU1,7,1,27,1,106,1,1
  620UNTILINKEY-74:PROCE("FX4,2"):VDU3:ENDPROC

%�"�Colour2�(c)M.Goldfinch'89�v88A
	�:�
_�O%40:�A:��7:�&17;&3402;0;0;0;&117;0;0;0;0;:�F:�G:�R:�B:�M%:�&117;0;0;0;0;:�N:�C:�K:�O:�0:�
($��E($O%)X%=O%:Y%=O%�256:�&FFF7:�
2��T(T%)�7:�=0:���>T%*100:�
<!��G��4,4)E$:�-114�P��-33�D
F��-115:�
P���F �"��"'"����Colourprint���������������� menu��� ����Colourprint���������������� menu��� ���"�35,"p")"  ����";E$"��"'"���"�35,"�")"  �����Screen Mode    ���Drive No.     ��"'"��"'"�����mode 1 ��      ���drive 0 ��"'"��  �mode 2 ��"�8"�drive 1 ��"
Z��"��  �mode 4 ��"�8"�drive 2 ��"'"��  �mode 5 ��"�8"�drive 3 ��"'"�"�39,",")"���7"�34,"`")"k ���5� �Information"�19"�j ����"�33"�j ���5�Colourprint�produces multicolour�j ���5�screen dumps on�FX-80�and later �j"
d��"���5�Epson�/ compatible printers,  � �j ���5�using the wide range�of�colour ��j ���5�ribbons now�available."�10"�j ���5"�34"j ����"�34,"�")"� ��"'"���(C) M.Goldfinch 1989�Telesoft�v8.8A";:�
nv��D�E("FX219,92"):�7:A%=0:�4,4)"�<TAB> select�Mode�+ <RETURN>   ";:M%=8:��2,M%-1)"� "�2,M%)"��":�M%=8�2,11)"� "
x;�A$=�:A%=�"1245\"+�13,A$):�A%>0:�A%=5M%=M%+1:�M%>11M%=8
�!�A%=6:�7:M%=M%-7:�M%>2M%=M%+1
�U�18,4)"Drive�+ <RETURN>";:A%=0:D%=8:��20,D%-1)"� "�20,D%)"��":�D%=8�20,11)"� "
�=�A$=�:A%=�"0123\"+�13,A$):�A%>0:�A%=5 D%=D%+1:�D%>11 D%=8
�$�A%=6:�7:D%=D%-8:�E("DR."+�D%):�
����P�4,4)"����<SHIFT>�scrolls information ":�28,4,21,36,16,12:�" �After�Mode�&�drive�selection a �screen is�*loaded.� The colours �can be altered to optimise the  �subsequent choice of ribbon"'"�colours.":�L
���"�Keys�<0..7>�cycle logical colour�<F> =�flashing colours�<0>=8 etc�<Q>�cancels <F> while�<@>�resets�all flashing colours."'"�<D>�=default palette."'"�<C>�continues..�";:�L
���"��The�dump routine�cycles through�the logical colours, reverse"'"�feeding the paper�and�prompting �for�a�different�colour�ribbon"'"�after�each�single�colour�screen �has�been�printed.�";:�L
Ȧ�"��Before printing each logical"'"�colour, key�<F>�will highlight"'"�this region on the screen."'"�<S>�resets the screen and should�be used before printing.";:�L
һ�"� <f5>�allows any logical colour �to be skipped.�After reverse_"'"�feeding the�cursor keys�advance/�reverse the paper (1/216 steps).�Only�worn�printers need this"'"�facility!.�";:�L
ܬ�" �After printing all the logical �colours, any colour can be"'"�reprinted.�The�machine code�and �reverse�paper�feed�routines suit�Epson�FX80�and compatibles.�";:�26:�
�U��A E$="�f0 set Mode�f1 info�f2 continue":F$="�f3 catalogue�f4 *LOAD screen   ":�
�-��L�T(1):�22,5)"����>>����";:���-1:�12:�
���R�7:��4,4)F$:�-116�H
��-21:�
v��H�7:�4,4)"����<SHIFT>�scrolls catalogue":�28,0,23,39,13,12:�14:�E("."):�22,9)"��<SPACE>  �":���-99:�15,12,26:�
x��B�7,28,0,23,39,13,12:D$=�9,"_"):C$="":�''"�������Enter file name�";D$:�31,23,2,23,1,1;0;0;0;23,0,10,79;0;0;0;:�M:�
")��N:LL%=&FFFF3000:�M%>3 LL%=&FFFF5800
,
�L%LL%=V%
6�E("L."+C$+" "+�~LL%):�
@��C W%=19:�M%=1�M%=4 W%=39
JI?&74=&8:�M%<4 !&75=&11003500:�28,0,4,W%,2�!&75=&11005B00:�28,0,7,W%,3
T%�L%�"S.Tscr"+" "+�~V%+"+"+�2000:�
^	�S%:�
h2��I ?&74=&8:�M%<4!&75=&35001100�!&75=&5B001100
r�L%�"L.Tscr"+" "+�~V%:�
|	�S%:�
�!��K�:G%=4:�M%=2G%=8��M%=4G%=2
���M%=4�"� Optimise choice of ribbons"'"� <0-7> cycle colours"'"� <F> flashing � <Q> normal colours"'"� <@> reset flashing colours"'"� <D> normal palette � [C] continue";:��M%=2�"�<0-7> colours � <F>/<Q> flash� <@>reset�<D>efault �<C>ont.";
���M%=1�"� <0-7> cycle colours � <F>/<Q> toggle  flashing colours � <@> reset flashing   � <D> default palette � <C> continue";:��M%=5�"�<0-7> cycle colours� <F>/<Q> flashing  colours � <@> reset flashing � <D>efault� <C> continue";
�5U%=0:R%=0:F%=0:�E%=�:H%=�-48:�H%<0�H%>G%-1�7:E%=0
�B�H%=16�S��H%=22U%=8��H%=33U%=0��H%=19 E%=0:F%=���H%=20�20:E%=0
��E%�19,H%,R%;0;
�R%=R%+1:�R%>7+U%R%=0
�	�F%:�
�+��S�Z%=G%�2*G%-1:�19,Z%,Z%-G%;0;:�:�7:�
�a��M�E("FX21"):�D$=�:�D$=&7F��C$>0 C$=�C$,�C$-1):�D$;��D$>31��D$<127:�C$<9 C$=C$+D$:�D$;��7
���-74�C$<>""���D$,0)<>13:�
���O:C%=0:J%=0:�I%=0:�:�7
���M%=5�"Colour ";C%;"�key <F>/<S>to locate�Insert newribbon+<RET.> or key<f5> to skip colour";:��M%=1�"� Print colour #";C%;" � Locate with <F>flash/<S> steady � Insert ribbon & key <RET.>to print � To skip colour #";C%;" key <f5>";
��M%=4�"� Print (logical) colour #";C%'"� Locate with <F> flash <S> steady"'"� Insert ribbon & key <RET.> to print"'"� To skip colour #";C%;" key <f5>";:��M%=2�"�Col.#";C%;" �<F>/<S>showcol. � <f5>skip col.� ribbon +<RETURN>";
Q%=&36F:P%=Q%?C%:�L%P%=C%
R��-68�19,C%,9;0;��-82�19,C%,P%;0;��-117�:�"�Skipping colour ";C%:I%=�:�T(2)
&#��-74�I%:�7:�I%��TzB��C%>0�J%�J
0"�:�I:J%=�:?&73=255:?&88=C%:�B%
:NC%=C%+1:�C%=G%:VV%=0:��:�"� Repeat any colour Y/N":A=�:�-69�U ��-86VV%=�
D
�VV%:�
NW��U��:�7:�"� Colour number:"B$:��B$>0��B$>-1��B$<16:�J:�:�I:?&73=255:?&88=�B$:�B%:�
X���J �:�7,3:�"�Key <R> to reverse feed for next color";:���-52:�2:K%=0:��1,7,1,27,1,106,1,255:K%=K%+1:�K%=7:�1,7,1,27,1,106,1,15:�T(8):�3,12:�"� Cursor keys: fine adjust paper"'"� <RETURN> to print";:�2:�E("FX4,1"):�
b=N%=�:�N%=&8B�1,7,1,27,1,74,1,1��N%=&8A�1,7,1,27,1,106,1,1
l��-74:�E("FX4,2"):�3:�
�
00000000  0d 00 0a 25 f4 22 83 43  6f 6c 6f 75 72 32 86 28  |...%.".Colour2.(|
00000010  63 29 4d 2e 47 6f 6c 64  66 69 6e 63 68 27 38 39  |c)M.Goldfinch'89|
00000020  85 76 38 38 41 0d 00 14  09 ee 85 f6 3a e0 0d 00  |.v88A.......:...|
00000030  1e 5f de 4f 25 34 30 3a  f2 41 3a f5 eb 37 3a ef  |._.O%40:.A:..7:.|
00000040  26 31 37 3b 26 33 34 30  32 3b 30 3b 30 3b 30 3b  |&17;&3402;0;0;0;|
00000050  26 31 31 37 3b 30 3b 30  3b 30 3b 30 3b 3a f2 46  |&117;0;0;0;0;:.F|
00000060  3a f2 47 3a f2 52 3a f2  42 3a eb 4d 25 3a ef 26  |:.G:.R:.B:.M%:.&|
00000070  31 31 37 3b 30 3b 30 3b  30 3b 30 3b 3a f2 4e 3a  |117;0;0;0;0;:.N:|
00000080  f2 43 3a f2 4b 3a f2 4f  3a fd 30 3a e0 0d 00 28  |.C:.K:.O:.0:...(|
00000090  24 dd f2 45 28 24 4f 25  29 58 25 3d 4f 25 3a 59  |$..E($O%)X%=O%:Y|
000000a0  25 3d 4f 25 81 32 35 36  3a d6 26 46 46 46 37 3a  |%=O%.256:.&FFF7:|
000000b0  e1 0d 00 32 1e dd f2 54  28 54 25 29 ef 37 3a d1  |...2...T(T%).7:.|
000000c0  3d 30 3a f5 fd 91 3e 54  25 2a 31 30 30 3a e1 0d  |=0:...>T%*100:..|
000000d0  00 3c 21 dd f2 47 f5 f1  8a 34 2c 34 29 45 24 3a  |.<!..G...4,4)E$:|
000000e0  e7 a6 2d 31 31 34 f2 50  8b e7 a6 2d 33 33 f2 44  |..-114.P...-33.D|
000000f0  0d 00 46 0c fd a6 2d 31  31 35 3a e1 0d 00 50 fc  |..F...-115:...P.|
00000100  dd f2 46 20 f1 22 84 9d  22 27 22 8d 97 af 82 43  |..F .".."'"....C|
00000110  6f 6c 6f 75 72 70 72 69  6e 74 9e 94 9a ff 92 97  |olourprint......|
00000120  95 93 97 95 96 92 91 91  9f 87 20 6d 65 6e 75 99  |.......... menu.|
00000130  97 af 20 8d 97 fc 86 43  6f 6c 6f 75 72 70 72 69  |.. ....Colourpri|
00000140  6e 74 9e 91 9a fd 97 92  93 94 92 97 96 95 94 94  |nt..............|
00000150  9f 83 20 6d 65 6e 75 99  97 fc 20 84 9d 93 22 c4  |.. menu... ...".|
00000160  33 35 2c 22 70 22 29 22  20 20 84 9d 93 b5 22 3b  |35,"p")"  ....";|
00000170  45 24 22 93 ea 22 27 22  84 9d 93 22 c4 33 35 2c  |E$".."'"...".35,|
00000180  22 a3 22 29 22 20 20 84  9d 81 9d 86 53 63 72 65  |".")"  .....Scre|
00000190  65 6e 20 4d 6f 64 65 20  20 20 20 9c 9d 81 44 72  |en Mode    ...Dr|
000001a0  69 76 65 20 4e 6f 2e 20  20 20 20 20 84 9d 22 27  |ive No.     .."'|
000001b0  22 84 9d 22 27 22 84 9d  83 9d 81 6d 6f 64 65 20  |".."'".....mode |
000001c0  31 20 84 9d 20 20 20 20  20 20 81 9d 82 64 72 69  |1 ..      ...dri|
000001d0  76 65 20 30 20 84 9d 22  27 22 84 9d 20 20 81 6d  |ve 0 .."'"..  .m|
000001e0  6f 64 65 20 32 20 84 9d  22 89 38 22 82 64 72 69  |ode 2 ..".8".dri|
000001f0  76 65 20 31 20 84 9d 22  0d 00 5a d7 f1 22 84 9d  |ve 1 .."..Z.."..|
00000200  20 20 81 6d 6f 64 65 20  34 20 84 9d 22 89 38 22  |  .mode 4 ..".8"|
00000210  82 64 72 69 76 65 20 32  20 84 9d 22 27 22 84 9d  |.drive 2 .."'"..|
00000220  20 20 81 6d 6f 64 65 20  35 20 84 9d 22 89 38 22  |  .mode 5 ..".8"|
00000230  82 64 72 69 76 65 20 33  20 84 9d 22 27 22 96 22  |.drive 3 .."'"."|
00000240  c4 33 39 2c 22 2c 22 29  22 84 9d 92 37 22 c4 33  |.39,",")"...7".3|
00000250  34 2c 22 60 22 29 22 6b  20 84 9d 92 35 81 20 83  |4,"`")"k ...5. .|
00000260  49 6e 66 6f 72 6d 61 74  69 6f 6e 22 89 31 39 22  |Information".19"|
00000270  92 6a 20 84 9d 92 b5 22  89 33 33 22 92 6a 20 84  |.j ....".33".j .|
00000280  9d 92 35 82 43 6f 6c 6f  75 72 70 72 69 6e 74 87  |..5.Colourprint.|
00000290  70 72 6f 64 75 63 65 73  20 6d 75 6c 74 69 63 6f  |produces multico|
000002a0  6c 6f 75 72 92 6a 20 84  9d 92 35 87 73 63 72 65  |lour.j ...5.scre|
000002b0  65 6e 20 64 75 6d 70 73  20 6f 6e 86 46 58 2d 38  |en dumps on.FX-8|
000002c0  30 87 61 6e 64 20 6c 61  74 65 72 20 92 6a 22 0d  |0.and later .j".|
000002d0  00 64 c3 f1 22 84 9d 92  35 86 45 70 73 6f 6e 87  |.d.."...5.Epson.|
000002e0  2f 20 63 6f 6d 70 61 74  69 62 6c 65 20 70 72 69  |/ compatible pri|
000002f0  6e 74 65 72 73 2c 20 20  92 20 92 6a 20 84 9d 92  |nters,  . .j ...|
00000300  35 87 75 73 69 6e 67 20  74 68 65 20 77 69 64 65  |5.using the wide|
00000310  20 72 61 6e 67 65 87 6f  66 82 63 6f 6c 6f 75 72  | range.of.colour|
00000320  20 87 92 6a 20 84 9d 92  35 87 72 69 62 62 6f 6e  | ..j ...5.ribbon|
00000330  73 20 6e 6f 77 87 61 76  61 69 6c 61 62 6c 65 2e  |s now.available.|
00000340  22 89 31 30 22 92 6a 20  84 9d 92 35 22 89 33 34  |".10".j ...5".34|
00000350  22 6a 20 84 9d 92 f5 22  c4 33 34 2c 22 f0 22 29  |"j ....".34,".")|
00000360  22 fa 20 84 9d 22 27 22  85 9d 83 28 43 29 20 4d  |". .."'"...(C) M|
00000370  2e 47 6f 6c 64 66 69 6e  63 68 20 31 39 38 39 86  |.Goldfinch 1989.|
00000380  54 65 6c 65 73 6f 66 74  84 76 38 2e 38 41 22 3b  |Telesoft.v8.8A";|
00000390  3a e1 0d 00 6e 76 dd f2  44 f2 45 28 22 46 58 32  |:...nv..D.E("FX2|
000003a0  31 39 2c 39 32 22 29 3a  ef 37 3a 41 25 3d 30 3a  |19,92"):.7:A%=0:|
000003b0  f1 8a 34 2c 34 29 22 87  3c 54 41 42 3e 20 73 65  |..4,4)".<TAB> se|
000003c0  6c 65 63 74 83 4d 6f 64  65 87 2b 20 3c 52 45 54  |lect.Mode.+ <RET|
000003d0  55 52 4e 3e 20 20 20 22  3b 3a 4d 25 3d 38 3a f5  |URN>   ";:M%=8:.|
000003e0  f1 8a 32 2c 4d 25 2d 31  29 22 81 20 22 8a 32 2c  |..2,M%-1)". ".2,|
000003f0  4d 25 29 22 83 9d 22 3a  e7 4d 25 3d 38 f1 8a 32  |M%)"..":.M%=8..2|
00000400  2c 31 31 29 22 81 20 22  0d 00 78 3b f5 41 24 3d  |,11)". "..x;.A$=|
00000410  be 3a 41 25 3d a7 22 31  32 34 35 5c 22 2b bd 31  |.:A%=."1245\"+.1|
00000420  33 2c 41 24 29 3a fd 41  25 3e 30 3a e7 41 25 3d  |3,A$):.A%>0:.A%=|
00000430  35 4d 25 3d 4d 25 2b 31  3a e7 4d 25 3e 31 31 4d  |5M%=M%+1:.M%>11M|
00000440  25 3d 38 0d 00 82 21 fd  41 25 3d 36 3a ef 37 3a  |%=8...!.A%=6:.7:|
00000450  4d 25 3d 4d 25 2d 37 3a  e7 4d 25 3e 32 4d 25 3d  |M%=M%-7:.M%>2M%=|
00000460  4d 25 2b 31 0d 00 8c 55  f1 8a 31 38 2c 34 29 22  |M%+1...U..18,4)"|
00000470  44 72 69 76 65 87 2b 20  3c 52 45 54 55 52 4e 3e  |Drive.+ <RETURN>|
00000480  22 3b 3a 41 25 3d 30 3a  44 25 3d 38 3a f5 f1 8a  |";:A%=0:D%=8:...|
00000490  32 30 2c 44 25 2d 31 29  22 82 20 22 8a 32 30 2c  |20,D%-1)". ".20,|
000004a0  44 25 29 22 81 9d 22 3a  e7 44 25 3d 38 f1 8a 32  |D%)"..":.D%=8..2|
000004b0  30 2c 31 31 29 22 82 20  22 0d 00 96 3d f5 41 24  |0,11)". "...=.A$|
000004c0  3d be 3a 41 25 3d a7 22  30 31 32 33 5c 22 2b bd  |=.:A%=."0123\"+.|
000004d0  31 33 2c 41 24 29 3a fd  41 25 3e 30 3a e7 41 25  |13,A$):.A%>0:.A%|
000004e0  3d 35 20 44 25 3d 44 25  2b 31 3a e7 44 25 3e 31  |=5 D%=D%+1:.D%>1|
000004f0  31 20 44 25 3d 38 0d 00  a0 24 fd 41 25 3d 36 3a  |1 D%=8...$.A%=6:|
00000500  ef 37 3a 44 25 3d 44 25  2d 38 3a f2 45 28 22 44  |.7:D%=D%-8:.E("D|
00000510  52 2e 22 2b c3 44 25 29  3a e1 0d 00 aa d3 dd f2  |R."+.D%):.......|
00000520  50 f1 8a 34 2c 34 29 22  88 ff 89 86 3c 53 48 49  |P..4,4)"....<SHI|
00000530  46 54 3e 87 73 63 72 6f  6c 6c 73 20 69 6e 66 6f  |FT>.scrolls info|
00000540  72 6d 61 74 69 6f 6e 20  22 3a ef 32 38 2c 34 2c  |rmation ":.28,4,|
00000550  32 31 2c 33 36 2c 31 36  2c 31 32 3a f1 22 20 83  |21,36,16,12:." .|
00000560  41 66 74 65 72 87 4d 6f  64 65 83 26 87 64 72 69  |After.Mode.&.dri|
00000570  76 65 83 73 65 6c 65 63  74 69 6f 6e 20 61 20 83  |ve.selection a .|
00000580  73 63 72 65 65 6e 20 69  73 82 2a 6c 6f 61 64 65  |screen is.*loade|
00000590  64 2e 83 20 54 68 65 20  63 6f 6c 6f 75 72 73 20  |d.. The colours |
000005a0  83 63 61 6e 20 62 65 20  61 6c 74 65 72 65 64 20  |.can be altered |
000005b0  74 6f 20 6f 70 74 69 6d  69 73 65 20 74 68 65 20  |to optimise the |
000005c0  20 83 73 75 62 73 65 71  75 65 6e 74 20 63 68 6f  | .subsequent cho|
000005d0  69 63 65 20 6f 66 20 72  69 62 62 6f 6e 22 27 22  |ice of ribbon"'"|
000005e0  83 63 6f 6c 6f 75 72 73  2e 22 3a f2 4c 0d 00 b4  |.colours.":.L...|
000005f0  b1 f1 22 83 4b 65 79 73  86 3c 30 2e 2e 37 3e 83  |..".Keys.<0..7>.|
00000600  63 79 63 6c 65 20 6c 6f  67 69 63 61 6c 20 63 6f  |cycle logical co|
00000610  6c 6f 75 72 86 3c 46 3e  20 3d 83 66 6c 61 73 68  |lour.<F> =.flash|
00000620  69 6e 67 20 63 6f 6c 6f  75 72 73 86 3c 30 3e 3d  |ing colours.<0>=|
00000630  38 20 65 74 63 86 3c 51  3e 83 63 61 6e 63 65 6c  |8 etc.<Q>.cancel|
00000640  73 20 3c 46 3e 20 77 68  69 6c 65 86 3c 40 3e 83  |s <F> while.<@>.|
00000650  72 65 73 65 74 73 83 61  6c 6c 20 66 6c 61 73 68  |resets.all flash|
00000660  69 6e 67 20 63 6f 6c 6f  75 72 73 2e 22 27 22 86  |ing colours."'".|
00000670  3c 44 3e 83 3d 64 65 66  61 75 6c 74 20 70 61 6c  |<D>.=default pal|
00000680  65 74 74 65 2e 22 27 22  86 3c 43 3e 82 63 6f 6e  |ette."'".<C>.con|
00000690  74 69 6e 75 65 73 2e 2e  92 22 3b 3a f2 4c 0d 00  |tinues...";:.L..|
000006a0  be c2 f1 22 86 86 54 68  65 87 64 75 6d 70 20 72  |..."..The.dump r|
000006b0  6f 75 74 69 6e 65 86 63  79 63 6c 65 73 20 74 68  |outine.cycles th|
000006c0  72 6f 75 67 68 86 74 68  65 20 6c 6f 67 69 63 61  |rough.the logica|
000006d0  6c 20 63 6f 6c 6f 75 72  73 2c 20 72 65 76 65 72  |l colours, rever|
000006e0  73 65 22 27 22 86 66 65  65 64 69 6e 67 20 74 68  |se"'".feeding th|
000006f0  65 20 70 61 70 65 72 86  61 6e 64 86 70 72 6f 6d  |e paper.and.prom|
00000700  70 74 69 6e 67 20 86 66  6f 72 86 61 86 64 69 66  |pting .for.a.dif|
00000710  66 65 72 65 6e 74 86 63  6f 6c 6f 75 72 86 72 69  |ferent.colour.ri|
00000720  62 62 6f 6e 22 27 22 86  61 66 74 65 72 86 65 61  |bbon"'".after.ea|
00000730  63 68 86 73 69 6e 67 6c  65 86 63 6f 6c 6f 75 72  |ch.single.colour|
00000740  86 73 63 72 65 65 6e 20  86 68 61 73 86 62 65 65  |.screen .has.bee|
00000750  6e 86 70 72 69 6e 74 65  64 2e 92 22 3b 3a f2 4c  |n.printed..";:.L|
00000760  0d 00 c8 a6 f1 22 86 86  42 65 66 6f 72 65 20 70  |....."..Before p|
00000770  72 69 6e 74 69 6e 67 20  65 61 63 68 20 6c 6f 67  |rinting each log|
00000780  69 63 61 6c 22 27 22 86  63 6f 6c 6f 75 72 2c 20  |ical"'".colour, |
00000790  6b 65 79 83 3c 46 3e 86  77 69 6c 6c 20 68 69 67  |key.<F>.will hig|
000007a0  68 6c 69 67 68 74 22 27  22 86 74 68 69 73 20 72  |hlight"'".this r|
000007b0  65 67 69 6f 6e 20 6f 6e  20 74 68 65 20 73 63 72  |egion on the scr|
000007c0  65 65 6e 2e 22 27 22 83  3c 53 3e 86 72 65 73 65  |een."'".<S>.rese|
000007d0  74 73 20 74 68 65 20 73  63 72 65 65 6e 20 61 6e  |ts the screen an|
000007e0  64 20 73 68 6f 75 6c 64  86 62 65 20 75 73 65 64  |d should.be used|
000007f0  20 62 65 66 6f 72 65 20  70 72 69 6e 74 69 6e 67  | before printing|
00000800  2e 22 3b 3a f2 4c 0d 00  d2 bb f1 22 83 20 3c 66  |.";:.L.....". <f|
00000810  35 3e 82 61 6c 6c 6f 77  73 20 61 6e 79 20 6c 6f  |5>.allows any lo|
00000820  67 69 63 61 6c 20 63 6f  6c 6f 75 72 20 82 74 6f  |gical colour .to|
00000830  20 62 65 20 73 6b 69 70  70 65 64 2e 86 41 66 74  | be skipped..Aft|
00000840  65 72 20 72 65 76 65 72  73 65 5f 22 27 22 86 66  |er reverse_"'".f|
00000850  65 65 64 69 6e 67 20 74  68 65 85 63 75 72 73 6f  |eeding the.curso|
00000860  72 20 6b 65 79 73 86 61  64 76 61 6e 63 65 2f 86  |r keys.advance/.|
00000870  72 65 76 65 72 73 65 20  74 68 65 20 70 61 70 65  |reverse the pape|
00000880  72 20 28 31 2f 32 31 36  20 73 74 65 70 73 29 2e  |r (1/216 steps).|
00000890  86 4f 6e 6c 79 81 77 6f  72 6e 86 70 72 69 6e 74  |.Only.worn.print|
000008a0  65 72 73 20 6e 65 65 64  20 74 68 69 73 22 27 22  |ers need this"'"|
000008b0  86 66 61 63 69 6c 69 74  79 21 2e 92 22 3b 3a f2  |.facility!..";:.|
000008c0  4c 0d 00 dc ac f1 22 20  83 41 66 74 65 72 20 70  |L....." .After p|
000008d0  72 69 6e 74 69 6e 67 20  61 6c 6c 20 74 68 65 20  |rinting all the |
000008e0  6c 6f 67 69 63 61 6c 20  83 63 6f 6c 6f 75 72 73  |logical .colours|
000008f0  2c 20 61 6e 79 20 63 6f  6c 6f 75 72 20 63 61 6e  |, any colour can|
00000900  20 62 65 22 27 22 83 72  65 70 72 69 6e 74 65 64  | be"'".reprinted|
00000910  2e 82 54 68 65 87 6d 61  63 68 69 6e 65 20 63 6f  |..The.machine co|
00000920  64 65 82 61 6e 64 20 82  72 65 76 65 72 73 65 82  |de.and .reverse.|
00000930  70 61 70 65 72 82 66 65  65 64 82 72 6f 75 74 69  |paper.feed.routi|
00000940  6e 65 73 20 73 75 69 74  86 45 70 73 6f 6e 86 46  |nes suit.Epson.F|
00000950  58 38 30 82 61 6e 64 20  63 6f 6d 70 61 74 69 62  |X80.and compatib|
00000960  6c 65 73 2e 92 22 3b 3a  ef 32 36 3a e1 0d 00 e6  |les..";:.26:....|
00000970  55 dd f2 41 20 45 24 3d  22 87 66 30 20 73 65 74  |U..A E$=".f0 set|
00000980  20 4d 6f 64 65 83 66 31  20 69 6e 66 6f 86 66 32  | Mode.f1 info.f2|
00000990  20 63 6f 6e 74 69 6e 75  65 22 3a 46 24 3d 22 86  | continue":F$=".|
000009a0  66 33 20 63 61 74 61 6c  6f 67 75 65 87 66 34 20  |f3 catalogue.f4 |
000009b0  2a 4c 4f 41 44 20 73 63  72 65 65 6e 20 20 20 22  |*LOAD screen   "|
000009c0  3a e1 0d 00 f0 2d dd f2  4c f2 54 28 31 29 3a f1  |:....-..L.T(1):.|
000009d0  8a 32 32 2c 35 29 22 88  87 9d 85 3e 3e 89 84 9d  |.22,5)"....>>...|
000009e0  92 22 3b 3a f5 fd a6 2d  31 3a ef 31 32 3a e1 0d  |.";:...-1:.12:..|
000009f0  00 fa 1c dd f2 52 ef 37  3a f5 f1 8a 34 2c 34 29  |.....R.7:...4,4)|
00000a00  46 24 3a e7 a6 2d 31 31  36 f2 48 0d 01 04 0b fd  |F$:..-116.H.....|
00000a10  a6 2d 32 31 3a e1 0d 01  0e 76 dd f2 48 ef 37 3a  |.-21:....v..H.7:|
00000a20  f1 8a 34 2c 34 29 22 88  ff 89 86 3c 53 48 49 46  |..4,4)"....<SHIF|
00000a30  54 3e 87 73 63 72 6f 6c  6c 73 20 63 61 74 61 6c  |T>.scrolls catal|
00000a40  6f 67 75 65 22 3a ef 32  38 2c 30 2c 32 33 2c 33  |ogue":.28,0,23,3|
00000a50  39 2c 31 33 2c 31 32 3a  ef 31 34 3a f2 45 28 22  |9,13,12:.14:.E("|
00000a60  2e 22 29 3a f1 8a 32 32  2c 39 29 22 9d 84 3c 53  |."):..22,9)"..<S|
00000a70  50 41 43 45 3e 20 20 9c  22 3a f5 fd a6 2d 39 39  |PACE>  .":...-99|
00000a80  3a ef 31 35 2c 31 32 2c  32 36 3a e1 0d 01 18 78  |:.15,12,26:....x|
00000a90  dd f2 42 ef 37 2c 32 38  2c 30 2c 32 33 2c 33 39  |..B.7,28,0,23,39|
00000aa0  2c 31 33 2c 31 32 3a 44  24 3d c4 39 2c 22 5f 22  |,13,12:D$=.9,"_"|
00000ab0  29 3a 43 24 3d 22 22 3a  f1 27 27 22 88 84 9d 83  |):C$="":.''"....|
00000ac0  ff 89 82 45 6e 74 65 72  20 66 69 6c 65 20 6e 61  |...Enter file na|
00000ad0  6d 65 87 22 3b 44 24 3a  ef 33 31 2c 32 33 2c 32  |me.";D$:.31,23,2|
00000ae0  2c 32 33 2c 31 2c 31 3b  30 3b 30 3b 30 3b 32 33  |,23,1,1;0;0;0;23|
00000af0  2c 30 2c 31 30 2c 37 39  3b 30 3b 30 3b 30 3b 3a  |,0,10,79;0;0;0;:|
00000b00  f2 4d 3a e1 0d 01 22 29  dd f2 4e 3a 4c 4c 25 3d  |.M:...")..N:LL%=|
00000b10  26 46 46 46 46 33 30 30  30 3a e7 4d 25 3e 33 20  |&FFFF3000:.M%>3 |
00000b20  4c 4c 25 3d 26 46 46 46  46 35 38 30 30 0d 01 2c  |LL%=&FFFF5800..,|
00000b30  0d e7 4c 25 4c 4c 25 3d  56 25 0d 01 36 1b f2 45  |..L%LL%=V%..6..E|
00000b40  28 22 4c 2e 22 2b 43 24  2b 22 20 22 2b c3 7e 4c  |("L."+C$+" "+.~L|
00000b50  4c 25 29 3a e1 0d 01 40  1e dd f2 43 20 57 25 3d  |L%):...@...C W%=|
00000b60  31 39 3a e7 4d 25 3d 31  84 4d 25 3d 34 20 57 25  |19:.M%=1.M%=4 W%|
00000b70  3d 33 39 0d 01 4a 49 3f  26 37 34 3d 26 38 3a e7  |=39..JI?&74=&8:.|
00000b80  4d 25 3c 34 20 21 26 37  35 3d 26 31 31 30 30 33  |M%<4 !&75=&11003|
00000b90  35 30 30 3a ef 32 38 2c  30 2c 34 2c 57 25 2c 32  |500:.28,0,4,W%,2|
00000ba0  8b 21 26 37 35 3d 26 31  31 30 30 35 42 30 30 3a  |.!&75=&11005B00:|
00000bb0  ef 32 38 2c 30 2c 37 2c  57 25 2c 33 0d 01 54 25  |.28,0,7,W%,3..T%|
00000bc0  e7 4c 25 ff 22 53 2e 54  73 63 72 22 2b 22 20 22  |.L%."S.Tscr"+" "|
00000bd0  2b c3 7e 56 25 2b 22 2b  22 2b c3 32 30 30 30 3a  |+.~V%+"+"+.2000:|
00000be0  e1 0d 01 5e 09 d6 53 25  3a e1 0d 01 68 32 dd f2  |...^..S%:...h2..|
00000bf0  49 20 3f 26 37 34 3d 26  38 3a e7 4d 25 3c 34 21  |I ?&74=&8:.M%<4!|
00000c00  26 37 35 3d 26 33 35 30  30 31 31 30 30 8b 21 26  |&75=&35001100.!&|
00000c10  37 35 3d 26 35 42 30 30  31 31 30 30 0d 01 72 1b  |75=&5B001100..r.|
00000c20  e7 4c 25 ff 22 4c 2e 54  73 63 72 22 2b 22 20 22  |.L%."L.Tscr"+" "|
00000c30  2b c3 7e 56 25 3a e1 0d  01 7c 09 d6 53 25 3a e1  |+.~V%:...|..S%:.|
00000c40  0d 01 86 21 dd f2 4b db  3a 47 25 3d 34 3a e7 4d  |...!..K.:G%=4:.M|
00000c50  25 3d 32 47 25 3d 38 8b  e7 4d 25 3d 34 47 25 3d  |%=2G%=8..M%=4G%=|
00000c60  32 0d 01 90 f2 e7 4d 25  3d 34 f1 22 ff 20 4f 70  |2.....M%=4.". Op|
00000c70  74 69 6d 69 73 65 20 63  68 6f 69 63 65 20 6f 66  |timise choice of|
00000c80  20 72 69 62 62 6f 6e 73  22 27 22 ff 20 3c 30 2d  | ribbons"'". <0-|
00000c90  37 3e 20 63 79 63 6c 65  20 63 6f 6c 6f 75 72 73  |7> cycle colours|
00000ca0  22 27 22 ff 20 3c 46 3e  20 66 6c 61 73 68 69 6e  |"'". <F> flashin|
00000cb0  67 20 ff 20 3c 51 3e 20  6e 6f 72 6d 61 6c 20 63  |g . <Q> normal c|
00000cc0  6f 6c 6f 75 72 73 22 27  22 ff 20 3c 40 3e 20 72  |olours"'". <@> r|
00000cd0  65 73 65 74 20 66 6c 61  73 68 69 6e 67 20 63 6f  |eset flashing co|
00000ce0  6c 6f 75 72 73 22 27 22  ff 20 3c 44 3e 20 6e 6f  |lours"'". <D> no|
00000cf0  72 6d 61 6c 20 70 61 6c  65 74 74 65 20 ff 20 5b  |rmal palette . [|
00000d00  43 5d 20 63 6f 6e 74 69  6e 75 65 22 3b 3a 8b e7  |C] continue";:..|
00000d10  4d 25 3d 32 f1 22 ff 3c  30 2d 37 3e 20 63 6f 6c  |M%=2.".<0-7> col|
00000d20  6f 75 72 73 20 ff 20 3c  46 3e 2f 3c 51 3e 20 66  |ours . <F>/<Q> f|
00000d30  6c 61 73 68 ff 20 3c 40  3e 72 65 73 65 74 ff 3c  |lash. <@>reset.<|
00000d40  44 3e 65 66 61 75 6c 74  20 ff 3c 43 3e 6f 6e 74  |D>efault .<C>ont|
00000d50  2e 22 3b 0d 01 9a ea e7  4d 25 3d 31 f1 22 ff 20  |.";.....M%=1.". |
00000d60  3c 30 2d 37 3e 20 63 79  63 6c 65 20 63 6f 6c 6f  |<0-7> cycle colo|
00000d70  75 72 73 20 ff 20 3c 46  3e 2f 3c 51 3e 20 74 6f  |urs . <F>/<Q> to|
00000d80  67 67 6c 65 20 20 66 6c  61 73 68 69 6e 67 20 63  |ggle  flashing c|
00000d90  6f 6c 6f 75 72 73 20 ff  20 3c 40 3e 20 72 65 73  |olours . <@> res|
00000da0  65 74 20 66 6c 61 73 68  69 6e 67 20 20 20 ff 20  |et flashing   . |
00000db0  3c 44 3e 20 64 65 66 61  75 6c 74 20 70 61 6c 65  |<D> default pale|
00000dc0  74 74 65 20 ff 20 3c 43  3e 20 63 6f 6e 74 69 6e  |tte . <C> contin|
00000dd0  75 65 22 3b 3a 8b e7 4d  25 3d 35 f1 22 ff 3c 30  |ue";:..M%=5.".<0|
00000de0  2d 37 3e 20 63 79 63 6c  65 20 63 6f 6c 6f 75 72  |-7> cycle colour|
00000df0  73 ff 20 3c 46 3e 2f 3c  51 3e 20 66 6c 61 73 68  |s. <F>/<Q> flash|
00000e00  69 6e 67 20 20 63 6f 6c  6f 75 72 73 20 ff 20 3c  |ing  colours . <|
00000e10  40 3e 20 72 65 73 65 74  20 66 6c 61 73 68 69 6e  |@> reset flashin|
00000e20  67 20 ff 20 3c 44 3e 65  66 61 75 6c 74 ff 20 3c  |g . <D>efault. <|
00000e30  43 3e 20 63 6f 6e 74 69  6e 75 65 22 3b 0d 01 a4  |C> continue";...|
00000e40  35 55 25 3d 30 3a 52 25  3d 30 3a 46 25 3d 30 3a  |5U%=0:R%=0:F%=0:|
00000e50  f5 45 25 3d b9 3a 48 25  3d a5 2d 34 38 3a e7 48  |.E%=.:H%=.-48:.H|
00000e60  25 3c 30 84 48 25 3e 47  25 2d 31 ef 37 3a 45 25  |%<0.H%>G%-1.7:E%|
00000e70  3d 30 0d 01 ae 42 e7 48  25 3d 31 36 f2 53 8b e7  |=0...B.H%=16.S..|
00000e80  48 25 3d 32 32 55 25 3d  38 8b e7 48 25 3d 33 33  |H%=22U%=8..H%=33|
00000e90  55 25 3d 30 8b e7 48 25  3d 31 39 20 45 25 3d 30  |U%=0..H%=19 E%=0|
00000ea0  3a 46 25 3d b9 8b e7 48  25 3d 32 30 ef 32 30 3a  |:F%=...H%=20.20:|
00000eb0  45 25 3d 30 0d 01 b8 13  e7 45 25 ef 31 39 2c 48  |E%=0.....E%.19,H|
00000ec0  25 2c 52 25 3b 30 3b 0d  01 c2 18 52 25 3d 52 25  |%,R%;0;....R%=R%|
00000ed0  2b 31 3a e7 52 25 3e 37  2b 55 25 52 25 3d 30 0d  |+1:.R%>7+U%R%=0.|
00000ee0  01 cc 09 fd 46 25 3a e1  0d 01 d6 2b dd f2 53 e3  |....F%:....+..S.|
00000ef0  5a 25 3d 47 25 b8 32 2a  47 25 2d 31 3a ef 31 39  |Z%=G%.2*G%-1:.19|
00000f00  2c 5a 25 2c 5a 25 2d 47  25 3b 30 3b 3a ed 3a ef  |,Z%,Z%-G%;0;:.:.|
00000f10  37 3a e1 0d 01 e0 61 dd  f2 4d f2 45 28 22 46 58  |7:....a..M.E("FX|
00000f20  32 31 22 29 3a f5 44 24  3d be 3a e7 97 44 24 3d  |21"):.D$=.:..D$=|
00000f30  26 37 46 80 a9 43 24 3e  30 20 43 24 3d c0 43 24  |&7F..C$>0 C$=.C$|
00000f40  2c a9 43 24 2d 31 29 3a  f1 44 24 3b 8b e7 97 44  |,.C$-1):.D$;...D|
00000f50  24 3e 33 31 80 97 44 24  3c 31 32 37 3a e7 a9 43  |$>31..D$<127:..C|
00000f60  24 3c 39 20 43 24 3d 43  24 2b 44 24 3a f1 44 24  |$<9 C$=C$+D$:.D$|
00000f70  3b 8b ef 37 0d 01 ea 1e  fd a6 2d 37 34 80 43 24  |;..7......-74.C$|
00000f80  3c 3e 22 22 80 bb c0 44  24 2c 30 29 3c 3e 31 33  |<>""...D$,0)<>13|
00000f90  3a e1 0d 01 f4 1c dd f2  4f 3a 43 25 3d 30 3a 4a  |:.......O:C%=0:J|
00000fa0  25 3d 30 3a f5 49 25 3d  30 3a db 3a ef 37 0d 01  |%=0:.I%=0:.:.7..|
00000fb0  fe eb e7 4d 25 3d 35 f1  22 43 6f 6c 6f 75 72 20  |...M%=5."Colour |
00000fc0  22 3b 43 25 3b 22 ff 6b  65 79 20 3c 46 3e 2f 3c  |";C%;".key <F>/<|
00000fd0  53 3e 74 6f 20 6c 6f 63  61 74 65 ff 49 6e 73 65  |S>to locate.Inse|
00000fe0  72 74 20 6e 65 77 72 69  62 62 6f 6e 2b 3c 52 45  |rt newribbon+<RE|
00000ff0  54 2e 3e 20 6f 72 20 6b  65 79 3c 66 35 3e 20 74  |T.> or key<f5> t|
00001000  6f 20 73 6b 69 70 20 63  6f 6c 6f 75 72 22 3b 3a  |o skip colour";:|
00001010  8b e7 4d 25 3d 31 f1 22  ff 20 50 72 69 6e 74 20  |..M%=1.". Print |
00001020  63 6f 6c 6f 75 72 20 23  22 3b 43 25 3b 22 20 ff  |colour #";C%;" .|
00001030  20 4c 6f 63 61 74 65 20  77 69 74 68 20 3c 46 3e  | Locate with <F>|
00001040  66 6c 61 73 68 2f 3c 53  3e 20 73 74 65 61 64 79  |flash/<S> steady|
00001050  20 ff 20 49 6e 73 65 72  74 20 72 69 62 62 6f 6e  | . Insert ribbon|
00001060  20 26 20 6b 65 79 20 3c  52 45 54 2e 3e 74 6f 20  | & key <RET.>to |
00001070  70 72 69 6e 74 20 ff 20  54 6f 20 73 6b 69 70 20  |print . To skip |
00001080  63 6f 6c 6f 75 72 20 23  22 3b 43 25 3b 22 20 6b  |colour #";C%;" k|
00001090  65 79 20 3c 66 35 3e 22  3b 0d 02 08 e5 e7 4d 25  |ey <f5>";.....M%|
000010a0  3d 34 f1 22 ff 20 50 72  69 6e 74 20 28 6c 6f 67  |=4.". Print (log|
000010b0  69 63 61 6c 29 20 63 6f  6c 6f 75 72 20 23 22 3b  |ical) colour #";|
000010c0  43 25 27 22 ff 20 4c 6f  63 61 74 65 20 77 69 74  |C%'". Locate wit|
000010d0  68 20 3c 46 3e 20 66 6c  61 73 68 20 3c 53 3e 20  |h <F> flash <S> |
000010e0  73 74 65 61 64 79 22 27  22 ff 20 49 6e 73 65 72  |steady"'". Inser|
000010f0  74 20 72 69 62 62 6f 6e  20 26 20 6b 65 79 20 3c  |t ribbon & key <|
00001100  52 45 54 2e 3e 20 74 6f  20 70 72 69 6e 74 22 27  |RET.> to print"'|
00001110  22 ff 20 54 6f 20 73 6b  69 70 20 63 6f 6c 6f 75  |". To skip colou|
00001120  72 20 23 22 3b 43 25 3b  22 20 6b 65 79 20 3c 66  |r #";C%;" key <f|
00001130  35 3e 22 3b 3a 8b e7 4d  25 3d 32 f1 22 ff 43 6f  |5>";:..M%=2.".Co|
00001140  6c 2e 23 22 3b 43 25 3b  22 20 ff 3c 46 3e 2f 3c  |l.#";C%;" .<F>/<|
00001150  53 3e 73 68 6f 77 63 6f  6c 2e 20 ff 20 3c 66 35  |S>showcol. . <f5|
00001160  3e 73 6b 69 70 20 63 6f  6c 2e ff 20 72 69 62 62  |>skip col.. ribb|
00001170  6f 6e 20 2b 3c 52 45 54  55 52 4e 3e 22 3b 0d 02  |on +<RETURN>";..|
00001180  12 1d 51 25 3d 26 33 36  46 3a 50 25 3d 51 25 3f  |..Q%=&36F:P%=Q%?|
00001190  43 25 3a e7 4c 25 50 25  3d 43 25 0d 02 1c 52 f5  |C%:.L%P%=C%...R.|
000011a0  e7 a6 2d 36 38 ef 31 39  2c 43 25 2c 39 3b 30 3b  |..-68.19,C%,9;0;|
000011b0  8b e7 a6 2d 38 32 ef 31  39 2c 43 25 2c 50 25 3b  |...-82.19,C%,P%;|
000011c0  30 3b 8b e7 a6 2d 31 31  37 db 3a f1 22 ff 53 6b  |0;...-117.:.".Sk|
000011d0  69 70 70 69 6e 67 20 63  6f 6c 6f 75 72 20 22 3b  |ipping colour ";|
000011e0  43 25 3a 49 25 3d b9 3a  f2 54 28 32 29 0d 02 26  |C%:I%=.:.T(2)..&|
000011f0  23 fd a6 2d 37 34 84 49  25 3a ef 37 3a e7 49 25  |#..-74.I%:.7:.I%|
00001200  8c 8d 54 7a 42 8b e7 43  25 3e 30 80 4a 25 f2 4a  |..TzB..C%>0.J%.J|
00001210  0d 02 30 22 db 3a f2 49  3a 4a 25 3d b9 3a 3f 26  |..0".:.I:J%=.:?&|
00001220  37 33 3d 32 35 35 3a 3f  26 38 38 3d 43 25 3a d6  |73=255:?&88=C%:.|
00001230  42 25 0d 02 3a 4e 43 25  3d 43 25 2b 31 3a fd 43  |B%..:NC%=C%+1:.C|
00001240  25 3d 47 25 3a 56 56 25  3d 30 3a f5 db 3a f1 22  |%=G%:VV%=0:..:."|
00001250  ff 20 52 65 70 65 61 74  20 61 6e 79 20 63 6f 6c  |. Repeat any col|
00001260  6f 75 72 20 59 2f 4e 22  3a 41 3d a5 3a e7 a6 2d  |our Y/N":A=.:..-|
00001270  36 39 f2 55 20 8b e7 a6  2d 38 36 56 56 25 3d b9  |69.U ...-86VV%=.|
00001280  0d 02 44 0a fd 56 56 25  3a e1 0d 02 4e 57 dd f2  |..D..VV%:...NW..|
00001290  55 f5 db 3a ef 37 3a e8  22 ff 20 43 6f 6c 6f 75  |U..:.7:.". Colou|
000012a0  72 20 6e 75 6d 62 65 72  3a 22 42 24 3a fd a9 42  |r number:"B$:..B|
000012b0  24 3e 30 80 bb 42 24 3e  2d 31 80 bb 42 24 3c 31  |$>0..B$>-1..B$<1|
000012c0  36 3a f2 4a 3a db 3a f2  49 3a 3f 26 37 33 3d 32  |6:.J:.:.I:?&73=2|
000012d0  35 35 3a 3f 26 38 38 3d  bb 42 24 3a d6 42 25 3a  |55:?&88=.B$:.B%:|
000012e0  e1 0d 02 58 db dd f2 4a  20 db 3a ef 37 2c 33 3a  |...X...J .:.7,3:|
000012f0  f1 22 ff 4b 65 79 20 3c  52 3e 20 74 6f 20 72 65  |.".Key <R> to re|
00001300  76 65 72 73 65 20 66 65  65 64 20 66 6f 72 20 6e  |verse feed for n|
00001310  65 78 74 20 63 6f 6c 6f  72 22 3b 3a f5 fd a6 2d  |ext color";:...-|
00001320  35 32 3a ef 32 3a 4b 25  3d 30 3a f5 ef 31 2c 37  |52:.2:K%=0:..1,7|
00001330  2c 31 2c 32 37 2c 31 2c  31 30 36 2c 31 2c 32 35  |,1,27,1,106,1,25|
00001340  35 3a 4b 25 3d 4b 25 2b  31 3a fd 4b 25 3d 37 3a  |5:K%=K%+1:.K%=7:|
00001350  ef 31 2c 37 2c 31 2c 32  37 2c 31 2c 31 30 36 2c  |.1,7,1,27,1,106,|
00001360  31 2c 31 35 3a f2 54 28  38 29 3a ef 33 2c 31 32  |1,15:.T(8):.3,12|
00001370  3a f1 22 ff 20 43 75 72  73 6f 72 20 6b 65 79 73  |:.". Cursor keys|
00001380  3a 20 66 69 6e 65 20 61  64 6a 75 73 74 20 70 61  |: fine adjust pa|
00001390  70 65 72 22 27 22 ff 20  3c 52 45 54 55 52 4e 3e  |per"'". <RETURN>|
000013a0  20 74 6f 20 70 72 69 6e  74 22 3b 3a ef 32 3a f2  | to print";:.2:.|
000013b0  45 28 22 46 58 34 2c 31  22 29 3a f5 0d 02 62 3d  |E("FX4,1"):...b=|
000013c0  4e 25 3d a5 3a e7 4e 25  3d 26 38 42 ef 31 2c 37  |N%=.:.N%=&8B.1,7|
000013d0  2c 31 2c 32 37 2c 31 2c  37 34 2c 31 2c 31 8b e7  |,1,27,1,74,1,1..|
000013e0  4e 25 3d 26 38 41 ef 31  2c 37 2c 31 2c 32 37 2c  |N%=&8A.1,7,1,27,|
000013f0  31 2c 31 30 36 2c 31 2c  31 0d 02 6c 1a fd a6 2d  |1,106,1,1..l...-|
00001400  37 34 3a f2 45 28 22 46  58 34 2c 32 22 29 3a ef  |74:.E("FX4,2"):.|
00001410  33 3a e1 0d ff                                    |3:...|
00001415
20-01-89/Colour2.m0
20-01-89/Colour2.m1
20-01-89/Colour2.m2
20-01-89/Colour2.m4
20-01-89/Colour2.m5