!� >1ST_WP.V1W+_RF Version 1.1

� By Clive Williams
(� 19.5.1988
2
<1size$="1":justify$="1":linespace$="1":pound=�
F�#0
P&� 12:�:� 19,0,4,0,0,0,19,1,6,0,0,0
Z/�20,2);"View to 1st Word+ File Conversion"
d	�init
n
x$�0,5);"Name of VIEW file";view$
�.�0,6);"Name of 1st Word+ file";firstword$
�view%=�(view$)
�
�� view%<>0 �
��0,7);"Converting line ";
�firstword%=�(firstword$)
��header
�ȕ � �#view%
�line$=�readline
�� line$<>"" �
�Ȏ �(�line$,1)) �
�� &80 : �embedded
�� &81 : �new_ruler

�

�

�writeline(line$)

"�

,�#0

6
�messages

@�

J�

T

^
��init

h� i%

r=hts%=5:ht1%=1:ht2%=2:line%=0:lf$=�(&0A):htcode%=&80:lm%=0

|0printfile=�:addruler=�:pagelayout=�:hilite=�

�LMcommand=�:header=�

�$� flag%(hts%+1),pdcodes%(hts%+1)

�ruler%=74:r$="......."+�(0)

�ruler$=�9,r$)+".."

�;r$=�(&1F)+"9["+ruler$+"]"+size$+justify$+linespace$+lf$

�
� �DZJ

�,� i%=1 � hts%:� flag%(i%),pdcodes%(i%):�

�� pound%

��

�

���header

�
� header$

�header=�
>header$=�(&1F)+"0"+"6601030305800"+lf$:�writeline(header$)
<header$=�(&1F)+"1"+�(&1F)+�(&1F)+lf$:�writeline(header$)
@header$=�(&1F)+"2"+�(&1F)+"#"+�(&1F)+lf$:�writeline(header$)
&8header$=�(&1F)+"F"+"0110030"+lf$:�writeline(header$)
0�write_ruler
:�
D
Nݤreadline
X� a%,a$
bline%+=1
l!�16,7);�5," "):�16,7);line%
va%=�#view%
�
ȕ a%<>&D
�a$=a$+�(a%)
�a%=�#view%
��
�=a$
�
���writeline(a$)
�� i%,j%,k%,char%,pos%
�� a$<>"" �
�
pos%=0
�,� lm%<>0 � (�a$,1)=�(&0B) � LMcommand) �
�header=�
�"pos%=lm%:i%=0:�#firstword%,&1D

ȕ i%<lm%
�#firstword%,&1C:i%+=1
�
 �
