� Contents page
� by Andrew Cumming
� (c) The Micro User
(� 3
2� � �err:�
<	�init
F	�data
P�create
Z�
d:
n
��init
x5file$="":text$="":print%=0:just%=0:char%=0:tab%=0
�3pl%=0:tm%=0:bm%=0:lm%=0:length%=0:gap%=0:end%=0
�sep$=",":num$="1234567890"
�Eall$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz*#$.^_"
�mark$=�79,"-")
��
�:
�
��data
�� ch
�T�:�("CAT"):� ''"Please enter the source filename : ";:file$=�input(all$+num$,10)
�bch=�(file$):�#ch:� ch=0 �7:� '"File not found."''"Press RETURN to continue...":� � �=13:� �dR@
�e� ''"Print immediately or generate a SPOOL file (P/S) ? ";:print%=�(�(�input("pPsS",1))� 223)="P"
�_� � print% � ''"Please enter the filename of the SPOOL file : ";:text$=�input(all$+num$,10)
�P� ''"Vertical justification (Y/N) ? ";:just%=�(�(�input("YyNn",1))� 223)="Y"

Q� just% � print% � ''"Please enter the page length : ";:pl%=�(�input(num$,3))

P� print% � just% � ''"Please enter the top margin : ";:tm%=�(�input(num$,3))

I� print% � ''"Please enter the left margin : ";:lm%=�(�input(num$,3))

"S� just% � print% � ''"Please enter the bottom margin : ";:bm%=�(�input(num$,3))

,O� � just% � ''"How many lines between each item ? ";:gap%=�(�input(num$,2))

6D� ''"Please enter the line length : ";:length%=�(�input(num$,3))

@�� ''"Use (1) spaces, (2) '. . .' or (3) '...' to seperate the description from the"'"page number (1/2/3) ? ";:char%=�(�input("123",1))

J?� ''"How wide should a tab be ? ";:tab%=�(�input(num$,2)):�

T�

^:

hݤinput(valid$,max)

r� a$,a:a$=""

|a=�:� a=13 � a$>"" =a$

�+� a=127 � a$>"" a$=�a$,�a$-1):�a:� �D|A

�� �a$=max �7:� �D|A

�� �valid$,�a)=0 �7:� �D|A

�a$=a$+�a:�a:� �D|A

�:

���read_line

�� char:line$=""

��

�
char=�#ch

�� char=13 � �dtA

�7� char=9 line$=line$+�tab%," ") � line$=line$+�char

�
� char=13

��
:
��create
B� � print% � '''"Please wait. Converting file."''mark$ � �wait
&:�read_file:� max_length%-�sep$+2>length% �abort:� �T\B
0#� print% �2 � �("SPOOL "+text$)
:�gap(-tm%*print%)
Dcount%=0
N� �read_line
X*� print% � �lm%," ");�line; � � �line;
b@count%=count%+1:� just% � count%<lines% � loop%=0 � gap%:�:�
l5� � just% � loop%=0 � gap%:�:�:count%=count%+gap%
v� �#ch � pl%-bm%-tm%=count%
�F� print% � �#ch � count%<pl%-bm%-tm% �gap(pl%-tm%-count%-bm%-end%)
�!�gap(-end%*just%+print%*-bm%)
�� � � #ch �wait:� �TzB
�
*SPOOL
��#ch:�3
�� mark$'''"Finished."
��
�:
�
ݤline
�%� �line$,1)=">" =�line$,�line$-1)
�� �line$,sep$)=0 =line$
�� left$,right$
�<� char%=1 char$="  " � � char%=2 char$=". " � char$=".."
.right$=�line$,�line$-�line$,sep$)-�sep$+1)
&left$=�line$,�line$-�right$-�sep$)
(� �right$ � 2=0 � char%=2 char$=" ."
 ;line$=left$+�(length%-(�right$+�left$))�2,char$)+right$
*P� �line$<length% line$=left$+" "+�(length%-(�right$+�left$))�2,char$)+right$
4
=line$
>:
H��read_file
R� no%:lines%=0
\ch=�(file$)
fmax_length%=0:�
pno%=0:� no%=no%+1
z
� �#ch=13
�%� no%>max_length% max_length%=no%
�lines%=lines%+1
�
� �#ch
�
�#ch=0
�c� just% � lines%>pl%-bm%-tm% �7:� �79,"-")''"The file is too long to fit onto the page!":�#ch:�
�O� just% gap%=(pl%-tm%-bm%-lines%)/lines%:end%=(pl%-tm%-bm%-lines%) � lines%
��
�:
���abort
��3,7:�#0
�\� "The line length is too short!"'"Re-run using a new line length of ";max_length%" ? ";
�A� �(�(�input("YyNn",1))� 223)="N" �:� � �:length%=max_length%
��
:

