>� Printer program for two part 65C02 Assembler manual with
<� embedded Escape sequences for Emphasise and Underline.
(� Version 1.3  13/12/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$     = "Manual1"
�filenameB$     = "Manual2"
�fileA_max_page = 35
�fileB_max_page = 80
�contents_pages = 3
�left_margin%   = 5
� 

� 7

Gscreen$=�&8D+�&81+�&9D+�&83+"65C02 Assembler Manual Printer  "+�&9C

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

" 

,.error_flag=�:� � � � �: error_flag=�:�DXB

6 

@�questions

J� off_line � � �DbB

T 

^� 3

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

r3� 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 � �TRB

�file_handle%=�(filenameA$)

�b� file_handle%=0 � �screen_message("""" + filenameA$ + """ not found, program aborted."):�DXB

�� startpage% � �findpage

�
�mainloop

��#file_handle%

� 

�
�newsheet

�� disk_change% � �newdisk
 
file_handle%=�(filenameB$)
b� file_handle%=0 � �screen_message("""" + filenameB$ + """ not found, program aborted."):�DXB
&1� startpage% > fileA_max_page + 1 � �findpage
0
�mainloop
:�#file_handle%
D 
N*�screen_message("Print complete"+�(7))
X$�output_sequence(reset_printer$)
b/� 3,23,1,1;0;0;0; :� Printer off, Cursor on
l'� error_flag � �:�" at line ";�:�#0
v1� 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%:�
�� char%
�� �#file_handle%
��
� 
��return
&�output_sequence(carriage_return$)

*FX3,4
 � 13,10
*
*FX3,0
4lines%=lines%+1
>� �#file_handle% � �
H� lines%�66 = 0 � �newsheet
R5� left_margin% � � I%=1 � left_margin% : � 32 : �
\�
f 
p��escape
zchar%=�#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)")
��
� 
���output_sequence(send$)
�� �(send$) = 0 � �
�6� Prevent interruption of sequence by Escape key:-
�*FX229,1
� I% = 1 � �(send$)
� 1,�(�send$,I%,1))
�
$*FX229,0
.�
8 
B��newsheet
L� sheet_mode = 0 � �
V�1,-12,150,4:�1,-12,120,6
`H�screen_message("End of page.  Insert new sheet, then press a key.")
j*FX15,1
t	� � �
~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
�	� � �
��
� 
���screen_message(screen$)
�
*FX3,4
�

�0:�129
�" ";screen$;" ";
�1:�128
(�
2
*FX3,0
<�
F 
P��questions
Z� 28,0,24,39,4
d[�'�&86;"Do you wish to Print the manual, or"'�&86;"Read it on the screen (P/R) ?";�&87;
nR� (� � 32) = �("r") � off_line=� : sheet_mode=� : �"Read" : � �TNF  � �"Print"
x 
�)� Check printer connected and on line
�� 2,1,0,1,0
�
*FX3,4
�delay%=�+10
�� � �>delay%
�2� �(-4)=63 � off_line=� : � �dpE  � off_line=�
��-1,233,0,0:�-1,216,0,0
�R�''�&86;"Printer is off-line."'�&86;"Please enable, then re-run the program."'
�*FX21,3
��
� 
�r�'�&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"
 
`�'�&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;
6key% = �
@f� (key% � 32) = �("y") � key% = 13 � �"Yes"; � �"No"'�&82;"Enter new filename";�&87;:�""filenameA$
J{�'�&86;"Is the second file called";�&83;"""";filenameB$;"""";�&86;"in"'�&86;"the current drive/directory (Y/N) ?";�&87;
Tkey% = �
^f� (key% � 32) = �("y") � key% = 13 � �"Yes"; � �"No"'�&82;"Enter new filename";�&87;:�""filenameB$
h 
r_�'�&86;"Do you wish to start the print from"'�&86;"other than the first page (Y/N) ?";�&87;
|=� (� � 32) = �("y") � �"Yes"; � �"No";:startpage%=0:�djF
�� �>19 � � 10,26,31,0,23
�=�''�&85;"(Use negative no.s for Contents pages)";�13;�11;
�7�&82;"Enter start page number";�&87;:�""startpage%
� �25,�-1);startpage%;�(39-�)
�I� (startpage%<=fileB_max_page) � (startpage%>=-contents_pages) � �djF
�&� "Error! Too large! Enter again."
�'�1,-12,32,8:�-1,128,0,0:�-1,128,0,0
�3�-1,193,0,0:�-1,128,0,0:�-1,143,0,0:�-1,214,0,0
�'�-1,128,0,0:�-1,192,0,0:�-1,162,0,0
�� 11: � �tZF
�lines%=0
�� 23,1,0;0;0;0;
�delay%=�+80
� � �>delay%
�
 
&�  DEFPROCfindpage
0J� This is a general routine for any file, but is very slow as it reads
:K� each byte, counting Carriage-Returns.  See line 2050 for new version.
D 
N>� startpage%<0 � startpage% = -startpage% - contents_pages
Xs� startpage%>fileA_max_page � target%=(startpage%-fileA_max_page-1)*66 � target%=(startpage%+contents_pages)*66
b� target%=0 � �
lS%=file_handle%
v:�screen_message("Searching for page " + �startpage%):�
�T� startpage%>fileA_max_page � offset%=fileA_max_page+1 � offset%=-contents_pages
� 
�
*FX3,4
��
�C%=�#S%
�� C%=13 � lines%=lines%+1
�=� lines%�66=0 � �13;"Found page ";lines%�66+offset%;" ";
�� lines%-target% � � �
�� �
��'
�
*FX3,0
��
� 
��findpage

� �D\H
?� startpage% < 0 � startpage% = fileB_max_page - startpage%
 � I%=1 � startpage%
*� pointer%
4�
>�#file_handle%=pointer%
H�
R 
\K�  &2156, &2997, &330E, &3C0F, &461B, &4FCE, &5879, &6284, &6C3E, &7505
fK�  &7CBF, &840F, &8D55, &947E, &9BED, &A5A5, &AC7B, &B492, &BCAA, &C378
pK�  &CABE, &D4E4, &DCBE, &E43B, &EB71, &F38B, &FBDF,&10592,&10E06,&11794
zK� &12130,&12496,&12D73,&133E2,&13A29,    &0,  &6A2,  &D3C, &121C, &186A
�K�  &2004, &2546, &2BF0, &3568, &3F38, &4741, &507B, &5943, &6216, &6909
�K�  &7109, &7B08, &845F, &8B46, &936B, &9BB6, &A29B, &A8AA, &B1F3, &B454
�K�  &B8AF, &BEC2, &C409, &CA6F, &CFB3, &D543, &DB53, &E13D, &E751, &ED38
�K�  &F37A, &F919, &FE5C,&10608,&10B07,&11310,&11B60,&11DEA,&1288A,&13225
�4� Data for Contents pages i, ii, iii (-1,-2,-3!)
��   &437, &10FD, &1D11
�

00000000  0d 00 0a 3e f4 20 50 72  69 6e 74 65 72 20 70 72  |...>. 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 36 35 43 30 32  20 41 73 73 65 6d 62 6c  |rt 65C02 Assembl|
00000030  65 72 20 6d 61 6e 75 61  6c 20 77 69 74 68 0d 00  |er manual with..|
00000040  14 3c f4 20 65 6d 62 65  64 64 65 64 20 45 73 63  |.<. embedded Esc|
00000050  61 70 65 20 73 65 71 75  65 6e 63 65 73 20 66 6f  |ape sequences fo|
00000060  72 20 45 6d 70 68 61 73  69 73 65 20 61 6e 64 20  |r Emphasise and |
00000070  55 6e 64 65 72 6c 69 6e  65 2e 0d 00 1e 28 f4 20  |Underline....(. |
00000080  56 65 72 73 69 6f 6e 20  31 2e 33 20 20 31 33 2f  |Version 1.3  13/|
00000090  31 32 2f 38 37 20 20 20  28 63 29 20 42 42 43 20  |12/87   (c) BBC |
000000a0  74 76 0d 00 28 34 f4 20  50 65 74 65 72 20 56 69  |tv..(4. Peter Vi|
000000b0  6e 63 65 20 5b 47 38 5a  5a 52 5d 20 20 28 50 72  |nce [G8ZZR]  (Pr|
000000c0  65 73 74 65 6c 20 6d 62  78 3a 2d 20 33 37 32 32  |estel mbx:- 3722|
000000d0  37 32 37 31 33 29 0d 00  32 05 20 0d 00 3c 3b f4  |72713)..2. ..<;.|
000000e0  20 45 73 63 61 70 65 20  73 65 71 75 65 6e 63 65  | Escape sequence|
000000f0  73 20 64 65 66 69 6e 65  64 20 66 6f 72 20 45 70  |s defined for Ep|
00000100  73 6f 6e 20 73 74 61 6e  64 61 72 64 20 70 72 69  |son standard pri|
00000110  6e 74 65 72 73 2e 0d 00  46 2d f4 20 41 64 6a 75  |nters...F-. Adju|
00000120  73 74 20 66 6f 72 20 79  6f 75 72 20 70 72 69 6e  |st for your prin|
00000130  74 65 72 20 28 69 66 20  6e 65 63 65 73 73 61 72  |ter (if necessar|
00000140  79 29 2e 0d 00 50 28 63  61 72 72 69 61 67 65 5f  |y)...P(carriage_|
00000150  72 65 74 75 72 6e 24 20  20 20 20 20 3d 20 bd 28  |return$     = .(|
00000160  31 33 29 20 2b 20 bd 28  31 30 29 0d 00 5a 26 73  |13) + .(10)..Z&s|
00000170  74 61 72 74 5f 64 6f 75  62 6c 65 5f 73 74 72 69  |tart_double_stri|
00000180  6b 65 24 20 3d 20 bd 28  32 37 29 20 2b 20 22 47  |ke$ = .(27) + "G|
00000190  22 0d 00 64 26 65 6e 64  5f 64 6f 75 62 6c 65 5f  |"..d&end_double_|
000001a0  73 74 72 69 6b 65 24 20  20 20 3d 20 bd 28 32 37  |strike$   = .(27|
000001b0  29 20 2b 20 22 48 22 0d  00 6e 2d 73 74 61 72 74  |) + "H"..n-start|
000001c0  5f 75 6e 64 65 72 6c 69  6e 65 24 20 20 20 20 20  |_underline$     |
000001d0  3d 20 bd 28 32 37 29 20  2b 20 22 2d 22 20 2b 20  |= .(27) + "-" + |
000001e0  bd 28 31 29 0d 00 78 2d  65 6e 64 5f 75 6e 64 65  |.(1)..x-end_unde|
000001f0  72 6c 69 6e 65 24 20 20  20 20 20 20 20 3d 20 bd  |rline$       = .|
00000200  28 32 37 29 20 2b 20 22  2d 22 20 2b 20 bd 28 30  |(27) + "-" + .(0|
00000210  29 0d 00 82 05 20 0d 00  8c 26 72 65 73 65 74 5f  |).... ...&reset_|
00000220  70 72 69 6e 74 65 72 24  20 20 20 20 20 20 20 3d  |printer$       =|
00000230  20 bd 28 32 37 29 20 2b  20 22 40 22 0d 00 96 26  | .(27) + "@"...&|
00000240  6e 6f 5f 73 6b 69 70 5f  6f 76 65 72 5f 70 65 72  |no_skip_over_per|
00000250  66 24 20 20 20 3d 20 bd  28 32 37 29 20 2b 20 22  |f$   = .(27) + "|
00000260  4f 22 0d 00 a0 2d 75 73  5f 63 68 61 72 61 63 74  |O"...-us_charact|
00000270  65 72 5f 73 65 74 24 20  20 20 20 3d 20 bd 28 32  |er_set$    = .(2|
00000280  37 29 20 2b 20 22 52 22  20 2b 20 bd 28 30 29 0d  |7) + "R" + .(0).|
00000290  00 aa 26 73 74 61 72 74  5f 65 6d 70 68 61 73 69  |..&start_emphasi|
000002a0  73 65 64 24 20 20 20 20  3d 20 bd 28 32 37 29 20  |sed$    = .(27) |
000002b0  2b 20 22 45 22 0d 00 b4  05 20 0d 00 be 1e 66 69  |+ "E".... ....fi|
000002c0  6c 65 6e 61 6d 65 41 24  20 20 20 20 20 3d 20 22  |lenameA$     = "|
000002d0  4d 61 6e 75 61 6c 31 22  0d 00 c8 1e 66 69 6c 65  |Manual1"....file|
000002e0  6e 61 6d 65 42 24 20 20  20 20 20 3d 20 22 4d 61  |nameB$     = "Ma|
000002f0  6e 75 61 6c 32 22 0d 00  d2 17 66 69 6c 65 41 5f  |nual2"....fileA_|
00000300  6d 61 78 5f 70 61 67 65  20 3d 20 33 35 0d 00 dc  |max_page = 35...|
00000310  17 66 69 6c 65 42 5f 6d  61 78 5f 70 61 67 65 20  |.fileB_max_page |
00000320  3d 20 38 30 0d 00 e6 16  63 6f 6e 74 65 6e 74 73  |= 80....contents|
00000330  5f 70 61 67 65 73 20 3d  20 33 0d 00 f0 16 6c 65  |_pages = 3....le|
00000340  66 74 5f 6d 61 72 67 69  6e 25 20 20 20 3d 20 35  |ft_margin%   = 5|
00000350  0d 00 fa 05 20 0d 01 04  07 eb 20 37 0d 01 0e 47  |.... ..... 7...G|
00000360  73 63 72 65 65 6e 24 3d  bd 26 38 44 2b bd 26 38  |screen$=.&8D+.&8|
00000370  31 2b bd 26 39 44 2b bd  26 38 33 2b 22 36 35 43  |1+.&9D+.&83+"65C|
00000380  30 32 20 41 73 73 65 6d  62 6c 65 72 20 4d 61 6e  |02 Assembler Man|
00000390  75 61 6c 20 50 72 69 6e  74 65 72 20 20 22 2b bd  |ual Printer  "+.|
000003a0  26 39 43 0d 01 18 1f f1  8a 31 2c 31 29 73 63 72  |&9C......1,1)scr|
000003b0  65 65 6e 24 3a f1 8a 31  2c 32 29 73 63 72 65 65  |een$:..1,2)scree|
000003c0  6e 24 0d 01 22 05 20 0d  01 2c 2e 65 72 72 6f 72  |n$..". ..,.error|
000003d0  5f 66 6c 61 67 3d a3 3a  ee 20 85 20 ee 20 85 20  |_flag=.:. . . . |
000003e0  87 3a 20 65 72 72 6f 72  5f 66 6c 61 67 3d b9 3a  |.: error_flag=.:|
000003f0  e5 8d 44 58 42 0d 01 36  05 20 0d 01 40 0e f2 71  |..DXB..6. ..@..q|
00000400  75 65 73 74 69 6f 6e 73  0d 01 4a 17 e7 20 6f 66  |uestions..J.. of|
00000410  66 5f 6c 69 6e 65 20 8c  20 e5 20 8d 44 62 42 0d  |f_line . . .DbB.|
00000420  01 54 05 20 0d 01 5e 07  eb 20 33 0d 01 68 37 ef  |.T. ..^.. 3..h7.|
00000430  20 32 33 2c 34 38 2c 32  34 2c 36 30 2c 31 30 32  | 23,48,24,60,102|
00000440  2c 31 30 32 2c 31 30 32  2c 36 30 2c 32 34 2c 30  |,102,102,60,24,0|
00000450  20 20 3a f4 20 4c 65 67  69 62 6c 65 20 7a 65 72  |  :. Legible zer|
00000460  6f 21 0d 01 72 33 ef 20  32 33 2c 31 2c 30 3b 30  |o!..r3. 23,1,0;0|
00000470  3b 30 3b 30 3b 20 20 3a  f4 20 43 75 72 73 6f 72  |;0;0;  :. Cursor|
00000480  20 6f 66 66 2c 20 74 68  65 6e 20 70 72 69 6e 74  | off, then print|
00000490  65 72 20 6f 6e 0d 01 7c  0a 2a 46 58 33 2c 30 0d  |er on..|.*FX3,0.|
000004a0  01 86 05 20 0d 01 90 24  f2 6f 75 74 70 75 74 5f  |... ...$.output_|
000004b0  73 65 71 75 65 6e 63 65  28 72 65 73 65 74 5f 70  |sequence(reset_p|
000004c0  72 69 6e 74 65 72 24 29  0d 01 9a 50 f2 6f 75 74  |rinter$)...P.out|
000004d0  70 75 74 5f 73 65 71 75  65 6e 63 65 28 6e 6f 5f  |put_sequence(no_|
000004e0  73 6b 69 70 5f 6f 76 65  72 5f 70 65 72 66 24 20  |skip_over_perf$ |
000004f0  2b 20 75 73 5f 63 68 61  72 61 63 74 65 72 5f 73  |+ us_character_s|
00000500  65 74 24 20 2b 20 73 74  61 72 74 5f 65 6d 70 68  |et$ + start_emph|
00000510  61 73 69 73 65 64 24 29  0d 01 a4 05 20 0d 01 ae  |asised$).... ...|
00000520  26 e7 20 73 74 61 72 74  70 61 67 65 25 3e 66 69  |&. startpage%>fi|
00000530  6c 65 41 5f 6d 61 78 5f  70 61 67 65 20 8c 20 8d  |leA_max_page . .|
00000540  54 52 42 0d 01 b8 1e 66  69 6c 65 5f 68 61 6e 64  |TRB....file_hand|
00000550  6c 65 25 3d ad 28 66 69  6c 65 6e 61 6d 65 41 24  |le%=.(filenameA$|
00000560  29 0d 01 c2 62 e7 20 66  69 6c 65 5f 68 61 6e 64  |)...b. file_hand|
00000570  6c 65 25 3d 30 20 8c 20  f2 73 63 72 65 65 6e 5f  |le%=0 . .screen_|
00000580  6d 65 73 73 61 67 65 28  22 22 22 22 20 2b 20 66  |message("""" + f|
00000590  69 6c 65 6e 61 6d 65 41  24 20 2b 20 22 22 22 20  |ilenameA$ + """ |
000005a0  6e 6f 74 20 66 6f 75 6e  64 2c 20 70 72 6f 67 72  |not found, progr|
000005b0  61 6d 20 61 62 6f 72 74  65 64 2e 22 29 3a e5 8d  |am aborted."):..|
000005c0  44 58 42 0d 01 cc 1c e7  20 73 74 61 72 74 70 61  |DXB..... startpa|
000005d0  67 65 25 20 8c 20 f2 66  69 6e 64 70 61 67 65 0d  |ge% . .findpage.|
000005e0  01 d6 0d f2 6d 61 69 6e  6c 6f 6f 70 0d 01 e0 12  |....mainloop....|
000005f0  d9 23 66 69 6c 65 5f 68  61 6e 64 6c 65 25 0d 01  |.#file_handle%..|
00000600  ea 05 20 0d 01 f4 0d f2  6e 65 77 73 68 65 65 74  |.. .....newsheet|
00000610  0d 01 fe 1d e7 20 64 69  73 6b 5f 63 68 61 6e 67  |..... disk_chang|
00000620  65 25 20 8c 20 f2 6e 65  77 64 69 73 6b 0d 02 08  |e% . .newdisk...|
00000630  05 20 0d 02 12 1e 66 69  6c 65 5f 68 61 6e 64 6c  |. ....file_handl|
00000640  65 25 3d ad 28 66 69 6c  65 6e 61 6d 65 42 24 29  |e%=.(filenameB$)|
00000650  0d 02 1c 62 e7 20 66 69  6c 65 5f 68 61 6e 64 6c  |...b. file_handl|
00000660  65 25 3d 30 20 8c 20 f2  73 63 72 65 65 6e 5f 6d  |e%=0 . .screen_m|
00000670  65 73 73 61 67 65 28 22  22 22 22 20 2b 20 66 69  |essage("""" + fi|
00000680  6c 65 6e 61 6d 65 42 24  20 2b 20 22 22 22 20 6e  |lenameB$ + """ n|
00000690  6f 74 20 66 6f 75 6e 64  2c 20 70 72 6f 67 72 61  |ot found, progra|
000006a0  6d 20 61 62 6f 72 74 65  64 2e 22 29 3a e5 8d 44  |m aborted."):..D|
000006b0  58 42 0d 02 26 31 e7 20  73 74 61 72 74 70 61 67  |XB..&1. startpag|
000006c0  65 25 20 3e 20 66 69 6c  65 41 5f 6d 61 78 5f 70  |e% > fileA_max_p|
000006d0  61 67 65 20 2b 20 31 20  8c 20 f2 66 69 6e 64 70  |age + 1 . .findp|
000006e0  61 67 65 0d 02 30 0d f2  6d 61 69 6e 6c 6f 6f 70  |age..0..mainloop|
000006f0  0d 02 3a 12 d9 23 66 69  6c 65 5f 68 61 6e 64 6c  |..:..#file_handl|
00000700  65 25 0d 02 44 05 20 0d  02 4e 2a f2 73 63 72 65  |e%..D. ..N*.scre|
00000710  65 6e 5f 6d 65 73 73 61  67 65 28 22 50 72 69 6e  |en_message("Prin|
00000720  74 20 63 6f 6d 70 6c 65  74 65 22 2b bd 28 37 29  |t complete"+.(7)|
00000730  29 0d 02 58 24 f2 6f 75  74 70 75 74 5f 73 65 71  |)..X$.output_seq|
00000740  75 65 6e 63 65 28 72 65  73 65 74 5f 70 72 69 6e  |uence(reset_prin|
00000750  74 65 72 24 29 0d 02 62  2f ef 20 33 2c 32 33 2c  |ter$)..b/. 3,23,|
00000760  31 2c 31 3b 30 3b 30 3b  30 3b 20 3a f4 20 50 72  |1,1;0;0;0; :. Pr|
00000770  69 6e 74 65 72 20 6f 66  66 2c 20 43 75 72 73 6f  |inter off, Curso|
00000780  72 20 6f 6e 0d 02 6c 27  e7 20 65 72 72 6f 72 5f  |r on..l'. error_|
00000790  66 6c 61 67 20 8c 20 f6  3a f1 22 20 61 74 20 6c  |flag . .:." at l|
000007a0  69 6e 65 20 22 3b 9e 3a  d9 23 30 0d 02 76 31 e7  |ine ";.:.#0..v1.|
000007b0  20 65 72 72 6f 72 5f 66  6c 61 67 20 80 20 9f 3d  | error_flag . .=|
000007c0  31 37 20 8c 20 d4 2d 31  2c 31 39 34 2c 30 2c 30  |17 . .-1,194,0,0|
000007d0  3a d4 2d 31 2c 31 33 31  2c 30 2c 30 0d 02 80 0a  |:.-1,131,0,0....|
000007e0  2a 46 58 33 2c 30 0d 02  8a 05 e0 0d 02 94 05 20  |*FX3,0......... |
000007f0  0d 02 9e 05 20 0d 02 a8  0e dd f2 6d 61 69 6e 6c  |.... ......mainl|
00000800  6f 6f 70 0d 02 b2 05 f5  0d 02 bc 18 63 68 61 72  |oop.........char|
00000810  25 3d 9a 23 66 69 6c 65  5f 68 61 6e 64 6c 65 25  |%=.#file_handle%|
00000820  0d 02 c6 2b e7 20 63 68  61 72 25 3d 31 33 20 8c  |...+. char%=13 .|
00000830  20 f2 72 65 74 75 72 6e  3a fd 20 c5 23 66 69 6c  | .return:. .#fil|
00000840  65 5f 68 61 6e 64 6c 65  25 3a e1 0d 02 d0 2b e7  |e_handle%:....+.|
00000850  20 63 68 61 72 25 3d 32  37 20 8c 20 f2 65 73 63  | char%=27 . .esc|
00000860  61 70 65 3a fd 20 c5 23  66 69 6c 65 5f 68 61 6e  |ape:. .#file_han|
00000870  64 6c 65 25 3a e1 0d 02  da 0b ef 20 63 68 61 72  |dle%:...... char|
00000880  25 0d 02 e4 14 fd 20 c5  23 66 69 6c 65 5f 68 61  |%..... .#file_ha|
00000890  6e 64 6c 65 25 0d 02 ee  05 e1 0d 02 f8 05 20 0d  |ndle%......... .|
000008a0  03 02 0c dd f2 72 65 74  75 72 6e 0d 03 0c 26 f2  |.....return...&.|
000008b0  6f 75 74 70 75 74 5f 73  65 71 75 65 6e 63 65 28  |output_sequence(|
000008c0  63 61 72 72 69 61 67 65  5f 72 65 74 75 72 6e 24  |carriage_return$|
000008d0  29 0d 03 16 0a 2a 46 58  33 2c 34 0d 03 20 0b ef  |)....*FX3,4.. ..|
000008e0  20 31 33 2c 31 30 0d 03  2a 0a 2a 46 58 33 2c 30  | 13,10..*.*FX3,0|
000008f0  0d 03 34 13 6c 69 6e 65  73 25 3d 6c 69 6e 65 73  |..4.lines%=lines|
00000900  25 2b 31 0d 03 3e 18 e7  20 c5 23 66 69 6c 65 5f  |%+1..>.. .#file_|
00000910  68 61 6e 64 6c 65 25 20  8c 20 e1 0d 03 48 1f e7  |handle% . ...H..|
00000920  20 6c 69 6e 65 73 25 83  36 36 20 3d 20 30 20 8c  | lines%.66 = 0 .|
00000930  20 f2 6e 65 77 73 68 65  65 74 0d 03 52 35 e7 20  | .newsheet..R5. |
00000940  6c 65 66 74 5f 6d 61 72  67 69 6e 25 20 8c 20 e3  |left_margin% . .|
00000950  20 49 25 3d 31 20 b8 20  6c 65 66 74 5f 6d 61 72  | I%=1 . left_mar|
00000960  67 69 6e 25 20 3a 20 ef  20 33 32 20 3a 20 ed 0d  |gin% : . 32 : ..|
00000970  03 5c 05 e1 0d 03 66 05  20 0d 03 70 0c dd f2 65  |.\....f. ..p...e|
00000980  73 63 61 70 65 0d 03 7a  18 63 68 61 72 25 3d 9a  |scape..z.char%=.|
00000990  23 66 69 6c 65 5f 68 61  6e 64 6c 65 25 0d 03 84  |#file_handle%...|
000009a0  39 e7 20 63 68 61 72 25  3d 37 31 20 8c 20 f2 6f  |9. char%=71 . .o|
000009b0  75 74 70 75 74 5f 73 65  71 75 65 6e 63 65 28 73  |utput_sequence(s|
000009c0  74 61 72 74 5f 64 6f 75  62 6c 65 5f 73 74 72 69  |tart_double_stri|
000009d0  6b 65 24 29 3a e1 0d 03  8e 37 e7 20 63 68 61 72  |ke$):....7. char|
000009e0  25 3d 37 32 20 8c 20 f2  6f 75 74 70 75 74 5f 73  |%=72 . .output_s|
000009f0  65 71 75 65 6e 63 65 28  65 6e 64 5f 64 6f 75 62  |equence(end_doub|
00000a00  6c 65 5f 73 74 72 69 6b  65 24 29 3a e1 0d 03 98  |le_strike$):....|
00000a10  25 e7 20 63 68 61 72 25  3d 34 35 20 8c 20 63 68  |%. char%=45 . ch|
00000a20  61 72 25 3d 9a 23 66 69  6c 65 5f 68 61 6e 64 6c  |ar%=.#file_handl|
00000a30  65 25 0d 03 a2 34 e7 20  63 68 61 72 25 3d 31 20  |e%...4. char%=1 |
00000a40  8c 20 f2 6f 75 74 70 75  74 5f 73 65 71 75 65 6e  |. .output_sequen|
00000a50  63 65 28 73 74 61 72 74  5f 75 6e 64 65 72 6c 69  |ce(start_underli|
00000a60  6e 65 24 29 3a e1 0d 03  ac 32 e7 20 63 68 61 72  |ne$):....2. char|
00000a70  25 3d 30 20 8c 20 f2 6f  75 74 70 75 74 5f 73 65  |%=0 . .output_se|
00000a80  71 75 65 6e 63 65 28 65  6e 64 5f 75 6e 64 65 72  |quence(end_under|
00000a90  6c 69 6e 65 24 29 3a e1  0d 03 b6 25 f4 20 41 6e  |line$):....%. An|
00000aa0  79 74 68 69 6e 67 20 65  6c 73 65 20 69 73 20 6e  |ything else is n|
00000ab0  6f 74 20 72 65 63 6f 67  6e 69 73 65 64 0d 03 c0  |ot recognised...|
00000ac0  38 f2 73 63 72 65 65 6e  5f 6d 65 73 73 61 67 65  |8.screen_message|
00000ad0  28 22 55 6e 6b 6e 6f 77  6e 20 45 73 63 61 70 65  |("Unknown Escape|
00000ae0  20 73 65 71 75 65 6e 63  65 20 28 69 67 6e 6f 72  | sequence (ignor|
00000af0  65 64 29 22 29 0d 03 ca  05 e1 0d 03 d4 05 20 0d  |ed)")......... .|
00000b00  03 de 1c dd f2 6f 75 74  70 75 74 5f 73 65 71 75  |.....output_sequ|
00000b10  65 6e 63 65 28 73 65 6e  64 24 29 0d 03 e8 16 e7  |ence(send$).....|
00000b20  20 a9 28 73 65 6e 64 24  29 20 3d 20 30 20 8c 20  | .(send$) = 0 . |
00000b30  e1 0d 03 f2 36 f4 20 50  72 65 76 65 6e 74 20 69  |....6. Prevent i|
00000b40  6e 74 65 72 72 75 70 74  69 6f 6e 20 6f 66 20 73  |nterruption of s|
00000b50  65 71 75 65 6e 63 65 20  62 79 20 45 73 63 61 70  |equence by Escap|
00000b60  65 20 6b 65 79 3a 2d 0d  03 fc 0c 2a 46 58 32 32  |e key:-....*FX22|
00000b70  39 2c 31 0d 04 06 17 e3  20 49 25 20 3d 20 31 20  |9,1..... I% = 1 |
00000b80  b8 20 a9 28 73 65 6e 64  24 29 0d 04 10 17 ef 20  |. .(send$)..... |
00000b90  31 2c 97 28 c1 73 65 6e  64 24 2c 49 25 2c 31 29  |1,.(.send$,I%,1)|
00000ba0  29 0d 04 1a 05 ed 0d 04  24 0c 2a 46 58 32 32 39  |).......$.*FX229|
00000bb0  2c 30 0d 04 2e 05 e1 0d  04 38 05 20 0d 04 42 0e  |,0.......8. ..B.|
00000bc0  dd f2 6e 65 77 73 68 65  65 74 0d 04 4c 18 e7 20  |..newsheet..L.. |
00000bd0  73 68 65 65 74 5f 6d 6f  64 65 20 3d 20 30 20 8c  |sheet_mode = 0 .|
00000be0  20 e1 0d 04 56 1d d4 31  2c 2d 31 32 2c 31 35 30  | ...V..1,-12,150|
00000bf0  2c 34 3a d4 31 2c 2d 31  32 2c 31 32 30 2c 36 0d  |,4:.1,-12,120,6.|
00000c00  04 60 48 f2 73 63 72 65  65 6e 5f 6d 65 73 73 61  |.`H.screen_messa|
00000c10  67 65 28 22 45 6e 64 20  6f 66 20 70 61 67 65 2e  |ge("End of page.|
00000c20  20 20 49 6e 73 65 72 74  20 6e 65 77 20 73 68 65  |  Insert new she|
00000c30  65 74 2c 20 74 68 65 6e  20 70 72 65 73 73 20 61  |et, then press a|
00000c40  20 6b 65 79 2e 22 29 0d  04 6a 0b 2a 46 58 31 35  | key.")..j.*FX15|
00000c50  2c 31 0d 04 74 09 f5 20  fd 20 a5 0d 04 7e 50 f2  |,1..t.. . ...~P.|
00000c60  6f 75 74 70 75 74 5f 73  65 71 75 65 6e 63 65 28  |output_sequence(|
00000c70  6e 6f 5f 73 6b 69 70 5f  6f 76 65 72 5f 70 65 72  |no_skip_over_per|
00000c80  66 24 20 2b 20 75 73 5f  63 68 61 72 61 63 74 65  |f$ + us_characte|
00000c90  72 5f 73 65 74 24 20 2b  20 73 74 61 72 74 5f 65  |r_set$ + start_e|
00000ca0  6d 70 68 61 73 69 73 65  64 24 29 0d 04 88 05 e1  |mphasised$).....|
00000cb0  0d 04 92 05 20 0d 04 9c  0d dd f2 6e 65 77 64 69  |.... ......newdi|
00000cc0  73 6b 0d 04 a6 57 f2 73  63 72 65 65 6e 5f 6d 65  |sk...W.screen_me|
00000cd0  73 73 61 67 65 28 22 45  6e 64 20 6f 66 20 66 69  |ssage("End of fi|
00000ce0  72 73 74 20 66 69 6c 65  2e 20 20 49 6e 73 65 72  |rst file.  Inser|
00000cf0  74 20 73 65 63 6f 6e 64  20 64 69 73 6b 2c 20 74  |t second disk, t|
00000d00  68 65 6e 20 70 72 65 73  73 20 61 20 6b 65 79 2e  |hen press a key.|
00000d10  22 20 2b 20 bd 28 37 29  29 0d 04 b0 33 d4 2d 31  |" + .(7))...3.-1|
00000d20  2c 31 32 38 2c 30 2c 30  3a d4 2d 31 2c 31 32 37  |,128,0,0:.-1,127|
00000d30  2c 30 2c 30 3a d4 2d 31  2c 32 32 32 2c 30 2c 30  |,0,0:.-1,222,0,0|
00000d40  3a d4 2d 31 2c 31 33 31  2c 30 2c 30 0d 04 ba 27  |:.-1,131,0,0...'|
00000d50  d4 2d 31 2c 32 33 32 2c  30 2c 30 3a d4 2d 31 2c  |.-1,232,0,0:.-1,|
00000d60  31 39 38 2c 30 2c 30 3a  d4 2d 31 2c 31 39 37 2c  |198,0,0:.-1,197,|
00000d70  30 2c 30 0d 04 c4 0b 2a  46 58 31 35 2c 31 0d 04  |0,0....*FX15,1..|
00000d80  ce 09 f5 20 fd 20 a5 0d  04 d8 05 e1 0d 04 e2 05  |... . ..........|
00000d90  20 0d 04 ec 1d dd f2 73  63 72 65 65 6e 5f 6d 65  | ......screen_me|
00000da0  73 73 61 67 65 28 73 63  72 65 65 6e 24 29 0d 04  |ssage(screen$)..|
00000db0  f6 0a 2a 46 58 33 2c 34  0d 05 00 05 f1 0d 05 0a  |..*FX3,4........|
00000dc0  0b fb 30 3a fb 31 32 39  0d 05 14 15 f1 22 20 22  |..0:.129....." "|
00000dd0  3b 73 63 72 65 65 6e 24  3b 22 20 22 3b 0d 05 1e  |;screen$;" ";...|
00000de0  0b fb 31 3a fb 31 32 38  0d 05 28 05 f1 0d 05 32  |..1:.128..(....2|
00000df0  0a 2a 46 58 33 2c 30 0d  05 3c 05 e1 0d 05 46 05  |.*FX3,0..<....F.|
00000e00  20 0d 05 50 0f dd f2 71  75 65 73 74 69 6f 6e 73  | ..P...questions|
00000e10  0d 05 5a 12 ef 20 32 38  2c 30 2c 32 34 2c 33 39  |..Z.. 28,0,24,39|
00000e20  2c 34 0d 05 64 5b f1 27  bd 26 38 36 3b 22 44 6f  |,4..d[.'.&86;"Do|
00000e30  20 79 6f 75 20 77 69 73  68 20 74 6f 20 50 72 69  | you wish to Pri|
00000e40  6e 74 20 74 68 65 20 6d  61 6e 75 61 6c 2c 20 6f  |nt the manual, o|
00000e50  72 22 27 bd 26 38 36 3b  22 52 65 61 64 20 69 74  |r"'.&86;"Read it|
00000e60  20 6f 6e 20 74 68 65 20  73 63 72 65 65 6e 20 28  | on the screen (|
00000e70  50 2f 52 29 20 3f 22 3b  bd 26 38 37 3b 0d 05 6e  |P/R) ?";.&87;..n|
00000e80  52 e7 20 28 a5 20 84 20  33 32 29 20 3d 20 97 28  |R. (. . 32) = .(|
00000e90  22 72 22 29 20 8c 20 6f  66 66 5f 6c 69 6e 65 3d  |"r") . off_line=|
00000ea0  a3 20 3a 20 73 68 65 65  74 5f 6d 6f 64 65 3d a3  |. : sheet_mode=.|
00000eb0  20 3a 20 f1 22 52 65 61  64 22 20 3a 20 e5 20 8d  | : ."Read" : . .|
00000ec0  54 4e 46 20 20 8b 20 f1  22 50 72 69 6e 74 22 0d  |TNF  . ."Print".|
00000ed0  05 78 05 20 0d 05 82 29  f4 20 43 68 65 63 6b 20  |.x. ...). Check |
00000ee0  70 72 69 6e 74 65 72 20  63 6f 6e 6e 65 63 74 65  |printer connecte|
00000ef0  64 20 61 6e 64 20 6f 6e  20 6c 69 6e 65 0d 05 8c  |d and on line...|
00000f00  0f ef 20 32 2c 31 2c 30  2c 31 2c 30 0d 05 96 0a  |.. 2,1,0,1,0....|
00000f10  2a 46 58 33 2c 34 0d 05  a0 0f 64 65 6c 61 79 25  |*FX3,4....delay%|
00000f20  3d 91 2b 31 30 0d 05 aa  10 f5 20 fd 20 91 3e 64  |=.+10..... . .>d|
00000f30  65 6c 61 79 25 0d 05 b4  32 e7 20 96 28 2d 34 29  |elay%...2. .(-4)|
00000f40  3d 36 33 20 8c 20 6f 66  66 5f 6c 69 6e 65 3d a3  |=63 . off_line=.|
00000f50  20 3a 20 e5 20 8d 64 70  45 20 20 8b 20 6f 66 66  | : . .dpE  . off|
00000f60  5f 6c 69 6e 65 3d b9 0d  05 be 1b d4 2d 31 2c 32  |_line=......-1,2|
00000f70  33 33 2c 30 2c 30 3a d4  2d 31 2c 32 31 36 2c 30  |33,0,0:.-1,216,0|
00000f80  2c 30 0d 05 c8 52 f1 27  27 bd 26 38 36 3b 22 50  |,0...R.''.&86;"P|
00000f90  72 69 6e 74 65 72 20 69  73 20 6f 66 66 2d 6c 69  |rinter is off-li|
00000fa0  6e 65 2e 22 27 bd 26 38  36 3b 22 50 6c 65 61 73  |ne."'.&86;"Pleas|
00000fb0  65 20 65 6e 61 62 6c 65  2c 20 74 68 65 6e 20 72  |e enable, then r|
00000fc0  65 2d 72 75 6e 20 74 68  65 20 70 72 6f 67 72 61  |e-run the progra|
00000fd0  6d 2e 22 27 0d 05 d2 0b  2a 46 58 32 31 2c 33 0d  |m."'....*FX21,3.|
00000fe0  05 dc 05 e1 0d 05 e6 05  20 0d 05 f0 72 f1 27 bd  |........ ...r.'.|
00000ff0  26 38 36 3b 22 44 6f 20  79 6f 75 20 77 69 73 68  |&86;"Do you wish|
00001000  20 74 6f 20 62 65 20 70  72 6f 6d 70 74 65 64 20  | to be prompted |
00001010  74 6f 20 69 6e 73 65 72  74 20 61 20 22 3b bd 26  |to insert a ";.&|
00001020  38 36 3b 22 6e 65 77 20  73 68 65 65 74 20 6f 66  |86;"new sheet of|
00001030  20 70 61 70 65 72 20 66  6f 72 20 65 61 63 68 20  | paper for each |
00001040  70 61 67 65 20 28 59 2f  4e 29 20 22 3b bd 26 38  |page (Y/N) ";.&8|
00001050  36 3b 22 3f 22 3b bd 26  38 37 3b 0d 05 fa 43 e7  |6;"?";.&87;...C.|
00001060  20 28 a5 20 84 20 33 32  29 20 3d 20 97 28 22 79  | (. . 32) = .("y|
00001070  22 29 20 8c 20 73 68 65  65 74 5f 6d 6f 64 65 3d  |") . sheet_mode=|
00001080  b9 3a f1 22 59 65 73 22  20 20 8b 20 73 68 65 65  |.:."Yes"  . shee|
00001090  74 5f 6d 6f 64 65 3d a3  3a f1 22 4e 6f 22 0d 06  |t_mode=.:."No"..|
000010a0  04 05 20 0d 06 0e 60 f1  27 bd 26 38 36 3b 22 44  |.. ...`.'.&86;"D|
000010b0  6f 20 79 6f 75 20 77 69  73 68 20 74 6f 20 62 65  |o you wish to be|
000010c0  20 70 72 6f 6d 70 74 65  64 20 74 6f 20 63 68 61  | prompted to cha|
000010d0  6e 67 65 22 27 bd 26 38  36 3b 22 64 69 73 6b 73  |nge"'.&86;"disks|
000010e0  20 66 6f 72 20 74 68 65  20 73 65 63 6f 6e 64 20  | for the second |
000010f0  66 69 6c 65 20 28 59 2f  4e 29 20 3f 22 3b bd 26  |file (Y/N) ?";.&|
00001100  38 37 3b 0d 06 18 47 e7  20 28 a5 20 84 20 33 32  |87;...G. (. . 32|
00001110  29 20 3d 20 97 28 22 79  22 29 20 8c 20 64 69 73  |) = .("y") . dis|
00001120  6b 5f 63 68 61 6e 67 65  25 3d b9 3a f1 22 59 65  |k_change%=.:."Ye|
00001130  73 22 20 20 8b 20 64 69  73 6b 5f 63 68 61 6e 67  |s"  . disk_chang|
00001140  65 25 3d a3 3a f1 22 4e  6f 22 0d 06 22 05 20 0d  |e%=.:."No"..". .|
00001150  06 2c 7a f1 27 bd 26 38  36 3b 22 49 73 20 74 68  |.,z.'.&86;"Is th|
00001160  65 20 66 69 72 73 74 20  66 69 6c 65 20 63 61 6c  |e first file cal|
00001170  6c 65 64 22 3b bd 26 38  33 3b 22 22 22 22 3b 66  |led";.&83;"""";f|
00001180  69 6c 65 6e 61 6d 65 41  24 3b 22 22 22 22 3b bd  |ilenameA$;"""";.|
00001190  26 38 36 3b 22 69 6e 22  27 bd 26 38 36 3b 22 74  |&86;"in"'.&86;"t|
000011a0  68 65 20 63 75 72 72 65  6e 74 20 64 72 69 76 65  |he current drive|
000011b0  2f 64 69 72 65 63 74 6f  72 79 20 28 59 2f 4e 29  |/directory (Y/N)|
000011c0  20 3f 22 3b bd 26 38 37  3b 0d 06 36 0c 6b 65 79  | ?";.&87;..6.key|
000011d0  25 20 3d 20 a5 0d 06 40  66 e7 20 28 6b 65 79 25  |% = ...@f. (key%|
000011e0  20 84 20 33 32 29 20 3d  20 97 28 22 79 22 29 20  | . 32) = .("y") |
000011f0  84 20 6b 65 79 25 20 3d  20 31 33 20 8c 20 f1 22  |. key% = 13 . ."|
00001200  59 65 73 22 3b 20 8b 20  f1 22 4e 6f 22 27 bd 26  |Yes"; . ."No"'.&|
00001210  38 32 3b 22 45 6e 74 65  72 20 6e 65 77 20 66 69  |82;"Enter new fi|
00001220  6c 65 6e 61 6d 65 22 3b  bd 26 38 37 3b 3a e8 22  |lename";.&87;:."|
00001230  22 66 69 6c 65 6e 61 6d  65 41 24 0d 06 4a 7b f1  |"filenameA$..J{.|
00001240  27 bd 26 38 36 3b 22 49  73 20 74 68 65 20 73 65  |'.&86;"Is the se|
00001250  63 6f 6e 64 20 66 69 6c  65 20 63 61 6c 6c 65 64  |cond file called|
00001260  22 3b bd 26 38 33 3b 22  22 22 22 3b 66 69 6c 65  |";.&83;"""";file|
00001270  6e 61 6d 65 42 24 3b 22  22 22 22 3b bd 26 38 36  |nameB$;"""";.&86|
00001280  3b 22 69 6e 22 27 bd 26  38 36 3b 22 74 68 65 20  |;"in"'.&86;"the |
00001290  63 75 72 72 65 6e 74 20  64 72 69 76 65 2f 64 69  |current drive/di|
000012a0  72 65 63 74 6f 72 79 20  28 59 2f 4e 29 20 3f 22  |rectory (Y/N) ?"|
000012b0  3b bd 26 38 37 3b 0d 06  54 0c 6b 65 79 25 20 3d  |;.&87;..T.key% =|
000012c0  20 a5 0d 06 5e 66 e7 20  28 6b 65 79 25 20 84 20  | ...^f. (key% . |
000012d0  33 32 29 20 3d 20 97 28  22 79 22 29 20 84 20 6b  |32) = .("y") . k|
000012e0  65 79 25 20 3d 20 31 33  20 8c 20 f1 22 59 65 73  |ey% = 13 . ."Yes|
000012f0  22 3b 20 8b 20 f1 22 4e  6f 22 27 bd 26 38 32 3b  |"; . ."No"'.&82;|
00001300  22 45 6e 74 65 72 20 6e  65 77 20 66 69 6c 65 6e  |"Enter new filen|
00001310  61 6d 65 22 3b bd 26 38  37 3b 3a e8 22 22 66 69  |ame";.&87;:.""fi|
00001320  6c 65 6e 61 6d 65 42 24  0d 06 68 05 20 0d 06 72  |lenameB$..h. ..r|
00001330  5f f1 27 bd 26 38 36 3b  22 44 6f 20 79 6f 75 20  |_.'.&86;"Do you |
00001340  77 69 73 68 20 74 6f 20  73 74 61 72 74 20 74 68  |wish to start th|
00001350  65 20 70 72 69 6e 74 20  66 72 6f 6d 22 27 bd 26  |e print from"'.&|
00001360  38 36 3b 22 6f 74 68 65  72 20 74 68 61 6e 20 74  |86;"other than t|
00001370  68 65 20 66 69 72 73 74  20 70 61 67 65 20 28 59  |he first page (Y|
00001380  2f 4e 29 20 3f 22 3b bd  26 38 37 3b 0d 06 7c 3d  |/N) ?";.&87;..|=|
00001390  e7 20 28 a5 20 84 20 33  32 29 20 3d 20 97 28 22  |. (. . 32) = .("|
000013a0  79 22 29 20 8c 20 f1 22  59 65 73 22 3b 20 8b 20  |y") . ."Yes"; . |
000013b0  f1 22 4e 6f 22 3b 3a 73  74 61 72 74 70 61 67 65  |."No";:startpage|
000013c0  25 3d 30 3a e5 8d 64 6a  46 0d 06 86 1c e7 20 bc  |%=0:..djF..... .|
000013d0  3e 31 39 20 8c 20 ef 20  31 30 2c 32 36 2c 33 31  |>19 . . 10,26,31|
000013e0  2c 30 2c 32 33 0d 06 90  3d f1 27 27 bd 26 38 35  |,0,23...=.''.&85|
000013f0  3b 22 28 55 73 65 20 6e  65 67 61 74 69 76 65 20  |;"(Use negative |
00001400  6e 6f 2e 73 20 66 6f 72  20 43 6f 6e 74 65 6e 74  |no.s for Content|
00001410  73 20 70 61 67 65 73 29  22 3b bd 31 33 3b bd 31  |s pages)";.13;.1|
00001420  31 3b 0d 06 9a 37 f1 bd  26 38 32 3b 22 45 6e 74  |1;...7..&82;"Ent|
00001430  65 72 20 73 74 61 72 74  20 70 61 67 65 20 6e 75  |er start page nu|
00001440  6d 62 65 72 22 3b bd 26  38 37 3b 3a e8 22 22 73  |mber";.&87;:.""s|
00001450  74 61 72 74 70 61 67 65  25 0d 06 a4 20 f1 8a 32  |tartpage%... ..2|
00001460  35 2c bc 2d 31 29 3b 73  74 61 72 74 70 61 67 65  |5,.-1);startpage|
00001470  25 3b 89 28 33 39 2d b1  29 0d 06 ae 49 e7 20 28  |%;.(39-.)...I. (|
00001480  73 74 61 72 74 70 61 67  65 25 3c 3d 66 69 6c 65  |startpage%<=file|
00001490  42 5f 6d 61 78 5f 70 61  67 65 29 20 80 20 28 73  |B_max_page) . (s|
000014a0  74 61 72 74 70 61 67 65  25 3e 3d 2d 63 6f 6e 74  |tartpage%>=-cont|
000014b0  65 6e 74 73 5f 70 61 67  65 73 29 20 8c 20 8d 64  |ents_pages) . .d|
000014c0  6a 46 0d 06 b8 26 f4 20  22 45 72 72 6f 72 21 20  |jF...&. "Error! |
000014d0  54 6f 6f 20 6c 61 72 67  65 21 20 45 6e 74 65 72  |Too large! Enter|
000014e0  20 61 67 61 69 6e 2e 22  0d 06 c2 27 d4 31 2c 2d  | again."...'.1,-|
000014f0  31 32 2c 33 32 2c 38 3a  d4 2d 31 2c 31 32 38 2c  |12,32,8:.-1,128,|
00001500  30 2c 30 3a d4 2d 31 2c  31 32 38 2c 30 2c 30 0d  |0,0:.-1,128,0,0.|
00001510  06 cc 33 d4 2d 31 2c 31  39 33 2c 30 2c 30 3a d4  |..3.-1,193,0,0:.|
00001520  2d 31 2c 31 32 38 2c 30  2c 30 3a d4 2d 31 2c 31  |-1,128,0,0:.-1,1|
00001530  34 33 2c 30 2c 30 3a d4  2d 31 2c 32 31 34 2c 30  |43,0,0:.-1,214,0|
00001540  2c 30 0d 06 d6 27 d4 2d  31 2c 31 32 38 2c 30 2c  |,0...'.-1,128,0,|
00001550  30 3a d4 2d 31 2c 31 39  32 2c 30 2c 30 3a d4 2d  |0:.-1,192,0,0:.-|
00001560  31 2c 31 36 32 2c 30 2c  30 0d 06 e0 10 ef 20 31  |1,162,0,0..... 1|
00001570  31 3a 20 e5 20 8d 74 5a  46 0d 06 ea 0c 6c 69 6e  |1: . .tZF....lin|
00001580  65 73 25 3d 30 0d 06 f4  13 ef 20 32 33 2c 31 2c  |es%=0..... 23,1,|
00001590  30 3b 30 3b 30 3b 30 3b  0d 06 fe 0f 64 65 6c 61  |0;0;0;0;....dela|
000015a0  79 25 3d 91 2b 38 30 0d  07 08 10 f5 20 fd 20 91  |y%=.+80..... . .|
000015b0  3e 64 65 6c 61 79 25 0d  07 12 05 e1 0d 07 1c 05  |>delay%.........|
000015c0  20 0d 07 26 16 f4 20 20  44 45 46 50 52 4f 43 66  | ..&..  DEFPROCf|
000015d0  69 6e 64 70 61 67 65 0d  07 30 4a f4 20 54 68 69  |indpage..0J. Thi|
000015e0  73 20 69 73 20 61 20 67  65 6e 65 72 61 6c 20 72  |s is a general r|
000015f0  6f 75 74 69 6e 65 20 66  6f 72 20 61 6e 79 20 66  |outine for any f|
00001600  69 6c 65 2c 20 62 75 74  20 69 73 20 76 65 72 79  |ile, but is very|
00001610  20 73 6c 6f 77 20 61 73  20 69 74 20 72 65 61 64  | slow as it read|
00001620  73 0d 07 3a 4b f4 20 65  61 63 68 20 62 79 74 65  |s..:K. each byte|
00001630  2c 20 63 6f 75 6e 74 69  6e 67 20 43 61 72 72 69  |, counting Carri|
00001640  61 67 65 2d 52 65 74 75  72 6e 73 2e 20 20 53 65  |age-Returns.  Se|
00001650  65 20 6c 69 6e 65 20 32  30 35 30 20 66 6f 72 20  |e line 2050 for |
00001660  6e 65 77 20 76 65 72 73  69 6f 6e 2e 0d 07 44 05  |new version...D.|
00001670  20 0d 07 4e 3e e7 20 73  74 61 72 74 70 61 67 65  | ..N>. startpage|
00001680  25 3c 30 20 8c 20 73 74  61 72 74 70 61 67 65 25  |%<0 . startpage%|
00001690  20 3d 20 2d 73 74 61 72  74 70 61 67 65 25 20 2d  | = -startpage% -|
000016a0  20 63 6f 6e 74 65 6e 74  73 5f 70 61 67 65 73 0d  | contents_pages.|
000016b0  07 58 73 e7 20 73 74 61  72 74 70 61 67 65 25 3e  |.Xs. startpage%>|
000016c0  66 69 6c 65 41 5f 6d 61  78 5f 70 61 67 65 20 8c  |fileA_max_page .|
000016d0  20 74 61 72 67 65 74 25  3d 28 73 74 61 72 74 70  | target%=(startp|
000016e0  61 67 65 25 2d 66 69 6c  65 41 5f 6d 61 78 5f 70  |age%-fileA_max_p|
000016f0  61 67 65 2d 31 29 2a 36  36 20 8b 20 74 61 72 67  |age-1)*66 . targ|
00001700  65 74 25 3d 28 73 74 61  72 74 70 61 67 65 25 2b  |et%=(startpage%+|
00001710  63 6f 6e 74 65 6e 74 73  5f 70 61 67 65 73 29 2a  |contents_pages)*|
00001720  36 36 0d 07 62 13 e7 20  74 61 72 67 65 74 25 3d  |66..b.. target%=|
00001730  30 20 8c 20 e1 0d 07 6c  13 53 25 3d 66 69 6c 65  |0 . ...l.S%=file|
00001740  5f 68 61 6e 64 6c 65 25  0d 07 76 3a f2 73 63 72  |_handle%..v:.scr|
00001750  65 65 6e 5f 6d 65 73 73  61 67 65 28 22 53 65 61  |een_message("Sea|
00001760  72 63 68 69 6e 67 20 66  6f 72 20 70 61 67 65 20  |rching for page |
00001770  22 20 2b 20 c3 73 74 61  72 74 70 61 67 65 25 29  |" + .startpage%)|
00001780  3a f1 0d 07 80 54 e7 20  73 74 61 72 74 70 61 67  |:....T. startpag|
00001790  65 25 3e 66 69 6c 65 41  5f 6d 61 78 5f 70 61 67  |e%>fileA_max_pag|
000017a0  65 20 8c 20 6f 66 66 73  65 74 25 3d 66 69 6c 65  |e . offset%=file|
000017b0  41 5f 6d 61 78 5f 70 61  67 65 2b 31 20 8b 20 6f  |A_max_page+1 . o|
000017c0  66 66 73 65 74 25 3d 2d  63 6f 6e 74 65 6e 74 73  |ffset%=-contents|
000017d0  5f 70 61 67 65 73 0d 07  8a 05 20 0d 07 94 0a 2a  |_pages.... ....*|
000017e0  46 58 33 2c 34 0d 07 9e  05 f5 0d 07 a8 0b 43 25  |FX3,4.........C%|
000017f0  3d 9a 23 53 25 0d 07 b2  1d e7 20 43 25 3d 31 33  |=.#S%..... C%=13|
00001800  20 8c 20 6c 69 6e 65 73  25 3d 6c 69 6e 65 73 25  | . lines%=lines%|
00001810  2b 31 0d 07 bc 3d e7 20  6c 69 6e 65 73 25 83 36  |+1...=. lines%.6|
00001820  36 3d 30 20 8c 20 f1 bd  31 33 3b 22 46 6f 75 6e  |6=0 . ..13;"Foun|
00001830  64 20 70 61 67 65 20 22  3b 6c 69 6e 65 73 25 81  |d page ";lines%.|
00001840  36 36 2b 6f 66 66 73 65  74 25 3b 22 20 22 3b 0d  |66+offset%;" ";.|
00001850  07 c6 1a e7 20 6c 69 6e  65 73 25 2d 74 61 72 67  |.... lines%-targ|
00001860  65 74 25 20 8c 20 fd 20  a3 0d 07 d0 07 fd 20 b9  |et% . . ...... .|
00001870  0d 07 da 06 f1 27 0d 07  e4 0a 2a 46 58 33 2c 30  |.....'....*FX3,0|
00001880  0d 07 ee 05 e1 0d 07 f8  05 20 0d 08 02 0e dd f2  |......... ......|
00001890  66 69 6e 64 70 61 67 65  0d 08 0c 0a f7 20 8d 44  |findpage..... .D|
000018a0  5c 48 0d 08 16 3f e7 20  73 74 61 72 74 70 61 67  |\H...?. startpag|
000018b0  65 25 20 3c 20 30 20 8c  20 73 74 61 72 74 70 61  |e% < 0 . startpa|
000018c0  67 65 25 20 3d 20 66 69  6c 65 42 5f 6d 61 78 5f  |ge% = fileB_max_|
000018d0  70 61 67 65 20 2d 20 73  74 61 72 74 70 61 67 65  |page - startpage|
000018e0  25 0d 08 20 17 e3 20 49  25 3d 31 20 b8 20 73 74  |%.. .. I%=1 . st|
000018f0  61 72 74 70 61 67 65 25  0d 08 2a 0e f3 20 70 6f  |artpage%..*.. po|
00001900  69 6e 74 65 72 25 0d 08  34 05 ed 0d 08 3e 1b cf  |inter%..4....>..|
00001910  23 66 69 6c 65 5f 68 61  6e 64 6c 65 25 3d 70 6f  |#file_handle%=po|
00001920  69 6e 74 65 72 25 0d 08  48 05 e1 0d 08 52 05 20  |inter%..H....R. |
00001930  0d 08 5c 4b dc 20 20 26  32 31 35 36 2c 20 26 32  |..\K.  &2156, &2|
00001940  39 39 37 2c 20 26 33 33  30 45 2c 20 26 33 43 30  |997, &330E, &3C0|
00001950  46 2c 20 26 34 36 31 42  2c 20 26 34 46 43 45 2c  |F, &461B, &4FCE,|
00001960  20 26 35 38 37 39 2c 20  26 36 32 38 34 2c 20 26  | &5879, &6284, &|
00001970  36 43 33 45 2c 20 26 37  35 30 35 0d 08 66 4b dc  |6C3E, &7505..fK.|
00001980  20 20 26 37 43 42 46 2c  20 26 38 34 30 46 2c 20  |  &7CBF, &840F, |
00001990  26 38 44 35 35 2c 20 26  39 34 37 45 2c 20 26 39  |&8D55, &947E, &9|
000019a0  42 45 44 2c 20 26 41 35  41 35 2c 20 26 41 43 37  |BED, &A5A5, &AC7|
000019b0  42 2c 20 26 42 34 39 32  2c 20 26 42 43 41 41 2c  |B, &B492, &BCAA,|
000019c0  20 26 43 33 37 38 0d 08  70 4b dc 20 20 26 43 41  | &C378..pK.  &CA|
000019d0  42 45 2c 20 26 44 34 45  34 2c 20 26 44 43 42 45  |BE, &D4E4, &DCBE|
000019e0  2c 20 26 45 34 33 42 2c  20 26 45 42 37 31 2c 20  |, &E43B, &EB71, |
000019f0  26 46 33 38 42 2c 20 26  46 42 44 46 2c 26 31 30  |&F38B, &FBDF,&10|
00001a00  35 39 32 2c 26 31 30 45  30 36 2c 26 31 31 37 39  |592,&10E06,&1179|
00001a10  34 0d 08 7a 4b dc 20 26  31 32 31 33 30 2c 26 31  |4..zK. &12130,&1|
00001a20  32 34 39 36 2c 26 31 32  44 37 33 2c 26 31 33 33  |2496,&12D73,&133|
00001a30  45 32 2c 26 31 33 41 32  39 2c 20 20 20 20 26 30  |E2,&13A29,    &0|
00001a40  2c 20 20 26 36 41 32 2c  20 20 26 44 33 43 2c 20  |,  &6A2,  &D3C, |
00001a50  26 31 32 31 43 2c 20 26  31 38 36 41 0d 08 84 4b  |&121C, &186A...K|
00001a60  dc 20 20 26 32 30 30 34  2c 20 26 32 35 34 36 2c  |.  &2004, &2546,|
00001a70  20 26 32 42 46 30 2c 20  26 33 35 36 38 2c 20 26  | &2BF0, &3568, &|
00001a80  33 46 33 38 2c 20 26 34  37 34 31 2c 20 26 35 30  |3F38, &4741, &50|
00001a90  37 42 2c 20 26 35 39 34  33 2c 20 26 36 32 31 36  |7B, &5943, &6216|
00001aa0  2c 20 26 36 39 30 39 0d  08 8e 4b dc 20 20 26 37  |, &6909...K.  &7|
00001ab0  31 30 39 2c 20 26 37 42  30 38 2c 20 26 38 34 35  |109, &7B08, &845|
00001ac0  46 2c 20 26 38 42 34 36  2c 20 26 39 33 36 42 2c  |F, &8B46, &936B,|
00001ad0  20 26 39 42 42 36 2c 20  26 41 32 39 42 2c 20 26  | &9BB6, &A29B, &|
00001ae0  41 38 41 41 2c 20 26 42  31 46 33 2c 20 26 42 34  |A8AA, &B1F3, &B4|
00001af0  35 34 0d 08 98 4b dc 20  20 26 42 38 41 46 2c 20  |54...K.  &B8AF, |
00001b00  26 42 45 43 32 2c 20 26  43 34 30 39 2c 20 26 43  |&BEC2, &C409, &C|
00001b10  41 36 46 2c 20 26 43 46  42 33 2c 20 26 44 35 34  |A6F, &CFB3, &D54|
00001b20  33 2c 20 26 44 42 35 33  2c 20 26 45 31 33 44 2c  |3, &DB53, &E13D,|
00001b30  20 26 45 37 35 31 2c 20  26 45 44 33 38 0d 08 a2  | &E751, &ED38...|
00001b40  4b dc 20 20 26 46 33 37  41 2c 20 26 46 39 31 39  |K.  &F37A, &F919|
00001b50  2c 20 26 46 45 35 43 2c  26 31 30 36 30 38 2c 26  |, &FE5C,&10608,&|
00001b60  31 30 42 30 37 2c 26 31  31 33 31 30 2c 26 31 31  |10B07,&11310,&11|
00001b70  42 36 30 2c 26 31 31 44  45 41 2c 26 31 32 38 38  |B60,&11DEA,&1288|
00001b80  41 2c 26 31 33 32 32 35  0d 08 ac 34 f4 20 44 61  |A,&13225...4. Da|
00001b90  74 61 20 66 6f 72 20 43  6f 6e 74 65 6e 74 73 20  |ta for Contents |
00001ba0  70 61 67 65 73 20 69 2c  20 69 69 2c 20 69 69 69  |pages i, ii, iii|
00001bb0  20 28 2d 31 2c 2d 32 2c  2d 33 21 29 0d 08 b6 1a  | (-1,-2,-3!)....|
00001bc0  dc 20 20 20 26 34 33 37  2c 20 26 31 30 46 44 2c  |.   &437, &10FD,|
00001bd0  20 26 31 44 31 31 0d ff                           | &1D11..|
00001bd8