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