��gap(a%)
� a%>0 � loop%=1 � a%:�:�
$�
.:
8��err:�7:�
B�:�" at ";�
L�
V:
`
��wait
j� � print% � mark$
t[� print% �3:� mark$:� ''"Press RETURN when the printer is ready...":� � �=13:� mark$:�2
~�
�

00000000  0d 00 0a 13 f4 20 43 6f  6e 74 65 6e 74 73 20 70  |..... Contents p|
00000010  61 67 65 0d 00 14 17 f4  20 62 79 20 41 6e 64 72  |age..... by Andr|
00000020  65 77 20 43 75 6d 6d 69  6e 67 0d 00 1e 18 f4 20  |ew Cumming..... |
00000030  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000040  65 72 0d 00 28 07 eb 20  33 0d 00 32 0e ee 20 85  |er..(.. 3..2.. .|
00000050  20 f2 65 72 72 3a e0 0d  00 3c 09 f2 69 6e 69 74  | .err:...<..init|
00000060  0d 00 46 09 f2 64 61 74  61 0d 00 50 0b f2 63 72  |..F..data..P..cr|
00000070  65 61 74 65 0d 00 5a 05  e0 0d 00 64 05 3a 0d 00  |eate..Z....d.:..|
00000080  6e 0a dd f2 69 6e 69 74  0d 00 78 35 66 69 6c 65  |n...init..x5file|
00000090  24 3d 22 22 3a 74 65 78  74 24 3d 22 22 3a 70 72  |$="":text$="":pr|
000000a0  69 6e 74 25 3d 30 3a 6a  75 73 74 25 3d 30 3a 63  |int%=0:just%=0:c|
000000b0  68 61 72 25 3d 30 3a 74  61 62 25 3d 30 0d 00 82  |har%=0:tab%=0...|
000000c0  33 70 6c 25 3d 30 3a 74  6d 25 3d 30 3a 62 6d 25  |3pl%=0:tm%=0:bm%|
000000d0  3d 30 3a 6c 6d 25 3d 30  3a 6c 65 6e 67 74 68 25  |=0:lm%=0:length%|
000000e0  3d 30 3a 67 61 70 25 3d  30 3a 65 6e 64 25 3d 30  |=0:gap%=0:end%=0|
000000f0  0d 00 8c 1e 73 65 70 24  3d 22 2c 22 3a 6e 75 6d  |....sep$=",":num|
00000100  24 3d 22 31 32 33 34 35  36 37 38 39 30 22 0d 00  |$="1234567890"..|
00000110  96 45 61 6c 6c 24 3d 22  41 42 43 44 45 46 47 48  |.Eall$="ABCDEFGH|
00000120  49 4a 4b 4c 4d 4e 4f 50  51 52 53 54 55 56 57 58  |IJKLMNOPQRSTUVWX|
00000130  59 5a 61 62 63 64 65 66  67 68 69 6a 6b 6c 6d 6e  |YZabcdefghijklmn|
00000140  6f 70 71 72 73 74 75 76  77 78 79 7a 2a 23 24 2e  |opqrstuvwxyz*#$.|
00000150  5e 5f 22 0d 00 a0 12 6d  61 72 6b 24 3d c4 37 39  |^_"....mark$=.79|
00000160  2c 22 2d 22 29 0d 00 aa  05 e1 0d 00 b4 05 3a 0d  |,"-").........:.|
00000170  00 be 0a dd f2 64 61 74  61 0d 00 c8 08 ea 20 63  |.....data..... c|
00000180  68 0d 00 d2 54 db 3a ff  28 22 43 41 54 22 29 3a  |h...T.:.("CAT"):|
00000190  f1 20 27 27 22 50 6c 65  61 73 65 20 65 6e 74 65  |. ''"Please ente|
000001a0  72 20 74 68 65 20 73 6f  75 72 63 65 20 66 69 6c  |r the source fil|
000001b0  65 6e 61 6d 65 20 3a 20  22 3b 3a 66 69 6c 65 24  |ename : ";:file$|
000001c0  3d a4 69 6e 70 75 74 28  61 6c 6c 24 2b 6e 75 6d  |=.input(all$+num|
000001d0  24 2c 31 30 29 0d 00 dc  62 63 68 3d ad 28 66 69  |$,10)...bch=.(fi|
000001e0  6c 65 24 29 3a d9 23 63  68 3a e7 20 63 68 3d 30  |le$):.#ch:. ch=0|
000001f0  20 ef 37 3a f1 20 27 22  46 69 6c 65 20 6e 6f 74  | .7:. '"File not|
00000200  20 66 6f 75 6e 64 2e 22  27 27 22 50 72 65 73 73  | found."''"Press|
00000210  20 52 45 54 55 52 4e 20  74 6f 20 63 6f 6e 74 69  | RETURN to conti|
00000220  6e 75 65 2e 2e 2e 22 3a  f5 20 fd 20 a5 3d 31 33  |nue...":. . .=13|
00000230  3a e5 20 8d 64 52 40 0d  00 e6 65 f1 20 27 27 22  |:. .dR@...e. ''"|
00000240  50 72 69 6e 74 20 69 6d  6d 65 64 69 61 74 65 6c  |Print immediatel|
00000250  79 20 6f 72 20 67 65 6e  65 72 61 74 65 20 61 20  |y or generate a |
00000260  53 50 4f 4f 4c 20 66 69  6c 65 20 28 50 2f 53 29  |SPOOL file (P/S)|
00000270  20 3f 20 22 3b 3a 70 72  69 6e 74 25 3d bd 28 97  | ? ";:print%=.(.|
00000280  28 a4 69 6e 70 75 74 28  22 70 50 73 53 22 2c 31  |(.input("pPsS",1|
00000290  29 29 80 20 32 32 33 29  3d 22 50 22 0d 00 f0 5f  |)). 223)="P"..._|
000002a0  e7 20 ac 20 70 72 69 6e  74 25 20 f1 20 27 27 22  |. . print% . ''"|
000002b0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 74 68 65  |Please enter the|
000002c0  20 66 69 6c 65 6e 61 6d  65 20 6f 66 20 74 68 65  | filename of the|
000002d0  20 53 50 4f 4f 4c 20 66  69 6c 65 20 3a 20 22 3b  | SPOOL file : ";|
000002e0  3a 74 65 78 74 24 3d a4  69 6e 70 75 74 28 61 6c  |:text$=.input(al|
000002f0  6c 24 2b 6e 75 6d 24 2c  31 30 29 0d 00 fa 50 f1  |l$+num$,10)...P.|
00000300  20 27 27 22 56 65 72 74  69 63 61 6c 20 6a 75 73  | ''"Vertical jus|
00000310  74 69 66 69 63 61 74 69  6f 6e 20 28 59 2f 4e 29  |tification (Y/N)|
00000320  20 3f 20 22 3b 3a 6a 75  73 74 25 3d bd 28 97 28  | ? ";:just%=.(.(|
00000330  a4 69 6e 70 75 74 28 22  59 79 4e 6e 22 2c 31 29  |.input("YyNn",1)|
00000340  29 80 20 32 32 33 29 3d  22 59 22 0d 01 04 51 e7  |). 223)="Y"...Q.|
00000350  20 6a 75 73 74 25 20 84  20 70 72 69 6e 74 25 20  | just% . print% |
00000360  f1 20 27 27 22 50 6c 65  61 73 65 20 65 6e 74 65  |. ''"Please ente|
00000370  72 20 74 68 65 20 70 61  67 65 20 6c 65 6e 67 74  |r the page lengt|
00000380  68 20 3a 20 22 3b 3a 70  6c 25 3d bb 28 a4 69 6e  |h : ";:pl%=.(.in|
00000390  70 75 74 28 6e 75 6d 24  2c 33 29 29 0d 01 0e 50  |put(num$,3))...P|
000003a0  e7 20 70 72 69 6e 74 25  20 84 20 6a 75 73 74 25  |. print% . just%|
000003b0  20 f1 20 27 27 22 50 6c  65 61 73 65 20 65 6e 74  | . ''"Please ent|
000003c0  65 72 20 74 68 65 20 74  6f 70 20 6d 61 72 67 69  |er the top margi|
000003d0  6e 20 3a 20 22 3b 3a 74  6d 25 3d bb 28 a4 69 6e  |n : ";:tm%=.(.in|
000003e0  70 75 74 28 6e 75 6d 24  2c 33 29 29 0d 01 18 49  |put(num$,3))...I|
000003f0  e7 20 70 72 69 6e 74 25  20 f1 20 27 27 22 50 6c  |. print% . ''"Pl|
00000400  65 61 73 65 20 65 6e 74  65 72 20 74 68 65 20 6c  |ease enter the l|
00000410  65 66 74 20 6d 61 72 67  69 6e 20 3a 20 22 3b 3a  |eft margin : ";:|
00000420  6c 6d 25 3d bb 28 a4 69  6e 70 75 74 28 6e 75 6d  |lm%=.(.input(num|
00000430  24 2c 33 29 29 0d 01 22  53 e7 20 6a 75 73 74 25  |$,3)).."S. just%|
00000440  20 84 20 70 72 69 6e 74  25 20 f1 20 27 27 22 50  | . print% . ''"P|
00000450  6c 65 61 73 65 20 65 6e  74 65 72 20 74 68 65 20  |lease enter the |
00000460  62 6f 74 74 6f 6d 20 6d  61 72 67 69 6e 20 3a 20  |bottom margin : |
00000470  22 3b 3a 62 6d 25 3d bb  28 a4 69 6e 70 75 74 28  |";:bm%=.(.input(|
00000480  6e 75 6d 24 2c 33 29 29  0d 01 2c 4f e7 20 ac 20  |num$,3))..,O. . |
00000490  6a 75 73 74 25 20 f1 20  27 27 22 48 6f 77 20 6d  |just% . ''"How m|
000004a0  61 6e 79 20 6c 69 6e 65  73 20 62 65 74 77 65 65  |any lines betwee|
000004b0  6e 20 65 61 63 68 20 69  74 65 6d 20 3f 20 22 3b  |n each item ? ";|
000004c0  3a 67 61 70 25 3d bb 28  a4 69 6e 70 75 74 28 6e  |:gap%=.(.input(n|
000004d0  75 6d 24 2c 32 29 29 0d  01 36 44 f1 20 27 27 22  |um$,2))..6D. ''"|
000004e0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 74 68 65  |Please enter the|
000004f0  20 6c 69 6e 65 20 6c 65  6e 67 74 68 20 3a 20 22  | line length : "|
00000500  3b 3a 6c 65 6e 67 74 68  25 3d bb 28 a4 69 6e 70  |;:length%=.(.inp|
00000510  75 74 28 6e 75 6d 24 2c  33 29 29 0d 01 40 8a f1  |ut(num$,3))..@..|
00000520  20 27 27 22 55 73 65 20  28 31 29 20 73 70 61 63  | ''"Use (1) spac|
00000530  65 73 2c 20 28 32 29 20  27 2e 20 2e 20 2e 27 20  |es, (2) '. . .' |
00000540  6f 72 20 28 33 29 20 27  2e 2e 2e 27 20 74 6f 20  |or (3) '...' to |
00000550  73 65 70 65 72 61 74 65  20 74 68 65 20 64 65 73  |seperate the des|
00000560  63 72 69 70 74 69 6f 6e  20 66 72 6f 6d 20 74 68  |cription from th|
00000570  65 22 27 22 70 61 67 65  20 6e 75 6d 62 65 72 20  |e"'"page number |
00000580  28 31 2f 32 2f 33 29 20  3f 20 22 3b 3a 63 68 61  |(1/2/3) ? ";:cha|
00000590  72 25 3d bb 28 a4 69 6e  70 75 74 28 22 31 32 33  |r%=.(.input("123|
000005a0  22 2c 31 29 29 0d 01 4a  3f f1 20 27 27 22 48 6f  |",1))..J?. ''"Ho|
000005b0  77 20 77 69 64 65 20 73  68 6f 75 6c 64 20 61 20  |w wide should a |
000005c0  74 61 62 20 62 65 20 3f  20 22 3b 3a 74 61 62 25  |tab be ? ";:tab%|
000005d0  3d bb 28 a4 69 6e 70 75  74 28 6e 75 6d 24 2c 32  |=.(.input(num$,2|
000005e0  29 29 3a f1 0d 01 54 05  e1 0d 01 5e 05 3a 0d 01  |)):...T....^.:..|
000005f0  68 17 dd a4 69 6e 70 75  74 28 76 61 6c 69 64 24  |h...input(valid$|
00000600  2c 6d 61 78 29 0d 01 72  10 ea 20 61 24 2c 61 3a  |,max)..r.. a$,a:|
00000610  61 24 3d 22 22 0d 01 7c  1a 61 3d a5 3a e7 20 61  |a$=""..|.a=.:. a|
00000620  3d 31 33 20 80 20 61 24  3e 22 22 20 3d 61 24 0d  |=13 . a$>"" =a$.|
00000630  01 86 2b e7 20 61 3d 31  32 37 20 80 20 61 24 3e  |..+. a=127 . a$>|
00000640  22 22 20 61 24 3d c0 61  24 2c a9 61 24 2d 31 29  |"" a$=.a$,.a$-1)|
00000650  3a ef 61 3a e5 20 8d 44  7c 41 0d 01 90 17 e7 20  |:.a:. .D|A..... |
00000660  a9 61 24 3d 6d 61 78 20  ef 37 3a e5 20 8d 44 7c  |.a$=max .7:. .D||
00000670  41 0d 01 9a 1d e7 20 a7  76 61 6c 69 64 24 2c bd  |A..... .valid$,.|
00000680  61 29 3d 30 20 ef 37 3a  e5 20 8d 44 7c 41 0d 01  |a)=0 .7:. .D|A..|
00000690  a4 16 61 24 3d 61 24 2b  bd 61 3a ef 61 3a e5 20  |..a$=a$+.a:.a:. |
000006a0  8d 44 7c 41 0d 01 ae 05  3a 0d 01 b8 0f dd f2 72  |.D|A....:......r|
000006b0  65 61 64 5f 6c 69 6e 65  0d 01 c2 13 ea 20 63 68  |ead_line..... ch|
000006c0  61 72 3a 6c 69 6e 65 24  3d 22 22 0d 01 cc 05 f5  |ar:line$="".....|
000006d0  0d 01 d6 0d 63 68 61 72  3d 9a 23 63 68 0d 01 e0  |....char=.#ch...|
000006e0  14 e7 20 63 68 61 72 3d  31 33 20 e5 20 8d 64 74  |.. char=13 . .dt|
000006f0  41 0d 01 ea 37 e7 20 63  68 61 72 3d 39 20 6c 69  |A...7. char=9 li|
00000700  6e 65 24 3d 6c 69 6e 65  24 2b c4 74 61 62 25 2c  |ne$=line$+.tab%,|
00000710  22 20 22 29 20 8b 20 6c  69 6e 65 24 3d 6c 69 6e  |" ") . line$=lin|
00000720  65 24 2b bd 63 68 61 72  0d 01 f4 0d fd 20 63 68  |e$+.char..... ch|
00000730  61 72 3d 31 33 0d 01 fe  05 e1 0d 02 08 05 3a 0d  |ar=13.........:.|
00000740  02 12 0c dd f2 63 72 65  61 74 65 0d 02 1c 42 e7  |.....create...B.|
00000750  20 ac 20 70 72 69 6e 74  25 20 f1 20 27 27 27 22  | . print% . '''"|
00000760  50 6c 65 61 73 65 20 77  61 69 74 2e 20 43 6f 6e  |Please wait. Con|
00000770  76 65 72 74 69 6e 67 20  66 69 6c 65 2e 22 27 27  |verting file."''|
00000780  6d 61 72 6b 24 20 8b 20  f2 77 61 69 74 0d 02 26  |mark$ . .wait..&|
00000790  3a f2 72 65 61 64 5f 66  69 6c 65 3a e7 20 6d 61  |:.read_file:. ma|
000007a0  78 5f 6c 65 6e 67 74 68  25 2d a9 73 65 70 24 2b  |x_length%-.sep$+|
000007b0  32 3e 6c 65 6e 67 74 68  25 20 f2 61 62 6f 72 74  |2>length% .abort|
000007c0  3a e5 20 8d 54 5c 42 0d  02 30 23 e7 20 70 72 69  |:. .T\B..0#. pri|
000007d0  6e 74 25 20 ef 32 20 8b  20 ff 28 22 53 50 4f 4f  |nt% .2 . .("SPOO|
000007e0  4c 20 22 2b 74 65 78 74  24 29 0d 02 3a 15 f2 67  |L "+text$)..:..g|
000007f0  61 70 28 2d 74 6d 25 2a  70 72 69 6e 74 25 29 0d  |ap(-tm%*print%).|
00000800  02 44 0c 63 6f 75 6e 74  25 3d 30 0d 02 4e 10 f5  |.D.count%=0..N..|
00000810  20 f2 72 65 61 64 5f 6c  69 6e 65 0d 02 58 2a e7  | .read_line..X*.|
00000820  20 70 72 69 6e 74 25 20  f1 20 c4 6c 6d 25 2c 22  | print% . .lm%,"|
00000830  20 22 29 3b a4 6c 69 6e  65 3b 20 8b 20 f1 20 a4  | ");.line; . . .|
00000840  6c 69 6e 65 3b 0d 02 62  40 63 6f 75 6e 74 25 3d  |line;..b@count%=|
00000850  63 6f 75 6e 74 25 2b 31  3a e7 20 6a 75 73 74 25  |count%+1:. just%|
00000860  20 e7 20 63 6f 75 6e 74  25 3c 6c 69 6e 65 73 25  | . count%<lines%|
00000870  20 e3 20 6c 6f 6f 70 25  3d 30 20 b8 20 67 61 70  | . loop%=0 . gap|
00000880  25 3a f1 3a ed 0d 02 6c  35 e7 20 ac 20 6a 75 73  |%:.:...l5. . jus|
00000890  74 25 20 e3 20 6c 6f 6f  70 25 3d 30 20 b8 20 67  |t% . loop%=0 . g|
000008a0  61 70 25 3a f1 3a ed 3a  63 6f 75 6e 74 25 3d 63  |ap%:.:.:count%=c|
000008b0  6f 75 6e 74 25 2b 67 61  70 25 0d 02 76 1f fd 20  |ount%+gap%..v.. |
000008c0  c5 23 63 68 20 84 20 70  6c 25 2d 62 6d 25 2d 74  |.#ch . pl%-bm%-t|
000008d0  6d 25 3d 63 6f 75 6e 74  25 0d 02 80 46 e7 20 70  |m%=count%...F. p|
000008e0  72 69 6e 74 25 20 80 20  c5 23 63 68 20 80 20 63  |rint% . .#ch . c|
000008f0  6f 75 6e 74 25 3c 70 6c  25 2d 62 6d 25 2d 74 6d  |ount%<pl%-bm%-tm|
00000900  25 20 f2 67 61 70 28 70  6c 25 2d 74 6d 25 2d 63  |% .gap(pl%-tm%-c|
00000910  6f 75 6e 74 25 2d 62 6d  25 2d 65 6e 64 25 29 0d  |ount%-bm%-end%).|
00000920  02 8a 21 f2 67 61 70 28  2d 65 6e 64 25 2a 6a 75  |..!.gap(-end%*ju|
00000930  73 74 25 2b 70 72 69 6e  74 25 2a 2d 62 6d 25 29  |st%+print%*-bm%)|
00000940  0d 02 94 1a e7 20 ac 20  c5 20 23 63 68 20 f2 77  |..... . . #ch .w|
00000950  61 69 74 3a e5 20 8d 54  7a 42 0d 02 9e 0a 2a 53  |ait:. .TzB....*S|
00000960  50 4f 4f 4c 0d 02 a8 0b  d9 23 63 68 3a ef 33 0d  |POOL.....#ch:.3.|
00000970  02 b2 19 f1 20 6d 61 72  6b 24 27 27 27 22 46 69  |.... mark$'''"Fi|
00000980  6e 69 73 68 65 64 2e 22  0d 02 bc 05 e1 0d 02 c6  |nished."........|
00000990  05 3a 0d 02 d0 0a dd a4  6c 69 6e 65 0d 02 da 25  |.:......line...%|
000009a0  e7 20 c0 6c 69 6e 65 24  2c 31 29 3d 22 3e 22 20  |. .line$,1)=">" |
000009b0  3d c2 6c 69 6e 65 24 2c  a9 6c 69 6e 65 24 2d 31  |=.line$,.line$-1|
000009c0  29 0d 02 e4 1b e7 20 a7  6c 69 6e 65 24 2c 73 65  |)..... .line$,se|
000009d0  70 24 29 3d 30 20 3d 6c  69 6e 65 24 0d 02 ee 12  |p$)=0 =line$....|
000009e0  ea 20 6c 65 66 74 24 2c  72 69 67 68 74 24 0d 02  |. left$,right$..|
000009f0  f8 3c e7 20 63 68 61 72  25 3d 31 20 63 68 61 72  |.<. char%=1 char|
00000a00  24 3d 22 20 20 22 20 8b  20 e7 20 63 68 61 72 25  |$="  " . . char%|
00000a10  3d 32 20 63 68 61 72 24  3d 22 2e 20 22 20 8b 20  |=2 char$=". " . |
00000a20  63 68 61 72 24 3d 22 2e  2e 22 0d 03 02 2e 72 69  |char$=".."....ri|
00000a30  67 68 74 24 3d c2 6c 69  6e 65 24 2c a9 6c 69 6e  |ght$=.line$,.lin|
00000a40  65 24 2d a7 6c 69 6e 65  24 2c 73 65 70 24 29 2d  |e$-.line$,sep$)-|
00000a50  a9 73 65 70 24 2b 31 29  0d 03 0c 26 6c 65 66 74  |.sep$+1)...&left|
00000a60  24 3d c0 6c 69 6e 65 24  2c a9 6c 69 6e 65 24 2d  |$=.line$,.line$-|
00000a70  a9 72 69 67 68 74 24 2d  a9 73 65 70 24 29 0d 03  |.right$-.sep$)..|
00000a80  16 28 e7 20 a9 72 69 67  68 74 24 20 83 20 32 3d  |.(. .right$ . 2=|
00000a90  30 20 80 20 63 68 61 72  25 3d 32 20 63 68 61 72  |0 . char%=2 char|
00000aa0  24 3d 22 20 2e 22 0d 03  20 3b 6c 69 6e 65 24 3d  |$=" .".. ;line$=|
00000ab0  6c 65 66 74 24 2b c4 28  6c 65 6e 67 74 68 25 2d  |left$+.(length%-|
00000ac0  28 a9 72 69 67 68 74 24  2b a9 6c 65 66 74 24 29  |(.right$+.left$)|
00000ad0  29 81 32 2c 63 68 61 72  24 29 2b 72 69 67 68 74  |).2,char$)+right|
00000ae0  24 0d 03 2a 50 e7 20 a9  6c 69 6e 65 24 3c 6c 65  |$..*P. .line$<le|
00000af0  6e 67 74 68 25 20 6c 69  6e 65 24 3d 6c 65 66 74  |ngth% line$=left|
00000b00  24 2b 22 20 22 2b c4 28  6c 65 6e 67 74 68 25 2d  |$+" "+.(length%-|
00000b10  28 a9 72 69 67 68 74 24  2b a9 6c 65 66 74 24 29  |(.right$+.left$)|
00000b20  29 81 32 2c 63 68 61 72  24 29 2b 72 69 67 68 74  |).2,char$)+right|
00000b30  24 0d 03 34 0a 3d 6c 69  6e 65 24 0d 03 3e 05 3a  |$..4.=line$..>.:|
00000b40  0d 03 48 0f dd f2 72 65  61 64 5f 66 69 6c 65 0d  |..H...read_file.|
00000b50  03 52 12 ea 20 6e 6f 25  3a 6c 69 6e 65 73 25 3d  |.R.. no%:lines%=|
00000b60  30 0d 03 5c 0f 63 68 3d  ad 28 66 69 6c 65 24 29  |0..\.ch=.(file$)|
00000b70  0d 03 66 13 6d 61 78 5f  6c 65 6e 67 74 68 25 3d  |..f.max_length%=|
00000b80  30 3a f5 0d 03 70 15 6e  6f 25 3d 30 3a f5 20 6e  |0:...p.no%=0:. n|
00000b90  6f 25 3d 6e 6f 25 2b 31  0d 03 7a 0d fd 20 9a 23  |o%=no%+1..z.. .#|
00000ba0  63 68 3d 31 33 0d 03 84  25 e7 20 6e 6f 25 3e 6d  |ch=13...%. no%>m|
00000bb0  61 78 5f 6c 65 6e 67 74  68 25 20 6d 61 78 5f 6c  |ax_length% max_l|
00000bc0  65 6e 67 74 68 25 3d 6e  6f 25 0d 03 8e 13 6c 69  |ength%=no%....li|
00000bd0  6e 65 73 25 3d 6c 69 6e  65 73 25 2b 31 0d 03 98  |nes%=lines%+1...|
00000be0  0a fd 20 c5 23 63 68 0d  03 a2 0a cf 23 63 68 3d  |.. .#ch.....#ch=|
00000bf0  30 0d 03 ac 63 e7 20 6a  75 73 74 25 20 80 20 6c  |0...c. just% . l|
00000c00  69 6e 65 73 25 3e 70 6c  25 2d 62 6d 25 2d 74 6d  |ines%>pl%-bm%-tm|
00000c10  25 20 ef 37 3a f1 20 c4  37 39 2c 22 2d 22 29 27  |% .7:. .79,"-")'|
00000c20  27 22 54 68 65 20 66 69  6c 65 20 69 73 20 74 6f  |'"The file is to|
00000c30  6f 20 6c 6f 6e 67 20 74  6f 20 66 69 74 20 6f 6e  |o long to fit on|
00000c40  74 6f 20 74 68 65 20 70  61 67 65 21 22 3a d9 23  |to the page!":.#|
00000c50  63 68 3a e0 0d 03 b6 4f  e7 20 6a 75 73 74 25 20  |ch:....O. just% |
00000c60  67 61 70 25 3d 28 70 6c  25 2d 74 6d 25 2d 62 6d  |gap%=(pl%-tm%-bm|
00000c70  25 2d 6c 69 6e 65 73 25  29 2f 6c 69 6e 65 73 25  |%-lines%)/lines%|
00000c80  3a 65 6e 64 25 3d 28 70  6c 25 2d 74 6d 25 2d 62  |:end%=(pl%-tm%-b|
00000c90  6d 25 2d 6c 69 6e 65 73  25 29 20 83 20 6c 69 6e  |m%-lines%) . lin|
00000ca0  65 73 25 0d 03 c0 05 e1  0d 03 ca 05 3a 0d 03 d4  |es%.........:...|
00000cb0  0b dd f2 61 62 6f 72 74  0d 03 de 0c ef 33 2c 37  |...abort.....3,7|
00000cc0  3a d9 23 30 0d 03 e8 5c  f1 20 22 54 68 65 20 6c  |:.#0...\. "The l|
00000cd0  69 6e 65 20 6c 65 6e 67  74 68 20 69 73 20 74 6f  |ine length is to|
00000ce0  6f 20 73 68 6f 72 74 21  22 27 22 52 65 2d 72 75  |o short!"'"Re-ru|
00000cf0  6e 20 75 73 69 6e 67 20  61 20 6e 65 77 20 6c 69  |n using a new li|
00000d00  6e 65 20 6c 65 6e 67 74  68 20 6f 66 20 22 3b 6d  |ne length of ";m|
00000d10  61 78 5f 6c 65 6e 67 74  68 25 22 20 3f 20 22 3b  |ax_length%" ? ";|
00000d20  0d 03 f2 41 e7 20 bd 28  97 28 a4 69 6e 70 75 74  |...A. .(.(.input|
00000d30  28 22 59 79 4e 6e 22 2c  31 29 29 80 20 32 32 33  |("YyNn",1)). 223|
00000d40  29 3d 22 4e 22 20 db 3a  e0 20 8b 20 db 3a 6c 65  |)="N" .:. . .:le|
00000d50  6e 67 74 68 25 3d 6d 61  78 5f 6c 65 6e 67 74 68  |ngth%=max_length|
00000d60  25 0d 03 fc 05 e1 0d 04  06 05 3a 0d 04 10 0d dd  |%.........:.....|
00000d70  f2 67 61 70 28 61 25 29  0d 04 1a 1d e7 20 61 25  |.gap(a%)..... a%|
00000d80  3e 30 20 e3 20 6c 6f 6f  70 25 3d 31 20 b8 20 61  |>0 . loop%=1 . a|
00000d90  25 3a f1 3a ed 0d 04 24  05 e1 0d 04 2e 05 3a 0d  |%:.:...$......:.|
00000da0  04 38 0e dd f2 65 72 72  3a ef 37 3a db 0d 04 42  |.8...err:.7:...B|
00000db0  0f f6 3a f1 22 20 61 74  20 22 3b 9e 0d 04 4c 05  |..:." at ";...L.|
00000dc0  e1 0d 04 56 05 3a 0d 04  60 0a dd f2 77 61 69 74  |...V.:..`...wait|
00000dd0  0d 04 6a 16 e7 20 ac 20  70 72 69 6e 74 25 20 f1  |..j.. . print% .|
00000de0  20 6d 61 72 6b 24 0d 04  74 5b e7 20 70 72 69 6e  | mark$..t[. prin|
00000df0  74 25 20 ef 33 3a f1 20  6d 61 72 6b 24 3a f1 20  |t% .3:. mark$:. |
00000e00  27 27 22 50 72 65 73 73  20 52 45 54 55 52 4e 20  |''"Press RETURN |
00000e10  77 68 65 6e 20 74 68 65  20 70 72 69 6e 74 65 72  |when the printer|
00000e20  20 69 73 20 72 65 61 64  79 2e 2e 2e 22 3a f5 20  | is ready...":. |
00000e30  fd 20 a5 3d 31 33 3a f1  20 6d 61 72 6b 24 3a ef  |. .=13:. mark$:.|
00000e40  32 0d 04 7e 05 e1 0d ff                           |2..~....|
00000e48