24-06-88/COLOUR2

Home » CEEFAX disks » telesoftware7.adl » 24-06-88/COLOUR2

24-06-88/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 » telesoftware7.adl
Filename:	24-06-88/COLOUR2
Read OK:	✔
File size:	1482 bytes
Load address:	FFFF1A00
Exec address:	FFFF8023

File contents

   10*|"�Colourprint2�(C)M.Goldfinch'87
   20*|"�Telesoft�v2.8
   30ONERRORREPORT:PRINTERL:END
   40DIMO%40:PROCA:REPEATMODE7:VDU23,1,0;0;0;0;23,0,2,52;0;0;0;:PROCF:PROCG:PROCR:PROCB:MODEM%:VDU23,0,10,67;0;0;0;:PROCN:PROCC:PROCK:PROCO:UNTIL0:END
   50DEFPROCE($O%)X%=O%:Y%=O%DIV256:CALL&FFF7:ENDPROC
   60DEFPROCT(T%)VDU7:TIME=0:REPEATUNTILTIME>T%*100:ENDPROC
   70DEFPROCGREPEATPRINTTAB(4,4)E$:IFINKEY-114PROCPELSEIFINKEY-33PROCD
   80UNTILINKEY-115:ENDPROC
   90DEFPROCFPRINT"��"'"����Colourprint���������������� menu��� ����Colourprint���������������� menu��� �����ppppppppppppppppppppppppppppppppp  ����";E$"��"'"�����````````````````````````````````�  �����Screen Mode    ���Drive No.     ��"
  100PRINT"��"'"�����mode 1 ��      ���drive 0 ��"'"��  �mode 2 ��        �drive 1 ��"'"��  �mode 4 ��        �drive 2 ��"'"��  �mode 5 ��        �drive 3 ��"
  110PRINT"�,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,���7````````````````````````````````�`k ���5���Information"SPC19"�j ����"SPC33"�j ���5�Colourprint�produces multicolour�j ���5�screen dumps on�FX-80�and later �j"
  120PRINT"���5�Epson�/ compatible printers,  � �j ���5�using the wide range�of�colour ��j ���5�ribbons now�available."SPC10"�j ���5"SPC34"j �����ppppppppppppppppppppppppppppppppp� ��"'"���(C) M.Goldfinch 1987�Telesoft v.2.8";:ENDPROC
  130DEFPROCDPROCE("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)"� "
  140REPEATA$=GET$:A%=INSTR("1245\"+CHR$13,A$):UNTILA%>0:IFA%=5M%=M%+1:IFM%>11M%=8
  150UNTILA%=6:VDU7:M%=M%-7:IFM%>2M%=M%+1
  160PRINTTAB(18,4)"Drive�+ <RETURN>";:A%=0:D%=8:REPEATPRINTTAB(20,D%-1)"� "TAB(20,D%)"��":IFD%=8PRINTTAB(20,11)"� "
  170REPEATA$=GET$:A%=INSTR("0123\"+CHR$13,A$):UNTILA%>0:IFA%=5 D%=D%+1:IFD%>11 D%=8
  180UNTILA%=6:VDU7:D%=D%-8:PROCE("DR."+STR$D%):ENDPROC
  190DEFPROCPPRINTTAB(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
  200PRINT"�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
  210PRINT"��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
  220PRINT"��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
  230PRINT"� <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
  240PRINT" �After printing all the logical �colours, any colour can be"'"�reprinted.�The�machine code (CRT�graphics)�and reverse paper�feed�routines are suitable for�Epson �FX80�and other compatibles.�";:VDU26:ENDPROC
  250DEFPROCA E$="�f0 set Mode�f1 info�f2 continue":F$="�f3 catalogue�f4 *load screen   ":ENDPROC
  260DEFPROCLPROCT(1):PRINTTAB(22,5)"����>>����";:REPEATUNTILINKEY-1:VDU12:ENDPROC
  270DEFPROCRVDU7:REPEATPRINTTAB(4,4)F$:IFINKEY-116PROCH
  280UNTILINKEY-21:ENDPROC
  290DEFPROCHVDU7:PRINTTAB(4,4)"����<SHIFT>�scrolls catalogue":VDU28,0,23,39,13,12:VDU14:PROCE("."):PRINTTAB(22,9)"��<SPACE>  �":REPEATUNTILINKEY-99:VDU15,12,26:ENDPROC
  300DEFPROCBVDU7,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
  310DEFPROCN:L%=&FFFF3000:IFM%>3 L%=&FFFF5800
  320PROCE("L."+C$+" "+STR$~L%):ENDPROC
  330DEFPROCC W%=19:IFM%=1ORM%=4 W%=39
  340?&74=&8:IFM%<4 !&75=&11003500:VDU28,0,4,W%,2ELSE!&75=&11005B00:VDU28,0,7,W%,3
  350CALLS%:ENDPROC
  360DEFPROCI ?&74=&8:IFM%<4!&75=&35001100ELSE!&75=&5B001100
  370CALLS%:ENDPROC
  380DEFPROCKCLS:G%=4:IFM%=2G%=8ELSEIFM%=4G%=2
  390IFM%=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.";
  400IFM%=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";
  410U%=0:R%=0:F%=0:REPEATE%=TRUE:H%=GET-48:IFH%<0ORH%>G%-1VDU7:E%=0
  420IFH%=16PROCSELSEIFH%=22U%=8ELSEIFH%=33U%=0ELSEIFH%=19 E%=0:F%=TRUEELSEIFH%=20VDU20:E%=0
  430IFE%VDU19,H%,R%;0;
  440R%=R%+1:IFR%>7+U%R%=0
  450UNTILF%:ENDPROC
  460DEFPROCSFORZ%=G%TO2*G%-1:VDU19,Z%,Z%-G%;0;:NEXT:VDU7:ENDPROC
  470DEFPROCMPROCE("FX21"):REPEATD$=GET$:IFASCD$=&7FANDLENC$>0 C$=LEFT$(C$,LENC$-1):PRINTD$;ELSEIFASCD$>31ANDASCD$<127:IFLENC$<9 C$=C$+D$:PRINTD$;ELSEVDU7
  480UNTILINKEY-74ANDC$<>""ANDVALLEFT$(D$,0)<>13:ENDPROC
  490DEFPROCO:C%=0:J%=0:REPEATI%=0:CLS:VDU7
  500IFM%=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>";
  510IFM%=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>";
  520Q%=&36F:P%=Q%?C%:REPEATIFINKEY-68VDU19,C%,9;0;ELSEIFINKEY-82VDU19,C%,P%;0;ELSEIFINKEY-117CLS:PRINT"�Skipping colour ";C%:I%=TRUE:PROCT(2)
  530UNTILINKEY-74ORI%:VDU7:IFI%THEN550ELSEIFC%>0ANDJ%PROCJ
  540CLS:PROCI:J%=TRUE:?&73=255:?&88=C%:CALLB%
  550C%=C%+1:UNTILC%=G%:V%=0:REPEATCLS:PRINT"� Repeat any colour (Y/N)":A=GET:IFINKEY-69PROCUELSEIFINKEY-86V%=TRUE
  560UNTILV%:ENDPROC
  570DEFPROCUREPEATCLS:VDU7:INPUT"� Colour number:"B$:UNTILLENB$>0ANDVALB$>-1ANDVALB$<16:PROCJ:CLS:PROCI:?&73=255:?&88=VALB$:CALLB%:ENDPROC
  580DEFPROCJCLS: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%=6:VDU1,7,1,27,1,106,1,247:PROCT(8):CLS:VDU3:PRINT"� Cursor keys: fine adjust paper"'"� <RETURN> to print";:VDU2:PROCE("FX4,1"):REPEAT
  590N%=GET:IFN%=&8BVDU1,7,1,27,1,74,1,1ELSEIFN%=&8AVDU1,7,1,27,1,106,1,1
  600UNTILINKEY-74:PROCE("FX4,2"):VDU3:ENDPROC


&*|"�Colourprint2�(C)M.Goldfinch'87
*|"�Telesoft�v2.8
�:�:�
(c�O%40:�A:��7:�23,1,0;0;0;0;23,0,2,52;0;0;0;:�F:�G:�R:�B:�M%:�23,0,10,67;0;0;0;:�N:�C:�K:�O:�0:�
2$��E($O%)X%=O%:Y%=O%�256:�&FFF7:�
<��T(T%)�7:�=0:���>T%*100:�
F!��G��4,4)E$:�-114�P��-33�D
P��-115:�
Z���F�"��"'"����Colourprint���������������� menu��� ����Colourprint���������������� menu��� �����ppppppppppppppppppppppppppppppppp  ����";E$"��"'"�����````````````````````````````````�  �����Screen Mode    ���Drive No.     ��"
d��"��"'"�����mode 1 ��      ���drive 0 ��"'"��  �mode 2 ��        �drive 1 ��"'"��  �mode 4 ��        �drive 2 ��"'"��  �mode 5 ��        �drive 3 ��"
n��"�,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,���7````````````````````````````````�`k ���5���Information"�19"�j ����"�33"�j ���5�Colourprint�produces multicolour�j ���5�screen dumps on�FX-80�and later �j"
x��"���5�Epson�/ compatible printers,  � �j ���5�using the wide range�of�colour ��j ���5�ribbons now�available."�10"�j ���5"�34"j �����ppppppppppppppppppppppppppppppppp� ��"'"���(C) M.Goldfinch 1987�Telesoft v.2.8";:�
�v��D�E("FX219,92"):�7:A%=0:�4,4)"�<TAB> select�Mode�+ <RETURN>   ";:M%=8:��2,M%-1)"� "�2,M%)"��":�M%=8�2,11)"� "
�;�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 (CRT�graphics)�and reverse paper�feed�routines are suitable for�Epson �FX80�and other 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:�
6'��N:L%=&FFFF3000:�M%>3 L%=&FFFF5800
@�E("L."+C$+" "+�~L%):�
J��C W%=19:�M%=1�M%=4 W%=39
TI?&74=&8:�M%<4 !&75=&11003500:�28,0,4,W%,2�!&75=&11005B00:�28,0,7,W%,3
^	�S%:�
h2��I ?&74=&8:�M%<4!&75=&35001100�!&75=&5B001100
r	�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>";
cQ%=&36F:P%=Q%?C%:��-68�19,C%,9;0;��-82�19,C%,P%;0;��-117�:�"�Skipping colour ";C%:I%=�:�T(2)
#��-74�I%:�7:�I%��TfB��C%>0�J%�J
"�:�I:J%=�:?&73=255:?&88=C%:�B%
&MC%=C%+1:�C%=G%:V%=0:��:�"� Repeat any colour (Y/N)":A=�:�-69�U��-86V%=�
0	�V%:�
:W��U��:�7:�"� Colour number:"B$:��B$>0��B$>-1��B$<16:�J:�:�I:?&73=255:?&88=�B$:�B%:�
D���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%=6:�1,7,1,27,1,106,1,247:�T(8):�:�3:�"� Cursor keys: fine adjust paper"'"� <RETURN> to print";:�2:�E("FX4,1"):�
N=N%=�:�N%=&8B�1,7,1,27,1,74,1,1��N%=&8A�1,7,1,27,1,106,1,1
X��-74:�E("FX4,2"):�3:�
�

00000000  0d 00 0a 26 2a 7c 22 82  43 6f 6c 6f 75 72 70 72  |...&*|".Colourpr|
00000010  69 6e 74 32 86 28 43 29  4d 2e 47 6f 6c 64 66 69  |int2.(C)M.Goldfi|
00000020  6e 63 68 27 38 37 0d 00  14 15 2a 7c 22 81 54 65  |nch'87....*|".Te|
00000030  6c 65 73 6f 66 74 85 76  32 2e 38 0d 00 1e 0c ee  |lesoft.v2.8.....|
00000040  85 f6 3a f1 9e 3a e0 0d  00 28 63 de 4f 25 34 30  |..:..:...(c.O%40|
00000050  3a f2 41 3a f5 eb 37 3a  ef 32 33 2c 31 2c 30 3b  |:.A:..7:.23,1,0;|
00000060  30 3b 30 3b 30 3b 32 33  2c 30 2c 32 2c 35 32 3b  |0;0;0;23,0,2,52;|
00000070  30 3b 30 3b 30 3b 3a f2  46 3a f2 47 3a f2 52 3a  |0;0;0;:.F:.G:.R:|
00000080  f2 42 3a eb 4d 25 3a ef  32 33 2c 30 2c 31 30 2c  |.B:.M%:.23,0,10,|
00000090  36 37 3b 30 3b 30 3b 30  3b 3a f2 4e 3a f2 43 3a  |67;0;0;0;:.N:.C:|
000000a0  f2 4b 3a f2 4f 3a fd 30  3a e0 0d 00 32 24 dd f2  |.K:.O:.0:...2$..|
000000b0  45 28 24 4f 25 29 58 25  3d 4f 25 3a 59 25 3d 4f  |E($O%)X%=O%:Y%=O|
000000c0  25 81 32 35 36 3a d6 26  46 46 46 37 3a e1 0d 00  |%.256:.&FFF7:...|
000000d0  3c 1e dd f2 54 28 54 25  29 ef 37 3a d1 3d 30 3a  |<...T(T%).7:.=0:|
000000e0  f5 fd 91 3e 54 25 2a 31  30 30 3a e1 0d 00 46 21  |...>T%*100:...F!|
000000f0  dd f2 47 f5 f1 8a 34 2c  34 29 45 24 3a e7 a6 2d  |..G...4,4)E$:..-|
00000100  31 31 34 f2 50 8b e7 a6  2d 33 33 f2 44 0d 00 50  |114.P...-33.D..P|
00000110  0c fd a6 2d 31 31 35 3a  e1 0d 00 5a e4 dd f2 46  |...-115:...Z...F|
00000120  f1 22 84 9d 22 27 22 8d  97 af 82 43 6f 6c 6f 75  |.".."'"....Colou|
00000130  72 70 72 69 6e 74 9e 94  9a ff 92 97 95 93 97 95  |rprint..........|
00000140  96 92 91 91 9f 87 20 6d  65 6e 75 99 97 af 20 8d  |...... menu... .|
00000150  97 fc 86 43 6f 6c 6f 75  72 70 72 69 6e 74 9e 91  |...Colourprint..|
00000160  9a fd 97 92 93 94 92 97  96 95 94 94 9f 83 20 6d  |.............. m|
00000170  65 6e 75 99 97 fc 20 84  9d 93 f0 f0 70 70 70 70  |enu... .....pppp|
00000180  70 70 70 70 70 70 70 70  70 70 70 70 70 70 70 70  |pppppppppppppppp|
00000190  70 70 70 70 70 70 70 70  70 70 70 70 70 20 20 84  |ppppppppppppp  .|
000001a0  9d 93 b5 22 3b 45 24 22  93 ea 22 27 22 84 9d 93  |...";E$".."'"...|
000001b0  a3 a3 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |..``````````````|
000001c0  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |````````````````|
000001d0  60 60 a3 20 20 84 9d 81  9d 86 53 63 72 65 65 6e  |``.  .....Screen|
000001e0  20 4d 6f 64 65 20 20 20  20 9c 9d 81 44 72 69 76  | Mode    ...Driv|
000001f0  65 20 4e 6f 2e 20 20 20  20 20 84 9d 22 0d 00 64  |e No.     .."..d|
00000200  99 f1 22 84 9d 22 27 22  84 9d 83 9d 81 6d 6f 64  |..".."'".....mod|
00000210  65 20 31 20 84 9d 20 20  20 20 20 20 81 9d 82 64  |e 1 ..      ...d|
00000220  72 69 76 65 20 30 20 84  9d 22 27 22 84 9d 20 20  |rive 0 .."'"..  |
00000230  81 6d 6f 64 65 20 32 20  84 9d 20 20 20 20 20 20  |.mode 2 ..      |
00000240  20 20 82 64 72 69 76 65  20 31 20 84 9d 22 27 22  |  .drive 1 .."'"|
00000250  84 9d 20 20 81 6d 6f 64  65 20 34 20 84 9d 20 20  |..  .mode 4 ..  |
00000260  20 20 20 20 20 20 82 64  72 69 76 65 20 32 20 84  |      .drive 2 .|
00000270  9d 22 27 22 84 9d 20 20  81 6d 6f 64 65 20 35 20  |."'"..  .mode 5 |
00000280  84 9d 20 20 20 20 20 20  20 20 82 64 72 69 76 65  |..        .drive|
00000290  20 33 20 84 9d 22 0d 00  6e cc f1 22 96 2c 2c 2c  | 3 .."..n..".,,,|
000002a0  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
*
000002c0  2c 2c 2c 2c 84 9d 92 37  60 60 60 60 60 60 60 60  |,,,,...7````````|
000002d0  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |````````````````|
000002e0  60 60 60 60 60 60 60 60  a3 60 6b 20 84 9d 92 35  |````````.`k ...5|
000002f0  81 ff 83 49 6e 66 6f 72  6d 61 74 69 6f 6e 22 89  |...Information".|
00000300  31 39 22 92 6a 20 84 9d  92 b5 22 89 33 33 22 92  |19".j ....".33".|
00000310  6a 20 84 9d 92 35 82 43  6f 6c 6f 75 72 70 72 69  |j ...5.Colourpri|
00000320  6e 74 87 70 72 6f 64 75  63 65 73 20 6d 75 6c 74  |nt.produces mult|
00000330  69 63 6f 6c 6f 75 72 92  6a 20 84 9d 92 35 87 73  |icolour.j ...5.s|
00000340  63 72 65 65 6e 20 64 75  6d 70 73 20 6f 6e 86 46  |creen dumps on.F|
00000350  58 2d 38 30 87 61 6e 64  20 6c 61 74 65 72 20 92  |X-80.and later .|
00000360  6a 22 0d 00 78 db f1 22  84 9d 92 35 86 45 70 73  |j"..x.."...5.Eps|
00000370  6f 6e 87 2f 20 63 6f 6d  70 61 74 69 62 6c 65 20  |on./ compatible |
00000380  70 72 69 6e 74 65 72 73  2c 20 20 92 20 92 6a 20  |printers,  . .j |
00000390  84 9d 92 35 87 75 73 69  6e 67 20 74 68 65 20 77  |...5.using the w|
000003a0  69 64 65 20 72 61 6e 67  65 87 6f 66 82 63 6f 6c  |ide range.of.col|
000003b0  6f 75 72 20 87 92 6a 20  84 9d 92 35 87 72 69 62  |our ..j ...5.rib|
000003c0  62 6f 6e 73 20 6e 6f 77  87 61 76 61 69 6c 61 62  |bons now.availab|
000003d0  6c 65 2e 22 89 31 30 22  92 6a 20 84 9d 92 35 22  |le.".10".j ...5"|
000003e0  89 33 34 22 6a 20 84 9d  92 f5 f0 70 70 70 70 70  |.34"j .....ppppp|
000003f0  70 70 70 70 70 70 70 70  70 70 70 70 70 70 70 70  |pppppppppppppppp|
00000400  70 70 70 70 70 70 70 70  70 70 70 70 fa 20 84 9d  |pppppppppppp. ..|
00000410  22 27 22 85 9d 83 28 43  29 20 4d 2e 47 6f 6c 64  |"'"...(C) M.Gold|
00000420  66 69 6e 63 68 20 31 39  38 37 86 54 65 6c 65 73  |finch 1987.Teles|
00000430  6f 66 74 20 76 2e 32 2e  38 22 3b 3a e1 0d 00 82  |oft v.2.8";:....|
00000440  76 dd f2 44 f2 45 28 22  46 58 32 31 39 2c 39 32  |v..D.E("FX219,92|
00000450  22 29 3a ef 37 3a 41 25  3d 30 3a f1 8a 34 2c 34  |"):.7:A%=0:..4,4|
00000460  29 22 87 3c 54 41 42 3e  20 73 65 6c 65 63 74 83  |)".<TAB> select.|
00000470  4d 6f 64 65 87 2b 20 3c  52 45 54 55 52 4e 3e 20  |Mode.+ <RETURN> |
00000480  20 20 22 3b 3a 4d 25 3d  38 3a f5 f1 8a 32 2c 4d  |  ";:M%=8:...2,M|
00000490  25 2d 31 29 22 81 20 22  8a 32 2c 4d 25 29 22 83  |%-1)". ".2,M%)".|
000004a0  9d 22 3a e7 4d 25 3d 38  f1 8a 32 2c 31 31 29 22  |.":.M%=8..2,11)"|
000004b0  81 20 22 0d 00 8c 3b f5  41 24 3d be 3a 41 25 3d  |. "...;.A$=.:A%=|
000004c0  a7 22 31 32 34 35 5c 22  2b bd 31 33 2c 41 24 29  |."1245\"+.13,A$)|
000004d0  3a fd 41 25 3e 30 3a e7  41 25 3d 35 4d 25 3d 4d  |:.A%>0:.A%=5M%=M|
000004e0  25 2b 31 3a e7 4d 25 3e  31 31 4d 25 3d 38 0d 00  |%+1:.M%>11M%=8..|
000004f0  96 21 fd 41 25 3d 36 3a  ef 37 3a 4d 25 3d 4d 25  |.!.A%=6:.7:M%=M%|
00000500  2d 37 3a e7 4d 25 3e 32  4d 25 3d 4d 25 2b 31 0d  |-7:.M%>2M%=M%+1.|
00000510  00 a0 55 f1 8a 31 38 2c  34 29 22 44 72 69 76 65  |..U..18,4)"Drive|
00000520  87 2b 20 3c 52 45 54 55  52 4e 3e 22 3b 3a 41 25  |.+ <RETURN>";:A%|
00000530  3d 30 3a 44 25 3d 38 3a  f5 f1 8a 32 30 2c 44 25  |=0:D%=8:...20,D%|
00000540  2d 31 29 22 82 20 22 8a  32 30 2c 44 25 29 22 81  |-1)". ".20,D%)".|
00000550  9d 22 3a e7 44 25 3d 38  f1 8a 32 30 2c 31 31 29  |.":.D%=8..20,11)|
00000560  22 82 20 22 0d 00 aa 3d  f5 41 24 3d be 3a 41 25  |". "...=.A$=.:A%|
00000570  3d a7 22 30 31 32 33 5c  22 2b bd 31 33 2c 41 24  |=."0123\"+.13,A$|
00000580  29 3a fd 41 25 3e 30 3a  e7 41 25 3d 35 20 44 25  |):.A%>0:.A%=5 D%|
00000590  3d 44 25 2b 31 3a e7 44  25 3e 31 31 20 44 25 3d  |=D%+1:.D%>11 D%=|
000005a0  38 0d 00 b4 24 fd 41 25  3d 36 3a ef 37 3a 44 25  |8...$.A%=6:.7:D%|
000005b0  3d 44 25 2d 38 3a f2 45  28 22 44 52 2e 22 2b c3  |=D%-8:.E("DR."+.|
000005c0  44 25 29 3a e1 0d 00 be  d3 dd f2 50 f1 8a 34 2c  |D%):.......P..4,|
000005d0  34 29 22 88 ff 89 86 3c  53 48 49 46 54 3e 87 73  |4)"....<SHIFT>.s|
000005e0  63 72 6f 6c 6c 73 20 69  6e 66 6f 72 6d 61 74 69  |crolls informati|
000005f0  6f 6e 20 22 3a ef 32 38  2c 34 2c 32 31 2c 33 36  |on ":.28,4,21,36|
00000600  2c 31 36 2c 31 32 3a f1  22 20 83 41 66 74 65 72  |,16,12:." .After|
00000610  87 4d 6f 64 65 83 26 87  64 72 69 76 65 83 73 65  |.Mode.&.drive.se|
00000620  6c 65 63 74 69 6f 6e 20  61 20 83 73 63 72 65 65  |lection a .scree|
00000630  6e 20 69 73 82 2a 6c 6f  61 64 65 64 2e 83 20 54  |n is.*loaded.. T|
00000640  68 65 20 63 6f 6c 6f 75  72 73 20 83 63 61 6e 20  |he colours .can |
00000650  62 65 20 61 6c 74 65 72  65 64 20 74 6f 20 6f 70  |be altered to op|
00000660  74 69 6d 69 73 65 20 74  68 65 20 20 83 73 75 62  |timise the  .sub|
00000670  73 65 71 75 65 6e 74 20  63 68 6f 69 63 65 20 6f  |sequent choice o|
00000680  66 20 72 69 62 62 6f 6e  22 27 22 83 63 6f 6c 6f  |f ribbon"'".colo|
00000690  75 72 73 2e 22 3a f2 4c  0d 00 c8 b1 f1 22 83 4b  |urs.":.L.....".K|
000006a0  65 79 73 86 3c 30 2e 2e  37 3e 83 63 79 63 6c 65  |eys.<0..7>.cycle|
000006b0  20 6c 6f 67 69 63 61 6c  20 63 6f 6c 6f 75 72 86  | logical colour.|
000006c0  3c 46 3e 20 3d 83 66 6c  61 73 68 69 6e 67 20 63  |<F> =.flashing c|
000006d0  6f 6c 6f 75 72 73 86 3c  30 3e 3d 38 20 65 74 63  |olours.<0>=8 etc|
000006e0  86 3c 51 3e 83 63 61 6e  63 65 6c 73 20 3c 46 3e  |.<Q>.cancels <F>|
000006f0  20 77 68 69 6c 65 86 3c  40 3e 83 72 65 73 65 74  | while.<@>.reset|
00000700  73 83 61 6c 6c 20 66 6c  61 73 68 69 6e 67 20 63  |s.all flashing c|
00000710  6f 6c 6f 75 72 73 2e 22  27 22 86 3c 44 3e 83 3d  |olours."'".<D>.=|
00000720  64 65 66 61 75 6c 74 20  70 61 6c 65 74 74 65 2e  |default palette.|
00000730  22 27 22 86 3c 43 3e 82  63 6f 6e 74 69 6e 75 65  |"'".<C>.continue|
00000740  73 2e 2e 92 22 3b 3a f2  4c 0d 00 d2 c2 f1 22 86  |s...";:.L.....".|
00000750  86 54 68 65 87 64 75 6d  70 20 72 6f 75 74 69 6e  |.The.dump routin|
00000760  65 86 63 79 63 6c 65 73  20 74 68 72 6f 75 67 68  |e.cycles through|
00000770  86 74 68 65 20 6c 6f 67  69 63 61 6c 20 63 6f 6c  |.the logical col|
00000780  6f 75 72 73 2c 20 72 65  76 65 72 73 65 22 27 22  |ours, reverse"'"|
00000790  86 66 65 65 64 69 6e 67  20 74 68 65 20 70 61 70  |.feeding the pap|
000007a0  65 72 86 61 6e 64 86 70  72 6f 6d 70 74 69 6e 67  |er.and.prompting|
000007b0  20 86 66 6f 72 86 61 86  64 69 66 66 65 72 65 6e  | .for.a.differen|
000007c0  74 86 63 6f 6c 6f 75 72  86 72 69 62 62 6f 6e 22  |t.colour.ribbon"|
000007d0  27 22 86 61 66 74 65 72  86 65 61 63 68 86 73 69  |'".after.each.si|
000007e0  6e 67 6c 65 86 63 6f 6c  6f 75 72 86 73 63 72 65  |ngle.colour.scre|
000007f0  65 6e 20 86 68 61 73 86  62 65 65 6e 86 70 72 69  |en .has.been.pri|
00000800  6e 74 65 64 2e 92 22 3b  3a f2 4c 0d 00 dc a6 f1  |nted..";:.L.....|
00000810  22 86 86 42 65 66 6f 72  65 20 70 72 69 6e 74 69  |"..Before printi|
00000820  6e 67 20 65 61 63 68 20  6c 6f 67 69 63 61 6c 22  |ng each logical"|
00000830  27 22 86 63 6f 6c 6f 75  72 2c 20 6b 65 79 83 3c  |'".colour, key.<|
00000840  46 3e 86 77 69 6c 6c 20  68 69 67 68 6c 69 67 68  |F>.will highligh|
00000850  74 22 27 22 86 74 68 69  73 20 72 65 67 69 6f 6e  |t"'".this region|
00000860  20 6f 6e 20 74 68 65 20  73 63 72 65 65 6e 2e 22  | on the screen."|
00000870  27 22 83 3c 53 3e 86 72  65 73 65 74 73 20 74 68  |'".<S>.resets th|
00000880  65 20 73 63 72 65 65 6e  20 61 6e 64 20 73 68 6f  |e screen and sho|
00000890  75 6c 64 86 62 65 20 75  73 65 64 20 62 65 66 6f  |uld.be used befo|
000008a0  72 65 20 70 72 69 6e 74  69 6e 67 2e 22 3b 3a f2  |re printing.";:.|
000008b0  4c 0d 00 e6 bb f1 22 83  20 3c 66 35 3e 82 61 6c  |L.....". <f5>.al|
000008c0  6c 6f 77 73 20 61 6e 79  20 6c 6f 67 69 63 61 6c  |lows any logical|
000008d0  20 63 6f 6c 6f 75 72 20  82 74 6f 20 62 65 20 73  | colour .to be s|
000008e0  6b 69 70 70 65 64 2e 86  41 66 74 65 72 20 72 65  |kipped..After re|
000008f0  76 65 72 73 65 5f 22 27  22 86 66 65 65 64 69 6e  |verse_"'".feedin|
00000900  67 20 74 68 65 85 63 75  72 73 6f 72 20 6b 65 79  |g the.cursor key|
00000910  73 86 61 64 76 61 6e 63  65 2f 86 72 65 76 65 72  |s.advance/.rever|
00000920  73 65 20 74 68 65 20 70  61 70 65 72 20 28 31 2f  |se the paper (1/|
00000930  32 31 36 20 73 74 65 70  73 29 2e 86 4f 6e 6c 79  |216 steps)..Only|
00000940  81 77 6f 72 6e 86 70 72  69 6e 74 65 72 73 20 6e  |.worn.printers n|
00000950  65 65 64 20 74 68 69 73  22 27 22 86 66 61 63 69  |eed this"'".faci|
00000960  6c 69 74 79 21 2e 92 22  3b 3a f2 4c 0d 00 f0 cd  |lity!..";:.L....|
00000970  f1 22 20 83 41 66 74 65  72 20 70 72 69 6e 74 69  |." .After printi|
00000980  6e 67 20 61 6c 6c 20 74  68 65 20 6c 6f 67 69 63  |ng all the logic|
00000990  61 6c 20 83 63 6f 6c 6f  75 72 73 2c 20 61 6e 79  |al .colours, any|
000009a0  20 63 6f 6c 6f 75 72 20  63 61 6e 20 62 65 22 27  | colour can be"'|
000009b0  22 83 72 65 70 72 69 6e  74 65 64 2e 82 54 68 65  |".reprinted..The|
000009c0  87 6d 61 63 68 69 6e 65  20 63 6f 64 65 20 28 43  |.machine code (C|
000009d0  52 54 87 67 72 61 70 68  69 63 73 29 82 61 6e 64  |RT.graphics).and|
000009e0  20 72 65 76 65 72 73 65  20 70 61 70 65 72 82 66  | reverse paper.f|
000009f0  65 65 64 82 72 6f 75 74  69 6e 65 73 20 61 72 65  |eed.routines are|
00000a00  20 73 75 69 74 61 62 6c  65 20 66 6f 72 86 45 70  | suitable for.Ep|
00000a10  73 6f 6e 20 86 46 58 38  30 82 61 6e 64 20 6f 74  |son .FX80.and ot|
00000a20  68 65 72 20 63 6f 6d 70  61 74 69 62 6c 65 73 2e  |her compatibles.|
00000a30  92 22 3b 3a ef 32 36 3a  e1 0d 00 fa 55 dd f2 41  |.";:.26:....U..A|
00000a40  20 45 24 3d 22 87 66 30  20 73 65 74 20 4d 6f 64  | E$=".f0 set Mod|
00000a50  65 83 66 31 20 69 6e 66  6f 86 66 32 20 63 6f 6e  |e.f1 info.f2 con|
00000a60  74 69 6e 75 65 22 3a 46  24 3d 22 86 66 33 20 63  |tinue":F$=".f3 c|
00000a70  61 74 61 6c 6f 67 75 65  87 66 34 20 2a 6c 6f 61  |atalogue.f4 *loa|
00000a80  64 20 73 63 72 65 65 6e  20 20 20 22 3a e1 0d 01  |d screen   ":...|
00000a90  04 2d dd f2 4c f2 54 28  31 29 3a f1 8a 32 32 2c  |.-..L.T(1):..22,|
00000aa0  35 29 22 88 87 9d 85 3e  3e 89 84 9d 92 22 3b 3a  |5)"....>>....";:|
00000ab0  f5 fd a6 2d 31 3a ef 31  32 3a e1 0d 01 0e 1c dd  |...-1:.12:......|
00000ac0  f2 52 ef 37 3a f5 f1 8a  34 2c 34 29 46 24 3a e7  |.R.7:...4,4)F$:.|
00000ad0  a6 2d 31 31 36 f2 48 0d  01 18 0b fd a6 2d 32 31  |.-116.H......-21|
00000ae0  3a e1 0d 01 22 76 dd f2  48 ef 37 3a f1 8a 34 2c  |:..."v..H.7:..4,|
00000af0  34 29 22 88 ff 89 86 3c  53 48 49 46 54 3e 87 73  |4)"....<SHIFT>.s|
00000b00  63 72 6f 6c 6c 73 20 63  61 74 61 6c 6f 67 75 65  |crolls catalogue|
00000b10  22 3a ef 32 38 2c 30 2c  32 33 2c 33 39 2c 31 33  |":.28,0,23,39,13|
00000b20  2c 31 32 3a ef 31 34 3a  f2 45 28 22 2e 22 29 3a  |,12:.14:.E("."):|
00000b30  f1 8a 32 32 2c 39 29 22  9d 84 3c 53 50 41 43 45  |..22,9)"..<SPACE|
00000b40  3e 20 20 9c 22 3a f5 fd  a6 2d 39 39 3a ef 31 35  |>  .":...-99:.15|
00000b50  2c 31 32 2c 32 36 3a e1  0d 01 2c 78 dd f2 42 ef  |,12,26:...,x..B.|
00000b60  37 2c 32 38 2c 30 2c 32  33 2c 33 39 2c 31 33 2c  |7,28,0,23,39,13,|
00000b70  31 32 3a 44 24 3d c4 39  2c 22 5f 22 29 3a 43 24  |12:D$=.9,"_"):C$|
00000b80  3d 22 22 3a f1 27 27 22  88 84 9d 83 ff 89 82 45  |="":.''".......E|
00000b90  6e 74 65 72 20 66 69 6c  65 20 6e 61 6d 65 87 22  |nter file name."|
00000ba0  3b 44 24 3a ef 33 31 2c  32 33 2c 32 2c 32 33 2c  |;D$:.31,23,2,23,|
00000bb0  31 2c 31 3b 30 3b 30 3b  30 3b 32 33 2c 30 2c 31  |1,1;0;0;0;23,0,1|
00000bc0  30 2c 37 39 3b 30 3b 30  3b 30 3b 3a f2 4d 3a e1  |0,79;0;0;0;:.M:.|
00000bd0  0d 01 36 27 dd f2 4e 3a  4c 25 3d 26 46 46 46 46  |..6'..N:L%=&FFFF|
00000be0  33 30 30 30 3a e7 4d 25  3e 33 20 4c 25 3d 26 46  |3000:.M%>3 L%=&F|
00000bf0  46 46 46 35 38 30 30 0d  01 40 1a f2 45 28 22 4c  |FFF5800..@..E("L|
00000c00  2e 22 2b 43 24 2b 22 20  22 2b c3 7e 4c 25 29 3a  |."+C$+" "+.~L%):|
00000c10  e1 0d 01 4a 1e dd f2 43  20 57 25 3d 31 39 3a e7  |...J...C W%=19:.|
00000c20  4d 25 3d 31 84 4d 25 3d  34 20 57 25 3d 33 39 0d  |M%=1.M%=4 W%=39.|
00000c30  01 54 49 3f 26 37 34 3d  26 38 3a e7 4d 25 3c 34  |.TI?&74=&8:.M%<4|
00000c40  20 21 26 37 35 3d 26 31  31 30 30 33 35 30 30 3a  | !&75=&11003500:|
00000c50  ef 32 38 2c 30 2c 34 2c  57 25 2c 32 8b 21 26 37  |.28,0,4,W%,2.!&7|
00000c60  35 3d 26 31 31 30 30 35  42 30 30 3a ef 32 38 2c  |5=&11005B00:.28,|
00000c70  30 2c 37 2c 57 25 2c 33  0d 01 5e 09 d6 53 25 3a  |0,7,W%,3..^..S%:|
00000c80  e1 0d 01 68 32 dd f2 49  20 3f 26 37 34 3d 26 38  |...h2..I ?&74=&8|
00000c90  3a e7 4d 25 3c 34 21 26  37 35 3d 26 33 35 30 30  |:.M%<4!&75=&3500|
00000ca0  31 31 30 30 8b 21 26 37  35 3d 26 35 42 30 30 31  |1100.!&75=&5B001|
00000cb0  31 30 30 0d 01 72 09 d6  53 25 3a e1 0d 01 7c 21  |100..r..S%:...|!|
00000cc0  dd f2 4b db 3a 47 25 3d  34 3a e7 4d 25 3d 32 47  |..K.:G%=4:.M%=2G|
00000cd0  25 3d 38 8b e7 4d 25 3d  34 47 25 3d 32 0d 01 86  |%=8..M%=4G%=2...|
00000ce0  f2 e7 4d 25 3d 34 f1 22  ff 20 4f 70 74 69 6d 69  |..M%=4.". Optimi|
00000cf0  73 65 20 63 68 6f 69 63  65 20 6f 66 20 72 69 62  |se choice of rib|
00000d00  62 6f 6e 73 22 27 22 ff  20 3c 30 2d 37 3e 20 63  |bons"'". <0-7> c|
00000d10  79 63 6c 65 20 63 6f 6c  6f 75 72 73 22 27 22 ff  |ycle colours"'".|
00000d20  20 3c 46 3e 20 66 6c 61  73 68 69 6e 67 20 ff 20  | <F> flashing . |
00000d30  3c 51 3e 20 6e 6f 72 6d  61 6c 20 63 6f 6c 6f 75  |<Q> normal colou|
00000d40  72 73 22 27 22 ff 20 3c  40 3e 20 72 65 73 65 74  |rs"'". <@> reset|
00000d50  20 66 6c 61 73 68 69 6e  67 20 63 6f 6c 6f 75 72  | flashing colour|
00000d60  73 22 27 22 ff 20 3c 44  3e 20 6e 6f 72 6d 61 6c  |s"'". <D> normal|
00000d70  20 70 61 6c 65 74 74 65  20 ff 20 5b 43 5d 20 63  | palette . [C] c|
00000d80  6f 6e 74 69 6e 75 65 22  3b 3a 8b e7 4d 25 3d 32  |ontinue";:..M%=2|
00000d90  f1 22 ff 3c 30 2d 37 3e  20 63 6f 6c 6f 75 72 73  |.".<0-7> colours|
00000da0  20 ff 20 3c 46 3e 2f 3c  51 3e 20 66 6c 61 73 68  | . <F>/<Q> flash|
00000db0  ff 20 3c 40 3e 72 65 73  65 74 ff 3c 44 3e 65 66  |. <@>reset.<D>ef|
00000dc0  61 75 6c 74 20 ff 3c 43  3e 6f 6e 74 2e 22 3b 0d  |ault .<C>ont.";.|
00000dd0  01 90 ea e7 4d 25 3d 31  f1 22 ff 20 3c 30 2d 37  |....M%=1.". <0-7|
00000de0  3e 20 63 79 63 6c 65 20  63 6f 6c 6f 75 72 73 20  |> cycle colours |
00000df0  ff 20 3c 46 3e 2f 3c 51  3e 20 74 6f 67 67 6c 65  |. <F>/<Q> toggle|
00000e00  20 20 66 6c 61 73 68 69  6e 67 20 63 6f 6c 6f 75  |  flashing colou|
00000e10  72 73 20 ff 20 3c 40 3e  20 72 65 73 65 74 20 66  |rs . <@> reset f|
00000e20  6c 61 73 68 69 6e 67 20  20 20 ff 20 3c 44 3e 20  |lashing   . <D> |
00000e30  64 65 66 61 75 6c 74 20  70 61 6c 65 74 74 65 20  |default palette |
00000e40  ff 20 3c 43 3e 20 63 6f  6e 74 69 6e 75 65 22 3b  |. <C> continue";|
00000e50  3a 8b e7 4d 25 3d 35 f1  22 ff 3c 30 2d 37 3e 20  |:..M%=5.".<0-7> |
00000e60  63 79 63 6c 65 20 63 6f  6c 6f 75 72 73 ff 20 3c  |cycle colours. <|
00000e70  46 3e 2f 3c 51 3e 20 66  6c 61 73 68 69 6e 67 20  |F>/<Q> flashing |
00000e80  20 63 6f 6c 6f 75 72 73  20 ff 20 3c 40 3e 20 72  | colours . <@> r|
00000e90  65 73 65 74 20 66 6c 61  73 68 69 6e 67 20 ff 20  |eset flashing . |
00000ea0  3c 44 3e 65 66 61 75 6c  74 ff 20 3c 43 3e 20 63  |<D>efault. <C> c|
00000eb0  6f 6e 74 69 6e 75 65 22  3b 0d 01 9a 35 55 25 3d  |ontinue";...5U%=|
00000ec0  30 3a 52 25 3d 30 3a 46  25 3d 30 3a f5 45 25 3d  |0:R%=0:F%=0:.E%=|
00000ed0  b9 3a 48 25 3d a5 2d 34  38 3a e7 48 25 3c 30 84  |.:H%=.-48:.H%<0.|
00000ee0  48 25 3e 47 25 2d 31 ef  37 3a 45 25 3d 30 0d 01  |H%>G%-1.7:E%=0..|
00000ef0  a4 42 e7 48 25 3d 31 36  f2 53 8b e7 48 25 3d 32  |.B.H%=16.S..H%=2|
00000f00  32 55 25 3d 38 8b e7 48  25 3d 33 33 55 25 3d 30  |2U%=8..H%=33U%=0|
00000f10  8b e7 48 25 3d 31 39 20  45 25 3d 30 3a 46 25 3d  |..H%=19 E%=0:F%=|
00000f20  b9 8b e7 48 25 3d 32 30  ef 32 30 3a 45 25 3d 30  |...H%=20.20:E%=0|
00000f30  0d 01 ae 13 e7 45 25 ef  31 39 2c 48 25 2c 52 25  |.....E%.19,H%,R%|
00000f40  3b 30 3b 0d 01 b8 18 52  25 3d 52 25 2b 31 3a e7  |;0;....R%=R%+1:.|
00000f50  52 25 3e 37 2b 55 25 52  25 3d 30 0d 01 c2 09 fd  |R%>7+U%R%=0.....|
00000f60  46 25 3a e1 0d 01 cc 2b  dd f2 53 e3 5a 25 3d 47  |F%:....+..S.Z%=G|
00000f70  25 b8 32 2a 47 25 2d 31  3a ef 31 39 2c 5a 25 2c  |%.2*G%-1:.19,Z%,|
00000f80  5a 25 2d 47 25 3b 30 3b  3a ed 3a ef 37 3a e1 0d  |Z%-G%;0;:.:.7:..|
00000f90  01 d6 61 dd f2 4d f2 45  28 22 46 58 32 31 22 29  |..a..M.E("FX21")|
00000fa0  3a f5 44 24 3d be 3a e7  97 44 24 3d 26 37 46 80  |:.D$=.:..D$=&7F.|
00000fb0  a9 43 24 3e 30 20 43 24  3d c0 43 24 2c a9 43 24  |.C$>0 C$=.C$,.C$|
00000fc0  2d 31 29 3a f1 44 24 3b  8b e7 97 44 24 3e 33 31  |-1):.D$;...D$>31|
00000fd0  80 97 44 24 3c 31 32 37  3a e7 a9 43 24 3c 39 20  |..D$<127:..C$<9 |
00000fe0  43 24 3d 43 24 2b 44 24  3a f1 44 24 3b 8b ef 37  |C$=C$+D$:.D$;..7|
00000ff0  0d 01 e0 1e fd a6 2d 37  34 80 43 24 3c 3e 22 22  |......-74.C$<>""|
00001000  80 bb c0 44 24 2c 30 29  3c 3e 31 33 3a e1 0d 01  |...D$,0)<>13:...|
00001010  ea 1c dd f2 4f 3a 43 25  3d 30 3a 4a 25 3d 30 3a  |....O:C%=0:J%=0:|
00001020  f5 49 25 3d 30 3a db 3a  ef 37 0d 01 f4 eb e7 4d  |.I%=0:.:.7.....M|
00001030  25 3d 35 f1 22 43 6f 6c  6f 75 72 20 22 3b 43 25  |%=5."Colour ";C%|
00001040  3b 22 ff 6b 65 79 20 3c  46 3e 2f 3c 53 3e 74 6f  |;".key <F>/<S>to|
00001050  20 6c 6f 63 61 74 65 ff  49 6e 73 65 72 74 20 6e  | locate.Insert n|
00001060  65 77 72 69 62 62 6f 6e  2b 3c 52 45 54 2e 3e 20  |ewribbon+<RET.> |
00001070  6f 72 20 6b 65 79 3c 66  35 3e 20 74 6f 20 73 6b  |or key<f5> to sk|
00001080  69 70 20 63 6f 6c 6f 75  72 22 3b 3a 8b e7 4d 25  |ip colour";:..M%|
00001090  3d 31 f1 22 ff 20 50 72  69 6e 74 20 63 6f 6c 6f  |=1.". Print colo|
000010a0  75 72 20 23 22 3b 43 25  3b 22 20 ff 20 4c 6f 63  |ur #";C%;" . Loc|
000010b0  61 74 65 20 77 69 74 68  20 3c 46 3e 66 6c 61 73  |ate with <F>flas|
000010c0  68 2f 3c 53 3e 20 73 74  65 61 64 79 20 ff 20 49  |h/<S> steady . I|
000010d0  6e 73 65 72 74 20 72 69  62 62 6f 6e 20 26 20 6b  |nsert ribbon & k|
000010e0  65 79 20 3c 52 45 54 2e  3e 74 6f 20 70 72 69 6e  |ey <RET.>to prin|
000010f0  74 20 ff 20 54 6f 20 73  6b 69 70 20 63 6f 6c 6f  |t . To skip colo|
00001100  75 72 20 23 22 3b 43 25  3b 22 20 6b 65 79 20 3c  |ur #";C%;" key <|
00001110  66 35 3e 22 3b 0d 01 fe  e5 e7 4d 25 3d 34 f1 22  |f5>";.....M%=4."|
00001120  ff 20 50 72 69 6e 74 20  28 6c 6f 67 69 63 61 6c  |. Print (logical|
00001130  29 20 63 6f 6c 6f 75 72  20 23 22 3b 43 25 27 22  |) colour #";C%'"|
00001140  ff 20 4c 6f 63 61 74 65  20 77 69 74 68 20 3c 46  |. Locate with <F|
00001150  3e 20 66 6c 61 73 68 20  3c 53 3e 20 73 74 65 61  |> flash <S> stea|
00001160  64 79 22 27 22 ff 20 49  6e 73 65 72 74 20 72 69  |dy"'". Insert ri|
00001170  62 62 6f 6e 20 26 20 6b  65 79 20 3c 52 45 54 2e  |bbon & key <RET.|
00001180  3e 20 74 6f 20 70 72 69  6e 74 22 27 22 ff 20 54  |> to print"'". T|
00001190  6f 20 73 6b 69 70 20 63  6f 6c 6f 75 72 20 23 22  |o skip colour #"|
000011a0  3b 43 25 3b 22 20 6b 65  79 20 3c 66 35 3e 22 3b  |;C%;" key <f5>";|
000011b0  3a 8b e7 4d 25 3d 32 f1  22 ff 43 6f 6c 2e 23 22  |:..M%=2.".Col.#"|
000011c0  3b 43 25 3b 22 20 ff 3c  46 3e 2f 3c 53 3e 73 68  |;C%;" .<F>/<S>sh|
000011d0  6f 77 63 6f 6c 2e 20 ff  20 3c 66 35 3e 73 6b 69  |owcol. . <f5>ski|
000011e0  70 20 63 6f 6c 2e ff 20  72 69 62 62 6f 6e 20 2b  |p col.. ribbon +|
000011f0  3c 52 45 54 55 52 4e 3e  22 3b 0d 02 08 63 51 25  |<RETURN>";...cQ%|
00001200  3d 26 33 36 46 3a 50 25  3d 51 25 3f 43 25 3a f5  |=&36F:P%=Q%?C%:.|
00001210  e7 a6 2d 36 38 ef 31 39  2c 43 25 2c 39 3b 30 3b  |..-68.19,C%,9;0;|
00001220  8b e7 a6 2d 38 32 ef 31  39 2c 43 25 2c 50 25 3b  |...-82.19,C%,P%;|
00001230  30 3b 8b e7 a6 2d 31 31  37 db 3a f1 22 ff 53 6b  |0;...-117.:.".Sk|
00001240  69 70 70 69 6e 67 20 63  6f 6c 6f 75 72 20 22 3b  |ipping colour ";|
00001250  43 25 3a 49 25 3d b9 3a  f2 54 28 32 29 0d 02 12  |C%:I%=.:.T(2)...|
00001260  23 fd a6 2d 37 34 84 49  25 3a ef 37 3a e7 49 25  |#..-74.I%:.7:.I%|
00001270  8c 8d 54 66 42 8b e7 43  25 3e 30 80 4a 25 f2 4a  |..TfB..C%>0.J%.J|
00001280  0d 02 1c 22 db 3a f2 49  3a 4a 25 3d b9 3a 3f 26  |...".:.I:J%=.:?&|
00001290  37 33 3d 32 35 35 3a 3f  26 38 38 3d 43 25 3a d6  |73=255:?&88=C%:.|
000012a0  42 25 0d 02 26 4d 43 25  3d 43 25 2b 31 3a fd 43  |B%..&MC%=C%+1:.C|
000012b0  25 3d 47 25 3a 56 25 3d  30 3a f5 db 3a f1 22 ff  |%=G%:V%=0:..:.".|
000012c0  20 52 65 70 65 61 74 20  61 6e 79 20 63 6f 6c 6f  | Repeat any colo|
000012d0  75 72 20 28 59 2f 4e 29  22 3a 41 3d a5 3a e7 a6  |ur (Y/N)":A=.:..|
000012e0  2d 36 39 f2 55 8b e7 a6  2d 38 36 56 25 3d b9 0d  |-69.U...-86V%=..|
000012f0  02 30 09 fd 56 25 3a e1  0d 02 3a 57 dd f2 55 f5  |.0..V%:...:W..U.|
00001300  db 3a ef 37 3a e8 22 ff  20 43 6f 6c 6f 75 72 20  |.:.7:.". Colour |
00001310  6e 75 6d 62 65 72 3a 22  42 24 3a fd a9 42 24 3e  |number:"B$:..B$>|
00001320  30 80 bb 42 24 3e 2d 31  80 bb 42 24 3c 31 36 3a  |0..B$>-1..B$<16:|
00001330  f2 4a 3a db 3a f2 49 3a  3f 26 37 33 3d 32 35 35  |.J:.:.I:?&73=255|
00001340  3a 3f 26 38 38 3d bb 42  24 3a d6 42 25 3a e1 0d  |:?&88=.B$:.B%:..|
00001350  02 44 da dd f2 4a db 3a  ef 37 2c 33 3a f1 22 ff  |.D...J.:.7,3:.".|
00001360  4b 65 79 20 3c 52 3e 20  74 6f 20 72 65 76 65 72  |Key <R> to rever|
00001370  73 65 20 66 65 65 64 20  66 6f 72 20 6e 65 78 74  |se feed for next|
00001380  20 63 6f 6c 6f 72 22 3b  3a f5 fd a6 2d 35 32 3a  | color";:...-52:|
00001390  ef 32 3a 4b 25 3d 30 3a  f5 ef 31 2c 37 2c 31 2c  |.2:K%=0:..1,7,1,|
000013a0  32 37 2c 31 2c 31 30 36  2c 31 2c 32 35 35 3a 4b  |27,1,106,1,255:K|
000013b0  25 3d 4b 25 2b 31 3a fd  4b 25 3d 36 3a ef 31 2c  |%=K%+1:.K%=6:.1,|
000013c0  37 2c 31 2c 32 37 2c 31  2c 31 30 36 2c 31 2c 32  |7,1,27,1,106,1,2|
000013d0  34 37 3a f2 54 28 38 29  3a db 3a ef 33 3a f1 22  |47:.T(8):.:.3:."|
000013e0  ff 20 43 75 72 73 6f 72  20 6b 65 79 73 3a 20 66  |. Cursor keys: f|
000013f0  69 6e 65 20 61 64 6a 75  73 74 20 70 61 70 65 72  |ine adjust paper|
00001400  22 27 22 ff 20 3c 52 45  54 55 52 4e 3e 20 74 6f  |"'". <RETURN> to|
00001410  20 70 72 69 6e 74 22 3b  3a ef 32 3a f2 45 28 22  | print";:.2:.E("|
00001420  46 58 34 2c 31 22 29 3a  f5 0d 02 4e 3d 4e 25 3d  |FX4,1"):...N=N%=|
00001430  a5 3a e7 4e 25 3d 26 38  42 ef 31 2c 37 2c 31 2c  |.:.N%=&8B.1,7,1,|
00001440  32 37 2c 31 2c 37 34 2c  31 2c 31 8b e7 4e 25 3d  |27,1,74,1,1..N%=|
00001450  26 38 41 ef 31 2c 37 2c  31 2c 32 37 2c 31 2c 31  |&8A.1,7,1,27,1,1|
00001460  30 36 2c 31 2c 31 0d 02  58 1a fd a6 2d 37 34 3a  |06,1,1..X...-74:|
00001470  f2 45 28 22 46 58 34 2c  32 22 29 3a ef 33 3a e1  |.E("FX4,2"):.3:.|
00001480  0d ff                                             |..|
00001482

24-06-88/COLOUR2.m0

24-06-88/COLOUR2.m1

24-06-88/COLOUR2.m2

24-06-88/COLOUR2.m4

24-06-88/COLOUR2.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .