' � >$.1ST_WP.V1W+_Acorn Version 1.1
 
5 � Version for Acornsoft Printer Driver Generator
( � By Clive Williams
2 � 19.5.1988
< 
F* � Not implemented : Alternative fonts
P% �         Extended character set
Z 
d2 size$="1":justify$="1":linespace$="1":pound=�
n �#0
x' � 12:�:� 19,0,4,0,0,0,19,1,6,0,0,0
�0 �20,2);"View to 1st Word+ File Conversion"
�
 �init
� 
�% �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

, �

6 �

@ �writeline(line$)

J �

T �#0

^ �messages

h �

r �

| 

� ��init

�) line%=0:lf$=�(&0A):htcode%=&80:lm%=0

�1 printfile=�:addruler=�:pagelayout=�:hilite=�

�$ LMcommand=�:header=�:extended=�

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

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

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

�
 � pound%

� �

� 

�
 ��header

� � header$

�
 header=�
? header$=�(&1F)+"0"+"6601030305800"+lf$:�writeline(header$)
= header$=�(&1F)+"1"+�(&1F)+�(&1F)+lf$:�writeline(header$)
A header$=�(&1F)+"2"+�(&1F)+"#"+�(&1F)+lf$:�writeline(header$)
&6 header$=�(&1F)+"F0110030"+lf$:�writeline(header$)
0 �write_ruler
: �
D 
N ݤreadline
X � a%,a$
b
 line%+=1
l" �16,7);�5," "):�16,7);line%
v a%=�#view%
� ȕ a%<>&D
� a$=a$+�(a%)
� a%=�#view%
� �
� =a$
� 
� ��writeline(a$)
�( � i%,j%,k%,char%,pos%,string$,temp%
� � 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$)
4 char%=�(�a$,i%,1))
> Ȏ char% �
H7 � &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
z pos%+=1
� �
� �
� char%=&20:pos%+=1
�" � &0A :� extended � �turn_off
� � &0B :char%=&00:pos%+=1
� � &1A :char%=&1E:pos%+=1
� � &1C :
� �#firstword%,&1B
� htcode%=htcode% � 8
�( � � extended � �a$,i%+1,1)=�(&1D) �
� i%+=1:htcode%=htcode% � 1
� �
� char%=htcode%
 � &1D :
 � extended �
 string$="*"
$ j%=�(�a$,i%+1,1))
. ȕ j%=&1C � j%=&1D
8
 i%+=1
B � j%=&1C �
L string$=string$+"-"
V �
` string$=string$+"*"
j �
t j%=�(�a$,i%+1,1))
~ �
� Ȏ string$ �
�% � "**"   : htcode%=htcode% � &10
�# �#firstword%,&1B:char%=htcode%
�# � "***"  : htcode%=htcode% � 1
�# �#firstword%,&1B:char%=htcode%
�% � "*-"   : htcode%=htcode% � &20
�# �#firstword%,&1B:char%=htcode%
�% � "**-"  : htcode%=htcode% � &CF
�# �#firstword%,&1B:char%=htcode%
� � "*---" : htcode%=&80
�# �#firstword%,&1B:char%=htcode%
�# � "*-*"  : htcode%=htcode% � 4
# �#firstword%,&1B:char%=htcode%

    : � j%=1 � �(string$)
& �#firstword%,�(�a$,j%,1)):pos%+=1
 �
( �
2 �
< �#firstword%,&1B
F htcode%=htcode% � 1
P � �a$,i%+1,1)=�(&1C) �
Z i%+=1:htcode%=htcode% � 8
d �
n char%=htcode%
x �
� � &20 :char%=&1E:pos%+=1
�8 � pound% : � (pound � � header) � char%=&A3:pos%+=1
� :pos%+=1
� �
�$ � char%<>0 � �#firstword%,char%
� �
� �
� � a$="" �
� �#firstword%,&0A
� �
� � �a$,1)<>lf$ �
� � extended � �turn_off
�& �#firstword%,&1E:�#firstword%,&0A
 �
 �
 �
" 
, ��turn_off
6 htcode%=htcode% � &87
@ �#firstword%,&1B
J �#firstword%,htcode%
T �
^ 
h ��embedded
r � i%,code$,validcode,ht%
| line$=�line$,2)
� code$=�line$,2)
� line$=�line$,3)
� Ȏ code$ �
�
 � "PE" :
� i%=�(line$)
�
 � i%=0 �
� line$=�(&0C)
� �
� line$=�(&01)+�(i%+&10)+lf$
� �
�
 � "LM" :
� lm%=�(line$):line$=""
�& � lm% � LMcommand=� � LMcommand=�

 � "CE" :
 � ruler%>�(line$) �
 �#firstword%,&1D
&# � i%=2 � (ruler%-�(line$)) � 2
0 �#firstword%,&1C
: �
D �
N line$=line$+lf$
X
 � "LJ" :
b ȕ �line$,1)<�(&21)
l line$=�line$,2)
v �
� line$=line$+lf$
�
 � "RJ" :
� � ruler%>�(line$) �
� �#firstword%,&1D
� � i%=2 � ruler%-�(line$)
� �#firstword%,&1C
� �
� �
� line$=line$+lf$
�
 � "HT" :
� � �line$,1)=" " �
�' �:line$=�line$,2):� �line$,1)<>" "
� �
 � �line$,5)="2 130" �
 extended=�:line$=�line$,6)
 �
 2 extended=�:line$=code$+" "+line$+lf$:hilite=�
* �
4: � "TS","SR" : printfile=� : line$=code$+" "+line$+lf$
>2 � "LS" : addruler=�:line$=code$+" "+line$+lf$
HZ � "DH","DF","HE","FO","PL","TM","HM","FM","BM":pagelayout=�:line$=code$+" "+line$+lf$
R"  : line$=code$+" "+line$+lf$
\ �
f �
p 
z ��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
	. �
	8 
	B ��write_ruler
	L � i%=1 � �(r$)
	V char%=�(�r$,i%,1))
	` � char%=0 � char%=&7F
	j �#firstword%,char%
	t �
	~
 line$=""
	� �
	� 
	� ��messages
	�) �:�"The conversion is now complete";
	�3 � printfile � addruler � pagelayout � hilite �
	�5 �" but you may find the following notes useful:"
	� � �"."
	� �
	� � printfile �
	�U �:�"You have used the TS or SR embedded commands in your document. In 1st word+"
	�S �"these are set at the time of printing ie. when you select 'Print File' from"
	�W �"the 'File' option. If the HT command has been used to select NLQ printing, then"
9 �"this also is selected within the printing option."

 �
 � addruler �
Y �:�"You have used the LS embedded command to alter line spacing. In 1st word+, this"
(W �"is done by defining a new ruler. Therefore, you will need to select 'Add Ruler'"
2U �"from the 'Layout' option in the main menu. Similarly, a new ruler must be set"
<U �"up if you have used a HT command to change the character pitch : Pica, Elite,"
F= �"Enlarged and Condensed are all supported in this way."
P �
Z � pagelayout �
dU �:�"You have used embedded commands to alter the header, footer, page length or"
nU �"margins (ie. DH,DF,HE,FO,PL,FM,TM,BM or HM). 1st word+ allows these to be set"
xU �"up within the 'Page Layout' option which is within the 'Layout' option in the"
� �"main menu."
� �
� � hilite �
�V �:�"You have used the HT embedded command to select a printing function which is"
�R �"unknown to this program. If it is for underline, bold, italic, emphasised,"
�V �"superscript or subscript, then amend the data lines at the end of this program"
�) �"to suit your VIEW printer driver."
�U �"If it is to select different sized characters, then you will need to define a"
�D �"new ruler by selecting 'Add Ruler' from the 'Layout' option."
�V �"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+."
� �
� �
 
 � Pound sign
	 � 35
�

00000000  0d 00 0a 27 20 f4 20 3e  24 2e 31 53 54 5f 57 50  |...' . >$.1ST_WP|
00000010  2e 56 31 57 2b 5f 41 63  6f 72 6e 20 56 65 72 73  |.V1W+_Acorn Vers|
00000020  69 6f 6e 20 31 2e 31 0d  00 14 05 20 0d 00 1e 35  |ion 1.1.... ...5|
00000030  20 f4 20 56 65 72 73 69  6f 6e 20 66 6f 72 20 41  | . Version for A|
00000040  63 6f 72 6e 73 6f 66 74  20 50 72 69 6e 74 65 72  |cornsoft Printer|
00000050  20 44 72 69 76 65 72 20  47 65 6e 65 72 61 74 6f  | Driver Generato|
00000060  72 0d 00 28 18 20 f4 20  42 79 20 43 6c 69 76 65  |r..(. . By Clive|
00000070  20 57 69 6c 6c 69 61 6d  73 0d 00 32 10 20 f4 20  | Williams..2. . |
00000080  31 39 2e 35 2e 31 39 38  38 0d 00 3c 05 20 0d 00  |19.5.1988..<. ..|
00000090  46 2a 20 f4 20 4e 6f 74  20 69 6d 70 6c 65 6d 65  |F* . Not impleme|
000000a0  6e 74 65 64 20 3a 20 41  6c 74 65 72 6e 61 74 69  |nted : Alternati|
000000b0  76 65 20 66 6f 6e 74 73  0d 00 50 25 20 f4 20 20  |ve fonts..P% .  |
000000c0  20 20 20 20 20 20 20 45  78 74 65 6e 64 65 64 20  |       Extended |
000000d0  63 68 61 72 61 63 74 65  72 20 73 65 74 0d 00 5a  |character set..Z|
000000e0  05 20 0d 00 64 32 20 73  69 7a 65 24 3d 22 31 22  |. ..d2 size$="1"|
000000f0  3a 6a 75 73 74 69 66 79  24 3d 22 31 22 3a 6c 69  |:justify$="1":li|
00000100  6e 65 73 70 61 63 65 24  3d 22 31 22 3a 70 6f 75  |nespace$="1":pou|
00000110  6e 64 3d b9 0d 00 6e 08  20 d9 23 30 0d 00 78 27  |nd=...n. .#0..x'|
00000120  20 eb 20 31 32 3a 87 3a  ef 20 31 39 2c 30 2c 34  | . 12:.:. 19,0,4|
00000130  2c 30 2c 30 2c 30 2c 31  39 2c 31 2c 36 2c 30 2c  |,0,0,0,19,1,6,0,|
00000140  30 2c 30 0d 00 82 30 20  f1 8a 32 30 2c 32 29 3b  |0,0...0 ..20,2);|
00000150  22 56 69 65 77 20 74 6f  20 31 73 74 20 57 6f 72  |"View to 1st Wor|
00000160  64 2b 20 46 69 6c 65 20  43 6f 6e 76 65 72 73 69  |d+ File Conversi|
00000170  6f 6e 22 0d 00 8c 0a 20  f2 69 6e 69 74 0d 00 96  |on".... .init...|
00000180  05 20 0d 00 a0 25 20 e8  8a 30 2c 35 29 3b 22 4e  |. ...% ..0,5);"N|
00000190  61 6d 65 20 6f 66 20 56  49 45 57 20 66 69 6c 65  |ame of VIEW file|
000001a0  22 3b 76 69 65 77 24 0d  00 aa 2f 20 e8 8a 30 2c  |";view$.../ ..0,|
000001b0  36 29 3b 22 4e 61 6d 65  20 6f 66 20 31 73 74 20  |6);"Name of 1st |
000001c0  57 6f 72 64 2b 20 66 69  6c 65 22 3b 66 69 72 73  |Word+ file";firs|
000001d0  74 77 6f 72 64 24 0d 00  b4 13 20 76 69 65 77 25  |tword$.... view%|
000001e0  3d 8e 28 76 69 65 77 24  29 0d 00 be 05 20 0d 00  |=.(view$).... ..|
000001f0  c8 11 20 e7 20 76 69 65  77 25 3c 3e 30 20 8c 0d  |.. . view%<>0 ..|
00000200  00 d2 1f 20 f1 8a 30 2c  37 29 3b 22 43 6f 6e 76  |... ..0,7);"Conv|
00000210  65 72 74 69 6e 67 20 6c  69 6e 65 20 22 3b 0d 00  |erting line ";..|
00000220  dc 1d 20 66 69 72 73 74  77 6f 72 64 25 3d ae 28  |.. firstword%=.(|
00000230  66 69 72 73 74 77 6f 72  64 24 29 0d 00 e6 0c 20  |firstword$).... |
00000240  f2 68 65 61 64 65 72 0d  00 f0 11 20 c8 95 20 ac  |.header.... .. .|
00000250  20 c5 23 76 69 65 77 25  0d 00 fa 14 20 6c 69 6e  | .#view%.... lin|
00000260  65 24 3d a4 72 65 61 64  6c 69 6e 65 0d 01 04 12  |e$=.readline....|
00000270  20 e7 20 6c 69 6e 65 24  3c 3e 22 22 20 8c 0d 01  | . line$<>"" ...|
00000280  0e 16 20 c8 8e 20 97 28  c0 6c 69 6e 65 24 2c 31  |.. .. .(.line$,1|
00000290  29 29 20 ca 0d 01 18 16  20 c9 20 26 38 30 20 3a  |)) ..... . &80 :|
000002a0  20 f2 65 6d 62 65 64 64  65 64 0d 01 22 17 20 c9  | .embedded..". .|
000002b0  20 26 38 31 20 3a 20 f2  6e 65 77 5f 72 75 6c 65  | &81 : .new_rule|
000002c0  72 0d 01 2c 06 20 cb 0d  01 36 06 20 cd 0d 01 40  |r..,. ...6. ...@|
000002d0  16 20 f2 77 72 69 74 65  6c 69 6e 65 28 6c 69 6e  |. .writeline(lin|
000002e0  65 24 29 0d 01 4a 06 20  ce 0d 01 54 08 20 d9 23  |e$)..J. ...T. .#|
000002f0  30 0d 01 5e 0e 20 f2 6d  65 73 73 61 67 65 73 0d  |0..^. .messages.|
00000300  01 68 06 20 cd 0d 01 72  06 20 e0 0d 01 7c 05 20  |.h. ...r. ...|. |
00000310  0d 01 86 0b 20 dd f2 69  6e 69 74 0d 01 90 29 20  |.... ..init...) |
00000320  6c 69 6e 65 25 3d 30 3a  6c 66 24 3d bd 28 26 30  |line%=0:lf$=.(&0|
00000330  41 29 3a 68 74 63 6f 64  65 25 3d 26 38 30 3a 6c  |A):htcode%=&80:l|
00000340  6d 25 3d 30 0d 01 9a 31  20 70 72 69 6e 74 66 69  |m%=0...1 printfi|
00000350  6c 65 3d a3 3a 61 64 64  72 75 6c 65 72 3d a3 3a  |le=.:addruler=.:|
00000360  70 61 67 65 6c 61 79 6f  75 74 3d a3 3a 68 69 6c  |pagelayout=.:hil|
00000370  69 74 65 3d a3 0d 01 a4  24 20 4c 4d 63 6f 6d 6d  |ite=....$ LMcomm|
00000380  61 6e 64 3d a3 3a 68 65  61 64 65 72 3d a3 3a 65  |and=.:header=.:e|
00000390  78 74 65 6e 64 65 64 3d  a3 0d 01 ae 20 20 72 75  |xtended=....  ru|
000003a0  6c 65 72 25 3d 37 34 3a  72 24 3d 22 2e 2e 2e 2e  |ler%=74:r$="....|
000003b0  2e 2e 2e 22 2b bd 28 30  29 0d 01 b8 17 20 72 75  |..."+.(0).... ru|
000003c0  6c 65 72 24 3d c4 39 2c  72 24 29 2b 22 2e 2e 22  |ler$=.9,r$)+".."|
000003d0  0d 01 c2 3c 20 72 24 3d  bd 28 26 31 46 29 2b 22  |...< r$=.(&1F)+"|
000003e0  39 5b 22 2b 72 75 6c 65  72 24 2b 22 5d 22 2b 73  |9["+ruler$+"]"+s|
000003f0  69 7a 65 24 2b 6a 75 73  74 69 66 79 24 2b 6c 69  |ize$+justify$+li|
00000400  6e 65 73 70 61 63 65 24  2b 6c 66 24 0d 01 cc 0d  |nespace$+lf$....|
00000410  20 f3 20 70 6f 75 6e 64  25 0d 01 d6 06 20 e1 0d  | . pound%.... ..|
00000420  01 e0 05 20 0d 01 ea 0d  20 dd f2 68 65 61 64 65  |... .... ..heade|
00000430  72 0d 01 f4 0e 20 ea 20  68 65 61 64 65 72 24 0d  |r.... . header$.|
00000440  01 fe 0d 20 68 65 61 64  65 72 3d b9 0d 02 08 3f  |... header=....?|
00000450  20 68 65 61 64 65 72 24  3d bd 28 26 31 46 29 2b  | header$=.(&1F)+|
00000460  22 30 22 2b 22 36 36 30  31 30 33 30 33 30 35 38  |"0"+"66010303058|
00000470  30 30 22 2b 6c 66 24 3a  f2 77 72 69 74 65 6c 69  |00"+lf$:.writeli|
00000480  6e 65 28 68 65 61 64 65  72 24 29 0d 02 12 3d 20  |ne(header$)...= |
00000490  68 65 61 64 65 72 24 3d  bd 28 26 31 46 29 2b 22  |header$=.(&1F)+"|
000004a0  31 22 2b bd 28 26 31 46  29 2b bd 28 26 31 46 29  |1"+.(&1F)+.(&1F)|
000004b0  2b 6c 66 24 3a f2 77 72  69 74 65 6c 69 6e 65 28  |+lf$:.writeline(|
000004c0  68 65 61 64 65 72 24 29  0d 02 1c 41 20 68 65 61  |header$)...A hea|
000004d0  64 65 72 24 3d bd 28 26  31 46 29 2b 22 32 22 2b  |der$=.(&1F)+"2"+|
000004e0  bd 28 26 31 46 29 2b 22  23 22 2b bd 28 26 31 46  |.(&1F)+"#"+.(&1F|
000004f0  29 2b 6c 66 24 3a f2 77  72 69 74 65 6c 69 6e 65  |)+lf$:.writeline|
00000500  28 68 65 61 64 65 72 24  29 0d 02 26 36 20 68 65  |(header$)..&6 he|
00000510  61 64 65 72 24 3d bd 28  26 31 46 29 2b 22 46 30  |ader$=.(&1F)+"F0|
00000520  31 31 30 30 33 30 22 2b  6c 66 24 3a f2 77 72 69  |110030"+lf$:.wri|
00000530  74 65 6c 69 6e 65 28 68  65 61 64 65 72 24 29 0d  |teline(header$).|
00000540  02 30 11 20 f2 77 72 69  74 65 5f 72 75 6c 65 72  |.0. .write_ruler|
00000550  0d 02 3a 06 20 e1 0d 02  44 05 20 0d 02 4e 0f 20  |..:. ...D. ..N. |
00000560  dd a4 72 65 61 64 6c 69  6e 65 0d 02 58 0c 20 ea  |..readline..X. .|
00000570  20 61 25 2c 61 24 0d 02  62 0d 20 6c 69 6e 65 25  | a%,a$..b. line%|
00000580  2b 3d 31 0d 02 6c 22 20  f1 8a 31 36 2c 37 29 3b  |+=1..l" ..16,7);|
00000590  c4 35 2c 22 20 22 29 3a  f1 8a 31 36 2c 37 29 3b  |.5," "):..16,7);|
000005a0  6c 69 6e 65 25 0d 02 76  0f 20 61 25 3d 9a 23 76  |line%..v. a%=.#v|
000005b0  69 65 77 25 0d 02 80 0e  20 c8 95 20 61 25 3c 3e  |iew%.... .. a%<>|
000005c0  26 44 0d 02 8a 10 20 61  24 3d 61 24 2b bd 28 61  |&D.... a$=a$+.(a|
000005d0  25 29 0d 02 94 0f 20 61  25 3d 9a 23 76 69 65 77  |%).... a%=.#view|
000005e0  25 0d 02 9e 06 20 ce 0d  02 a8 08 20 3d 61 24 0d  |%.... ..... =a$.|
000005f0  02 b2 05 20 0d 02 bc 14  20 dd f2 77 72 69 74 65  |... .... ..write|
00000600  6c 69 6e 65 28 61 24 29  0d 02 c6 28 20 ea 20 69  |line(a$)...( . i|
00000610  25 2c 6a 25 2c 6b 25 2c  63 68 61 72 25 2c 70 6f  |%,j%,k%,char%,po|
00000620  73 25 2c 73 74 72 69 6e  67 24 2c 74 65 6d 70 25  |s%,string$,temp%|
00000630  0d 02 d0 0f 20 e7 20 61  24 3c 3e 22 22 20 8c 0d  |.... . a$<>"" ..|
00000640  02 da 0b 20 70 6f 73 25  3d 30 0d 02 e4 2d 20 e7  |... pos%=0...- .|
00000650  20 6c 6d 25 3c 3e 30 20  80 20 28 c0 61 24 2c 31  | lm%<>0 . (.a$,1|
00000660  29 3d bd 28 26 30 42 29  20 84 20 4c 4d 63 6f 6d  |)=.(&0B) . LMcom|
00000670  6d 61 6e 64 29 20 8c 0d  02 ee 0d 20 68 65 61 64  |mand) ..... head|
00000680  65 72 3d a3 0d 02 f8 23  20 70 6f 73 25 3d 6c 6d  |er=....# pos%=lm|
00000690  25 3a 69 25 3d 30 3a d5  23 66 69 72 73 74 77 6f  |%:i%=0:.#firstwo|
000006a0  72 64 25 2c 26 31 44 0d  03 02 0e 20 c8 95 20 69  |rd%,&1D.... .. i|
000006b0  25 3c 6c 6d 25 0d 03 0c  1b 20 d5 23 66 69 72 73  |%<lm%.... .#firs|
000006c0  74 77 6f 72 64 25 2c 26  31 43 3a 69 25 2b 3d 31  |tword%,&1C:i%+=1|
000006d0  0d 03 16 06 20 ce 0d 03  20 06 20 cd 0d 03 2a 13  |.... ... . ...*.|
000006e0  20 e3 20 69 25 3d 31 20  b8 20 a9 28 61 24 29 0d  | . i%=1 . .(a$).|
000006f0  03 34 17 20 63 68 61 72  25 3d 97 28 c1 61 24 2c  |.4. char%=.(.a$,|
00000700  69 25 2c 31 29 29 0d 03  3e 0f 20 c8 8e 20 63 68  |i%,1))..>. .. ch|
00000710  61 72 25 20 ca 0d 03 48  37 20 c9 20 26 30 31 20  |ar% ...H7 . &01 |
00000720  3a d5 23 66 69 72 73 74  77 6f 72 64 25 2c 26 30  |:.#firstword%,&0|
00000730  42 3a 69 25 2b 3d 32 3a  63 68 61 72 25 3d 97 28  |B:i%+=2:char%=.(|
00000740  c1 61 24 2c 69 25 2d 31  2c 31 29 29 0d 03 52 0c  |.a$,i%-1,1))..R.|
00000750  20 c9 20 26 30 39 20 3a  0d 03 5c 22 20 e7 20 a7  | . &09 :..\" . .|
00000760  c1 72 75 6c 65 72 24 2c  70 6f 73 25 2b 31 29 2c  |.ruler$,pos%+1),|
00000770  bd 28 30 29 29 3c 3e 30  20 8c 0d 03 66 1f 20 c8  |.(0))<>0 ...f. .|
00000780  95 20 c1 72 75 6c 65 72  24 2c 70 6f 73 25 2b 31  |. .ruler$,pos%+1|
00000790  2c 31 29 3c 3e bd 28 30  29 0d 03 70 15 20 d5 23  |,1)<>.(0)..p. .#|
000007a0  66 69 72 73 74 77 6f 72  64 25 2c 26 32 30 0d 03  |firstword%,&20..|
000007b0  7a 0c 20 70 6f 73 25 2b  3d 31 0d 03 84 06 20 ce  |z. pos%+=1.... .|
000007c0  0d 03 8e 06 20 cd 0d 03  98 16 20 63 68 61 72 25  |.... ..... char%|
000007d0  3d 26 32 30 3a 70 6f 73  25 2b 3d 31 0d 03 a2 22  |=&20:pos%+=1..."|
000007e0  20 c9 20 26 30 41 20 3a  e7 20 65 78 74 65 6e 64  | . &0A :. extend|
000007f0  65 64 20 8c 20 f2 74 75  72 6e 5f 6f 66 66 0d 03  |ed . .turn_off..|
00000800  ac 1d 20 c9 20 26 30 42  20 3a 63 68 61 72 25 3d  |.. . &0B :char%=|
00000810  26 30 30 3a 70 6f 73 25  2b 3d 31 0d 03 b6 1d 20  |&00:pos%+=1.... |
00000820  c9 20 26 31 41 20 3a 63  68 61 72 25 3d 26 31 45  |. &1A :char%=&1E|
00000830  3a 70 6f 73 25 2b 3d 31  0d 03 c0 0c 20 c9 20 26  |:pos%+=1.... . &|
00000840  31 43 20 3a 0d 03 ca 15  20 d5 23 66 69 72 73 74  |1C :.... .#first|
00000850  77 6f 72 64 25 2c 26 31  42 0d 03 d4 18 20 68 74  |word%,&1B.... ht|
00000860  63 6f 64 65 25 3d 68 74  63 6f 64 65 25 20 82 20  |code%=htcode% . |
00000870  38 0d 03 de 28 20 e7 20  ac 20 65 78 74 65 6e 64  |8...( . . extend|
00000880  65 64 20 80 20 c1 61 24  2c 69 25 2b 31 2c 31 29  |ed . .a$,i%+1,1)|
00000890  3d bd 28 26 31 44 29 20  8c 0d 03 e8 1e 20 69 25  |=.(&1D) ..... i%|
000008a0  2b 3d 31 3a 68 74 63 6f  64 65 25 3d 68 74 63 6f  |+=1:htcode%=htco|
000008b0  64 65 25 20 82 20 31 0d  03 f2 06 20 cd 0d 03 fc  |de% . 1.... ....|
000008c0  12 20 63 68 61 72 25 3d  68 74 63 6f 64 65 25 0d  |. char%=htcode%.|
000008d0  04 06 0c 20 c9 20 26 31  44 20 3a 0d 04 10 11 20  |... . &1D :.... |
000008e0  e7 20 65 78 74 65 6e 64  65 64 20 8c 0d 04 1a 10  |. extended .....|
000008f0  20 73 74 72 69 6e 67 24  3d 22 2a 22 0d 04 24 16  | string$="*"..$.|
00000900  20 6a 25 3d 97 28 c1 61  24 2c 69 25 2b 31 2c 31  | j%=.(.a$,i%+1,1|
00000910  29 29 0d 04 2e 17 20 c8  95 20 6a 25 3d 26 31 43  |)).... .. j%=&1C|
00000920  20 84 20 6a 25 3d 26 31  44 0d 04 38 0a 20 69 25  | . j%=&1D..8. i%|
00000930  2b 3d 31 0d 04 42 0f 20  e7 20 6a 25 3d 26 31 43  |+=1..B. . j%=&1C|
00000940  20 8c 0d 04 4c 18 20 73  74 72 69 6e 67 24 3d 73  | ...L. string$=s|
00000950  74 72 69 6e 67 24 2b 22  2d 22 0d 04 56 06 20 cc  |tring$+"-"..V. .|
00000960  0d 04 60 18 20 73 74 72  69 6e 67 24 3d 73 74 72  |..`. string$=str|
00000970  69 6e 67 24 2b 22 2a 22  0d 04 6a 06 20 cd 0d 04  |ing$+"*"..j. ...|
00000980  74 16 20 6a 25 3d 97 28  c1 61 24 2c 69 25 2b 31  |t. j%=.(.a$,i%+1|
00000990  2c 31 29 29 0d 04 7e 06  20 ce 0d 04 88 11 20 c8  |,1))..~. ..... .|
000009a0  8e 20 73 74 72 69 6e 67  24 20 ca 0d 04 92 25 20  |. string$ ....% |
000009b0  c9 20 22 2a 2a 22 20 20  20 3a 20 68 74 63 6f 64  |. "**"   : htcod|
000009c0  65 25 3d 68 74 63 6f 64  65 25 20 84 20 26 31 30  |e%=htcode% . &10|
000009d0  0d 04 9c 23 20 d5 23 66  69 72 73 74 77 6f 72 64  |...# .#firstword|
000009e0  25 2c 26 31 42 3a 63 68  61 72 25 3d 68 74 63 6f  |%,&1B:char%=htco|
000009f0  64 65 25 0d 04 a6 23 20  c9 20 22 2a 2a 2a 22 20  |de%...# . "***" |
00000a00  20 3a 20 68 74 63 6f 64  65 25 3d 68 74 63 6f 64  | : htcode%=htcod|
00000a10  65 25 20 82 20 31 0d 04  b0 23 20 d5 23 66 69 72  |e% . 1...# .#fir|
00000a20  73 74 77 6f 72 64 25 2c  26 31 42 3a 63 68 61 72  |stword%,&1B:char|
00000a30  25 3d 68 74 63 6f 64 65  25 0d 04 ba 25 20 c9 20  |%=htcode%...% . |
00000a40  22 2a 2d 22 20 20 20 3a  20 68 74 63 6f 64 65 25  |"*-"   : htcode%|
00000a50  3d 68 74 63 6f 64 65 25  20 84 20 26 32 30 0d 04  |=htcode% . &20..|
00000a60  c4 23 20 d5 23 66 69 72  73 74 77 6f 72 64 25 2c  |.# .#firstword%,|
00000a70  26 31 42 3a 63 68 61 72  25 3d 68 74 63 6f 64 65  |&1B:char%=htcode|
00000a80  25 0d 04 ce 25 20 c9 20  22 2a 2a 2d 22 20 20 3a  |%...% . "**-"  :|
00000a90  20 68 74 63 6f 64 65 25  3d 68 74 63 6f 64 65 25  | htcode%=htcode%|
00000aa0  20 80 20 26 43 46 0d 04  d8 23 20 d5 23 66 69 72  | . &CF...# .#fir|
00000ab0  73 74 77 6f 72 64 25 2c  26 31 42 3a 63 68 61 72  |stword%,&1B:char|
00000ac0  25 3d 68 74 63 6f 64 65  25 0d 04 e2 1b 20 c9 20  |%=htcode%.... . |
00000ad0  22 2a 2d 2d 2d 22 20 3a  20 68 74 63 6f 64 65 25  |"*---" : htcode%|
00000ae0  3d 26 38 30 0d 04 ec 23  20 d5 23 66 69 72 73 74  |=&80...# .#first|
00000af0  77 6f 72 64 25 2c 26 31  42 3a 63 68 61 72 25 3d  |word%,&1B:char%=|
00000b00  68 74 63 6f 64 65 25 0d  04 f6 23 20 c9 20 22 2a  |htcode%...# . "*|
00000b10  2d 2a 22 20 20 3a 20 68  74 63 6f 64 65 25 3d 68  |-*"  : htcode%=h|
00000b20  74 63 6f 64 65 25 20 82  20 34 0d 05 00 23 20 d5  |tcode% . 4...# .|
00000b30  23 66 69 72 73 74 77 6f  72 64 25 2c 26 31 42 3a  |#firstword%,&1B:|
00000b40  63 68 61 72 25 3d 68 74  63 6f 64 65 25 0d 05 0a  |char%=htcode%...|
00000b50  1e 20 7f 20 20 20 3a 20  e3 20 6a 25 3d 31 20 b8  |. .   : . j%=1 .|
00000b60  20 a9 28 73 74 72 69 6e  67 24 29 0d 05 14 26 20  | .(string$)...& |
00000b70  d5 23 66 69 72 73 74 77  6f 72 64 25 2c 97 28 c1  |.#firstword%,.(.|
00000b80  61 24 2c 6a 25 2c 31 29  29 3a 70 6f 73 25 2b 3d  |a$,j%,1)):pos%+=|
00000b90  31 0d 05 1e 06 20 ed 0d  05 28 06 20 cb 0d 05 32  |1.... ...(. ...2|
00000ba0  06 20 cc 0d 05 3c 15 20  d5 23 66 69 72 73 74 77  |. ...<. .#firstw|
00000bb0  6f 72 64 25 2c 26 31 42  0d 05 46 18 20 68 74 63  |ord%,&1B..F. htc|
00000bc0  6f 64 65 25 3d 68 74 63  6f 64 65 25 20 82 20 31  |ode%=htcode% . 1|
00000bd0  0d 05 50 1b 20 e7 20 c1  61 24 2c 69 25 2b 31 2c  |..P. . .a$,i%+1,|
00000be0  31 29 3d bd 28 26 31 43  29 20 8c 0d 05 5a 1e 20  |1)=.(&1C) ...Z. |
00000bf0  69 25 2b 3d 31 3a 68 74  63 6f 64 65 25 3d 68 74  |i%+=1:htcode%=ht|
00000c00  63 6f 64 65 25 20 82 20  38 0d 05 64 06 20 cd 0d  |code% . 8..d. ..|
00000c10  05 6e 12 20 63 68 61 72  25 3d 68 74 63 6f 64 65  |.n. char%=htcode|
00000c20  25 0d 05 78 06 20 cd 0d  05 82 1d 20 c9 20 26 32  |%..x. ..... . &2|
00000c30  30 20 3a 63 68 61 72 25  3d 26 31 45 3a 70 6f 73  |0 :char%=&1E:pos|
00000c40  25 2b 3d 31 0d 05 8c 38  20 c9 20 70 6f 75 6e 64  |%+=1...8 . pound|
00000c50  25 20 3a 20 e7 20 28 70  6f 75 6e 64 20 80 20 ac  |% : . (pound . .|
00000c60  20 68 65 61 64 65 72 29  20 8c 20 63 68 61 72 25  | header) . char%|
00000c70  3d 26 41 33 3a 70 6f 73  25 2b 3d 31 0d 05 96 0e  |=&A3:pos%+=1....|
00000c80  20 7f 3a 70 6f 73 25 2b  3d 31 0d 05 a0 06 20 cb  | .:pos%+=1.... .|
00000c90  0d 05 aa 24 20 e7 20 63  68 61 72 25 3c 3e 30 20  |...$ . char%<>0 |
00000ca0  8c 20 d5 23 66 69 72 73  74 77 6f 72 64 25 2c 63  |. .#firstword%,c|
00000cb0  68 61 72 25 0d 05 b4 06  20 ed 0d 05 be 06 20 cd  |har%.... ..... .|
00000cc0  0d 05 c8 0e 20 e7 20 61  24 3d 22 22 20 8c 0d 05  |.... . a$="" ...|
00000cd0  d2 15 20 d5 23 66 69 72  73 74 77 6f 72 64 25 2c  |.. .#firstword%,|
00000ce0  26 30 41 0d 05 dc 06 20  cc 0d 05 e6 14 20 e7 20  |&0A.... ..... . |
00000cf0  c2 61 24 2c 31 29 3c 3e  6c 66 24 20 8c 0d 05 f0  |.a$,1)<>lf$ ....|
00000d00  1b 20 e7 20 65 78 74 65  6e 64 65 64 20 8c 20 f2  |. . extended . .|
00000d10  74 75 72 6e 5f 6f 66 66  0d 05 fa 26 20 d5 23 66  |turn_off...& .#f|
00000d20  69 72 73 74 77 6f 72 64  25 2c 26 31 45 3a d5 23  |irstword%,&1E:.#|
00000d30  66 69 72 73 74 77 6f 72  64 25 2c 26 30 41 0d 06  |firstword%,&0A..|
00000d40  04 06 20 cd 0d 06 0e 06  20 cd 0d 06 18 06 20 e1  |.. ..... ..... .|
00000d50  0d 06 22 05 20 0d 06 2c  0f 20 dd f2 74 75 72 6e  |..". ..,. ..turn|
00000d60  5f 6f 66 66 0d 06 36 1a  20 68 74 63 6f 64 65 25  |_off..6. htcode%|
00000d70  3d 68 74 63 6f 64 65 25  20 80 20 26 38 37 0d 06  |=htcode% . &87..|
00000d80  40 15 20 d5 23 66 69 72  73 74 77 6f 72 64 25 2c  |@. .#firstword%,|
00000d90  26 31 42 0d 06 4a 19 20  d5 23 66 69 72 73 74 77  |&1B..J. .#firstw|
00000da0  6f 72 64 25 2c 68 74 63  6f 64 65 25 0d 06 54 06  |ord%,htcode%..T.|
00000db0  20 e1 0d 06 5e 05 20 0d  06 68 0f 20 dd f2 65 6d  | ...^. ..h. ..em|
00000dc0  62 65 64 64 65 64 0d 06  72 1d 20 ea 20 69 25 2c  |bedded..r. . i%,|
00000dd0  63 6f 64 65 24 2c 76 61  6c 69 64 63 6f 64 65 2c  |code$,validcode,|
00000de0  68 74 25 0d 06 7c 14 20  6c 69 6e 65 24 3d c1 6c  |ht%..|. line$=.l|
00000df0  69 6e 65 24 2c 32 29 0d  06 86 14 20 63 6f 64 65  |ine$,2).... code|
00000e00  24 3d c0 6c 69 6e 65 24  2c 32 29 0d 06 90 14 20  |$=.line$,2).... |
00000e10  6c 69 6e 65 24 3d c1 6c  69 6e 65 24 2c 33 29 0d  |line$=.line$,3).|
00000e20  06 9a 0f 20 c8 8e 20 63  6f 64 65 24 20 ca 0d 06  |... .. code$ ...|
00000e30  a4 0d 20 c9 20 22 50 45  22 20 3a 0d 06 ae 10 20  |.. . "PE" :.... |
00000e40  69 25 3d bb 28 6c 69 6e  65 24 29 0d 06 b8 0d 20  |i%=.(line$).... |
00000e50  e7 20 69 25 3d 30 20 8c  0d 06 c2 11 20 6c 69 6e  |. i%=0 ..... lin|
00000e60  65 24 3d bd 28 26 30 43  29 0d 06 cc 06 20 cc 0d  |e$=.(&0C).... ..|
00000e70  06 d6 1f 20 6c 69 6e 65  24 3d bd 28 26 30 31 29  |... line$=.(&01)|
00000e80  2b bd 28 69 25 2b 26 31  30 29 2b 6c 66 24 0d 06  |+.(i%+&10)+lf$..|
00000e90  e0 06 20 cd 0d 06 ea 0d  20 c9 20 22 4c 4d 22 20  |.. ..... . "LM" |
00000ea0  3a 0d 06 f4 1a 20 6c 6d  25 3d bb 28 6c 69 6e 65  |:.... lm%=.(line|
00000eb0  24 29 3a 6c 69 6e 65 24  3d 22 22 0d 06 fe 26 20  |$):line$=""...& |
00000ec0  e7 20 6c 6d 25 20 8c 20  4c 4d 63 6f 6d 6d 61 6e  |. lm% . LMcomman|
00000ed0  64 3d b9 20 8b 20 4c 4d  63 6f 6d 6d 61 6e 64 3d  |d=. . LMcommand=|
00000ee0  a3 0d 07 08 0d 20 c9 20  22 43 45 22 20 3a 0d 07  |..... . "CE" :..|
00000ef0  12 18 20 e7 20 72 75 6c  65 72 25 3e a9 28 6c 69  |.. . ruler%>.(li|
00000f00  6e 65 24 29 20 8c 0d 07  1c 15 20 d5 23 66 69 72  |ne$) ..... .#fir|
00000f10  73 74 77 6f 72 64 25 2c  26 31 44 0d 07 26 23 20  |stword%,&1D..&# |
00000f20  e3 20 69 25 3d 32 20 b8  20 28 72 75 6c 65 72 25  |. i%=2 . (ruler%|
00000f30  2d a9 28 6c 69 6e 65 24  29 29 20 81 20 32 0d 07  |-.(line$)) . 2..|
00000f40  30 15 20 d5 23 66 69 72  73 74 77 6f 72 64 25 2c  |0. .#firstword%,|
00000f50  26 31 43 0d 07 3a 06 20  ed 0d 07 44 06 20 cd 0d  |&1C..:. ...D. ..|
00000f60  07 4e 14 20 6c 69 6e 65  24 3d 6c 69 6e 65 24 2b  |.N. line$=line$+|
00000f70  6c 66 24 0d 07 58 0d 20  c9 20 22 4c 4a 22 20 3a  |lf$..X. . "LJ" :|
00000f80  0d 07 62 18 20 c8 95 20  c0 6c 69 6e 65 24 2c 31  |..b. .. .line$,1|
00000f90  29 3c bd 28 26 32 31 29  0d 07 6c 14 20 6c 69 6e  |)<.(&21)..l. lin|
00000fa0  65 24 3d c1 6c 69 6e 65  24 2c 32 29 0d 07 76 06  |e$=.line$,2)..v.|
00000fb0  20 ce 0d 07 80 14 20 6c  69 6e 65 24 3d 6c 69 6e  | ..... line$=lin|
00000fc0  65 24 2b 6c 66 24 0d 07  8a 0d 20 c9 20 22 52 4a  |e$+lf$.... . "RJ|
00000fd0  22 20 3a 0d 07 94 18 20  e7 20 72 75 6c 65 72 25  |" :.... . ruler%|
00000fe0  3e a9 28 6c 69 6e 65 24  29 20 8c 0d 07 9e 15 20  |>.(line$) ..... |
00000ff0  d5 23 66 69 72 73 74 77  6f 72 64 25 2c 26 31 44  |.#firstword%,&1D|
00001000  0d 07 a8 1d 20 e3 20 69  25 3d 32 20 b8 20 72 75  |.... . i%=2 . ru|
00001010  6c 65 72 25 2d a9 28 6c  69 6e 65 24 29 0d 07 b2  |ler%-.(line$)...|
00001020  15 20 d5 23 66 69 72 73  74 77 6f 72 64 25 2c 26  |. .#firstword%,&|
00001030  31 43 0d 07 bc 06 20 ed  0d 07 c6 06 20 cd 0d 07  |1C.... ..... ...|
00001040  d0 14 20 6c 69 6e 65 24  3d 6c 69 6e 65 24 2b 6c  |.. line$=line$+l|
00001050  66 24 0d 07 da 0d 20 c9  20 22 48 54 22 20 3a 0d  |f$.... . "HT" :.|
00001060  07 e4 16 20 e7 20 c0 6c  69 6e 65 24 2c 31 29 3d  |... . .line$,1)=|
00001070  22 20 22 20 8c 0d 07 ee  27 20 f5 3a 6c 69 6e 65  |" " ....' .:line|
00001080  24 3d c1 6c 69 6e 65 24  2c 32 29 3a fd 20 c0 6c  |$=.line$,2):. .l|
00001090  69 6e 65 24 2c 31 29 3c  3e 22 20 22 0d 07 f8 06  |ine$,1)<>" "....|
000010a0  20 cd 0d 08 02 1a 20 e7  20 c0 6c 69 6e 65 24 2c  | ..... . .line$,|
000010b0  35 29 3d 22 32 20 31 33  30 22 20 8c 0d 08 0c 1f  |5)="2 130" .....|
000010c0  20 65 78 74 65 6e 64 65  64 3d b9 3a 6c 69 6e 65  | extended=.:line|
000010d0  24 3d c1 6c 69 6e 65 24  2c 36 29 0d 08 16 06 20  |$=.line$,6).... |
000010e0  cc 0d 08 20 32 20 65 78  74 65 6e 64 65 64 3d a3  |... 2 extended=.|
000010f0  3a 6c 69 6e 65 24 3d 63  6f 64 65 24 2b 22 20 22  |:line$=code$+" "|
00001100  2b 6c 69 6e 65 24 2b 6c  66 24 3a 68 69 6c 69 74  |+line$+lf$:hilit|
00001110  65 3d b9 0d 08 2a 06 20  cd 0d 08 34 3a 20 c9 20  |e=...*. ...4: . |
00001120  22 54 53 22 2c 22 53 52  22 20 3a 20 70 72 69 6e  |"TS","SR" : prin|
00001130  74 66 69 6c 65 3d b9 20  3a 20 6c 69 6e 65 24 3d  |tfile=. : line$=|
00001140  63 6f 64 65 24 2b 22 20  22 2b 6c 69 6e 65 24 2b  |code$+" "+line$+|
00001150  6c 66 24 0d 08 3e 32 20  c9 20 22 4c 53 22 20 3a  |lf$..>2 . "LS" :|
00001160  20 61 64 64 72 75 6c 65  72 3d b9 3a 6c 69 6e 65  | addruler=.:line|
00001170  24 3d 63 6f 64 65 24 2b  22 20 22 2b 6c 69 6e 65  |$=code$+" "+line|
00001180  24 2b 6c 66 24 0d 08 48  5a 20 c9 20 22 44 48 22  |$+lf$..HZ . "DH"|
00001190  2c 22 44 46 22 2c 22 48  45 22 2c 22 46 4f 22 2c  |,"DF","HE","FO",|
000011a0  22 50 4c 22 2c 22 54 4d  22 2c 22 48 4d 22 2c 22  |"PL","TM","HM","|
000011b0  46 4d 22 2c 22 42 4d 22  3a 70 61 67 65 6c 61 79  |FM","BM":pagelay|
000011c0  6f 75 74 3d b9 3a 6c 69  6e 65 24 3d 63 6f 64 65  |out=.:line$=code|
000011d0  24 2b 22 20 22 2b 6c 69  6e 65 24 2b 6c 66 24 0d  |$+" "+line$+lf$.|
000011e0  08 52 22 20 7f 20 3a 20  6c 69 6e 65 24 3d 63 6f  |.R" . : line$=co|
000011f0  64 65 24 2b 22 20 22 2b  6c 69 6e 65 24 2b 6c 66  |de$+" "+line$+lf|
00001200  24 0d 08 5c 06 20 cb 0d  08 66 06 20 e1 0d 08 70  |$..\. ...f. ...p|
00001210  05 20 0d 08 7a 10 20 dd  f2 6e 65 77 5f 72 75 6c  |. ..z. ..new_rul|
00001220  65 72 0d 08 84 0f 20 ea  20 69 25 2c 63 68 61 72  |er.... . i%,char|
00001230  25 0d 08 8e 1e 20 6c 69  6e 65 24 3d c1 6c 69 6e  |%.... line$=.lin|
00001240  65 24 2c 34 29 3a 72 75  6c 65 72 24 3d 22 22 0d  |e$,4):ruler$="".|
00001250  08 98 09 20 69 25 3d 30  0d 08 a2 2d 20 f5 3a 69  |... i%=0...- .:i|
00001260  25 2b 3d 31 3a fd 20 c1  6c 69 6e 65 24 2c 69 25  |%+=1:. .line$,i%|
00001270  2c 31 29 3d 22 3e 22 20  84 20 69 25 3e a9 28 6c  |,1)=">" . i%>.(l|
00001280  69 6e 65 24 29 0d 08 ac  25 20 e7 20 69 25 3e a9  |ine$)...% . i%>.|
00001290  28 6c 69 6e 65 24 29 20  8c 20 6c 6d 25 3d 30 20  |(line$) . lm%=0 |
000012a0  8b 20 6c 6d 25 3d 69 25  2d 31 0d 08 b6 12 20 69  |. lm%=i%-1.... i|
000012b0  25 3d a9 28 6c 69 6e 65  24 29 2b 31 0d 08 c0 26  |%=.(line$)+1...&|
000012c0  20 f5 3a 69 25 2d 3d 31  3a fd 20 c1 6c 69 6e 65  | .:i%-=1:. .line|
000012d0  24 2c 69 25 2c 31 29 3d  22 3c 22 20 84 20 69 25  |$,i%,1)="<" . i%|
000012e0  3d 30 0d 08 ca 27 20 e7  20 69 25 3e 30 20 80 20  |=0...' . i%>0 . |
000012f0  69 25 3e 6c 6d 25 20 8c  20 6c 69 6e 65 24 3d c0  |i%>lm% . line$=.|
00001300  6c 69 6e 65 24 2c 69 25  29 0d 08 d4 16 20 e3 20  |line$,i%).... . |
00001310  69 25 3d 31 20 b8 20 a9  28 6c 69 6e 65 24 29 0d  |i%=1 . .(line$).|
00001320  08 de 16 20 c8 8e 20 c1  6c 69 6e 65 24 2c 69 25  |... .. .line$,i%|
00001330  2c 31 29 20 ca 0d 08 e8  23 20 c9 20 22 2a 22 2c  |,1) ....# . "*",|
00001340  22 3e 22 20 3a 20 72 75  6c 65 72 24 3d 72 75 6c  |">" : ruler$=rul|
00001350  65 72 24 2b bd 28 30 29  0d 08 f2 22 20 c9 20 22  |er$+.(0)..." . "|
00001360  2e 22 2c 22 3c 22 20 3a  20 72 75 6c 65 72 24 3d  |.","<" : ruler$=|
00001370  72 75 6c 65 72 24 2b 22  2e 22 0d 08 fc 06 20 cb  |ruler$+".".... .|
00001380  0d 09 06 06 20 ed 0d 09  10 15 20 72 75 6c 65 72  |.... ..... ruler|
00001390  25 3d a9 28 72 75 6c 65  72 24 29 0d 09 1a 3c 20  |%=.(ruler$)...< |
000013a0  72 24 3d bd 28 26 31 46  29 2b 22 39 5b 22 2b 72  |r$=.(&1F)+"9["+r|
000013b0  75 6c 65 72 24 2b 22 5d  22 2b 73 69 7a 65 24 2b  |uler$+"]"+size$+|
000013c0  6a 75 73 74 69 66 79 24  2b 6c 69 6e 65 73 70 61  |justify$+linespa|
000013d0  63 65 24 2b 6c 66 24 0d  09 24 11 20 f2 77 72 69  |ce$+lf$..$. .wri|
000013e0  74 65 5f 72 75 6c 65 72  0d 09 2e 06 20 e1 0d 09  |te_ruler.... ...|
000013f0  38 05 20 0d 09 42 12 20  dd f2 77 72 69 74 65 5f  |8. ..B. ..write_|
00001400  72 75 6c 65 72 0d 09 4c  13 20 e3 20 69 25 3d 31  |ruler..L. . i%=1|
00001410  20 b8 20 a9 28 72 24 29  0d 09 56 17 20 63 68 61  | . .(r$)..V. cha|
00001420  72 25 3d 97 28 c1 72 24  2c 69 25 2c 31 29 29 0d  |r%=.(.r$,i%,1)).|
00001430  09 60 1a 20 e7 20 63 68  61 72 25 3d 30 20 8c 20  |.`. . char%=0 . |
00001440  63 68 61 72 25 3d 26 37  46 0d 09 6a 17 20 d5 23  |char%=&7F..j. .#|
00001450  66 69 72 73 74 77 6f 72  64 25 2c 63 68 61 72 25  |firstword%,char%|
00001460  0d 09 74 06 20 ed 0d 09  7e 0d 20 6c 69 6e 65 24  |..t. ...~. line$|
00001470  3d 22 22 0d 09 88 06 20  e1 0d 09 92 05 20 0d 09  |="".... ..... ..|
00001480  9c 0f 20 dd f2 6d 65 73  73 61 67 65 73 0d 09 a6  |.. ..messages...|
00001490  29 20 f1 3a f1 22 54 68  65 20 63 6f 6e 76 65 72  |) .:."The conver|
000014a0  73 69 6f 6e 20 69 73 20  6e 6f 77 20 63 6f 6d 70  |sion is now comp|
000014b0  6c 65 74 65 22 3b 0d 09  b0 33 20 e7 20 70 72 69  |lete";...3 . pri|
000014c0  6e 74 66 69 6c 65 20 84  20 61 64 64 72 75 6c 65  |ntfile . addrule|
000014d0  72 20 84 20 70 61 67 65  6c 61 79 6f 75 74 20 84  |r . pagelayout .|
000014e0  20 68 69 6c 69 74 65 20  8c 0d 09 ba 35 20 f1 22  | hilite ....5 ."|
000014f0  20 62 75 74 20 79 6f 75  20 6d 61 79 20 66 69 6e  | but you may fin|
00001500  64 20 74 68 65 20 66 6f  6c 6c 6f 77 69 6e 67 20  |d the following |
00001510  6e 6f 74 65 73 20 75 73  65 66 75 6c 3a 22 0d 09  |notes useful:"..|
00001520  c4 0b 20 cc 20 f1 22 2e  22 0d 09 ce 06 20 cd 0d  |.. . .".".... ..|
00001530  09 d8 12 20 e7 20 70 72  69 6e 74 66 69 6c 65 20  |... . printfile |
00001540  8c 0d 09 e2 55 20 f1 3a  f1 22 59 6f 75 20 68 61  |....U .:."You ha|
00001550  76 65 20 75 73 65 64 20  74 68 65 20 54 53 20 6f  |ve used the TS o|
00001560  72 20 53 52 20 65 6d 62  65 64 64 65 64 20 63 6f  |r SR embedded co|
00001570  6d 6d 61 6e 64 73 20 69  6e 20 79 6f 75 72 20 64  |mmands in your d|
00001580  6f 63 75 6d 65 6e 74 2e  20 49 6e 20 31 73 74 20  |ocument. In 1st |
00001590  77 6f 72 64 2b 22 0d 09  ec 53 20 f1 22 74 68 65  |word+"...S ."the|
000015a0  73 65 20 61 72 65 20 73  65 74 20 61 74 20 74 68  |se are set at th|
000015b0  65 20 74 69 6d 65 20 6f  66 20 70 72 69 6e 74 69  |e time of printi|
000015c0  6e 67 20 69 65 2e 20 77  68 65 6e 20 79 6f 75 20  |ng ie. when you |
000015d0  73 65 6c 65 63 74 20 27  50 72 69 6e 74 20 46 69  |select 'Print Fi|
000015e0  6c 65 27 20 66 72 6f 6d  22 0d 09 f6 57 20 f1 22  |le' from"...W ."|
000015f0  74 68 65 20 27 46 69 6c  65 27 20 6f 70 74 69 6f  |the 'File' optio|
00001600  6e 2e 20 49 66 20 74 68  65 20 48 54 20 63 6f 6d  |n. If the HT com|
00001610  6d 61 6e 64 20 68 61 73  20 62 65 65 6e 20 75 73  |mand has been us|
00001620  65 64 20 74 6f 20 73 65  6c 65 63 74 20 4e 4c 51  |ed to select NLQ|
00001630  20 70 72 69 6e 74 69 6e  67 2c 20 74 68 65 6e 22  | printing, then"|
00001640  0d 0a 00 39 20 f1 22 74  68 69 73 20 61 6c 73 6f  |...9 ."this also|
00001650  20 69 73 20 73 65 6c 65  63 74 65 64 20 77 69 74  | is selected wit|
00001660  68 69 6e 20 74 68 65 20  70 72 69 6e 74 69 6e 67  |hin the printing|
00001670  20 6f 70 74 69 6f 6e 2e  22 0d 0a 0a 06 20 cd 0d  | option.".... ..|
00001680  0a 14 11 20 e7 20 61 64  64 72 75 6c 65 72 20 8c  |... . addruler .|
00001690  0d 0a 1e 59 20 f1 3a f1  22 59 6f 75 20 68 61 76  |...Y .:."You hav|
000016a0  65 20 75 73 65 64 20 74  68 65 20 4c 53 20 65 6d  |e used the LS em|
000016b0  62 65 64 64 65 64 20 63  6f 6d 6d 61 6e 64 20 74  |bedded command t|
000016c0  6f 20 61 6c 74 65 72 20  6c 69 6e 65 20 73 70 61  |o alter line spa|
000016d0  63 69 6e 67 2e 20 49 6e  20 31 73 74 20 77 6f 72  |cing. In 1st wor|
000016e0  64 2b 2c 20 74 68 69 73  22 0d 0a 28 57 20 f1 22  |d+, this"..(W ."|
000016f0  69 73 20 64 6f 6e 65 20  62 79 20 64 65 66 69 6e  |is done by defin|
00001700  69 6e 67 20 61 20 6e 65  77 20 72 75 6c 65 72 2e  |ing a new ruler.|
00001710  20 54 68 65 72 65 66 6f  72 65 2c 20 79 6f 75 20  | Therefore, you |
00001720  77 69 6c 6c 20 6e 65 65  64 20 74 6f 20 73 65 6c  |will need to sel|
00001730  65 63 74 20 27 41 64 64  20 52 75 6c 65 72 27 22  |ect 'Add Ruler'"|
00001740  0d 0a 32 55 20 f1 22 66  72 6f 6d 20 74 68 65 20  |..2U ."from the |
00001750  27 4c 61 79 6f 75 74 27  20 6f 70 74 69 6f 6e 20  |'Layout' option |
00001760  69 6e 20 74 68 65 20 6d  61 69 6e 20 6d 65 6e 75  |in the main menu|
00001770  2e 20 53 69 6d 69 6c 61  72 6c 79 2c 20 61 20 6e  |. Similarly, a n|
00001780  65 77 20 72 75 6c 65 72  20 6d 75 73 74 20 62 65  |ew ruler must be|
00001790  20 73 65 74 22 0d 0a 3c  55 20 f1 22 75 70 20 69  | set"..<U ."up i|
000017a0  66 20 79 6f 75 20 68 61  76 65 20 75 73 65 64 20  |f you have used |
000017b0  61 20 48 54 20 63 6f 6d  6d 61 6e 64 20 74 6f 20  |a HT command to |
000017c0  63 68 61 6e 67 65 20 74  68 65 20 63 68 61 72 61  |change the chara|
000017d0  63 74 65 72 20 70 69 74  63 68 20 3a 20 50 69 63  |cter pitch : Pic|
000017e0  61 2c 20 45 6c 69 74 65  2c 22 0d 0a 46 3d 20 f1  |a, Elite,"..F= .|
000017f0  22 45 6e 6c 61 72 67 65  64 20 61 6e 64 20 43 6f  |"Enlarged and Co|
00001800  6e 64 65 6e 73 65 64 20  61 72 65 20 61 6c 6c 20  |ndensed are all |
00001810  73 75 70 70 6f 72 74 65  64 20 69 6e 20 74 68 69  |supported in thi|
00001820  73 20 77 61 79 2e 22 0d  0a 50 06 20 cd 0d 0a 5a  |s way."..P. ...Z|
00001830  13 20 e7 20 70 61 67 65  6c 61 79 6f 75 74 20 8c  |. . pagelayout .|
00001840  0d 0a 64 55 20 f1 3a f1  22 59 6f 75 20 68 61 76  |..dU .:."You hav|
00001850  65 20 75 73 65 64 20 65  6d 62 65 64 64 65 64 20  |e used embedded |
00001860  63 6f 6d 6d 61 6e 64 73  20 74 6f 20 61 6c 74 65  |commands to alte|
00001870  72 20 74 68 65 20 68 65  61 64 65 72 2c 20 66 6f  |r the header, fo|
00001880  6f 74 65 72 2c 20 70 61  67 65 20 6c 65 6e 67 74  |oter, page lengt|
00001890  68 20 6f 72 22 0d 0a 6e  55 20 f1 22 6d 61 72 67  |h or"..nU ."marg|
000018a0  69 6e 73 20 28 69 65 2e  20 44 48 2c 44 46 2c 48  |ins (ie. DH,DF,H|
000018b0  45 2c 46 4f 2c 50 4c 2c  46 4d 2c 54 4d 2c 42 4d  |E,FO,PL,FM,TM,BM|
000018c0  20 6f 72 20 48 4d 29 2e  20 31 73 74 20 77 6f 72  | or HM). 1st wor|
000018d0  64 2b 20 61 6c 6c 6f 77  73 20 74 68 65 73 65 20  |d+ allows these |
000018e0  74 6f 20 62 65 20 73 65  74 22 0d 0a 78 55 20 f1  |to be set"..xU .|
000018f0  22 75 70 20 77 69 74 68  69 6e 20 74 68 65 20 27  |"up within the '|
00001900  50 61 67 65 20 4c 61 79  6f 75 74 27 20 6f 70 74  |Page Layout' opt|
00001910  69 6f 6e 20 77 68 69 63  68 20 69 73 20 77 69 74  |ion which is wit|
00001920  68 69 6e 20 74 68 65 20  27 4c 61 79 6f 75 74 27  |hin the 'Layout'|
00001930  20 6f 70 74 69 6f 6e 20  69 6e 20 74 68 65 22 0d  | option in the".|
00001940  0a 82 12 20 f1 22 6d 61  69 6e 20 6d 65 6e 75 2e  |... ."main menu.|
00001950  22 0d 0a 8c 06 20 cd 0d  0a 96 0f 20 e7 20 68 69  |".... ..... . hi|
00001960  6c 69 74 65 20 8c 0d 0a  a0 56 20 f1 3a f1 22 59  |lite ....V .:."Y|
00001970  6f 75 20 68 61 76 65 20  75 73 65 64 20 74 68 65  |ou have used the|
00001980  20 48 54 20 65 6d 62 65  64 64 65 64 20 63 6f 6d  | HT embedded com|
00001990  6d 61 6e 64 20 74 6f 20  73 65 6c 65 63 74 20 61  |mand to select a|
000019a0  20 70 72 69 6e 74 69 6e  67 20 66 75 6e 63 74 69  | printing functi|
000019b0  6f 6e 20 77 68 69 63 68  20 69 73 22 0d 0a aa 52  |on which is"...R|
000019c0  20 f1 22 75 6e 6b 6e 6f  77 6e 20 74 6f 20 74 68  | ."unknown to th|
000019d0  69 73 20 70 72 6f 67 72  61 6d 2e 20 49 66 20 69  |is program. If i|
000019e0  74 20 69 73 20 66 6f 72  20 75 6e 64 65 72 6c 69  |t is for underli|
000019f0  6e 65 2c 20 62 6f 6c 64  2c 20 69 74 61 6c 69 63  |ne, bold, italic|
00001a00  2c 20 65 6d 70 68 61 73  69 73 65 64 2c 22 0d 0a  |, emphasised,"..|
00001a10  b4 56 20 f1 22 73 75 70  65 72 73 63 72 69 70 74  |.V ."superscript|
00001a20  20 6f 72 20 73 75 62 73  63 72 69 70 74 2c 20 74  | or subscript, t|
00001a30  68 65 6e 20 61 6d 65 6e  64 20 74 68 65 20 64 61  |hen amend the da|
00001a40  74 61 20 6c 69 6e 65 73  20 61 74 20 74 68 65 20  |ta lines at the |
00001a50  65 6e 64 20 6f 66 20 74  68 69 73 20 70 72 6f 67  |end of this prog|
00001a60  72 61 6d 22 0d 0a be 29  20 f1 22 74 6f 20 73 75  |ram"...) ."to su|
00001a70  69 74 20 79 6f 75 72 20  56 49 45 57 20 70 72 69  |it your VIEW pri|
00001a80  6e 74 65 72 20 64 72 69  76 65 72 2e 22 0d 0a c8  |nter driver."...|
00001a90  55 20 f1 22 49 66 20 69  74 20 69 73 20 74 6f 20  |U ."If it is to |
00001aa0  73 65 6c 65 63 74 20 64  69 66 66 65 72 65 6e 74  |select different|
00001ab0  20 73 69 7a 65 64 20 63  68 61 72 61 63 74 65 72  | sized character|
00001ac0  73 2c 20 74 68 65 6e 20  79 6f 75 20 77 69 6c 6c  |s, then you will|
00001ad0  20 6e 65 65 64 20 74 6f  20 64 65 66 69 6e 65 20  | need to define |
00001ae0  61 22 0d 0a d2 44 20 f1  22 6e 65 77 20 72 75 6c  |a"...D ."new rul|
00001af0  65 72 20 62 79 20 73 65  6c 65 63 74 69 6e 67 20  |er by selecting |
00001b00  27 41 64 64 20 52 75 6c  65 72 27 20 66 72 6f 6d  |'Add Ruler' from|
00001b10  20 74 68 65 20 27 4c 61  79 6f 75 74 27 20 6f 70  | the 'Layout' op|
00001b20  74 69 6f 6e 2e 22 0d 0a  dc 56 20 f1 22 49 66 20  |tion."...V ."If |
00001b30  69 74 20 69 73 20 74 6f  20 73 65 6c 65 63 74 20  |it is to select |
00001b40  4e 4c 51 20 28 4e 65 61  72 20 4c 65 74 74 65 72  |NLQ (Near Letter|
00001b50  20 51 75 61 6c 69 74 79  29 2c 20 74 68 65 6e 20  | Quality), then |
00001b60  74 68 69 73 20 69 73 20  61 6e 20 6f 70 74 69 6f  |this is an optio|
00001b70  6e 20 77 68 69 63 68 20  63 61 6e 22 0d 0a e6 3d  |n which can"...=|
00001b80  20 f1 22 73 65 6c 65 63  74 65 64 20 77 69 74 68  | ."selected with|
00001b90  69 6e 20 74 68 65 20 27  50 72 69 6e 74 20 46 69  |in the 'Print Fi|
00001ba0  6c 65 27 20 6f 70 74 69  6f 6e 20 6f 66 20 31 73  |le' option of 1s|
00001bb0  74 20 77 6f 72 64 2b 2e  22 0d 0a f0 06 20 cd 0d  |t word+.".... ..|
00001bc0  0a fa 06 20 e1 0d 0b 04  05 20 0d 0b 0e 11 20 f4  |... ..... .... .|
00001bd0  20 50 6f 75 6e 64 20 73  69 67 6e 0d 0b 18 09 20  | Pound sign.... |
00001be0  dc 20 33 35 0d ff                                 |. 35..|
00001be6