�>!boot
:
D� Boot and Canon PW 1080A printer font loader for 1st Word Plus.
(:
2F� Uses FONTAID fonts and a loader written by B.Carroll, June 1988.
<L� Note that the 1st Word Plus printer driver must be amended as follows:
FD�      1.  Initialisation (&1F)+(&20) must be disabled with '*'.
PB�      2.  Bytes for NLQ Italic on  (&C) are: 1B,25,1,0 (hex),
ZB�      3.  Bytes for NLQ Italic off (&D) are: 1B,25,0,0 (hex),
dH�      4.  Termination (&21) must be disabled too, otherwise you can
n8�          use the font only for the first printing.
xK� For 1 drive; un-REM lines 200-1, put '0' & 'L. :0.$.' lines 150, 290.
�H� Line 170 turns off my printer buffer, set during autoboot from RFS
�D� You can delete it and line 160 if no such module is installed.
�:
�D� � � �tt@:�            continues program if PM is not installed
�*RMKILL PrinterModule
��3:*FX225,1
�"� � �3,7:�:�" @ line ";�:�TvA
�
*FX202,16
�*KEY 1 QUIT|M1stWord+|M
�V� �(�prtrOK) �'"Put printer on-line and Auto-Linefeed switch OFF (up)":� � �prtrOK
�7�'"Put FONTAID disc in drive 1, then press any key"
�	� � �
�O�'"Enter Dir/Name of font to load in printer (RETURN for 'Italic'): "font$

� font$="" font$="F.ITALIC"

�download(font$)

J�:   PRINT'"Replace 1ST WORD PLUS disc in drive 0, then press any key"

"�:   REPEAT UNTIL GET

,*FX138,0,129

6	� � �

@�#0

J�

T:

^��download(file$)

h� byte%,m%:� m% &2000

r"�("L. :1.$."+file$+" 00"+�~m%)

|.�'"File in RAM, downloading to printer..."

�J�2,1,27,1,64,1,27,1,82,1,0:�            On, reset, internat. char. set

�G�1,27,1,40,1,27,1,37,1,1,1,0:�          NLQ on, using P C Generator

�I�1,27,1,38,1,0,1,0,1,127:�              Program chars. 0-127 into RAM

�9� byte%=0 � &17FF:�1,m%?byte%:�:� Send char. patterns

�7�3:�                                    Printer off

�J�'"Font "file$" downloaded. Use 'Italic' in 1st Word Plus to access."'

��

� :

�$ݤprtrOK:� x%,y%,f1%,f2%:*FX21,3

�.ș "OS_Byte",&80,&FC � x%,y%:f1%=x%+256*y%

�$�2,1,0,1,0,1,0,1,0,1,0,1,0,1,0,3

��=0:� � �>50

�.ș "OS_Byte",&80,&FC � x%,y%:f2%=x%+256*y%
� f2%=f1%  =� � =�
�

00000000  0d 00 0a 0b f4 3e 21 62  6f 6f 74 0d 00 14 05 3a  |.....>!boot....:|
00000010  0d 00 1e 44 f4 20 42 6f  6f 74 20 61 6e 64 20 43  |...D. Boot and C|
00000020  61 6e 6f 6e 20 50 57 20  31 30 38 30 41 20 70 72  |anon PW 1080A pr|
00000030  69 6e 74 65 72 20 66 6f  6e 74 20 6c 6f 61 64 65  |inter font loade|
00000040  72 20 66 6f 72 20 31 73  74 20 57 6f 72 64 20 50  |r for 1st Word P|
00000050  6c 75 73 2e 0d 00 28 05  3a 0d 00 32 46 f4 20 55  |lus...(.:..2F. U|
00000060  73 65 73 20 46 4f 4e 54  41 49 44 20 66 6f 6e 74  |ses FONTAID font|
00000070  73 20 61 6e 64 20 61 20  6c 6f 61 64 65 72 20 77  |s and a loader w|
00000080  72 69 74 74 65 6e 20 62  79 20 42 2e 43 61 72 72  |ritten by B.Carr|
00000090  6f 6c 6c 2c 20 4a 75 6e  65 20 31 39 38 38 2e 0d  |oll, June 1988..|
000000a0  00 3c 4c f4 20 4e 6f 74  65 20 74 68 61 74 20 74  |.<L. Note that t|
000000b0  68 65 20 31 73 74 20 57  6f 72 64 20 50 6c 75 73  |he 1st Word Plus|
000000c0  20 70 72 69 6e 74 65 72  20 64 72 69 76 65 72 20  | printer driver |
000000d0  6d 75 73 74 20 62 65 20  61 6d 65 6e 64 65 64 20  |must be amended |
000000e0  61 73 20 66 6f 6c 6c 6f  77 73 3a 0d 00 46 44 f4  |as follows:..FD.|
000000f0  20 20 20 20 20 20 31 2e  20 20 49 6e 69 74 69 61  |      1.  Initia|
00000100  6c 69 73 61 74 69 6f 6e  20 28 26 31 46 29 2b 28  |lisation (&1F)+(|
00000110  26 32 30 29 20 6d 75 73  74 20 62 65 20 64 69 73  |&20) must be dis|
00000120  61 62 6c 65 64 20 77 69  74 68 20 27 2a 27 2e 0d  |abled with '*'..|
00000130  00 50 42 f4 20 20 20 20  20 20 32 2e 20 20 42 79  |.PB.      2.  By|
00000140  74 65 73 20 66 6f 72 20  4e 4c 51 20 49 74 61 6c  |tes for NLQ Ital|
00000150  69 63 20 6f 6e 20 20 28  26 43 29 20 61 72 65 3a  |ic on  (&C) are:|
00000160  20 31 42 2c 32 35 2c 31  2c 30 20 28 68 65 78 29  | 1B,25,1,0 (hex)|
00000170  2c 0d 00 5a 42 f4 20 20  20 20 20 20 33 2e 20 20  |,..ZB.      3.  |
00000180  42 79 74 65 73 20 66 6f  72 20 4e 4c 51 20 49 74  |Bytes for NLQ It|
00000190  61 6c 69 63 20 6f 66 66  20 28 26 44 29 20 61 72  |alic off (&D) ar|
000001a0  65 3a 20 31 42 2c 32 35  2c 30 2c 30 20 28 68 65  |e: 1B,25,0,0 (he|
000001b0  78 29 2c 0d 00 64 48 f4  20 20 20 20 20 20 34 2e  |x),..dH.      4.|
000001c0  20 20 54 65 72 6d 69 6e  61 74 69 6f 6e 20 28 26  |  Termination (&|
000001d0  32 31 29 20 6d 75 73 74  20 62 65 20 64 69 73 61  |21) must be disa|
000001e0  62 6c 65 64 20 74 6f 6f  2c 20 6f 74 68 65 72 77  |bled too, otherw|
000001f0  69 73 65 20 79 6f 75 20  63 61 6e 0d 00 6e 38 f4  |ise you can..n8.|
00000200  20 20 20 20 20 20 20 20  20 20 75 73 65 20 74 68  |          use th|
00000210  65 20 66 6f 6e 74 20 6f  6e 6c 79 20 66 6f 72 20  |e font only for |
00000220  74 68 65 20 66 69 72 73  74 20 70 72 69 6e 74 69  |the first printi|
00000230  6e 67 2e 0d 00 78 4b f4  20 46 6f 72 20 31 20 64  |ng...xK. For 1 d|
00000240  72 69 76 65 3b 20 75 6e  2d 52 45 4d 20 6c 69 6e  |rive; un-REM lin|
00000250  65 73 20 32 30 30 2d 31  2c 20 70 75 74 20 27 30  |es 200-1, put '0|
00000260  27 20 26 20 27 4c 2e 20  3a 30 2e 24 2e 27 20 6c  |' & 'L. :0.$.' l|
00000270  69 6e 65 73 20 31 35 30  2c 20 32 39 30 2e 0d 00  |ines 150, 290...|
00000280  82 48 f4 20 4c 69 6e 65  20 31 37 30 20 74 75 72  |.H. Line 170 tur|
00000290  6e 73 20 6f 66 66 20 6d  79 20 70 72 69 6e 74 65  |ns off my printe|
000002a0  72 20 62 75 66 66 65 72  2c 20 73 65 74 20 64 75  |r buffer, set du|
000002b0  72 69 6e 67 20 61 75 74  6f 62 6f 6f 74 20 66 72  |ring autoboot fr|
000002c0  6f 6d 20 52 46 53 0d 00  8c 44 f4 20 59 6f 75 20  |om RFS...D. You |
000002d0  63 61 6e 20 64 65 6c 65  74 65 20 69 74 20 61 6e  |can delete it an|
000002e0  64 20 6c 69 6e 65 20 31  36 30 20 69 66 20 6e 6f  |d line 160 if no|
000002f0  20 73 75 63 68 20 6d 6f  64 75 6c 65 20 69 73 20  | such module is |
00000300  69 6e 73 74 61 6c 6c 65  64 2e 0d 00 96 05 3a 0d  |installed.....:.|
00000310  00 a0 44 ee 20 85 20 e5  20 8d 74 74 40 3a f4 20  |..D. . . .tt@:. |
00000320  20 20 20 20 20 20 20 20  20 20 20 63 6f 6e 74 69  |           conti|
00000330  6e 75 65 73 20 70 72 6f  67 72 61 6d 20 69 66 20  |nues program if |
00000340  50 4d 20 69 73 20 6e 6f  74 20 69 6e 73 74 61 6c  |PM is not instal|
00000350  6c 65 64 0d 00 aa 19 2a  52 4d 4b 49 4c 4c 20 50  |led....*RMKILL P|
00000360  72 69 6e 74 65 72 4d 6f  64 75 6c 65 0d 00 b4 0f  |rinterModule....|
00000370  eb 33 3a 2a 46 58 32 32  35 2c 31 0d 00 be 22 ee  |.3:*FX225,1...".|
00000380  20 85 20 ef 33 2c 37 3a  f6 3a f1 22 20 40 20 6c  | . .3,7:.:." @ l|
00000390  69 6e 65 20 22 3b 9e 3a  e5 8d 54 76 41 0d 00 c8  |ine ";.:..TvA...|
000003a0  0d 2a 46 58 32 30 32 2c  31 36 0d 00 d2 1b 2a 4b  |.*FX202,16....*K|
000003b0  45 59 20 31 20 51 55 49  54 7c 4d 31 73 74 57 6f  |EY 1 QUIT|M1stWo|
000003c0  72 64 2b 7c 4d 0d 00 dc  56 e7 20 ac 28 a4 70 72  |rd+|M...V. .(.pr|
000003d0  74 72 4f 4b 29 20 f1 27  22 50 75 74 20 70 72 69  |trOK) .'"Put pri|
000003e0  6e 74 65 72 20 6f 6e 2d  6c 69 6e 65 20 61 6e 64  |nter on-line and|
000003f0  20 41 75 74 6f 2d 4c 69  6e 65 66 65 65 64 20 73  | Auto-Linefeed s|
00000400  77 69 74 63 68 20 4f 46  46 20 28 75 70 29 22 3a  |witch OFF (up)":|
00000410  f5 20 fd 20 a4 70 72 74  72 4f 4b 0d 00 e6 37 f1  |. . .prtrOK...7.|
00000420  27 22 50 75 74 20 46 4f  4e 54 41 49 44 20 64 69  |'"Put FONTAID di|
00000430  73 63 20 69 6e 20 64 72  69 76 65 20 31 2c 20 74  |sc in drive 1, t|
00000440  68 65 6e 20 70 72 65 73  73 20 61 6e 79 20 6b 65  |hen press any ke|
00000450  79 22 0d 00 f0 09 f5 20  fd 20 a5 0d 00 fa 4f e8  |y"..... . ....O.|
00000460  86 27 22 45 6e 74 65 72  20 44 69 72 2f 4e 61 6d  |.'"Enter Dir/Nam|
00000470  65 20 6f 66 20 66 6f 6e  74 20 74 6f 20 6c 6f 61  |e of font to loa|
00000480  64 20 69 6e 20 70 72 69  6e 74 65 72 20 28 52 45  |d in printer (RE|
00000490  54 55 52 4e 20 66 6f 72  20 27 49 74 61 6c 69 63  |TURN for 'Italic|
000004a0  27 29 3a 20 22 66 6f 6e  74 24 0d 01 04 1f e7 20  |'): "font$..... |
000004b0  66 6f 6e 74 24 3d 22 22  20 66 6f 6e 74 24 3d 22  |font$="" font$="|
000004c0  46 2e 49 54 41 4c 49 43  22 0d 01 0e 14 f2 64 6f  |F.ITALIC".....do|
000004d0  77 6e 6c 6f 61 64 28 66  6f 6e 74 24 29 0d 01 18  |wnload(font$)...|
000004e0  4a f4 3a 20 20 20 50 52  49 4e 54 27 22 52 65 70  |J.:   PRINT'"Rep|
000004f0  6c 61 63 65 20 31 53 54  20 57 4f 52 44 20 50 4c  |lace 1ST WORD PL|
00000500  55 53 20 64 69 73 63 20  69 6e 20 64 72 69 76 65  |US disc in drive|
00000510  20 30 2c 20 74 68 65 6e  20 70 72 65 73 73 20 61  | 0, then press a|
00000520  6e 79 20 6b 65 79 22 0d  01 22 19 f4 3a 20 20 20  |ny key".."..:   |
00000530  52 45 50 45 41 54 20 55  4e 54 49 4c 20 47 45 54  |REPEAT UNTIL GET|
00000540  0d 01 2c 10 2a 46 58 31  33 38 2c 30 2c 31 32 39  |..,.*FX138,0,129|
00000550  0d 01 36 09 ee 20 85 20  87 0d 01 40 07 d9 23 30  |..6.. . ...@..#0|
00000560  0d 01 4a 05 e0 0d 01 54  05 3a 0d 01 5e 15 dd f2  |..J....T.:..^...|
00000570  64 6f 77 6e 6c 6f 61 64  28 66 69 6c 65 24 29 0d  |download(file$).|
00000580  01 68 19 ea 20 62 79 74  65 25 2c 6d 25 3a de 20  |.h.. byte%,m%:. |
00000590  6d 25 20 26 32 30 30 30  0d 01 72 22 ff 28 22 4c  |m% &2000..r".("L|
000005a0  2e 20 3a 31 2e 24 2e 22  2b 66 69 6c 65 24 2b 22  |. :1.$."+file$+"|
000005b0  20 30 30 22 2b c3 7e 6d  25 29 0d 01 7c 2e f1 27  | 00"+.~m%)..|..'|
000005c0  22 46 69 6c 65 20 69 6e  20 52 41 4d 2c 20 64 6f  |"File in RAM, do|
000005d0  77 6e 6c 6f 61 64 69 6e  67 20 74 6f 20 70 72 69  |wnloading to pri|
000005e0  6e 74 65 72 2e 2e 2e 22  0d 01 86 4a ef 32 2c 31  |nter..."...J.2,1|
000005f0  2c 32 37 2c 31 2c 36 34  2c 31 2c 32 37 2c 31 2c  |,27,1,64,1,27,1,|
00000600  38 32 2c 31 2c 30 3a f4  20 20 20 20 20 20 20 20  |82,1,0:.        |
00000610  20 20 20 20 4f 6e 2c 20  72 65 73 65 74 2c 20 69  |    On, reset, i|
00000620  6e 74 65 72 6e 61 74 2e  20 63 68 61 72 2e 20 73  |nternat. char. s|
00000630  65 74 0d 01 90 47 ef 31  2c 32 37 2c 31 2c 34 30  |et...G.1,27,1,40|
00000640  2c 31 2c 32 37 2c 31 2c  33 37 2c 31 2c 31 2c 31  |,1,27,1,37,1,1,1|
00000650  2c 30 3a f4 20 20 20 20  20 20 20 20 20 20 4e 4c  |,0:.          NL|
00000660  51 20 6f 6e 2c 20 75 73  69 6e 67 20 50 20 43 20  |Q on, using P C |
00000670  47 65 6e 65 72 61 74 6f  72 0d 01 9a 49 ef 31 2c  |Generator...I.1,|
00000680  32 37 2c 31 2c 33 38 2c  31 2c 30 2c 31 2c 30 2c  |27,1,38,1,0,1,0,|
00000690  31 2c 31 32 37 3a f4 20  20 20 20 20 20 20 20 20  |1,127:.         |
000006a0  20 20 20 20 20 50 72 6f  67 72 61 6d 20 63 68 61  |     Program cha|
000006b0  72 73 2e 20 30 2d 31 32  37 20 69 6e 74 6f 20 52  |rs. 0-127 into R|
000006c0  41 4d 0d 01 a4 39 e3 20  62 79 74 65 25 3d 30 20  |AM...9. byte%=0 |
000006d0  b8 20 26 31 37 46 46 3a  ef 31 2c 6d 25 3f 62 79  |. &17FF:.1,m%?by|
000006e0  74 65 25 3a ed 3a f4 20  53 65 6e 64 20 63 68 61  |te%:.:. Send cha|
000006f0  72 2e 20 70 61 74 74 65  72 6e 73 0d 01 ae 37 ef  |r. patterns...7.|
00000700  33 3a f4 20 20 20 20 20  20 20 20 20 20 20 20 20  |3:.             |
00000710  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000720  20 20 20 20 20 20 20 50  72 69 6e 74 65 72 20 6f  |       Printer o|
00000730  66 66 0d 01 b8 4a f1 27  22 46 6f 6e 74 20 22 66  |ff...J.'"Font "f|
00000740  69 6c 65 24 22 20 64 6f  77 6e 6c 6f 61 64 65 64  |ile$" downloaded|
00000750  2e 20 55 73 65 20 27 49  74 61 6c 69 63 27 20 69  |. Use 'Italic' i|
00000760  6e 20 31 73 74 20 57 6f  72 64 20 50 6c 75 73 20  |n 1st Word Plus |
00000770  74 6f 20 61 63 63 65 73  73 2e 22 27 0d 01 c2 05  |to access."'....|
00000780  e1 0d 01 cc 06 20 3a 0d  01 d6 24 dd a4 70 72 74  |..... :...$..prt|
00000790  72 4f 4b 3a ea 20 78 25  2c 79 25 2c 66 31 25 2c  |rOK:. x%,y%,f1%,|
000007a0  66 32 25 3a 2a 46 58 32  31 2c 33 0d 01 e0 2e c8  |f2%:*FX21,3.....|
000007b0  99 20 22 4f 53 5f 42 79  74 65 22 2c 26 38 30 2c  |. "OS_Byte",&80,|
000007c0  26 46 43 20 b8 20 78 25  2c 79 25 3a 66 31 25 3d  |&FC . x%,y%:f1%=|
000007d0  78 25 2b 32 35 36 2a 79  25 0d 01 ea 24 ef 32 2c  |x%+256*y%...$.2,|
000007e0  31 2c 30 2c 31 2c 30 2c  31 2c 30 2c 31 2c 30 2c  |1,0,1,0,1,0,1,0,|
000007f0  31 2c 30 2c 31 2c 30 2c  31 2c 30 2c 33 0d 01 f4  |1,0,1,0,1,0,3...|
00000800  10 d1 3d 30 3a f5 20 fd  20 91 3e 35 30 0d 01 fe  |..=0:. . .>50...|
00000810  2e c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 26 38  |... "OS_Byte",&8|
00000820  30 2c 26 46 43 20 b8 20  78 25 2c 79 25 3a 66 32  |0,&FC . x%,y%:f2|
00000830  25 3d 78 25 2b 32 35 36  2a 79 25 0d 02 08 16 e7  |%=x%+256*y%.....|
00000840  20 66 32 25 3d 66 31 25  20 20 3d b9 20 8b 20 3d  | f2%=f1%  =. . =|
00000850  a3 0d ff                                          |...|
00000853