9� Printer program for two part BBC Kermit manual with
<� embedded escape sequences for emphasise and underline.
(� Version 1.2   20/7/87   (c) BBC tv
(4� Peter Vince [G8ZZR]  (Prestel mbx:- 372272713)
2 
<;� Escape sequences defined for Epson standard printers.
F-� Adjust for your printer (if necessary).
P(carriage_return$     = �(13) + �(10)
Z&start_double_strike$ = �(27) + "G"
d&end_double_strike$   = �(27) + "H"
n-start_underline$     = �(27) + "-" + �(1)
x-end_underline$       = �(27) + "-" + �(0)
� 
�&reset_printer$       = �(27) + "@"
�&no_skip_over_perf$   = �(27) + "O"
�-us_character_set$    = �(27) + "R" + �(0)
�&start_emphasised$    = �(27) + "E"
� 
�filenameA$     = "Manual"
�filenameB$     = "Apendix"
�fileA_max_page = 50
�fileB_max_page = 114
�left_margin%   = 5
� 
�� 7

Bscreen$=�&8D+�&81+�&9D+�&83+"BBC Kermit Manual Printer  "+�&9C

�3,1)screen$:�3,2)screen$

 

".error_flag=�:� � � � �: error_flag=�:�trB

, 

6� Check printer connected

@� 2,1,0,1,0

J
*FX3,4

Tdelay%=�+10

^� � �>delay%

h� �(-4)=63 � � �tdA

r�-1,233,0,0:�-1,216,0,0

|R�''�&86;"Printer is off-line."'�&86;"Please enable, then re-run the program."'

�*FX21,3

�
� �t|B

� 

��questions

� 

�� 3

�7� 23,48,24,60,102,102,102,60,24,0  :� Legible zero!

�3� 23,1,0;0;0;0;  :� Cursor off, then printer on

�
*FX3,0

� 

�$�output_sequence(reset_printer$)

�P�output_sequence(no_skip_over_perf$ + us_character_set$ + start_emphasised$)

� 
&� startpage%>fileA_max_page � �DlB
file_handle%=�(filenameA$)
b� file_handle%=0 � �screen_message("""" + filenameA$ + """ not found, program aborted."):�trB
&� startpage% � �findpage
0
�mainloop
:�#file_handle%
D 
N
�newsheet
X� disk_change% � �newdisk
b 
lfile_handle%=�(filenameB$)
vb� file_handle%=0 � �screen_message("""" + filenameB$ + """ not found, program aborted."):�trB
�1� startpage% > fileA_max_page + 1 � �findpage
�
�mainloop
��#file_handle%
� 
�*�screen_message("Print complete"+�(7))
�$�output_sequence(reset_printer$)
�/� 3,23,1,1;0;0;0; :� Printer off, Cursor on
�'� error_flag � �:�" at line ";�:�#0
�1� error_flag � �=17 � �-1,194,0,0:�-1,131,0,0
�
*FX3,0
��
� 
� 
��mainloop
�
char%=�#file_handle%
 +� char%=13 � �return:� �#file_handle%:�
*+� char%=27 � �escape:� �#file_handle%:�
4� char%
>� �#file_handle%
H�
R 
\��return
f&�output_sequence(carriage_return$)
p
*FX3,4
z� 13,10
�
*FX3,0
�lines%=lines%+1
�� �#file_handle% � �
�� lines%�66 = 0 � �newsheet
�5� left_margin% � � I%=1 � left_margin% : � 32 : �
��
� 
���escape
�char%=�#file_handle%
�9� char%=71 � �output_sequence(start_double_strike$):�
�7� char%=72 � �output_sequence(end_double_strike$):�
�%� char%=45 � char%=�#file_handle%
�4� char%=1 � �output_sequence(start_underline$):�
2� char%=0 � �output_sequence(end_underline$):�
%� Anything else is not recognised
8�screen_message("Unknown Escape sequence (ignored)")
$�
. 
8��output_sequence(send$)
B� �(send$) = 0 � �
L6� Prevent interruption of sequence by Escape key:-
V*FX229,1
`� I% = 1 � �(send$)
j� 1,�(�send$,I%,1))
t�
~*FX229,0
��
� 
���newsheet
�� sheet_mode = 0 � �
��1,-12,150,4:�1,-12,120,6
�H�screen_message("End of page.  Insert new sheet, then press a key.")
�*FX15,1
�	� � �
�P�output_sequence(no_skip_over_perf$ + us_character_set$ + start_emphasised$)
��
� 
�
��newdisk
W�screen_message("End of first file.  Insert second disk, then press a key." + �(7))

3�-1,128,0,0:�-1,127,0,0:�-1,222,0,0:�-1,131,0,0
'�-1,232,0,0:�-1,198,0,0:�-1,197,0,0
*FX15,1
(	� � �
2�
< 
F��screen_message(screen$)
P
*FX3,4
Z�
d�0:�129
n�" ";screen$;" ";
x�1:�128
��
�
*FX3,0
��
� 
���questions
�s�''�&86;"Do you wish to be prompted to insert a ";�&86;"new sheet of paper for each page (Y/N) ";�&86;"?";�&87;
�C� (� � 32) = �("y") � sheet_mode=�:�"Yes"  � sheet_mode=�:�"No"
� 
�c�'�&86;"Do you wish to be prompted to change   ";�&86;"disks for the second file (Y/N) ?";�&87;
�G� (� � 32) = �("y") � disk_change%=�:�"Yes"  � disk_change%=�:�"No"
� 
�z�'�&86;"Is the first file called";�&83;"""";filenameA$;"""";�&86;"in"'�&86;"the current drive/directory (Y/N) ?";�&87;
�key% = �
f� (key% � 32) = �("y") � key% = 13 � �"Yes"; � �"No"'�&82;"Enter new filename";�&87;:�""filenameA$
{�'�&86;"Is the second file called";�&83;"""";filenameB$;"""";�&86;"in"'�&86;"the current drive/directory (Y/N) ?";�&87;
key% = �
"f� (key% � 32) = �("y") � key% = 13 � �"Yes"; � �"No"'�&82;"Enter new filename";�&87;:�""filenameB$
, 
6_�'�&86;"Do you wish to start the print from"'�&86;"other than the first page (Y/N) ?";�&87;
@;� (� � 32) = �("y") � �"Yes" � �"No":startpage%=0:�tFF
J7�&82;"Enter start page number";�&87;:�""startpage%
T'� startpage%<=fileB_max_page � �tFF
^&� "Error! Too large! Enter again."
h3�-1,193,0,0:�-1,128,0,0:�-1,143,0,0:�-1,214,0,0
r'�-1,128,0,0:�-1,192,0,0:�-1,162,0,0
|� 11: � �DJF
�lines%=0
�delay%=�+50
�� � �>delay%
��
� 
��  DEFPROCfindpage
�J� This is a general routine for any file, but is very slow as it reads
�K� each byte, counting Carriage Returns.  See line 1930 for new version.
� 
�f� startpage%>fileA_max_page � target%=(startpage%-fileA_max_page-1)*66 � target%=(startpage%+3)*66
�� target%=0 � �
�S%=file_handle%
�:�screen_message("Searching for page " + �startpage%):�
G� startpage%>fileA_max_page � offset%=fileA_max_page+1 � offset%=-3
 

*FX3,4
&�
0C%=�#S%
:� C%=13 � lines%=lines%+1
D=� lines%�66=0 � �13;"Found page ";lines%�66+offset%;" ";
N� lines%-target% � � �
X� �
b�'
l
*FX3,0
v�
� 
���findpage
�
� �ddG
�?� startpage% < 0 � startpage% = fileB_max_page - startpage%
�� I%=1 � startpage%
�� pointer%
��
��#file_handle%=pointer%
��
� 
�K�  &2C0C, &3568, &3B9F, &48E7, &5641, &5D2D, &64C5, &6CA7, &76E4, &7E1D
�K�  &84CF, &897B, &933F, &99F5, &9EF1, &A495, &AC06, &B438, &BDA9, &C609
�K�  &CF1A, &D3FF, &DD0B, &E300, &ED27, &F50B, &FB6F, &FE98,&108E1,&11425
K� &11D7B,&125F5,&130EA,&1384E,&14241,&149E9,&152DD,&15BCE,&1611C,&16617
K� &16CD9,&17411,&17BDF,&184E3,&18817,&1922A,&19A4E,&1A460,&1AE5D,&1B64A
K�      0,  &750,  &D2F, &140F, &1A76, &21A5, &28E3, &2FD8, &38C3, &3EA5
 K�  &469B, &4BD0, &5551, &5FC7, &694F, &71FD, &79DA, &7FA3, &867D, &8D20
*K�  &95E1, &9DAF, &A4D8, &AC67, &B262, &BA3D, &C1FA, &C7B1, &CDBB, &D48A
4K�  &D844, &E104, &E618, &ECDA, &F3AC, &F8C4, &FD64,&10376,&108EA,&10E97
>K� &11488,&11AD2,&12111,&1250B,&13005,&139EE,&142F7,&14BB6,&153FC,&15D8A
HK� &16675,&16EFF,&17727,&18083,&1895E,&18E7C,&19644,&19A1C,&1A2AB,&1A4EB
R!� &1AD2F,&1B3BD,&1BBD5,&1C39E
\&� Data for contents pages (-2,-1!)
f� &FED,&319
�

00000000  0d 00 0a 39 f4 20 50 72  69 6e 74 65 72 20 70 72  |...9. Printer pr|
00000010  6f 67 72 61 6d 20 66 6f  72 20 74 77 6f 20 70 61  |ogram for two pa|
00000020  72 74 20 42 42 43 20 4b  65 72 6d 69 74 20 6d 61  |rt BBC Kermit ma|
00000030  6e 75 61 6c 20 77 69 74  68 0d 00 14 3c f4 20 65  |nual with...<. e|
00000040  6d 62 65 64 64 65 64 20  65 73 63 61 70 65 20 73  |mbedded escape s|
00000050  65 71 75 65 6e 63 65 73  20 66 6f 72 20 65 6d 70  |equences for emp|
00000060  68 61 73 69 73 65 20 61  6e 64 20 75 6e 64 65 72  |hasise and under|
00000070  6c 69 6e 65 2e 0d 00 1e  28 f4 20 56 65 72 73 69  |line....(. Versi|
00000080  6f 6e 20 31 2e 32 20 20  20 32 30 2f 37 2f 38 37  |on 1.2   20/7/87|
00000090  20 20 20 28 63 29 20 42  42 43 20 74 76 0d 00 28  |   (c) BBC tv..(|
000000a0  34 f4 20 50 65 74 65 72  20 56 69 6e 63 65 20 5b  |4. Peter Vince [|
000000b0  47 38 5a 5a 52 5d 20 20  28 50 72 65 73 74 65 6c  |G8ZZR]  (Prestel|
000000c0  20 6d 62 78 3a 2d 20 33  37 32 32 37 32 37 31 33  | mbx:- 372272713|
000000d0  29 0d 00 32 05 20 0d 00  3c 3b f4 20 45 73 63 61  |)..2. ..<;. Esca|
000000e0  70 65 20 73 65 71 75 65  6e 63 65 73 20 64 65 66  |pe sequences def|
000000f0  69 6e 65 64 20 66 6f 72  20 45 70 73 6f 6e 20 73  |ined for Epson s|
00000100  74 61 6e 64 61 72 64 20  70 72 69 6e 74 65 72 73  |tandard printers|
00000110  2e 0d 00 46 2d f4 20 41  64 6a 75 73 74 20 66 6f  |...F-. Adjust fo|
00000120  72 20 79 6f 75 72 20 70  72 69 6e 74 65 72 20 28  |r your printer (|
00000130  69 66 20 6e 65 63 65 73  73 61 72 79 29 2e 0d 00  |if necessary)...|
00000140  50 28 63 61 72 72 69 61  67 65 5f 72 65 74 75 72  |P(carriage_retur|
00000150  6e 24 20 20 20 20 20 3d  20 bd 28 31 33 29 20 2b  |n$     = .(13) +|
00000160  20 bd 28 31 30 29 0d 00  5a 26 73 74 61 72 74 5f  | .(10)..Z&start_|
00000170  64 6f 75 62 6c 65 5f 73  74 72 69 6b 65 24 20 3d  |double_strike$ =|
00000180  20 bd 28 32 37 29 20 2b  20 22 47 22 0d 00 64 26  | .(27) + "G"..d&|
00000190  65 6e 64 5f 64 6f 75 62  6c 65 5f 73 74 72 69 6b  |end_double_strik|
000001a0  65 24 20 20 20 3d 20 bd  28 32 37 29 20 2b 20 22  |e$   = .(27) + "|
000001b0  48 22 0d 00 6e 2d 73 74  61 72 74 5f 75 6e 64 65  |H"..n-start_unde|
000001c0  72 6c 69 6e 65 24 20 20  20 20 20 3d 20 bd 28 32  |rline$     = .(2|
000001d0  37 29 20 2b 20 22 2d 22  20 2b 20 bd 28 31 29 0d  |7) + "-" + .(1).|
000001e0  00 78 2d 65 6e 64 5f 75  6e 64 65 72 6c 69 6e 65  |.x-end_underline|
000001f0  24 20 20 20 20 20 20 20  3d 20 bd 28 32 37 29 20  |$       = .(27) |
00000200  2b 20 22 2d 22 20 2b 20  bd 28 30 29 0d 00 82 05  |+ "-" + .(0)....|
00000210  20 0d 00 8c 26 72 65 73  65 74 5f 70 72 69 6e 74  | ...&reset_print|
00000220  65 72 24 20 20 20 20 20  20 20 3d 20 bd 28 32 37  |er$       = .(27|
00000230  29 20 2b 20 22 40 22 0d  00 96 26 6e 6f 5f 73 6b  |) + "@"...&no_sk|
00000240  69 70 5f 6f 76 65 72 5f  70 65 72 66 24 20 20 20  |ip_over_perf$   |
00000250  3d 20 bd 28 32 37 29 20  2b 20 22 4f 22 0d 00 a0  |= .(27) + "O"...|
00000260  2d 75 73 5f 63 68 61 72  61 63 74 65 72 5f 73 65  |-us_character_se|
00000270  74 24 20 20 20 20 3d 20  bd 28 32 37 29 20 2b 20  |t$    = .(27) + |
00000280  22 52 22 20 2b 20 bd 28  30 29 0d 00 aa 26 73 74  |"R" + .(0)...&st|
00000290  61 72 74 5f 65 6d 70 68  61 73 69 73 65 64 24 20  |art_emphasised$ |
000002a0  20 20 20 3d 20 bd 28 32  37 29 20 2b 20 22 45 22  |   = .(27) + "E"|
000002b0  0d 00 b4 05 20 0d 00 be  1d 66 69 6c 65 6e 61 6d  |.... ....filenam|
000002c0  65 41 24 20 20 20 20 20  3d 20 22 4d 61 6e 75 61  |eA$     = "Manua|
000002d0  6c 22 0d 00 c8 1e 66 69  6c 65 6e 61 6d 65 42 24  |l"....filenameB$|
000002e0  20 20 20 20 20 3d 20 22  41 70 65 6e 64 69 78 22  |     = "Apendix"|
000002f0  0d 00 d2 17 66 69 6c 65  41 5f 6d 61 78 5f 70 61  |....fileA_max_pa|
00000300  67 65 20 3d 20 35 30 0d  00 dc 18 66 69 6c 65 42  |ge = 50....fileB|
00000310  5f 6d 61 78 5f 70 61 67  65 20 3d 20 31 31 34 0d  |_max_page = 114.|
00000320  00 e6 16 6c 65 66 74 5f  6d 61 72 67 69 6e 25 20  |...left_margin% |
00000330  20 20 3d 20 35 0d 00 f0  05 20 0d 00 fa 07 eb 20  |  = 5.... ..... |
00000340  37 0d 01 04 42 73 63 72  65 65 6e 24 3d bd 26 38  |7...Bscreen$=.&8|
00000350  44 2b bd 26 38 31 2b bd  26 39 44 2b bd 26 38 33  |D+.&81+.&9D+.&83|
00000360  2b 22 42 42 43 20 4b 65  72 6d 69 74 20 4d 61 6e  |+"BBC Kermit Man|
00000370  75 61 6c 20 50 72 69 6e  74 65 72 20 20 22 2b bd  |ual Printer  "+.|
00000380  26 39 43 0d 01 0e 1f f1  8a 33 2c 31 29 73 63 72  |&9C......3,1)scr|
00000390  65 65 6e 24 3a f1 8a 33  2c 32 29 73 63 72 65 65  |een$:..3,2)scree|
000003a0  6e 24 0d 01 18 05 20 0d  01 22 2e 65 72 72 6f 72  |n$.... ..".error|
000003b0  5f 66 6c 61 67 3d a3 3a  ee 20 85 20 ee 20 85 20  |_flag=.:. . . . |
000003c0  87 3a 20 65 72 72 6f 72  5f 66 6c 61 67 3d b9 3a  |.: error_flag=.:|
000003d0  e5 8d 74 72 42 0d 01 2c  05 20 0d 01 36 1d f4 20  |..trB..,. ..6.. |
000003e0  43 68 65 63 6b 20 70 72  69 6e 74 65 72 20 63 6f  |Check printer co|
000003f0  6e 6e 65 63 74 65 64 0d  01 40 0f ef 20 32 2c 31  |nnected..@.. 2,1|
00000400  2c 30 2c 31 2c 30 0d 01  4a 0a 2a 46 58 33 2c 34  |,0,1,0..J.*FX3,4|
00000410  0d 01 54 0f 64 65 6c 61  79 25 3d 91 2b 31 30 0d  |..T.delay%=.+10.|
00000420  01 5e 10 f5 20 fd 20 91  3e 64 65 6c 61 79 25 0d  |.^.. . .>delay%.|
00000430  01 68 17 e7 20 96 28 2d  34 29 3d 36 33 20 8c 20  |.h.. .(-4)=63 . |
00000440  e5 20 8d 74 64 41 0d 01  72 1b d4 2d 31 2c 32 33  |. .tdA..r..-1,23|
00000450  33 2c 30 2c 30 3a d4 2d  31 2c 32 31 36 2c 30 2c  |3,0,0:.-1,216,0,|
00000460  30 0d 01 7c 52 f1 27 27  bd 26 38 36 3b 22 50 72  |0..|R.''.&86;"Pr|
00000470  69 6e 74 65 72 20 69 73  20 6f 66 66 2d 6c 69 6e  |inter is off-lin|
00000480  65 2e 22 27 bd 26 38 36  3b 22 50 6c 65 61 73 65  |e."'.&86;"Please|
00000490  20 65 6e 61 62 6c 65 2c  20 74 68 65 6e 20 72 65  | enable, then re|
000004a0  2d 72 75 6e 20 74 68 65  20 70 72 6f 67 72 61 6d  |-run the program|
000004b0  2e 22 27 0d 01 86 0b 2a  46 58 32 31 2c 33 0d 01  |."'....*FX21,3..|
000004c0  90 0a e5 20 8d 74 7c 42  0d 01 9a 05 20 0d 01 a4  |... .t|B.... ...|
000004d0  0e f2 71 75 65 73 74 69  6f 6e 73 0d 01 ae 05 20  |..questions.... |
000004e0  0d 01 b8 07 eb 20 33 0d  01 c2 37 ef 20 32 33 2c  |..... 3...7. 23,|
000004f0  34 38 2c 32 34 2c 36 30  2c 31 30 32 2c 31 30 32  |48,24,60,102,102|
00000500  2c 31 30 32 2c 36 30 2c  32 34 2c 30 20 20 3a f4  |,102,60,24,0  :.|
00000510  20 4c 65 67 69 62 6c 65  20 7a 65 72 6f 21 0d 01  | Legible zero!..|
00000520  cc 33 ef 20 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.3. 23,1,0;0;0;0|
00000530  3b 20 20 3a f4 20 43 75  72 73 6f 72 20 6f 66 66  |;  :. Cursor off|
00000540  2c 20 74 68 65 6e 20 70  72 69 6e 74 65 72 20 6f  |, then printer o|
00000550  6e 0d 01 d6 0a 2a 46 58  33 2c 30 0d 01 e0 05 20  |n....*FX3,0.... |
00000560  0d 01 ea 24 f2 6f 75 74  70 75 74 5f 73 65 71 75  |...$.output_sequ|
00000570  65 6e 63 65 28 72 65 73  65 74 5f 70 72 69 6e 74  |ence(reset_print|
00000580  65 72 24 29 0d 01 f4 50  f2 6f 75 74 70 75 74 5f  |er$)...P.output_|
00000590  73 65 71 75 65 6e 63 65  28 6e 6f 5f 73 6b 69 70  |sequence(no_skip|
000005a0  5f 6f 76 65 72 5f 70 65  72 66 24 20 2b 20 75 73  |_over_perf$ + us|
000005b0  5f 63 68 61 72 61 63 74  65 72 5f 73 65 74 24 20  |_character_set$ |
000005c0  2b 20 73 74 61 72 74 5f  65 6d 70 68 61 73 69 73  |+ start_emphasis|
000005d0  65 64 24 29 0d 01 fe 05  20 0d 02 08 26 e7 20 73  |ed$).... ...&. s|
000005e0  74 61 72 74 70 61 67 65  25 3e 66 69 6c 65 41 5f  |tartpage%>fileA_|
000005f0  6d 61 78 5f 70 61 67 65  20 8c 20 8d 44 6c 42 0d  |max_page . .DlB.|
00000600  02 12 1e 66 69 6c 65 5f  68 61 6e 64 6c 65 25 3d  |...file_handle%=|
00000610  ad 28 66 69 6c 65 6e 61  6d 65 41 24 29 0d 02 1c  |.(filenameA$)...|
00000620  62 e7 20 66 69 6c 65 5f  68 61 6e 64 6c 65 25 3d  |b. file_handle%=|
00000630  30 20 8c 20 f2 73 63 72  65 65 6e 5f 6d 65 73 73  |0 . .screen_mess|
00000640  61 67 65 28 22 22 22 22  20 2b 20 66 69 6c 65 6e  |age("""" + filen|
00000650  61 6d 65 41 24 20 2b 20  22 22 22 20 6e 6f 74 20  |ameA$ + """ not |
00000660  66 6f 75 6e 64 2c 20 70  72 6f 67 72 61 6d 20 61  |found, program a|
00000670  62 6f 72 74 65 64 2e 22  29 3a e5 8d 74 72 42 0d  |borted."):..trB.|
00000680  02 26 1c e7 20 73 74 61  72 74 70 61 67 65 25 20  |.&.. startpage% |
00000690  8c 20 f2 66 69 6e 64 70  61 67 65 0d 02 30 0d f2  |. .findpage..0..|
000006a0  6d 61 69 6e 6c 6f 6f 70  0d 02 3a 12 d9 23 66 69  |mainloop..:..#fi|
000006b0  6c 65 5f 68 61 6e 64 6c  65 25 0d 02 44 05 20 0d  |le_handle%..D. .|
000006c0  02 4e 0d f2 6e 65 77 73  68 65 65 74 0d 02 58 1d  |.N..newsheet..X.|
000006d0  e7 20 64 69 73 6b 5f 63  68 61 6e 67 65 25 20 8c  |. disk_change% .|
000006e0  20 f2 6e 65 77 64 69 73  6b 0d 02 62 05 20 0d 02  | .newdisk..b. ..|
000006f0  6c 1e 66 69 6c 65 5f 68  61 6e 64 6c 65 25 3d ad  |l.file_handle%=.|
00000700  28 66 69 6c 65 6e 61 6d  65 42 24 29 0d 02 76 62  |(filenameB$)..vb|
00000710  e7 20 66 69 6c 65 5f 68  61 6e 64 6c 65 25 3d 30  |. file_handle%=0|
00000720  20 8c 20 f2 73 63 72 65  65 6e 5f 6d 65 73 73 61  | . .screen_messa|
00000730  67 65 28 22 22 22 22 20  2b 20 66 69 6c 65 6e 61  |ge("""" + filena|
00000740  6d 65 42 24 20 2b 20 22  22 22 20 6e 6f 74 20 66  |meB$ + """ not f|
00000750  6f 75 6e 64 2c 20 70 72  6f 67 72 61 6d 20 61 62  |ound, program ab|
00000760  6f 72 74 65 64 2e 22 29  3a e5 8d 74 72 42 0d 02  |orted."):..trB..|
00000770  80 31 e7 20 73 74 61 72  74 70 61 67 65 25 20 3e  |.1. startpage% >|
00000780  20 66 69 6c 65 41 5f 6d  61 78 5f 70 61 67 65 20  | fileA_max_page |
00000790  2b 20 31 20 8c 20 f2 66  69 6e 64 70 61 67 65 0d  |+ 1 . .findpage.|
000007a0  02 8a 0d f2 6d 61 69 6e  6c 6f 6f 70 0d 02 94 12  |....mainloop....|
000007b0  d9 23 66 69 6c 65 5f 68  61 6e 64 6c 65 25 0d 02  |.#file_handle%..|
000007c0  9e 05 20 0d 02 a8 2a f2  73 63 72 65 65 6e 5f 6d  |.. ...*.screen_m|
000007d0  65 73 73 61 67 65 28 22  50 72 69 6e 74 20 63 6f  |essage("Print co|
000007e0  6d 70 6c 65 74 65 22 2b  bd 28 37 29 29 0d 02 b2  |mplete"+.(7))...|
000007f0  24 f2 6f 75 74 70 75 74  5f 73 65 71 75 65 6e 63  |$.output_sequenc|
00000800  65 28 72 65 73 65 74 5f  70 72 69 6e 74 65 72 24  |e(reset_printer$|
00000810  29 0d 02 bc 2f ef 20 33  2c 32 33 2c 31 2c 31 3b  |).../. 3,23,1,1;|
00000820  30 3b 30 3b 30 3b 20 3a  f4 20 50 72 69 6e 74 65  |0;0;0; :. Printe|
00000830  72 20 6f 66 66 2c 20 43  75 72 73 6f 72 20 6f 6e  |r off, Cursor on|
00000840  0d 02 c6 27 e7 20 65 72  72 6f 72 5f 66 6c 61 67  |...'. error_flag|
00000850  20 8c 20 f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  | . .:." at line |
00000860  22 3b 9e 3a d9 23 30 0d  02 d0 31 e7 20 65 72 72  |";.:.#0...1. err|
00000870  6f 72 5f 66 6c 61 67 20  80 20 9f 3d 31 37 20 8c  |or_flag . .=17 .|
00000880  20 d4 2d 31 2c 31 39 34  2c 30 2c 30 3a d4 2d 31  | .-1,194,0,0:.-1|
00000890  2c 31 33 31 2c 30 2c 30  0d 02 da 0a 2a 46 58 33  |,131,0,0....*FX3|
000008a0  2c 30 0d 02 e4 05 e0 0d  02 ee 05 20 0d 02 f8 05  |,0......... ....|
000008b0  20 0d 03 02 0e dd f2 6d  61 69 6e 6c 6f 6f 70 0d  | ......mainloop.|
000008c0  03 0c 05 f5 0d 03 16 18  63 68 61 72 25 3d 9a 23  |........char%=.#|
000008d0  66 69 6c 65 5f 68 61 6e  64 6c 65 25 0d 03 20 2b  |file_handle%.. +|
000008e0  e7 20 63 68 61 72 25 3d  31 33 20 8c 20 f2 72 65  |. char%=13 . .re|
000008f0  74 75 72 6e 3a fd 20 c5  23 66 69 6c 65 5f 68 61  |turn:. .#file_ha|
00000900  6e 64 6c 65 25 3a e1 0d  03 2a 2b e7 20 63 68 61  |ndle%:...*+. cha|
00000910  72 25 3d 32 37 20 8c 20  f2 65 73 63 61 70 65 3a  |r%=27 . .escape:|
00000920  fd 20 c5 23 66 69 6c 65  5f 68 61 6e 64 6c 65 25  |. .#file_handle%|
00000930  3a e1 0d 03 34 0b ef 20  63 68 61 72 25 0d 03 3e  |:...4.. char%..>|
00000940  14 fd 20 c5 23 66 69 6c  65 5f 68 61 6e 64 6c 65  |.. .#file_handle|
00000950  25 0d 03 48 05 e1 0d 03  52 05 20 0d 03 5c 0c dd  |%..H....R. ..\..|
00000960  f2 72 65 74 75 72 6e 0d  03 66 26 f2 6f 75 74 70  |.return..f&.outp|
00000970  75 74 5f 73 65 71 75 65  6e 63 65 28 63 61 72 72  |ut_sequence(carr|
00000980  69 61 67 65 5f 72 65 74  75 72 6e 24 29 0d 03 70  |iage_return$)..p|
00000990  0a 2a 46 58 33 2c 34 0d  03 7a 0b ef 20 31 33 2c  |.*FX3,4..z.. 13,|
000009a0  31 30 0d 03 84 0a 2a 46  58 33 2c 30 0d 03 8e 13  |10....*FX3,0....|
000009b0  6c 69 6e 65 73 25 3d 6c  69 6e 65 73 25 2b 31 0d  |lines%=lines%+1.|
000009c0  03 98 18 e7 20 c5 23 66  69 6c 65 5f 68 61 6e 64  |.... .#file_hand|
000009d0  6c 65 25 20 8c 20 e1 0d  03 a2 1f e7 20 6c 69 6e  |le% . ...... lin|
000009e0  65 73 25 83 36 36 20 3d  20 30 20 8c 20 f2 6e 65  |es%.66 = 0 . .ne|
000009f0  77 73 68 65 65 74 0d 03  ac 35 e7 20 6c 65 66 74  |wsheet...5. left|
00000a00  5f 6d 61 72 67 69 6e 25  20 8c 20 e3 20 49 25 3d  |_margin% . . I%=|
00000a10  31 20 b8 20 6c 65 66 74  5f 6d 61 72 67 69 6e 25  |1 . left_margin%|
00000a20  20 3a 20 ef 20 33 32 20  3a 20 ed 0d 03 b6 05 e1  | : . 32 : ......|
00000a30  0d 03 c0 05 20 0d 03 ca  0c dd f2 65 73 63 61 70  |.... ......escap|
00000a40  65 0d 03 d4 18 63 68 61  72 25 3d 9a 23 66 69 6c  |e....char%=.#fil|
00000a50  65 5f 68 61 6e 64 6c 65  25 0d 03 de 39 e7 20 63  |e_handle%...9. c|
00000a60  68 61 72 25 3d 37 31 20  8c 20 f2 6f 75 74 70 75  |har%=71 . .outpu|
00000a70  74 5f 73 65 71 75 65 6e  63 65 28 73 74 61 72 74  |t_sequence(start|
00000a80  5f 64 6f 75 62 6c 65 5f  73 74 72 69 6b 65 24 29  |_double_strike$)|
00000a90  3a e1 0d 03 e8 37 e7 20  63 68 61 72 25 3d 37 32  |:....7. char%=72|
00000aa0  20 8c 20 f2 6f 75 74 70  75 74 5f 73 65 71 75 65  | . .output_seque|
00000ab0  6e 63 65 28 65 6e 64 5f  64 6f 75 62 6c 65 5f 73  |nce(end_double_s|
00000ac0  74 72 69 6b 65 24 29 3a  e1 0d 03 f2 25 e7 20 63  |trike$):....%. c|
00000ad0  68 61 72 25 3d 34 35 20  8c 20 63 68 61 72 25 3d  |har%=45 . char%=|
00000ae0  9a 23 66 69 6c 65 5f 68  61 6e 64 6c 65 25 0d 03  |.#file_handle%..|
00000af0  fc 34 e7 20 63 68 61 72  25 3d 31 20 8c 20 f2 6f  |.4. char%=1 . .o|
00000b00  75 74 70 75 74 5f 73 65  71 75 65 6e 63 65 28 73  |utput_sequence(s|
00000b10  74 61 72 74 5f 75 6e 64  65 72 6c 69 6e 65 24 29  |tart_underline$)|
00000b20  3a e1 0d 04 06 32 e7 20  63 68 61 72 25 3d 30 20  |:....2. char%=0 |
00000b30  8c 20 f2 6f 75 74 70 75  74 5f 73 65 71 75 65 6e  |. .output_sequen|
00000b40  63 65 28 65 6e 64 5f 75  6e 64 65 72 6c 69 6e 65  |ce(end_underline|
00000b50  24 29 3a e1 0d 04 10 25  f4 20 41 6e 79 74 68 69  |$):....%. Anythi|
00000b60  6e 67 20 65 6c 73 65 20  69 73 20 6e 6f 74 20 72  |ng else is not r|
00000b70  65 63 6f 67 6e 69 73 65  64 0d 04 1a 38 f2 73 63  |ecognised...8.sc|
00000b80  72 65 65 6e 5f 6d 65 73  73 61 67 65 28 22 55 6e  |reen_message("Un|
00000b90  6b 6e 6f 77 6e 20 45 73  63 61 70 65 20 73 65 71  |known Escape seq|
00000ba0  75 65 6e 63 65 20 28 69  67 6e 6f 72 65 64 29 22  |uence (ignored)"|
00000bb0  29 0d 04 24 05 e1 0d 04  2e 05 20 0d 04 38 1c dd  |)..$...... ..8..|
00000bc0  f2 6f 75 74 70 75 74 5f  73 65 71 75 65 6e 63 65  |.output_sequence|
00000bd0  28 73 65 6e 64 24 29 0d  04 42 16 e7 20 a9 28 73  |(send$)..B.. .(s|
00000be0  65 6e 64 24 29 20 3d 20  30 20 8c 20 e1 0d 04 4c  |end$) = 0 . ...L|
00000bf0  36 f4 20 50 72 65 76 65  6e 74 20 69 6e 74 65 72  |6. Prevent inter|
00000c00  72 75 70 74 69 6f 6e 20  6f 66 20 73 65 71 75 65  |ruption of seque|
00000c10  6e 63 65 20 62 79 20 45  73 63 61 70 65 20 6b 65  |nce by Escape ke|
00000c20  79 3a 2d 0d 04 56 0c 2a  46 58 32 32 39 2c 31 0d  |y:-..V.*FX229,1.|
00000c30  04 60 17 e3 20 49 25 20  3d 20 31 20 b8 20 a9 28  |.`.. I% = 1 . .(|
00000c40  73 65 6e 64 24 29 0d 04  6a 17 ef 20 31 2c 97 28  |send$)..j.. 1,.(|
00000c50  c1 73 65 6e 64 24 2c 49  25 2c 31 29 29 0d 04 74  |.send$,I%,1))..t|
00000c60  05 ed 0d 04 7e 0c 2a 46  58 32 32 39 2c 30 0d 04  |....~.*FX229,0..|
00000c70  88 05 e1 0d 04 92 05 20  0d 04 9c 0e dd f2 6e 65  |....... ......ne|
00000c80  77 73 68 65 65 74 0d 04  a6 18 e7 20 73 68 65 65  |wsheet..... shee|
00000c90  74 5f 6d 6f 64 65 20 3d  20 30 20 8c 20 e1 0d 04  |t_mode = 0 . ...|
00000ca0  b0 1d d4 31 2c 2d 31 32  2c 31 35 30 2c 34 3a d4  |...1,-12,150,4:.|
00000cb0  31 2c 2d 31 32 2c 31 32  30 2c 36 0d 04 ba 48 f2  |1,-12,120,6...H.|
00000cc0  73 63 72 65 65 6e 5f 6d  65 73 73 61 67 65 28 22  |screen_message("|
00000cd0  45 6e 64 20 6f 66 20 70  61 67 65 2e 20 20 49 6e  |End of page.  In|
00000ce0  73 65 72 74 20 6e 65 77  20 73 68 65 65 74 2c 20  |sert new sheet, |
00000cf0  74 68 65 6e 20 70 72 65  73 73 20 61 20 6b 65 79  |then press a key|
00000d00  2e 22 29 0d 04 c4 0b 2a  46 58 31 35 2c 31 0d 04  |.")....*FX15,1..|
00000d10  ce 09 f5 20 fd 20 a5 0d  04 d8 50 f2 6f 75 74 70  |... . ....P.outp|
00000d20  75 74 5f 73 65 71 75 65  6e 63 65 28 6e 6f 5f 73  |ut_sequence(no_s|
00000d30  6b 69 70 5f 6f 76 65 72  5f 70 65 72 66 24 20 2b  |kip_over_perf$ +|
00000d40  20 75 73 5f 63 68 61 72  61 63 74 65 72 5f 73 65  | us_character_se|
00000d50  74 24 20 2b 20 73 74 61  72 74 5f 65 6d 70 68 61  |t$ + start_empha|
00000d60  73 69 73 65 64 24 29 0d  04 e2 05 e1 0d 04 ec 05  |sised$).........|
00000d70  20 0d 04 f6 0d dd f2 6e  65 77 64 69 73 6b 0d 05  | ......newdisk..|
00000d80  00 57 f2 73 63 72 65 65  6e 5f 6d 65 73 73 61 67  |.W.screen_messag|
00000d90  65 28 22 45 6e 64 20 6f  66 20 66 69 72 73 74 20  |e("End of first |
00000da0  66 69 6c 65 2e 20 20 49  6e 73 65 72 74 20 73 65  |file.  Insert se|
00000db0  63 6f 6e 64 20 64 69 73  6b 2c 20 74 68 65 6e 20  |cond disk, then |
00000dc0  70 72 65 73 73 20 61 20  6b 65 79 2e 22 20 2b 20  |press a key." + |
00000dd0  bd 28 37 29 29 0d 05 0a  33 d4 2d 31 2c 31 32 38  |.(7))...3.-1,128|
00000de0  2c 30 2c 30 3a d4 2d 31  2c 31 32 37 2c 30 2c 30  |,0,0:.-1,127,0,0|
00000df0  3a d4 2d 31 2c 32 32 32  2c 30 2c 30 3a d4 2d 31  |:.-1,222,0,0:.-1|
00000e00  2c 31 33 31 2c 30 2c 30  0d 05 14 27 d4 2d 31 2c  |,131,0,0...'.-1,|
00000e10  32 33 32 2c 30 2c 30 3a  d4 2d 31 2c 31 39 38 2c  |232,0,0:.-1,198,|
00000e20  30 2c 30 3a d4 2d 31 2c  31 39 37 2c 30 2c 30 0d  |0,0:.-1,197,0,0.|
00000e30  05 1e 0b 2a 46 58 31 35  2c 31 0d 05 28 09 f5 20  |...*FX15,1..(.. |
00000e40  fd 20 a5 0d 05 32 05 e1  0d 05 3c 05 20 0d 05 46  |. ...2....<. ..F|
00000e50  1d dd f2 73 63 72 65 65  6e 5f 6d 65 73 73 61 67  |...screen_messag|
00000e60  65 28 73 63 72 65 65 6e  24 29 0d 05 50 0a 2a 46  |e(screen$)..P.*F|
00000e70  58 33 2c 34 0d 05 5a 05  f1 0d 05 64 0b fb 30 3a  |X3,4..Z....d..0:|
00000e80  fb 31 32 39 0d 05 6e 15  f1 22 20 22 3b 73 63 72  |.129..n.." ";scr|
00000e90  65 65 6e 24 3b 22 20 22  3b 0d 05 78 0b fb 31 3a  |een$;" ";..x..1:|
00000ea0  fb 31 32 38 0d 05 82 05  f1 0d 05 8c 0a 2a 46 58  |.128.........*FX|
00000eb0  33 2c 30 0d 05 96 05 e1  0d 05 a0 05 20 0d 05 aa  |3,0......... ...|
00000ec0  0f dd f2 71 75 65 73 74  69 6f 6e 73 0d 05 b4 73  |...questions...s|
00000ed0  f1 27 27 bd 26 38 36 3b  22 44 6f 20 79 6f 75 20  |.''.&86;"Do you |
00000ee0  77 69 73 68 20 74 6f 20  62 65 20 70 72 6f 6d 70  |wish to be promp|
00000ef0  74 65 64 20 74 6f 20 69  6e 73 65 72 74 20 61 20  |ted to insert a |
00000f00  22 3b bd 26 38 36 3b 22  6e 65 77 20 73 68 65 65  |";.&86;"new shee|
00000f10  74 20 6f 66 20 70 61 70  65 72 20 66 6f 72 20 65  |t of paper for e|
00000f20  61 63 68 20 70 61 67 65  20 28 59 2f 4e 29 20 22  |ach page (Y/N) "|
00000f30  3b bd 26 38 36 3b 22 3f  22 3b bd 26 38 37 3b 0d  |;.&86;"?";.&87;.|
00000f40  05 be 43 e7 20 28 a5 20  84 20 33 32 29 20 3d 20  |..C. (. . 32) = |
00000f50  97 28 22 79 22 29 20 8c  20 73 68 65 65 74 5f 6d  |.("y") . sheet_m|
00000f60  6f 64 65 3d b9 3a f1 22  59 65 73 22 20 20 8b 20  |ode=.:."Yes"  . |
00000f70  73 68 65 65 74 5f 6d 6f  64 65 3d a3 3a f1 22 4e  |sheet_mode=.:."N|
00000f80  6f 22 0d 05 c8 05 20 0d  05 d2 63 f1 27 bd 26 38  |o".... ...c.'.&8|
00000f90  36 3b 22 44 6f 20 79 6f  75 20 77 69 73 68 20 74  |6;"Do you wish t|
00000fa0  6f 20 62 65 20 70 72 6f  6d 70 74 65 64 20 74 6f  |o be prompted to|
00000fb0  20 63 68 61 6e 67 65 20  20 20 22 3b bd 26 38 36  | change   ";.&86|
00000fc0  3b 22 64 69 73 6b 73 20  66 6f 72 20 74 68 65 20  |;"disks for the |
00000fd0  73 65 63 6f 6e 64 20 66  69 6c 65 20 28 59 2f 4e  |second file (Y/N|
00000fe0  29 20 3f 22 3b bd 26 38  37 3b 0d 05 dc 47 e7 20  |) ?";.&87;...G. |
00000ff0  28 a5 20 84 20 33 32 29  20 3d 20 97 28 22 79 22  |(. . 32) = .("y"|
00001000  29 20 8c 20 64 69 73 6b  5f 63 68 61 6e 67 65 25  |) . disk_change%|
00001010  3d b9 3a f1 22 59 65 73  22 20 20 8b 20 64 69 73  |=.:."Yes"  . dis|
00001020  6b 5f 63 68 61 6e 67 65  25 3d a3 3a f1 22 4e 6f  |k_change%=.:."No|
00001030  22 0d 05 e6 05 20 0d 05  f0 7a f1 27 bd 26 38 36  |".... ...z.'.&86|
00001040  3b 22 49 73 20 74 68 65  20 66 69 72 73 74 20 66  |;"Is the first f|
00001050  69 6c 65 20 63 61 6c 6c  65 64 22 3b bd 26 38 33  |ile called";.&83|
00001060  3b 22 22 22 22 3b 66 69  6c 65 6e 61 6d 65 41 24  |;"""";filenameA$|
00001070  3b 22 22 22 22 3b bd 26  38 36 3b 22 69 6e 22 27  |;"""";.&86;"in"'|
00001080  bd 26 38 36 3b 22 74 68  65 20 63 75 72 72 65 6e  |.&86;"the curren|
00001090  74 20 64 72 69 76 65 2f  64 69 72 65 63 74 6f 72  |t drive/director|
000010a0  79 20 28 59 2f 4e 29 20  3f 22 3b bd 26 38 37 3b  |y (Y/N) ?";.&87;|
000010b0  0d 05 fa 0c 6b 65 79 25  20 3d 20 a5 0d 06 04 66  |....key% = ....f|
000010c0  e7 20 28 6b 65 79 25 20  84 20 33 32 29 20 3d 20  |. (key% . 32) = |
000010d0  97 28 22 79 22 29 20 84  20 6b 65 79 25 20 3d 20  |.("y") . key% = |
000010e0  31 33 20 8c 20 f1 22 59  65 73 22 3b 20 8b 20 f1  |13 . ."Yes"; . .|
000010f0  22 4e 6f 22 27 bd 26 38  32 3b 22 45 6e 74 65 72  |"No"'.&82;"Enter|
00001100  20 6e 65 77 20 66 69 6c  65 6e 61 6d 65 22 3b bd  | new filename";.|
00001110  26 38 37 3b 3a e8 22 22  66 69 6c 65 6e 61 6d 65  |&87;:.""filename|
00001120  41 24 0d 06 0e 7b f1 27  bd 26 38 36 3b 22 49 73  |A$...{.'.&86;"Is|
00001130  20 74 68 65 20 73 65 63  6f 6e 64 20 66 69 6c 65  | the second file|
00001140  20 63 61 6c 6c 65 64 22  3b bd 26 38 33 3b 22 22  | called";.&83;""|
00001150  22 22 3b 66 69 6c 65 6e  61 6d 65 42 24 3b 22 22  |"";filenameB$;""|
00001160  22 22 3b bd 26 38 36 3b  22 69 6e 22 27 bd 26 38  |"";.&86;"in"'.&8|
00001170  36 3b 22 74 68 65 20 63  75 72 72 65 6e 74 20 64  |6;"the current d|
00001180  72 69 76 65 2f 64 69 72  65 63 74 6f 72 79 20 28  |rive/directory (|
00001190  59 2f 4e 29 20 3f 22 3b  bd 26 38 37 3b 0d 06 18  |Y/N) ?";.&87;...|
000011a0  0c 6b 65 79 25 20 3d 20  a5 0d 06 22 66 e7 20 28  |.key% = ..."f. (|
000011b0  6b 65 79 25 20 84 20 33  32 29 20 3d 20 97 28 22  |key% . 32) = .("|
000011c0  79 22 29 20 84 20 6b 65  79 25 20 3d 20 31 33 20  |y") . key% = 13 |
000011d0  8c 20 f1 22 59 65 73 22  3b 20 8b 20 f1 22 4e 6f  |. ."Yes"; . ."No|
000011e0  22 27 bd 26 38 32 3b 22  45 6e 74 65 72 20 6e 65  |"'.&82;"Enter ne|
000011f0  77 20 66 69 6c 65 6e 61  6d 65 22 3b bd 26 38 37  |w filename";.&87|
00001200  3b 3a e8 22 22 66 69 6c  65 6e 61 6d 65 42 24 0d  |;:.""filenameB$.|
00001210  06 2c 05 20 0d 06 36 5f  f1 27 bd 26 38 36 3b 22  |.,. ..6_.'.&86;"|
00001220  44 6f 20 79 6f 75 20 77  69 73 68 20 74 6f 20 73  |Do you wish to s|
00001230  74 61 72 74 20 74 68 65  20 70 72 69 6e 74 20 66  |tart the print f|
00001240  72 6f 6d 22 27 bd 26 38  36 3b 22 6f 74 68 65 72  |rom"'.&86;"other|
00001250  20 74 68 61 6e 20 74 68  65 20 66 69 72 73 74 20  | than the first |
00001260  70 61 67 65 20 28 59 2f  4e 29 20 3f 22 3b bd 26  |page (Y/N) ?";.&|
00001270  38 37 3b 0d 06 40 3b e7  20 28 a5 20 84 20 33 32  |87;..@;. (. . 32|
00001280  29 20 3d 20 97 28 22 79  22 29 20 8c 20 f1 22 59  |) = .("y") . ."Y|
00001290  65 73 22 20 8b 20 f1 22  4e 6f 22 3a 73 74 61 72  |es" . ."No":star|
000012a0  74 70 61 67 65 25 3d 30  3a e5 8d 74 46 46 0d 06  |tpage%=0:..tFF..|
000012b0  4a 37 f1 bd 26 38 32 3b  22 45 6e 74 65 72 20 73  |J7..&82;"Enter s|
000012c0  74 61 72 74 20 70 61 67  65 20 6e 75 6d 62 65 72  |tart page number|
000012d0  22 3b bd 26 38 37 3b 3a  e8 22 22 73 74 61 72 74  |";.&87;:.""start|
000012e0  70 61 67 65 25 0d 06 54  27 e7 20 73 74 61 72 74  |page%..T'. start|
000012f0  70 61 67 65 25 3c 3d 66  69 6c 65 42 5f 6d 61 78  |page%<=fileB_max|
00001300  5f 70 61 67 65 20 8c 20  8d 74 46 46 0d 06 5e 26  |_page . .tFF..^&|
00001310  f4 20 22 45 72 72 6f 72  21 20 54 6f 6f 20 6c 61  |. "Error! Too la|
00001320  72 67 65 21 20 45 6e 74  65 72 20 61 67 61 69 6e  |rge! Enter again|
00001330  2e 22 0d 06 68 33 d4 2d  31 2c 31 39 33 2c 30 2c  |."..h3.-1,193,0,|
00001340  30 3a d4 2d 31 2c 31 32  38 2c 30 2c 30 3a d4 2d  |0:.-1,128,0,0:.-|
00001350  31 2c 31 34 33 2c 30 2c  30 3a d4 2d 31 2c 32 31  |1,143,0,0:.-1,21|
00001360  34 2c 30 2c 30 0d 06 72  27 d4 2d 31 2c 31 32 38  |4,0,0..r'.-1,128|
00001370  2c 30 2c 30 3a d4 2d 31  2c 31 39 32 2c 30 2c 30  |,0,0:.-1,192,0,0|
00001380  3a d4 2d 31 2c 31 36 32  2c 30 2c 30 0d 06 7c 10  |:.-1,162,0,0..|.|
00001390  ef 20 31 31 3a 20 e5 20  8d 44 4a 46 0d 06 86 0c  |. 11: . .DJF....|
000013a0  6c 69 6e 65 73 25 3d 30  0d 06 90 0f 64 65 6c 61  |lines%=0....dela|
000013b0  79 25 3d 91 2b 35 30 0d  06 9a 10 f5 20 fd 20 91  |y%=.+50..... . .|
000013c0  3e 64 65 6c 61 79 25 0d  06 a4 05 e1 0d 06 ae 05  |>delay%.........|
000013d0  20 0d 06 b8 16 f4 20 20  44 45 46 50 52 4f 43 66  | .....  DEFPROCf|
000013e0  69 6e 64 70 61 67 65 0d  06 c2 4a f4 20 54 68 69  |indpage...J. Thi|
000013f0  73 20 69 73 20 61 20 67  65 6e 65 72 61 6c 20 72  |s is a general r|
00001400  6f 75 74 69 6e 65 20 66  6f 72 20 61 6e 79 20 66  |outine for any f|
00001410  69 6c 65 2c 20 62 75 74  20 69 73 20 76 65 72 79  |ile, but is very|
00001420  20 73 6c 6f 77 20 61 73  20 69 74 20 72 65 61 64  | slow as it read|
00001430  73 0d 06 cc 4b f4 20 65  61 63 68 20 62 79 74 65  |s...K. each byte|
00001440  2c 20 63 6f 75 6e 74 69  6e 67 20 43 61 72 72 69  |, counting Carri|
00001450  61 67 65 20 52 65 74 75  72 6e 73 2e 20 20 53 65  |age Returns.  Se|
00001460  65 20 6c 69 6e 65 20 31  39 33 30 20 66 6f 72 20  |e line 1930 for |
00001470  6e 65 77 20 76 65 72 73  69 6f 6e 2e 0d 06 d6 05  |new version.....|
00001480  20 0d 06 e0 66 e7 20 73  74 61 72 74 70 61 67 65  | ...f. startpage|
00001490  25 3e 66 69 6c 65 41 5f  6d 61 78 5f 70 61 67 65  |%>fileA_max_page|
000014a0  20 8c 20 74 61 72 67 65  74 25 3d 28 73 74 61 72  | . target%=(star|
000014b0  74 70 61 67 65 25 2d 66  69 6c 65 41 5f 6d 61 78  |tpage%-fileA_max|
000014c0  5f 70 61 67 65 2d 31 29  2a 36 36 20 8b 20 74 61  |_page-1)*66 . ta|
000014d0  72 67 65 74 25 3d 28 73  74 61 72 74 70 61 67 65  |rget%=(startpage|
000014e0  25 2b 33 29 2a 36 36 0d  06 ea 13 e7 20 74 61 72  |%+3)*66..... tar|
000014f0  67 65 74 25 3d 30 20 8c  20 e1 0d 06 f4 13 53 25  |get%=0 . .....S%|
00001500  3d 66 69 6c 65 5f 68 61  6e 64 6c 65 25 0d 06 fe  |=file_handle%...|
00001510  3a f2 73 63 72 65 65 6e  5f 6d 65 73 73 61 67 65  |:.screen_message|
00001520  28 22 53 65 61 72 63 68  69 6e 67 20 66 6f 72 20  |("Searching for |
00001530  70 61 67 65 20 22 20 2b  20 c3 73 74 61 72 74 70  |page " + .startp|
00001540  61 67 65 25 29 3a f1 0d  07 08 47 e7 20 73 74 61  |age%):....G. sta|
00001550  72 74 70 61 67 65 25 3e  66 69 6c 65 41 5f 6d 61  |rtpage%>fileA_ma|
00001560  78 5f 70 61 67 65 20 8c  20 6f 66 66 73 65 74 25  |x_page . offset%|
00001570  3d 66 69 6c 65 41 5f 6d  61 78 5f 70 61 67 65 2b  |=fileA_max_page+|
00001580  31 20 8b 20 6f 66 66 73  65 74 25 3d 2d 33 0d 07  |1 . offset%=-3..|
00001590  12 05 20 0d 07 1c 0a 2a  46 58 33 2c 34 0d 07 26  |.. ....*FX3,4..&|
000015a0  05 f5 0d 07 30 0b 43 25  3d 9a 23 53 25 0d 07 3a  |....0.C%=.#S%..:|
000015b0  1d e7 20 43 25 3d 31 33  20 8c 20 6c 69 6e 65 73  |.. C%=13 . lines|
000015c0  25 3d 6c 69 6e 65 73 25  2b 31 0d 07 44 3d e7 20  |%=lines%+1..D=. |
000015d0  6c 69 6e 65 73 25 83 36  36 3d 30 20 8c 20 f1 bd  |lines%.66=0 . ..|
000015e0  31 33 3b 22 46 6f 75 6e  64 20 70 61 67 65 20 22  |13;"Found page "|
000015f0  3b 6c 69 6e 65 73 25 81  36 36 2b 6f 66 66 73 65  |;lines%.66+offse|
00001600  74 25 3b 22 20 22 3b 0d  07 4e 1a e7 20 6c 69 6e  |t%;" ";..N.. lin|
00001610  65 73 25 2d 74 61 72 67  65 74 25 20 8c 20 fd 20  |es%-target% . . |
00001620  a3 0d 07 58 07 fd 20 b9  0d 07 62 06 f1 27 0d 07  |...X.. ...b..'..|
00001630  6c 0a 2a 46 58 33 2c 30  0d 07 76 05 e1 0d 07 80  |l.*FX3,0..v.....|
00001640  05 20 0d 07 8a 0e dd f2  66 69 6e 64 70 61 67 65  |. ......findpage|
00001650  0d 07 94 0a f7 20 8d 64  64 47 0d 07 9e 3f e7 20  |..... .ddG...?. |
00001660  73 74 61 72 74 70 61 67  65 25 20 3c 20 30 20 8c  |startpage% < 0 .|
00001670  20 73 74 61 72 74 70 61  67 65 25 20 3d 20 66 69  | startpage% = fi|
00001680  6c 65 42 5f 6d 61 78 5f  70 61 67 65 20 2d 20 73  |leB_max_page - s|
00001690  74 61 72 74 70 61 67 65  25 0d 07 a8 17 e3 20 49  |tartpage%..... I|
000016a0  25 3d 31 20 b8 20 73 74  61 72 74 70 61 67 65 25  |%=1 . startpage%|
000016b0  0d 07 b2 0e f3 20 70 6f  69 6e 74 65 72 25 0d 07  |..... pointer%..|
000016c0  bc 05 ed 0d 07 c6 1b cf  23 66 69 6c 65 5f 68 61  |........#file_ha|
000016d0  6e 64 6c 65 25 3d 70 6f  69 6e 74 65 72 25 0d 07  |ndle%=pointer%..|
000016e0  d0 05 e1 0d 07 da 05 20  0d 07 e4 4b dc 20 20 26  |....... ...K.  &|
000016f0  32 43 30 43 2c 20 26 33  35 36 38 2c 20 26 33 42  |2C0C, &3568, &3B|
00001700  39 46 2c 20 26 34 38 45  37 2c 20 26 35 36 34 31  |9F, &48E7, &5641|
00001710  2c 20 26 35 44 32 44 2c  20 26 36 34 43 35 2c 20  |, &5D2D, &64C5, |
00001720  26 36 43 41 37 2c 20 26  37 36 45 34 2c 20 26 37  |&6CA7, &76E4, &7|
00001730  45 31 44 0d 07 ee 4b dc  20 20 26 38 34 43 46 2c  |E1D...K.  &84CF,|
00001740  20 26 38 39 37 42 2c 20  26 39 33 33 46 2c 20 26  | &897B, &933F, &|
00001750  39 39 46 35 2c 20 26 39  45 46 31 2c 20 26 41 34  |99F5, &9EF1, &A4|
00001760  39 35 2c 20 26 41 43 30  36 2c 20 26 42 34 33 38  |95, &AC06, &B438|
00001770  2c 20 26 42 44 41 39 2c  20 26 43 36 30 39 0d 07  |, &BDA9, &C609..|
00001780  f8 4b dc 20 20 26 43 46  31 41 2c 20 26 44 33 46  |.K.  &CF1A, &D3F|
00001790  46 2c 20 26 44 44 30 42  2c 20 26 45 33 30 30 2c  |F, &DD0B, &E300,|
000017a0  20 26 45 44 32 37 2c 20  26 46 35 30 42 2c 20 26  | &ED27, &F50B, &|
000017b0  46 42 36 46 2c 20 26 46  45 39 38 2c 26 31 30 38  |FB6F, &FE98,&108|
000017c0  45 31 2c 26 31 31 34 32  35 0d 08 02 4b dc 20 26  |E1,&11425...K. &|
000017d0  31 31 44 37 42 2c 26 31  32 35 46 35 2c 26 31 33  |11D7B,&125F5,&13|
000017e0  30 45 41 2c 26 31 33 38  34 45 2c 26 31 34 32 34  |0EA,&1384E,&1424|
000017f0  31 2c 26 31 34 39 45 39  2c 26 31 35 32 44 44 2c  |1,&149E9,&152DD,|
00001800  26 31 35 42 43 45 2c 26  31 36 31 31 43 2c 26 31  |&15BCE,&1611C,&1|
00001810  36 36 31 37 0d 08 0c 4b  dc 20 26 31 36 43 44 39  |6617...K. &16CD9|
00001820  2c 26 31 37 34 31 31 2c  26 31 37 42 44 46 2c 26  |,&17411,&17BDF,&|
00001830  31 38 34 45 33 2c 26 31  38 38 31 37 2c 26 31 39  |184E3,&18817,&19|
00001840  32 32 41 2c 26 31 39 41  34 45 2c 26 31 41 34 36  |22A,&19A4E,&1A46|
00001850  30 2c 26 31 41 45 35 44  2c 26 31 42 36 34 41 0d  |0,&1AE5D,&1B64A.|
00001860  08 16 4b dc 20 20 20 20  20 20 30 2c 20 20 26 37  |..K.      0,  &7|
00001870  35 30 2c 20 20 26 44 32  46 2c 20 26 31 34 30 46  |50,  &D2F, &140F|
00001880  2c 20 26 31 41 37 36 2c  20 26 32 31 41 35 2c 20  |, &1A76, &21A5, |
00001890  26 32 38 45 33 2c 20 26  32 46 44 38 2c 20 26 33  |&28E3, &2FD8, &3|
000018a0  38 43 33 2c 20 26 33 45  41 35 0d 08 20 4b dc 20  |8C3, &3EA5.. K. |
000018b0  20 26 34 36 39 42 2c 20  26 34 42 44 30 2c 20 26  | &469B, &4BD0, &|
000018c0  35 35 35 31 2c 20 26 35  46 43 37 2c 20 26 36 39  |5551, &5FC7, &69|
000018d0  34 46 2c 20 26 37 31 46  44 2c 20 26 37 39 44 41  |4F, &71FD, &79DA|
000018e0  2c 20 26 37 46 41 33 2c  20 26 38 36 37 44 2c 20  |, &7FA3, &867D, |
000018f0  26 38 44 32 30 0d 08 2a  4b dc 20 20 26 39 35 45  |&8D20..*K.  &95E|
00001900  31 2c 20 26 39 44 41 46  2c 20 26 41 34 44 38 2c  |1, &9DAF, &A4D8,|
00001910  20 26 41 43 36 37 2c 20  26 42 32 36 32 2c 20 26  | &AC67, &B262, &|
00001920  42 41 33 44 2c 20 26 43  31 46 41 2c 20 26 43 37  |BA3D, &C1FA, &C7|
00001930  42 31 2c 20 26 43 44 42  42 2c 20 26 44 34 38 41  |B1, &CDBB, &D48A|
00001940  0d 08 34 4b dc 20 20 26  44 38 34 34 2c 20 26 45  |..4K.  &D844, &E|
00001950  31 30 34 2c 20 26 45 36  31 38 2c 20 26 45 43 44  |104, &E618, &ECD|
00001960  41 2c 20 26 46 33 41 43  2c 20 26 46 38 43 34 2c  |A, &F3AC, &F8C4,|
00001970  20 26 46 44 36 34 2c 26  31 30 33 37 36 2c 26 31  | &FD64,&10376,&1|
00001980  30 38 45 41 2c 26 31 30  45 39 37 0d 08 3e 4b dc  |08EA,&10E97..>K.|
00001990  20 26 31 31 34 38 38 2c  26 31 31 41 44 32 2c 26  | &11488,&11AD2,&|
000019a0  31 32 31 31 31 2c 26 31  32 35 30 42 2c 26 31 33  |12111,&1250B,&13|
000019b0  30 30 35 2c 26 31 33 39  45 45 2c 26 31 34 32 46  |005,&139EE,&142F|
000019c0  37 2c 26 31 34 42 42 36  2c 26 31 35 33 46 43 2c  |7,&14BB6,&153FC,|
000019d0  26 31 35 44 38 41 0d 08  48 4b dc 20 26 31 36 36  |&15D8A..HK. &166|
000019e0  37 35 2c 26 31 36 45 46  46 2c 26 31 37 37 32 37  |75,&16EFF,&17727|
000019f0  2c 26 31 38 30 38 33 2c  26 31 38 39 35 45 2c 26  |,&18083,&1895E,&|
00001a00  31 38 45 37 43 2c 26 31  39 36 34 34 2c 26 31 39  |18E7C,&19644,&19|
00001a10  41 31 43 2c 26 31 41 32  41 42 2c 26 31 41 34 45  |A1C,&1A2AB,&1A4E|
00001a20  42 0d 08 52 21 dc 20 26  31 41 44 32 46 2c 26 31  |B..R!. &1AD2F,&1|
00001a30  42 33 42 44 2c 26 31 42  42 44 35 2c 26 31 43 33  |B3BD,&1BBD5,&1C3|
00001a40  39 45 0d 08 5c 26 f4 20  44 61 74 61 20 66 6f 72  |9E..\&. Data for|
00001a50  20 63 6f 6e 74 65 6e 74  73 20 70 61 67 65 73 20  | contents pages |
00001a60  28 2d 32 2c 2d 31 21 29  0d 08 66 0f dc 20 26 46  |(-2,-1!)..f.. &F|
00001a70  45 44 2c 26 33 31 39 0d  ff                       |ED,&319..|
00001a79