*� i%=1 � �(a$)
4char%=�(�a$,i%,1))
>Ȏ char% �
H6� &01 :�#firstword%,&0B:i%+=2:char%=�(�a$,i%-1,1))
R� &09 :
\!� ��ruler$,pos%+1),�(0))<>0 �
fȕ �ruler$,pos%+1,1)<>�(0)
p�#firstword%,&20
zpos%+=1
��
��
�char%=&20:pos%+=1
�� &0B :char%=&00:pos%+=1
�� &1A :char%=&1E:pos%+=1
�� &1C :
��#firstword%,&1B
�!htcode%=htcode% � flag%(ht1%)
�� �a$,i%+1,1)=�(&1D) �
�'i%+=1:htcode%=htcode% � flag%(ht2%)
��
�char%=htcode%
�� &1D :
�#firstword%,&1B
!htcode%=htcode% � flag%(ht2%)
� �a$,i%+1,1)=�(&1C) �
$'i%+=1:htcode%=htcode% � flag%(ht1%)
.�
8char%=htcode%
B� &20 :char%=&1E:pos%+=1
L7� pound% : � (pound � � header) � char%=&A3:pos%+=1
V
:pos%+=1
`�
j#� char%<>0 � �#firstword%,char%
t�
~�
�
� a$="" �
��#firstword%,&0A
��
�5� �a$,1)<>lf$ � �#firstword%,&1E:�#firstword%,&0A
��
��
�
���embedded
�� i%,code$,validcode,ht%
�line$=�line$,2)
�code$=�line$,2)
�line$=�line$,3)
Ȏ code$ �

� "PE" :
i%=�(line$)
� i%=0 �
(line$=�(&0C)
2�
<line$=�(&01)+�(i%+&10)+lf$
F�
P� "LM" :
Zlm%=�(line$):line$=""
d%� lm% � LMcommand=� � LMcommand=�
n� "CE" :
x� ruler%>�(line$) �
��#firstword%,&1D
�"� i%=2 � (ruler%-�(line$)) � 2
��#firstword%,&1C
��
��
�line$=line$+lf$
�� "LJ" :
�ȕ �line$,1)<�(&21)
�line$=�line$,2)
��
�line$=line$+lf$
�� "RJ" :
�� ruler%>�(line$) �
�#firstword%,&1D
� i%=2 � ruler%-�(line$)
�#firstword%,&1C
"�
,�
6line$=line$+lf$
@� "HT" :
J� �line$,1)=" " �
T&�:line$=�line$,2):� �line$,1)<>" "
^�
h validcode=�"1 2 ",�line$,2))
rht%=�(�line$,3,3))
|Ȏ validcode �
�	� 1 :
�-i%=0:�:i%+=1:� pdcodes%(i%)=ht% � i%>hts%
�� i%<=hts% �
�ht1%=i%
�line$=�line$,6)
��
�-ht1%=1:line$=code$+" "+line$+lf$:hilite=�
��
�	� 3 :
�-i%=0:�:i%+=1:� pdcodes%(i%)=ht% � i%>hts%
�� i%<=hts% �
�ht2%=i%
�line$=�line$,6)
�
-ht2%=2:line$=code$+" "+line$+lf$:hilite=�
�
&! : line$=code$+" "+line$+lf$
0�
:9� "TS","SR" : printfile=� : line$=code$+" "+line$+lf$
D1� "LS" : addruler=�:line$=code$+" "+line$+lf$
NY� "DH","DF","HE","FO","PL","TM","HM","FM","BM":pagelayout=�:line$=code$+" "+line$+lf$
X! : line$=code$+" "+line$+lf$
b�
l�
v
���new_ruler
�� i%,char%
�line$=�line$,4):ruler$=""
�i%=0
�,�:i%+=1:� �line$,i%,1)=">" � i%>�(line$)
�$� i%>�(line$) � lm%=0 � lm%=i%-1
�i%=�(line$)+1
�%�:i%-=1:� �line$,i%,1)="<" � i%=0
�&� i%>0 � i%>lm% � line$=�line$,i%)
�� i%=1 � �(line$)
�Ȏ �line$,i%,1) �
�"� "*",">" : ruler$=ruler$+�(0)
�!� ".","<" : ruler$=ruler$+"."
�
�
ruler%=�(ruler$)
 ;r$=�(&1F)+"9["+ruler$+"]"+size$+justify$+linespace$+lf$
*�write_ruler
4�
>
H��write_ruler
R� i%=1 � �(r$)
\char%=�(�r$,i%,1))
f� char%=0 � char%=&7F
p�#firstword%,char%
z�
�line$=""
��
�
���messages
�(�:�"The conversion is now complete";
�2� printfile � addruler � pagelayout � hilite �
�4�" but you may find the following notes useful:"
�
� �"."
��
�� printfile �
�T�:�"You have used the TS or SR embedded commands in your document. In 1st word+"
�R�"these are set at the time of printing ie. when you select 'Print File' from"
�V�"the 'File' option. If the HT command has been used to select NLQ printing, then"
	8�"this also is selected within the printing option."
	�
	� addruler �
	$X�:�"You have used the LS embedded command to alter line spacing. In 1st word+, this"
	.V�"is done by defining a new ruler. Therefore, you will need to select 'Add Ruler'"
	8T�"from the 'Layout' option in the main menu. Similarly, a new ruler must be set"
	BT�"up if you have used a HT command to change the character pitch : Pica, Elite,"
	L<�"Enlarged and Condensed are all supported in this way."
	V�
	`� pagelayout �
	jT�:�"You have used embedded commands to alter the header, footer, page length or"
	tT�"margins (ie. DH,DF,HE,FO,PL,FM,TM,BM or HM). 1st word+ allows these to be set"
	~T�"up within the 'Page Layout' option which is within the 'Layout' option in the"
	��"main menu."
	��
	�� hilite �
	�U�:�"You have used the HT embedded command to select a printing function which is"
	�Q�"unknown to this program. If it is for underline, bold, italic, emphasised,"
	�U�"superscript or subscript, then amend the data lines at the end of this program"
	�(�"to suit your VIEW printer driver."
	�T�"If it is to select different sized characters, then you will need to define a"
	�C�"new ruler by selecting 'Add Ruler' from the 'Layout' option."
	�U�"If it is to select NLQ (Near Letter Quality), then this is an option which can"
	�<�"selected within the 'Print File' option of 1st word+."
	��
�


� DATA for highlights

(D� The first digit is the 1st word+ code and must not be changed.
2F� The VIEW code is for the Resource Facilities FX80 Printer Driver
<D� You will need to change the VIEW codes to suit your own driver
F
P� underline
Z� 8,128
d
� bold
n� 1,129
x� italic
�� 4,130
�� superscript
�� 16,135
�� subscript
�� 32,136
�� Pound sign
�� 35
�

00000000  0d 00 0a 21 f4 20 3e 31  53 54 5f 57 50 2e 56 31  |...!. >1ST_WP.V1|
00000010  57 2b 5f 52 46 20 56 65  72 73 69 6f 6e 20 31 2e  |W+_RF Version 1.|
00000020  31 0d 00 14 04 0d 00 1e  17 f4 20 42 79 20 43 6c  |1......... By Cl|
00000030  69 76 65 20 57 69 6c 6c  69 61 6d 73 0d 00 28 0f  |ive Williams..(.|
00000040  f4 20 31 39 2e 35 2e 31  39 38 38 0d 00 32 04 0d  |. 19.5.1988..2..|
00000050  00 3c 31 73 69 7a 65 24  3d 22 31 22 3a 6a 75 73  |.<1size$="1":jus|
00000060  74 69 66 79 24 3d 22 31  22 3a 6c 69 6e 65 73 70  |tify$="1":linesp|
00000070  61 63 65 24 3d 22 31 22  3a 70 6f 75 6e 64 3d b9  |ace$="1":pound=.|
00000080  0d 00 46 07 d9 23 30 0d  00 50 26 eb 20 31 32 3a  |..F..#0..P&. 12:|
00000090  87 3a ef 20 31 39 2c 30  2c 34 2c 30 2c 30 2c 30  |.:. 19,0,4,0,0,0|
000000a0  2c 31 39 2c 31 2c 36 2c  30 2c 30 2c 30 0d 00 5a  |,19,1,6,0,0,0..Z|
000000b0  2f f1 8a 32 30 2c 32 29  3b 22 56 69 65 77 20 74  |/..20,2);"View t|
000000c0  6f 20 31 73 74 20 57 6f  72 64 2b 20 46 69 6c 65  |o 1st Word+ File|
000000d0  20 43 6f 6e 76 65 72 73  69 6f 6e 22 0d 00 64 09  | Conversion"..d.|
000000e0  f2 69 6e 69 74 0d 00 6e  04 0d 00 78 24 e8 8a 30  |.init..n...x$..0|
000000f0  2c 35 29 3b 22 4e 61 6d  65 20 6f 66 20 56 49 45  |,5);"Name of VIE|
00000100  57 20 66 69 6c 65 22 3b  76 69 65 77 24 0d 00 82  |W file";view$...|
00000110  2e e8 8a 30 2c 36 29 3b  22 4e 61 6d 65 20 6f 66  |...0,6);"Name of|
00000120  20 31 73 74 20 57 6f 72  64 2b 20 66 69 6c 65 22  | 1st Word+ file"|
00000130  3b 66 69 72 73 74 77 6f  72 64 24 0d 00 8c 12 76  |;firstword$....v|
00000140  69 65 77 25 3d 8e 28 76  69 65 77 24 29 0d 00 96  |iew%=.(view$)...|
00000150  04 0d 00 a0 10 e7 20 76  69 65 77 25 3c 3e 30 20  |...... view%<>0 |
00000160  8c 0d 00 aa 1e f1 8a 30  2c 37 29 3b 22 43 6f 6e  |.......0,7);"Con|
00000170  76 65 72 74 69 6e 67 20  6c 69 6e 65 20 22 3b 0d  |verting line ";.|
00000180  00 b4 1c 66 69 72 73 74  77 6f 72 64 25 3d ae 28  |...firstword%=.(|
00000190  66 69 72 73 74 77 6f 72  64 24 29 0d 00 be 0b f2  |firstword$).....|
000001a0  68 65 61 64 65 72 0d 00  c8 10 c8 95 20 ac 20 c5  |header...... . .|
000001b0  23 76 69 65 77 25 0d 00  d2 13 6c 69 6e 65 24 3d  |#view%....line$=|
000001c0  a4 72 65 61 64 6c 69 6e  65 0d 00 dc 11 e7 20 6c  |.readline..... l|
000001d0  69 6e 65 24 3c 3e 22 22  20 8c 0d 00 e6 15 c8 8e  |ine$<>"" .......|
000001e0  20 97 28 c0 6c 69 6e 65  24 2c 31 29 29 20 ca 0d  | .(.line$,1)) ..|
000001f0  00 f0 15 c9 20 26 38 30  20 3a 20 f2 65 6d 62 65  |.... &80 : .embe|
00000200  64 64 65 64 0d 00 fa 16  c9 20 26 38 31 20 3a 20  |dded..... &81 : |
00000210  f2 6e 65 77 5f 72 75 6c  65 72 0d 01 04 05 cb 0d  |.new_ruler......|
00000220  01 0e 05 cd 0d 01 18 15  f2 77 72 69 74 65 6c 69  |.........writeli|
00000230  6e 65 28 6c 69 6e 65 24  29 0d 01 22 05 ce 0d 01  |ne(line$).."....|
00000240  2c 07 d9 23 30 0d 01 36  0d f2 6d 65 73 73 61 67  |,..#0..6..messag|
00000250  65 73 0d 01 40 05 cd 0d  01 4a 05 e0 0d 01 54 04  |es..@....J....T.|
00000260  0d 01 5e 0a dd f2 69 6e  69 74 0d 01 68 08 ea 20  |..^...init..h.. |
00000270  69 25 0d 01 72 3d 68 74  73 25 3d 35 3a 68 74 31  |i%..r=hts%=5:ht1|
00000280  25 3d 31 3a 68 74 32 25  3d 32 3a 6c 69 6e 65 25  |%=1:ht2%=2:line%|
00000290  3d 30 3a 6c 66 24 3d bd  28 26 30 41 29 3a 68 74  |=0:lf$=.(&0A):ht|
000002a0  63 6f 64 65 25 3d 26 38  30 3a 6c 6d 25 3d 30 0d  |code%=&80:lm%=0.|
000002b0  01 7c 30 70 72 69 6e 74  66 69 6c 65 3d a3 3a 61  |.|0printfile=.:a|
000002c0  64 64 72 75 6c 65 72 3d  a3 3a 70 61 67 65 6c 61  |ddruler=.:pagela|
000002d0  79 6f 75 74 3d a3 3a 68  69 6c 69 74 65 3d a3 0d  |yout=.:hilite=..|
000002e0  01 86 18 4c 4d 63 6f 6d  6d 61 6e 64 3d a3 3a 68  |...LMcommand=.:h|
000002f0  65 61 64 65 72 3d a3 0d  01 90 24 de 20 66 6c 61  |eader=....$. fla|
00000300  67 25 28 68 74 73 25 2b  31 29 2c 70 64 63 6f 64  |g%(hts%+1),pdcod|
00000310  65 73 25 28 68 74 73 25  2b 31 29 0d 01 9a 1f 72  |es%(hts%+1)....r|
00000320  75 6c 65 72 25 3d 37 34  3a 72 24 3d 22 2e 2e 2e  |uler%=74:r$="...|
00000330  2e 2e 2e 2e 22 2b bd 28  30 29 0d 01 a4 16 72 75  |...."+.(0)....ru|
00000340  6c 65 72 24 3d c4 39 2c  72 24 29 2b 22 2e 2e 22  |ler$=.9,r$)+".."|
00000350  0d 01 ae 3b 72 24 3d bd  28 26 31 46 29 2b 22 39  |...;r$=.(&1F)+"9|
00000360  5b 22 2b 72 75 6c 65 72  24 2b 22 5d 22 2b 73 69  |["+ruler$+"]"+si|
00000370  7a 65 24 2b 6a 75 73 74  69 66 79 24 2b 6c 69 6e  |ze$+justify$+lin|
00000380  65 73 70 61 63 65 24 2b  6c 66 24 0d 01 b8 0a f7  |espace$+lf$.....|
00000390  20 8d 44 5a 4a 0d 01 c2  2c e3 20 69 25 3d 31 20  | .DZJ...,. i%=1 |
000003a0  b8 20 68 74 73 25 3a f3  20 66 6c 61 67 25 28 69  |. hts%:. flag%(i|
000003b0  25 29 2c 70 64 63 6f 64  65 73 25 28 69 25 29 3a  |%),pdcodes%(i%):|
000003c0  ed 0d 01 cc 0c f3 20 70  6f 75 6e 64 25 0d 01 d6  |...... pound%...|
000003d0  05 e1 0d 01 e0 04 0d 01  ea 0c dd f2 68 65 61 64  |............head|
000003e0  65 72 0d 01 f4 0d ea 20  68 65 61 64 65 72 24 0d  |er..... header$.|
000003f0  01 fe 0c 68 65 61 64 65  72 3d b9 0d 02 08 3e 68  |...header=....>h|
00000400  65 61 64 65 72 24 3d bd  28 26 31 46 29 2b 22 30  |eader$=.(&1F)+"0|
00000410  22 2b 22 36 36 30 31 30  33 30 33 30 35 38 30 30  |"+"6601030305800|
00000420  22 2b 6c 66 24 3a f2 77  72 69 74 65 6c 69 6e 65  |"+lf$:.writeline|
00000430  28 68 65 61 64 65 72 24  29 0d 02 12 3c 68 65 61  |(header$)...<hea|
00000440  64 65 72 24 3d bd 28 26  31 46 29 2b 22 31 22 2b  |der$=.(&1F)+"1"+|
00000450  bd 28 26 31 46 29 2b bd  28 26 31 46 29 2b 6c 66  |.(&1F)+.(&1F)+lf|
00000460  24 3a f2 77 72 69 74 65  6c 69 6e 65 28 68 65 61  |$:.writeline(hea|
00000470  64 65 72 24 29 0d 02 1c  40 68 65 61 64 65 72 24  |der$)...@header$|
00000480  3d bd 28 26 31 46 29 2b  22 32 22 2b bd 28 26 31  |=.(&1F)+"2"+.(&1|
00000490  46 29 2b 22 23 22 2b bd  28 26 31 46 29 2b 6c 66  |F)+"#"+.(&1F)+lf|
000004a0  24 3a f2 77 72 69 74 65  6c 69 6e 65 28 68 65 61  |$:.writeline(hea|
000004b0  64 65 72 24 29 0d 02 26  38 68 65 61 64 65 72 24  |der$)..&8header$|
000004c0  3d bd 28 26 31 46 29 2b  22 46 22 2b 22 30 31 31  |=.(&1F)+"F"+"011|
000004d0  30 30 33 30 22 2b 6c 66  24 3a f2 77 72 69 74 65  |0030"+lf$:.write|
000004e0  6c 69 6e 65 28 68 65 61  64 65 72 24 29 0d 02 30  |line(header$)..0|
000004f0  10 f2 77 72 69 74 65 5f  72 75 6c 65 72 0d 02 3a  |..write_ruler..:|
00000500  05 e1 0d 02 44 04 0d 02  4e 0e dd a4 72 65 61 64  |....D...N...read|
00000510  6c 69 6e 65 0d 02 58 0b  ea 20 61 25 2c 61 24 0d  |line..X.. a%,a$.|
00000520  02 62 0c 6c 69 6e 65 25  2b 3d 31 0d 02 6c 21 f1  |.b.line%+=1..l!.|
00000530  8a 31 36 2c 37 29 3b c4  35 2c 22 20 22 29 3a f1  |.16,7);.5," "):.|
00000540  8a 31 36 2c 37 29 3b 6c  69 6e 65 25 0d 02 76 0e  |.16,7);line%..v.|
00000550  61 25 3d 9a 23 76 69 65  77 25 0d 02 80 0d c8 95  |a%=.#view%......|
00000560  20 61 25 3c 3e 26 44 0d  02 8a 0f 61 24 3d 61 24  | a%<>&D....a$=a$|
00000570  2b bd 28 61 25 29 0d 02  94 0e 61 25 3d 9a 23 76  |+.(a%)....a%=.#v|
00000580  69 65 77 25 0d 02 9e 05  ce 0d 02 a8 07 3d 61 24  |iew%.........=a$|
00000590  0d 02 b2 04 0d 02 bc 13  dd f2 77 72 69 74 65 6c  |..........writel|
000005a0  69 6e 65 28 61 24 29 0d  02 c6 19 ea 20 69 25 2c  |ine(a$)..... i%,|
000005b0  6a 25 2c 6b 25 2c 63 68  61 72 25 2c 70 6f 73 25  |j%,k%,char%,pos%|
000005c0  0d 02 d0 0e e7 20 61 24  3c 3e 22 22 20 8c 0d 02  |..... a$<>"" ...|
000005d0  da 0a 70 6f 73 25 3d 30  0d 02 e4 2c e7 20 6c 6d  |..pos%=0...,. lm|
000005e0  25 3c 3e 30 20 80 20 28  c0 61 24 2c 31 29 3d bd  |%<>0 . (.a$,1)=.|
000005f0  28 26 30 42 29 20 84 20  4c 4d 63 6f 6d 6d 61 6e  |(&0B) . LMcomman|
00000600  64 29 20 8c 0d 02 ee 0c  68 65 61 64 65 72 3d a3  |d) .....header=.|
00000610  0d 02 f8 22 70 6f 73 25  3d 6c 6d 25 3a 69 25 3d  |..."pos%=lm%:i%=|
00000620  30 3a d5 23 66 69 72 73  74 77 6f 72 64 25 2c 26  |0:.#firstword%,&|
00000630  31 44 0d 03 02 0d c8 95  20 69 25 3c 6c 6d 25 0d  |1D...... i%<lm%.|
00000640  03 0c 1a d5 23 66 69 72  73 74 77 6f 72 64 25 2c  |....#firstword%,|
00000650  26 31 43 3a 69 25 2b 3d  31 0d 03 16 05 ce 0d 03  |&1C:i%+=1.......|
00000660  20 05 cd 0d 03 2a 12 e3  20 69 25 3d 31 20 b8 20  | ....*.. i%=1 . |
00000670  a9 28 61 24 29 0d 03 34  16 63 68 61 72 25 3d 97  |.(a$)..4.char%=.|
00000680  28 c1 61 24 2c 69 25 2c  31 29 29 0d 03 3e 0e c8  |(.a$,i%,1))..>..|
00000690  8e 20 63 68 61 72 25 20  ca 0d 03 48 36 c9 20 26  |. char% ...H6. &|
000006a0  30 31 20 3a d5 23 66 69  72 73 74 77 6f 72 64 25  |01 :.#firstword%|
000006b0  2c 26 30 42 3a 69 25 2b  3d 32 3a 63 68 61 72 25  |,&0B:i%+=2:char%|
000006c0  3d 97 28 c1 61 24 2c 69  25 2d 31 2c 31 29 29 0d  |=.(.a$,i%-1,1)).|
000006d0  03 52 0b c9 20 26 30 39  20 3a 0d 03 5c 21 e7 20  |.R.. &09 :..\!. |
000006e0  a7 c1 72 75 6c 65 72 24  2c 70 6f 73 25 2b 31 29  |..ruler$,pos%+1)|
000006f0  2c bd 28 30 29 29 3c 3e  30 20 8c 0d 03 66 1e c8  |,.(0))<>0 ...f..|
00000700  95 20 c1 72 75 6c 65 72  24 2c 70 6f 73 25 2b 31  |. .ruler$,pos%+1|
00000710  2c 31 29 3c 3e bd 28 30  29 0d 03 70 14 d5 23 66  |,1)<>.(0)..p..#f|
00000720  69 72 73 74 77 6f 72 64  25 2c 26 32 30 0d 03 7a  |irstword%,&20..z|
00000730  0b 70 6f 73 25 2b 3d 31  0d 03 84 05 ce 0d 03 8e  |.pos%+=1........|
00000740  05 cd 0d 03 98 15 63 68  61 72 25 3d 26 32 30 3a  |......char%=&20:|
00000750  70 6f 73 25 2b 3d 31 0d  03 a2 1c c9 20 26 30 42  |pos%+=1..... &0B|
00000760  20 3a 63 68 61 72 25 3d  26 30 30 3a 70 6f 73 25  | :char%=&00:pos%|
00000770  2b 3d 31 0d 03 ac 1c c9  20 26 31 41 20 3a 63 68  |+=1..... &1A :ch|
00000780  61 72 25 3d 26 31 45 3a  70 6f 73 25 2b 3d 31 0d  |ar%=&1E:pos%+=1.|
00000790  03 b6 0b c9 20 26 31 43  20 3a 0d 03 c0 14 d5 23  |.... &1C :.....#|
000007a0  66 69 72 73 74 77 6f 72  64 25 2c 26 31 42 0d 03  |firstword%,&1B..|
000007b0  ca 21 68 74 63 6f 64 65  25 3d 68 74 63 6f 64 65  |.!htcode%=htcode|
000007c0  25 20 82 20 66 6c 61 67  25 28 68 74 31 25 29 0d  |% . flag%(ht1%).|
000007d0  03 d4 1a e7 20 c1 61 24  2c 69 25 2b 31 2c 31 29  |.... .a$,i%+1,1)|
000007e0  3d bd 28 26 31 44 29 20  8c 0d 03 de 27 69 25 2b  |=.(&1D) ....'i%+|
000007f0  3d 31 3a 68 74 63 6f 64  65 25 3d 68 74 63 6f 64  |=1:htcode%=htcod|
00000800  65 25 20 82 20 66 6c 61  67 25 28 68 74 32 25 29  |e% . flag%(ht2%)|
00000810  0d 03 e8 05 cd 0d 03 f2  11 63 68 61 72 25 3d 68  |.........char%=h|
00000820  74 63 6f 64 65 25 0d 03  fc 0b c9 20 26 31 44 20  |tcode%..... &1D |
00000830  3a 0d 04 06 14 d5 23 66  69 72 73 74 77 6f 72 64  |:.....#firstword|
00000840  25 2c 26 31 42 0d 04 10  21 68 74 63 6f 64 65 25  |%,&1B...!htcode%|
00000850  3d 68 74 63 6f 64 65 25  20 82 20 66 6c 61 67 25  |=htcode% . flag%|
00000860  28 68 74 32 25 29 0d 04  1a 1a e7 20 c1 61 24 2c  |(ht2%)..... .a$,|
00000870  69 25 2b 31 2c 31 29 3d  bd 28 26 31 43 29 20 8c  |i%+1,1)=.(&1C) .|
00000880  0d 04 24 27 69 25 2b 3d  31 3a 68 74 63 6f 64 65  |..$'i%+=1:htcode|
00000890  25 3d 68 74 63 6f 64 65  25 20 82 20 66 6c 61 67  |%=htcode% . flag|
000008a0  25 28 68 74 31 25 29 0d  04 2e 05 cd 0d 04 38 11  |%(ht1%).......8.|
000008b0  63 68 61 72 25 3d 68 74  63 6f 64 65 25 0d 04 42  |char%=htcode%..B|
000008c0  1c c9 20 26 32 30 20 3a  63 68 61 72 25 3d 26 31  |.. &20 :char%=&1|
000008d0  45 3a 70 6f 73 25 2b 3d  31 0d 04 4c 37 c9 20 70  |E:pos%+=1..L7. p|
000008e0  6f 75 6e 64 25 20 3a 20  e7 20 28 70 6f 75 6e 64  |ound% : . (pound|
000008f0  20 80 20 ac 20 68 65 61  64 65 72 29 20 8c 20 63  | . . header) . c|
00000900  68 61 72 25 3d 26 41 33  3a 70 6f 73 25 2b 3d 31  |har%=&A3:pos%+=1|
00000910  0d 04 56 0d 7f 3a 70 6f  73 25 2b 3d 31 0d 04 60  |..V..:pos%+=1..`|
00000920  05 cb 0d 04 6a 23 e7 20  63 68 61 72 25 3c 3e 30  |....j#. char%<>0|
00000930  20 8c 20 d5 23 66 69 72  73 74 77 6f 72 64 25 2c  | . .#firstword%,|
00000940  63 68 61 72 25 0d 04 74  05 ed 0d 04 7e 05 cd 0d  |char%..t....~...|
00000950  04 88 0d e7 20 61 24 3d  22 22 20 8c 0d 04 92 14  |.... a$="" .....|
00000960  d5 23 66 69 72 73 74 77  6f 72 64 25 2c 26 30 41  |.#firstword%,&0A|
00000970  0d 04 9c 05 cc 0d 04 a6  35 e7 20 c2 61 24 2c 31  |........5. .a$,1|
00000980  29 3c 3e 6c 66 24 20 8c  20 d5 23 66 69 72 73 74  |)<>lf$ . .#first|
00000990  77 6f 72 64 25 2c 26 31  45 3a d5 23 66 69 72 73  |word%,&1E:.#firs|
000009a0  74 77 6f 72 64 25 2c 26  30 41 0d 04 b0 05 cd 0d  |tword%,&0A......|
000009b0  04 ba 05 e1 0d 04 c4 04  0d 04 ce 0e dd f2 65 6d  |..............em|
000009c0  62 65 64 64 65 64 0d 04  d8 1c ea 20 69 25 2c 63  |bedded..... i%,c|
000009d0  6f 64 65 24 2c 76 61 6c  69 64 63 6f 64 65 2c 68  |ode$,validcode,h|
000009e0  74 25 0d 04 e2 13 6c 69  6e 65 24 3d c1 6c 69 6e  |t%....line$=.lin|
000009f0  65 24 2c 32 29 0d 04 ec  13 63 6f 64 65 24 3d c0  |e$,2)....code$=.|
00000a00  6c 69 6e 65 24 2c 32 29  0d 04 f6 13 6c 69 6e 65  |line$,2)....line|
00000a10  24 3d c1 6c 69 6e 65 24  2c 33 29 0d 05 00 0e c8  |$=.line$,3).....|
00000a20  8e 20 63 6f 64 65 24 20  ca 0d 05 0a 0c c9 20 22  |. code$ ...... "|
00000a30  50 45 22 20 3a 0d 05 14  0f 69 25 3d bb 28 6c 69  |PE" :....i%=.(li|
00000a40  6e 65 24 29 0d 05 1e 0c  e7 20 69 25 3d 30 20 8c  |ne$)..... i%=0 .|
00000a50  0d 05 28 10 6c 69 6e 65  24 3d bd 28 26 30 43 29  |..(.line$=.(&0C)|
00000a60  0d 05 32 05 cc 0d 05 3c  1e 6c 69 6e 65 24 3d bd  |..2....<.line$=.|
00000a70  28 26 30 31 29 2b bd 28  69 25 2b 26 31 30 29 2b  |(&01)+.(i%+&10)+|
00000a80  6c 66 24 0d 05 46 05 cd  0d 05 50 0c c9 20 22 4c  |lf$..F....P.. "L|
00000a90  4d 22 20 3a 0d 05 5a 19  6c 6d 25 3d bb 28 6c 69  |M" :..Z.lm%=.(li|
00000aa0  6e 65 24 29 3a 6c 69 6e  65 24 3d 22 22 0d 05 64  |ne$):line$=""..d|
00000ab0  25 e7 20 6c 6d 25 20 8c  20 4c 4d 63 6f 6d 6d 61  |%. lm% . LMcomma|
00000ac0  6e 64 3d b9 20 8b 20 4c  4d 63 6f 6d 6d 61 6e 64  |nd=. . LMcommand|
00000ad0  3d a3 0d 05 6e 0c c9 20  22 43 45 22 20 3a 0d 05  |=...n.. "CE" :..|
00000ae0  78 17 e7 20 72 75 6c 65  72 25 3e a9 28 6c 69 6e  |x.. ruler%>.(lin|
00000af0  65 24 29 20 8c 0d 05 82  14 d5 23 66 69 72 73 74  |e$) ......#first|
00000b00  77 6f 72 64 25 2c 26 31  44 0d 05 8c 22 e3 20 69  |word%,&1D...". i|
00000b10  25 3d 32 20 b8 20 28 72  75 6c 65 72 25 2d a9 28  |%=2 . (ruler%-.(|
00000b20  6c 69 6e 65 24 29 29 20  81 20 32 0d 05 96 14 d5  |line$)) . 2.....|
00000b30  23 66 69 72 73 74 77 6f  72 64 25 2c 26 31 43 0d  |#firstword%,&1C.|
00000b40  05 a0 05 ed 0d 05 aa 05  cd 0d 05 b4 13 6c 69 6e  |.............lin|
00000b50  65 24 3d 6c 69 6e 65 24  2b 6c 66 24 0d 05 be 0c  |e$=line$+lf$....|
00000b60  c9 20 22 4c 4a 22 20 3a  0d 05 c8 17 c8 95 20 c0  |. "LJ" :...... .|
00000b70  6c 69 6e 65 24 2c 31 29  3c bd 28 26 32 31 29 0d  |line$,1)<.(&21).|
00000b80  05 d2 13 6c 69 6e 65 24  3d c1 6c 69 6e 65 24 2c  |...line$=.line$,|
00000b90  32 29 0d 05 dc 05 ce 0d  05 e6 13 6c 69 6e 65 24  |2).........line$|
00000ba0  3d 6c 69 6e 65 24 2b 6c  66 24 0d 05 f0 0c c9 20  |=line$+lf$..... |
00000bb0  22 52 4a 22 20 3a 0d 05  fa 17 e7 20 72 75 6c 65  |"RJ" :..... rule|
00000bc0  72 25 3e a9 28 6c 69 6e  65 24 29 20 8c 0d 06 04  |r%>.(line$) ....|
00000bd0  14 d5 23 66 69 72 73 74  77 6f 72 64 25 2c 26 31  |..#firstword%,&1|
00000be0  44 0d 06 0e 1c e3 20 69  25 3d 32 20 b8 20 72 75  |D..... i%=2 . ru|
00000bf0  6c 65 72 25 2d a9 28 6c  69 6e 65 24 29 0d 06 18  |ler%-.(line$)...|
00000c00  14 d5 23 66 69 72 73 74  77 6f 72 64 25 2c 26 31  |..#firstword%,&1|
00000c10  43 0d 06 22 05 ed 0d 06  2c 05 cd 0d 06 36 13 6c  |C.."....,....6.l|
00000c20  69 6e 65 24 3d 6c 69 6e  65 24 2b 6c 66 24 0d 06  |ine$=line$+lf$..|
00000c30  40 0c c9 20 22 48 54 22  20 3a 0d 06 4a 15 e7 20  |@.. "HT" :..J.. |
00000c40  c0 6c 69 6e 65 24 2c 31  29 3d 22 20 22 20 8c 0d  |.line$,1)=" " ..|
00000c50  06 54 26 f5 3a 6c 69 6e  65 24 3d c1 6c 69 6e 65  |.T&.:line$=.line|
00000c60  24 2c 32 29 3a fd 20 c0  6c 69 6e 65 24 2c 31 29  |$,2):. .line$,1)|
00000c70  3c 3e 22 20 22 0d 06 5e  05 cd 0d 06 68 20 76 61  |<>" "..^....h va|
00000c80  6c 69 64 63 6f 64 65 3d  a7 22 31 20 32 20 22 2c  |lidcode=."1 2 ",|
00000c90  c0 6c 69 6e 65 24 2c 32  29 29 0d 06 72 16 68 74  |.line$,2))..r.ht|
00000ca0  25 3d bb 28 c1 6c 69 6e  65 24 2c 33 2c 33 29 29  |%=.(.line$,3,3))|
00000cb0  0d 06 7c 12 c8 8e 20 76  61 6c 69 64 63 6f 64 65  |..|... validcode|
00000cc0  20 ca 0d 06 86 09 c9 20  31 20 3a 0d 06 90 2d 69  | ...... 1 :...-i|
00000cd0  25 3d 30 3a f5 3a 69 25  2b 3d 31 3a fd 20 70 64  |%=0:.:i%+=1:. pd|
00000ce0  63 6f 64 65 73 25 28 69  25 29 3d 68 74 25 20 84  |codes%(i%)=ht% .|
00000cf0  20 69 25 3e 68 74 73 25  0d 06 9a 10 e7 20 69 25  | i%>hts%..... i%|
00000d00  3c 3d 68 74 73 25 20 8c  0d 06 a4 0b 68 74 31 25  |<=hts% .....ht1%|
00000d10  3d 69 25 0d 06 ae 13 6c  69 6e 65 24 3d c1 6c 69  |=i%....line$=.li|
00000d20  6e 65 24 2c 36 29 0d 06  b8 05 cc 0d 06 c2 2d 68  |ne$,6)........-h|
00000d30  74 31 25 3d 31 3a 6c 69  6e 65 24 3d 63 6f 64 65  |t1%=1:line$=code|
00000d40  24 2b 22 20 22 2b 6c 69  6e 65 24 2b 6c 66 24 3a  |$+" "+line$+lf$:|
00000d50  68 69 6c 69 74 65 3d b9  0d 06 cc 05 cd 0d 06 d6  |hilite=.........|
00000d60  09 c9 20 33 20 3a 0d 06  e0 2d 69 25 3d 30 3a f5  |.. 3 :...-i%=0:.|
00000d70  3a 69 25 2b 3d 31 3a fd  20 70 64 63 6f 64 65 73  |:i%+=1:. pdcodes|
00000d80  25 28 69 25 29 3d 68 74  25 20 84 20 69 25 3e 68  |%(i%)=ht% . i%>h|
00000d90  74 73 25 0d 06 ea 10 e7  20 69 25 3c 3d 68 74 73  |ts%..... i%<=hts|
00000da0  25 20 8c 0d 06 f4 0b 68  74 32 25 3d 69 25 0d 06  |% .....ht2%=i%..|
00000db0  fe 13 6c 69 6e 65 24 3d  c1 6c 69 6e 65 24 2c 36  |..line$=.line$,6|
00000dc0  29 0d 07 08 05 cc 0d 07  12 2d 68 74 32 25 3d 32  |)........-ht2%=2|
00000dd0  3a 6c 69 6e 65 24 3d 63  6f 64 65 24 2b 22 20 22  |:line$=code$+" "|
00000de0  2b 6c 69 6e 65 24 2b 6c  66 24 3a 68 69 6c 69 74  |+line$+lf$:hilit|
00000df0  65 3d b9 0d 07 1c 05 cd  0d 07 26 21 7f 20 3a 20  |e=........&!. : |
00000e00  6c 69 6e 65 24 3d 63 6f  64 65 24 2b 22 20 22 2b  |line$=code$+" "+|
00000e10  6c 69 6e 65 24 2b 6c 66  24 0d 07 30 05 cb 0d 07  |line$+lf$..0....|
00000e20  3a 39 c9 20 22 54 53 22  2c 22 53 52 22 20 3a 20  |:9. "TS","SR" : |
00000e30  70 72 69 6e 74 66 69 6c  65 3d b9 20 3a 20 6c 69  |printfile=. : li|
00000e40  6e 65 24 3d 63 6f 64 65  24 2b 22 20 22 2b 6c 69  |ne$=code$+" "+li|
00000e50  6e 65 24 2b 6c 66 24 0d  07 44 31 c9 20 22 4c 53  |ne$+lf$..D1. "LS|
00000e60  22 20 3a 20 61 64 64 72  75 6c 65 72 3d b9 3a 6c  |" : addruler=.:l|
00000e70  69 6e 65 24 3d 63 6f 64  65 24 2b 22 20 22 2b 6c  |ine$=code$+" "+l|
00000e80  69 6e 65 24 2b 6c 66 24  0d 07 4e 59 c9 20 22 44  |ine$+lf$..NY. "D|
00000e90  48 22 2c 22 44 46 22 2c  22 48 45 22 2c 22 46 4f  |H","DF","HE","FO|
00000ea0  22 2c 22 50 4c 22 2c 22  54 4d 22 2c 22 48 4d 22  |","PL","TM","HM"|
00000eb0  2c 22 46 4d 22 2c 22 42  4d 22 3a 70 61 67 65 6c  |,"FM","BM":pagel|
00000ec0  61 79 6f 75 74 3d b9 3a  6c 69 6e 65 24 3d 63 6f  |ayout=.:line$=co|
00000ed0  64 65 24 2b 22 20 22 2b  6c 69 6e 65 24 2b 6c 66  |de$+" "+line$+lf|
00000ee0  24 0d 07 58 21 7f 20 3a  20 6c 69 6e 65 24 3d 63  |$..X!. : line$=c|
00000ef0  6f 64 65 24 2b 22 20 22  2b 6c 69 6e 65 24 2b 6c  |ode$+" "+line$+l|
00000f00  66 24 0d 07 62 05 cb 0d  07 6c 05 e1 0d 07 76 04  |f$..b....l....v.|
00000f10  0d 07 80 0f dd f2 6e 65  77 5f 72 75 6c 65 72 0d  |......new_ruler.|
00000f20  07 8a 0e ea 20 69 25 2c  63 68 61 72 25 0d 07 94  |.... i%,char%...|
00000f30  1d 6c 69 6e 65 24 3d c1  6c 69 6e 65 24 2c 34 29  |.line$=.line$,4)|
00000f40  3a 72 75 6c 65 72 24 3d  22 22 0d 07 9e 08 69 25  |:ruler$=""....i%|
00000f50  3d 30 0d 07 a8 2c f5 3a  69 25 2b 3d 31 3a fd 20  |=0...,.:i%+=1:. |
00000f60  c1 6c 69 6e 65 24 2c 69  25 2c 31 29 3d 22 3e 22  |.line$,i%,1)=">"|
00000f70  20 84 20 69 25 3e a9 28  6c 69 6e 65 24 29 0d 07  | . i%>.(line$)..|
00000f80  b2 24 e7 20 69 25 3e a9  28 6c 69 6e 65 24 29 20  |.$. i%>.(line$) |
00000f90  8c 20 6c 6d 25 3d 30 20  8b 20 6c 6d 25 3d 69 25  |. lm%=0 . lm%=i%|
00000fa0  2d 31 0d 07 bc 11 69 25  3d a9 28 6c 69 6e 65 24  |-1....i%=.(line$|
00000fb0  29 2b 31 0d 07 c6 25 f5  3a 69 25 2d 3d 31 3a fd  |)+1...%.:i%-=1:.|
00000fc0  20 c1 6c 69 6e 65 24 2c  69 25 2c 31 29 3d 22 3c  | .line$,i%,1)="<|
00000fd0  22 20 84 20 69 25 3d 30  0d 07 d0 26 e7 20 69 25  |" . i%=0...&. i%|
00000fe0  3e 30 20 80 20 69 25 3e  6c 6d 25 20 8c 20 6c 69  |>0 . i%>lm% . li|
00000ff0  6e 65 24 3d c0 6c 69 6e  65 24 2c 69 25 29 0d 07  |ne$=.line$,i%)..|
00001000  da 15 e3 20 69 25 3d 31  20 b8 20 a9 28 6c 69 6e  |... i%=1 . .(lin|
00001010  65 24 29 0d 07 e4 15 c8  8e 20 c1 6c 69 6e 65 24  |e$)...... .line$|
00001020  2c 69 25 2c 31 29 20 ca  0d 07 ee 22 c9 20 22 2a  |,i%,1) ....". "*|
00001030  22 2c 22 3e 22 20 3a 20  72 75 6c 65 72 24 3d 72  |",">" : ruler$=r|
00001040  75 6c 65 72 24 2b bd 28  30 29 0d 07 f8 21 c9 20  |uler$+.(0)...!. |
00001050  22 2e 22 2c 22 3c 22 20  3a 20 72 75 6c 65 72 24  |".","<" : ruler$|
00001060  3d 72 75 6c 65 72 24 2b  22 2e 22 0d 08 02 05 cb  |=ruler$+".".....|
00001070  0d 08 0c 05 ed 0d 08 16  14 72 75 6c 65 72 25 3d  |.........ruler%=|
00001080  a9 28 72 75 6c 65 72 24  29 0d 08 20 3b 72 24 3d  |.(ruler$).. ;r$=|
00001090  bd 28 26 31 46 29 2b 22  39 5b 22 2b 72 75 6c 65  |.(&1F)+"9["+rule|
000010a0  72 24 2b 22 5d 22 2b 73  69 7a 65 24 2b 6a 75 73  |r$+"]"+size$+jus|
000010b0  74 69 66 79 24 2b 6c 69  6e 65 73 70 61 63 65 24  |tify$+linespace$|
000010c0  2b 6c 66 24 0d 08 2a 10  f2 77 72 69 74 65 5f 72  |+lf$..*..write_r|
000010d0  75 6c 65 72 0d 08 34 05  e1 0d 08 3e 04 0d 08 48  |uler..4....>...H|
000010e0  11 dd f2 77 72 69 74 65  5f 72 75 6c 65 72 0d 08  |...write_ruler..|
000010f0  52 12 e3 20 69 25 3d 31  20 b8 20 a9 28 72 24 29  |R.. i%=1 . .(r$)|
00001100  0d 08 5c 16 63 68 61 72  25 3d 97 28 c1 72 24 2c  |..\.char%=.(.r$,|
00001110  69 25 2c 31 29 29 0d 08  66 19 e7 20 63 68 61 72  |i%,1))..f.. char|
00001120  25 3d 30 20 8c 20 63 68  61 72 25 3d 26 37 46 0d  |%=0 . char%=&7F.|
00001130  08 70 16 d5 23 66 69 72  73 74 77 6f 72 64 25 2c  |.p..#firstword%,|
00001140  63 68 61 72 25 0d 08 7a  05 ed 0d 08 84 0c 6c 69  |char%..z......li|
00001150  6e 65 24 3d 22 22 0d 08  8e 05 e1 0d 08 98 04 0d  |ne$=""..........|
00001160  08 a2 0e dd f2 6d 65 73  73 61 67 65 73 0d 08 ac  |.....messages...|
00001170  28 f1 3a f1 22 54 68 65  20 63 6f 6e 76 65 72 73  |(.:."The convers|
00001180  69 6f 6e 20 69 73 20 6e  6f 77 20 63 6f 6d 70 6c  |ion is now compl|
00001190  65 74 65 22 3b 0d 08 b6  32 e7 20 70 72 69 6e 74  |ete";...2. print|
000011a0  66 69 6c 65 20 84 20 61  64 64 72 75 6c 65 72 20  |file . addruler |
000011b0  84 20 70 61 67 65 6c 61  79 6f 75 74 20 84 20 68  |. pagelayout . h|
000011c0  69 6c 69 74 65 20 8c 0d  08 c0 34 f1 22 20 62 75  |ilite ....4." bu|
000011d0  74 20 79 6f 75 20 6d 61  79 20 66 69 6e 64 20 74  |t you may find t|
000011e0  68 65 20 66 6f 6c 6c 6f  77 69 6e 67 20 6e 6f 74  |he following not|
000011f0  65 73 20 75 73 65 66 75  6c 3a 22 0d 08 ca 0a cc  |es useful:".....|
00001200  20 f1 22 2e 22 0d 08 d4  05 cd 0d 08 de 11 e7 20  | .".".......... |
00001210  70 72 69 6e 74 66 69 6c  65 20 8c 0d 08 e8 54 f1  |printfile ....T.|
00001220  3a f1 22 59 6f 75 20 68  61 76 65 20 75 73 65 64  |:."You have used|
00001230  20 74 68 65 20 54 53 20  6f 72 20 53 52 20 65 6d  | the TS or SR em|
00001240  62 65 64 64 65 64 20 63  6f 6d 6d 61 6e 64 73 20  |bedded commands |
00001250  69 6e 20 79 6f 75 72 20  64 6f 63 75 6d 65 6e 74  |in your document|
00001260  2e 20 49 6e 20 31 73 74  20 77 6f 72 64 2b 22 0d  |. In 1st word+".|
00001270  08 f2 52 f1 22 74 68 65  73 65 20 61 72 65 20 73  |..R."these are s|
00001280  65 74 20 61 74 20 74 68  65 20 74 69 6d 65 20 6f  |et at the time o|
00001290  66 20 70 72 69 6e 74 69  6e 67 20 69 65 2e 20 77  |f printing ie. w|
000012a0  68 65 6e 20 79 6f 75 20  73 65 6c 65 63 74 20 27  |hen you select '|
000012b0  50 72 69 6e 74 20 46 69  6c 65 27 20 66 72 6f 6d  |Print File' from|
000012c0  22 0d 08 fc 56 f1 22 74  68 65 20 27 46 69 6c 65  |"...V."the 'File|
000012d0  27 20 6f 70 74 69 6f 6e  2e 20 49 66 20 74 68 65  |' option. If the|
000012e0  20 48 54 20 63 6f 6d 6d  61 6e 64 20 68 61 73 20  | HT command has |
000012f0  62 65 65 6e 20 75 73 65  64 20 74 6f 20 73 65 6c  |been used to sel|
00001300  65 63 74 20 4e 4c 51 20  70 72 69 6e 74 69 6e 67  |ect NLQ printing|
00001310  2c 20 74 68 65 6e 22 0d  09 06 38 f1 22 74 68 69  |, then"...8."thi|
00001320  73 20 61 6c 73 6f 20 69  73 20 73 65 6c 65 63 74  |s also is select|
00001330  65 64 20 77 69 74 68 69  6e 20 74 68 65 20 70 72  |ed within the pr|
00001340  69 6e 74 69 6e 67 20 6f  70 74 69 6f 6e 2e 22 0d  |inting option.".|
00001350  09 10 05 cd 0d 09 1a 10  e7 20 61 64 64 72 75 6c  |......... addrul|
00001360  65 72 20 8c 0d 09 24 58  f1 3a f1 22 59 6f 75 20  |er ...$X.:."You |
00001370  68 61 76 65 20 75 73 65  64 20 74 68 65 20 4c 53  |have used the LS|
00001380  20 65 6d 62 65 64 64 65  64 20 63 6f 6d 6d 61 6e  | embedded comman|
00001390  64 20 74 6f 20 61 6c 74  65 72 20 6c 69 6e 65 20  |d to alter line |
000013a0  73 70 61 63 69 6e 67 2e  20 49 6e 20 31 73 74 20  |spacing. In 1st |
000013b0  77 6f 72 64 2b 2c 20 74  68 69 73 22 0d 09 2e 56  |word+, this"...V|
000013c0  f1 22 69 73 20 64 6f 6e  65 20 62 79 20 64 65 66  |."is done by def|
000013d0  69 6e 69 6e 67 20 61 20  6e 65 77 20 72 75 6c 65  |ining a new rule|
000013e0  72 2e 20 54 68 65 72 65  66 6f 72 65 2c 20 79 6f  |r. Therefore, yo|
000013f0  75 20 77 69 6c 6c 20 6e  65 65 64 20 74 6f 20 73  |u will need to s|
00001400  65 6c 65 63 74 20 27 41  64 64 20 52 75 6c 65 72  |elect 'Add Ruler|
00001410  27 22 0d 09 38 54 f1 22  66 72 6f 6d 20 74 68 65  |'"..8T."from the|
00001420  20 27 4c 61 79 6f 75 74  27 20 6f 70 74 69 6f 6e  | 'Layout' option|
00001430  20 69 6e 20 74 68 65 20  6d 61 69 6e 20 6d 65 6e  | in the main men|
00001440  75 2e 20 53 69 6d 69 6c  61 72 6c 79 2c 20 61 20  |u. Similarly, a |
00001450  6e 65 77 20 72 75 6c 65  72 20 6d 75 73 74 20 62  |new ruler must b|
00001460  65 20 73 65 74 22 0d 09  42 54 f1 22 75 70 20 69  |e set"..BT."up i|
00001470  66 20 79 6f 75 20 68 61  76 65 20 75 73 65 64 20  |f you have used |
00001480  61 20 48 54 20 63 6f 6d  6d 61 6e 64 20 74 6f 20  |a HT command to |
00001490  63 68 61 6e 67 65 20 74  68 65 20 63 68 61 72 61  |change the chara|
000014a0  63 74 65 72 20 70 69 74  63 68 20 3a 20 50 69 63  |cter pitch : Pic|
000014b0  61 2c 20 45 6c 69 74 65  2c 22 0d 09 4c 3c f1 22  |a, Elite,"..L<."|
000014c0  45 6e 6c 61 72 67 65 64  20 61 6e 64 20 43 6f 6e  |Enlarged and Con|
000014d0  64 65 6e 73 65 64 20 61  72 65 20 61 6c 6c 20 73  |densed are all s|
000014e0  75 70 70 6f 72 74 65 64  20 69 6e 20 74 68 69 73  |upported in this|
000014f0  20 77 61 79 2e 22 0d 09  56 05 cd 0d 09 60 12 e7  | way."..V....`..|
00001500  20 70 61 67 65 6c 61 79  6f 75 74 20 8c 0d 09 6a  | pagelayout ...j|
00001510  54 f1 3a f1 22 59 6f 75  20 68 61 76 65 20 75 73  |T.:."You have us|
00001520  65 64 20 65 6d 62 65 64  64 65 64 20 63 6f 6d 6d  |ed embedded comm|
00001530  61 6e 64 73 20 74 6f 20  61 6c 74 65 72 20 74 68  |ands to alter th|
00001540  65 20 68 65 61 64 65 72  2c 20 66 6f 6f 74 65 72  |e header, footer|
00001550  2c 20 70 61 67 65 20 6c  65 6e 67 74 68 20 6f 72  |, page length or|
00001560  22 0d 09 74 54 f1 22 6d  61 72 67 69 6e 73 20 28  |"..tT."margins (|
00001570  69 65 2e 20 44 48 2c 44  46 2c 48 45 2c 46 4f 2c  |ie. DH,DF,HE,FO,|
00001580  50 4c 2c 46 4d 2c 54 4d  2c 42 4d 20 6f 72 20 48  |PL,FM,TM,BM or H|
00001590  4d 29 2e 20 31 73 74 20  77 6f 72 64 2b 20 61 6c  |M). 1st word+ al|
000015a0  6c 6f 77 73 20 74 68 65  73 65 20 74 6f 20 62 65  |lows these to be|
000015b0  20 73 65 74 22 0d 09 7e  54 f1 22 75 70 20 77 69  | set"..~T."up wi|
000015c0  74 68 69 6e 20 74 68 65  20 27 50 61 67 65 20 4c  |thin the 'Page L|
000015d0  61 79 6f 75 74 27 20 6f  70 74 69 6f 6e 20 77 68  |ayout' option wh|
000015e0  69 63 68 20 69 73 20 77  69 74 68 69 6e 20 74 68  |ich is within th|
000015f0  65 20 27 4c 61 79 6f 75  74 27 20 6f 70 74 69 6f  |e 'Layout' optio|
00001600  6e 20 69 6e 20 74 68 65  22 0d 09 88 11 f1 22 6d  |n in the"....."m|
00001610  61 69 6e 20 6d 65 6e 75  2e 22 0d 09 92 05 cd 0d  |ain menu."......|
00001620  09 9c 0e e7 20 68 69 6c  69 74 65 20 8c 0d 09 a6  |.... hilite ....|
00001630  55 f1 3a f1 22 59 6f 75  20 68 61 76 65 20 75 73  |U.:."You have us|
00001640  65 64 20 74 68 65 20 48  54 20 65 6d 62 65 64 64  |ed the HT embedd|
00001650  65 64 20 63 6f 6d 6d 61  6e 64 20 74 6f 20 73 65  |ed command to se|
00001660  6c 65 63 74 20 61 20 70  72 69 6e 74 69 6e 67 20  |lect a printing |
00001670  66 75 6e 63 74 69 6f 6e  20 77 68 69 63 68 20 69  |function which i|
00001680  73 22 0d 09 b0 51 f1 22  75 6e 6b 6e 6f 77 6e 20  |s"...Q."unknown |
00001690  74 6f 20 74 68 69 73 20  70 72 6f 67 72 61 6d 2e  |to this program.|
000016a0  20 49 66 20 69 74 20 69  73 20 66 6f 72 20 75 6e  | If it is for un|
000016b0  64 65 72 6c 69 6e 65 2c  20 62 6f 6c 64 2c 20 69  |derline, bold, i|
000016c0  74 61 6c 69 63 2c 20 65  6d 70 68 61 73 69 73 65  |talic, emphasise|
000016d0  64 2c 22 0d 09 ba 55 f1  22 73 75 70 65 72 73 63  |d,"...U."supersc|
000016e0  72 69 70 74 20 6f 72 20  73 75 62 73 63 72 69 70  |ript or subscrip|
000016f0  74 2c 20 74 68 65 6e 20  61 6d 65 6e 64 20 74 68  |t, then amend th|
00001700  65 20 64 61 74 61 20 6c  69 6e 65 73 20 61 74 20  |e data lines at |
00001710  74 68 65 20 65 6e 64 20  6f 66 20 74 68 69 73 20  |the end of this |
00001720  70 72 6f 67 72 61 6d 22  0d 09 c4 28 f1 22 74 6f  |program"...(."to|
00001730  20 73 75 69 74 20 79 6f  75 72 20 56 49 45 57 20  | suit your VIEW |
00001740  70 72 69 6e 74 65 72 20  64 72 69 76 65 72 2e 22  |printer driver."|
00001750  0d 09 ce 54 f1 22 49 66  20 69 74 20 69 73 20 74  |...T."If it is t|
00001760  6f 20 73 65 6c 65 63 74  20 64 69 66 66 65 72 65  |o select differe|
00001770  6e 74 20 73 69 7a 65 64  20 63 68 61 72 61 63 74  |nt sized charact|
00001780  65 72 73 2c 20 74 68 65  6e 20 79 6f 75 20 77 69  |ers, then you wi|
00001790  6c 6c 20 6e 65 65 64 20  74 6f 20 64 65 66 69 6e  |ll need to defin|
000017a0  65 20 61 22 0d 09 d8 43  f1 22 6e 65 77 20 72 75  |e a"...C."new ru|
000017b0  6c 65 72 20 62 79 20 73  65 6c 65 63 74 69 6e 67  |ler by selecting|
000017c0  20 27 41 64 64 20 52 75  6c 65 72 27 20 66 72 6f  | 'Add Ruler' fro|
000017d0  6d 20 74 68 65 20 27 4c  61 79 6f 75 74 27 20 6f  |m the 'Layout' o|
000017e0  70 74 69 6f 6e 2e 22 0d  09 e2 55 f1 22 49 66 20  |ption."...U."If |
000017f0  69 74 20 69 73 20 74 6f  20 73 65 6c 65 63 74 20  |it is to select |
00001800  4e 4c 51 20 28 4e 65 61  72 20 4c 65 74 74 65 72  |NLQ (Near Letter|
00001810  20 51 75 61 6c 69 74 79  29 2c 20 74 68 65 6e 20  | Quality), then |
00001820  74 68 69 73 20 69 73 20  61 6e 20 6f 70 74 69 6f  |this is an optio|
00001830  6e 20 77 68 69 63 68 20  63 61 6e 22 0d 09 ec 3c  |n which can"...<|
00001840  f1 22 73 65 6c 65 63 74  65 64 20 77 69 74 68 69  |."selected withi|
00001850  6e 20 74 68 65 20 27 50  72 69 6e 74 20 46 69 6c  |n the 'Print Fil|
00001860  65 27 20 6f 70 74 69 6f  6e 20 6f 66 20 31 73 74  |e' option of 1st|
00001870  20 77 6f 72 64 2b 2e 22  0d 09 f6 05 cd 0d 0a 00  | word+."........|
00001880  05 e1 0d 0a 0a 04 0d 0a  14 19 f4 20 44 41 54 41  |........... DATA|
00001890  20 66 6f 72 20 68 69 67  68 6c 69 67 68 74 73 0d  | for highlights.|
000018a0  0a 1e 04 0d 0a 28 44 f4  20 54 68 65 20 66 69 72  |.....(D. The fir|
000018b0  73 74 20 64 69 67 69 74  20 69 73 20 74 68 65 20  |st digit is the |
000018c0  31 73 74 20 77 6f 72 64  2b 20 63 6f 64 65 20 61  |1st word+ code a|
000018d0  6e 64 20 6d 75 73 74 20  6e 6f 74 20 62 65 20 63  |nd must not be c|
000018e0  68 61 6e 67 65 64 2e 0d  0a 32 46 f4 20 54 68 65  |hanged...2F. The|
000018f0  20 56 49 45 57 20 63 6f  64 65 20 69 73 20 66 6f  | VIEW code is fo|
00001900  72 20 74 68 65 20 52 65  73 6f 75 72 63 65 20 46  |r the Resource F|
00001910  61 63 69 6c 69 74 69 65  73 20 46 58 38 30 20 50  |acilities FX80 P|
00001920  72 69 6e 74 65 72 20 44  72 69 76 65 72 0d 0a 3c  |rinter Driver..<|
00001930  44 f4 20 59 6f 75 20 77  69 6c 6c 20 6e 65 65 64  |D. You will need|
00001940  20 74 6f 20 63 68 61 6e  67 65 20 74 68 65 20 56  | to change the V|
00001950  49 45 57 20 63 6f 64 65  73 20 74 6f 20 73 75 69  |IEW codes to sui|
00001960  74 20 79 6f 75 72 20 6f  77 6e 20 64 72 69 76 65  |t your own drive|
00001970  72 0d 0a 46 04 0d 0a 50  0f f4 20 75 6e 64 65 72  |r..F...P.. under|
00001980  6c 69 6e 65 0d 0a 5a 0b  dc 20 38 2c 31 32 38 0d  |line..Z.. 8,128.|
00001990  0a 64 0a f4 20 62 6f 6c  64 0d 0a 6e 0b dc 20 31  |.d.. bold..n.. 1|
000019a0  2c 31 32 39 0d 0a 78 0c  f4 20 69 74 61 6c 69 63  |,129..x.. italic|
000019b0  0d 0a 82 0b dc 20 34 2c  31 33 30 0d 0a 8c 11 f4  |..... 4,130.....|
000019c0  20 73 75 70 65 72 73 63  72 69 70 74 0d 0a 96 0c  | superscript....|
000019d0  dc 20 31 36 2c 31 33 35  0d 0a a0 0f f4 20 73 75  |. 16,135..... su|
000019e0  62 73 63 72 69 70 74 0d  0a aa 0c dc 20 33 32 2c  |bscript..... 32,|
000019f0  31 33 36 0d 0a b4 10 f4  20 50 6f 75 6e 64 20 73  |136..... Pound s|
00001a00  69 67 6e 0d 0a be 08 dc  20 33 35 0d ff           |ign..... 35..|
00001a0d