!�"  �Spool7  vs 1.0  (ceefax)
 �"   �Peter Vince     2/2/86
#�"�(Prestel Mailbox  372272713)
( 
2
� � �DLD
<�7:�=&2800
FG�'�141�6"�Mode 7 to Ascii Spooler"'�141�6"�Mode 7 to Ascii Spooler"
P�7;�&93;�23,"`")'
Z��"�Spool7 takes mode-7 screen dumps and   �spools out to disc an ascii version,   �stripped of all control characters     �(colour change, new background etc)."
d��"�Graphics are replaced by a *, and any  �trailing spaces to the end of a line   �are removed.  23, 24, or 25 lines are  �spooled, depending on whether the oper-�ator says the pages are Prestel, CEEFAX�or full Mode-7."
n��'"�As well as single pages, multiple page �files (VidiEditor standard _ one page  �per &400 bytes) may also be spooled.   �The resultant file may then be loaded  �into a wordprocessor so that it can be �edited and printed."
x)�6,24)"�Press a key to continue...";
����
� 
��28,0,24,39,5,12,26
���0,6)"�  The mode-7 characters { \ } are not  �available on most printers, and so are �shown as�<�w�1/4�{�>�etc. so that they �may be easily recognised when using the�wordprocessor."
�D�'"�  Similarly, the block character�(�)�is�shown as�<�w #�{�>."
���'"�  Double height lines are annotated     <double>�on the following line, and    �each page is identified at the top by   << Page 5 of 7 >>�for example."
�)�6,24)"�Press a key to continue...";
����
� 
�
� rope 30
��28,0,24,39,5:�
��26:�0,6)
�.�"�Please enter destination drive�:";:A%=�

(� A%<48 � A%>51 � �13,7:�dz@ � �A%

�oscli("DRIVE "+�A%)

�'"�and file name� "A$

"�oscli("SPOOL "+A$)

,*FX3,16

6)�'"�and now the Source drive�:";:S%=�

@+� S%<48 � S%>51 � �13,11,7:�TvA � �S%

J 

T�

^�

h�oscli("CAT"+�S%)

r'�''"�(or RETURN to finish)";�0,�-2)

|"�"�Enter source file name�:"N$

��(30);�0,�-1)

�8� N$="" � �#0:�'"�:"�A%"."A$" (dest file) Closed.":�

�S$=":"+�S%+"."+N$

�T%=� S$

�6� T%=0 � �:�"�File """;N$;""" not found";�7':�DhA

� 

�D�"�Prestel, CEEFAX, or Mode 7 pages?"'"�(P/C/7)�";:type%=� � &DF

�a� type%=�"P" � lines%=22:�"Prestel" �� type%=�"C" � lines%=23:�"Ceefax" � lines%=24:�"Mode 7"

� 

�E%=�#T%

�D�'"This file has ";(E%+110)�&400;" page";:� E%>&500 � �"s"' � �'

��#T%

�J� E%>&5400 � �(11);�(7)"�which is too large to handle, sorry!"':�DhA
�oscli("LOAD "+S$+" 2800")
�screenprint
�'"�End of file"
&� �
0 
:� �screenprint
D
*FX3,0
N� P%=0 � E%-100 �&400
X5�'"<< Page ";P%�&400+1;" of ";(E%+128)�&400;" >>"
b� 13
l 
v� Y%=0 � lines%
�gf%=�:df%=�:lf%=�
�H%=&2800+Y%*40+P%
� 
�lim%=-1
�� X%=39 � 0 �-1
�#� (H%?X%�&7F)>32 � lim%=X%:X%=0
��
� 
�� lim%<39 � lf%=�
�� lim%=-1 � �d@C
� 
�� X%=0 � lim%
�ch%=H%?X%�&7F
� ch%>31 �DHC
 
� ch%=13 df%=�
 � ch%>0 � ch%<8 gf%=�
*� ch%>16 � ch%<24 gf%=&20
4op%=32:�tlC
> 
Hop%=ch%
R(� ch% � gf% � ch%<>32 � op%=42:�tlC
\$� ch%=35 � op%=96:�tlC: � pound
f0� ch%=92 � �"<[1/2]";: op%=62 :�tlC : � 1/2
p#� ch%=95 � op%=35:�tlC: � hash
z(� ch%=96 � op%=95:�tlC: � underline
�.� ch%=123 � �"<[1/4]";:op%=62:�tlC: � 1/4
�.� ch%=125 � �"<[3/4]";:op%=62:�tlC: � 3/4
�1� ch%=127 � �"<[#]";  :op%=62:�tlC: � delete
� 
�
�op%:�
�� df% Y%=Y%+1:�'"<double>";
�
� lf% �10
��13
��:� Line
� 
��:� Page
�*FX3,16
��
 
��oscli(os$)

$rope=os$
$X%=rope:Y%=X%�256
.
�&FFF7
8�
B 
L*FX3,16
V	*FX15
` �''"�"�18;:�:�" at line ";�'
j�#0
t�
�

00000000  0d 00 0a 21 f4 22 20 20  83 53 70 6f 6f 6c 37 20  |...!."  .Spool7 |
00000010  20 76 73 20 31 2e 30 20  20 28 63 65 65 66 61 78  | vs 1.0  (ceefax|
00000020  29 0d 00 14 20 f4 22 20  20 20 82 50 65 74 65 72  |)... ."   .Peter|
00000030  20 56 69 6e 63 65 20 20  20 20 20 32 2f 32 2f 38  | Vince     2/2/8|
00000040  36 0d 00 1e 23 f4 22 85  28 50 72 65 73 74 65 6c  |6...#.".(Prestel|
00000050  20 4d 61 69 6c 62 6f 78  20 20 33 37 32 32 37 32  | Mailbox  372272|
00000060  37 31 33 29 0d 00 28 05  20 0d 00 32 0d ee 20 85  |713)..(. ..2.. .|
00000070  20 e5 8d 44 4c 44 0d 00  3c 0e eb 37 3a d3 3d 26  | ..DLD..<..7:.=&|
00000080  32 38 30 30 0d 00 46 47  f1 27 bd 31 34 31 89 36  |2800..FG.'.141.6|
00000090  22 83 4d 6f 64 65 20 37  20 74 6f 20 41 73 63 69  |".Mode 7 to Asci|
000000a0  69 20 53 70 6f 6f 6c 65  72 22 27 bd 31 34 31 89  |i Spooler"'.141.|
000000b0  36 22 83 4d 6f 64 65 20  37 20 74 6f 20 41 73 63  |6".Mode 7 to Asc|
000000c0  69 69 20 53 70 6f 6f 6c  65 72 22 0d 00 50 16 f1  |ii Spooler"..P..|
000000d0  89 37 3b bd 26 39 33 3b  c4 32 33 2c 22 60 22 29  |.7;.&93;.23,"`")|
000000e0  27 0d 00 5a a4 f1 22 86  53 70 6f 6f 6c 37 20 74  |'..Z..".Spool7 t|
000000f0  61 6b 65 73 20 6d 6f 64  65 2d 37 20 73 63 72 65  |akes mode-7 scre|
00000100  65 6e 20 64 75 6d 70 73  20 61 6e 64 20 20 20 86  |en dumps and   .|
00000110  73 70 6f 6f 6c 73 20 6f  75 74 20 74 6f 20 64 69  |spools out to di|
00000120  73 63 20 61 6e 20 61 73  63 69 69 20 76 65 72 73  |sc an ascii vers|
00000130  69 6f 6e 2c 20 20 20 86  73 74 72 69 70 70 65 64  |ion,   .stripped|
00000140  20 6f 66 20 61 6c 6c 20  63 6f 6e 74 72 6f 6c 20  | of all control |
00000150  63 68 61 72 61 63 74 65  72 73 20 20 20 20 20 86  |characters     .|
00000160  28 63 6f 6c 6f 75 72 20  63 68 61 6e 67 65 2c 20  |(colour change, |
00000170  6e 65 77 20 62 61 63 6b  67 72 6f 75 6e 64 20 65  |new background e|
00000180  74 63 29 2e 22 0d 00 64  df f1 22 86 47 72 61 70  |tc)."..d..".Grap|
00000190  68 69 63 73 20 61 72 65  20 72 65 70 6c 61 63 65  |hics are replace|
000001a0  64 20 62 79 20 61 20 2a  2c 20 61 6e 64 20 61 6e  |d by a *, and an|
000001b0  79 20 20 86 74 72 61 69  6c 69 6e 67 20 73 70 61  |y  .trailing spa|
000001c0  63 65 73 20 74 6f 20 74  68 65 20 65 6e 64 20 6f  |ces to the end o|
000001d0  66 20 61 20 6c 69 6e 65  20 20 20 86 61 72 65 20  |f a line   .are |
000001e0  72 65 6d 6f 76 65 64 2e  20 20 32 33 2c 20 32 34  |removed.  23, 24|
000001f0  2c 20 6f 72 20 32 35 20  6c 69 6e 65 73 20 61 72  |, or 25 lines ar|
00000200  65 20 20 86 73 70 6f 6f  6c 65 64 2c 20 64 65 70  |e  .spooled, dep|
00000210  65 6e 64 69 6e 67 20 6f  6e 20 77 68 65 74 68 65  |ending on whethe|
00000220  72 20 74 68 65 20 6f 70  65 72 2d 86 61 74 6f 72  |r the oper-.ator|
00000230  20 73 61 79 73 20 74 68  65 20 70 61 67 65 73 20  | says the pages |
00000240  61 72 65 20 50 72 65 73  74 65 6c 2c 20 43 45 45  |are Prestel, CEE|
00000250  46 41 58 86 6f 72 20 66  75 6c 6c 20 4d 6f 64 65  |FAX.or full Mode|
00000260  2d 37 2e 22 0d 00 6e e4  f1 27 22 86 41 73 20 77  |-7."..n..'".As w|
00000270  65 6c 6c 20 61 73 20 73  69 6e 67 6c 65 20 70 61  |ell as single pa|
00000280  67 65 73 2c 20 6d 75 6c  74 69 70 6c 65 20 70 61  |ges, multiple pa|
00000290  67 65 20 86 66 69 6c 65  73 20 28 56 69 64 69 45  |ge .files (VidiE|
000002a0  64 69 74 6f 72 20 73 74  61 6e 64 61 72 64 20 5f  |ditor standard _|
000002b0  20 6f 6e 65 20 70 61 67  65 20 20 86 70 65 72 20  | one page  .per |
000002c0  26 34 30 30 20 62 79 74  65 73 29 20 6d 61 79 20  |&400 bytes) may |
000002d0  61 6c 73 6f 20 62 65 20  73 70 6f 6f 6c 65 64 2e  |also be spooled.|
000002e0  20 20 20 86 54 68 65 20  72 65 73 75 6c 74 61 6e  |   .The resultan|
000002f0  74 20 66 69 6c 65 20 6d  61 79 20 74 68 65 6e 20  |t file may then |
00000300  62 65 20 6c 6f 61 64 65  64 20 20 86 69 6e 74 6f  |be loaded  .into|
00000310  20 61 20 77 6f 72 64 70  72 6f 63 65 73 73 6f 72  | a wordprocessor|
00000320  20 73 6f 20 74 68 61 74  20 69 74 20 63 61 6e 20  | so that it can |
00000330  62 65 20 86 65 64 69 74  65 64 20 61 6e 64 20 70  |be .edited and p|
00000340  72 69 6e 74 65 64 2e 22  0d 00 78 29 f1 8a 36 2c  |rinted."..x)..6,|
00000350  32 34 29 22 82 50 72 65  73 73 20 61 20 6b 65 79  |24)".Press a key|
00000360  20 74 6f 20 63 6f 6e 74  69 6e 75 65 2e 2e 2e 22  | to continue..."|
00000370  3b 0d 00 82 07 f5 fd a5  0d 00 8c 05 20 0d 00 96  |;........... ...|
00000380  17 ef 32 38 2c 30 2c 32  34 2c 33 39 2c 35 2c 31  |..28,0,24,39,5,1|
00000390  32 2c 32 36 0d 00 a0 bb  f1 8a 30 2c 36 29 22 86  |2,26......0,6)".|
000003a0  20 20 54 68 65 20 6d 6f  64 65 2d 37 20 63 68 61  |  The mode-7 cha|
000003b0  72 61 63 74 65 72 73 20  7b 20 5c 20 7d 20 61 72  |racters { \ } ar|
000003c0  65 20 6e 6f 74 20 20 86  61 76 61 69 6c 61 62 6c  |e not  .availabl|
000003d0  65 20 6f 6e 20 6d 6f 73  74 20 70 72 69 6e 74 65  |e on most printe|
000003e0  72 73 2c 20 61 6e 64 20  73 6f 20 61 72 65 20 86  |rs, and so are .|
000003f0  73 68 6f 77 6e 20 61 73  87 3c 97 77 87 31 2f 34  |shown as.<.w.1/4|
00000400  97 7b 87 3e 86 65 74 63  2e 20 73 6f 20 74 68 61  |.{.>.etc. so tha|
00000410  74 20 74 68 65 79 20 86  6d 61 79 20 62 65 20 65  |t they .may be e|
00000420  61 73 69 6c 79 20 72 65  63 6f 67 6e 69 73 65 64  |asily recognised|
00000430  20 77 68 65 6e 20 75 73  69 6e 67 20 74 68 65 86  | when using the.|
00000440  77 6f 72 64 70 72 6f 63  65 73 73 6f 72 2e 22 0d  |wordprocessor.".|
00000450  00 aa 44 f1 27 22 86 20  20 53 69 6d 69 6c 61 72  |..D.'".  Similar|
00000460  6c 79 2c 20 74 68 65 20  62 6c 6f 63 6b 20 63 68  |ly, the block ch|
00000470  61 72 61 63 74 65 72 87  28 ff 29 86 69 73 86 73  |aracter.(.).is.s|
00000480  68 6f 77 6e 20 61 73 87  3c 97 77 20 23 97 7b 87  |hown as.<.w #.{.|
00000490  3e 2e 22 0d 00 b4 9f f1  27 22 86 20 20 44 6f 75  |>.".....'".  Dou|
000004a0  62 6c 65 20 68 65 69 67  68 74 20 6c 69 6e 65 73  |ble height lines|
000004b0  20 61 72 65 20 61 6e 6e  6f 74 61 74 65 64 20 20  | are annotated  |
000004c0  20 20 20 3c 64 6f 75 62  6c 65 3e 86 6f 6e 20 74  |   <double>.on t|
000004d0  68 65 20 66 6f 6c 6c 6f  77 69 6e 67 20 6c 69 6e  |he following lin|
000004e0  65 2c 20 61 6e 64 20 20  20 20 86 65 61 63 68 20  |e, and    .each |
000004f0  70 61 67 65 20 69 73 20  69 64 65 6e 74 69 66 69  |page is identifi|
00000500  65 64 20 61 74 20 74 68  65 20 74 6f 70 20 62 79  |ed at the top by|
00000510  20 20 20 3c 3c 20 50 61  67 65 20 35 20 6f 66 20  |   << Page 5 of |
00000520  37 20 3e 3e 86 66 6f 72  20 65 78 61 6d 70 6c 65  |7 >>.for example|
00000530  2e 22 0d 00 be 29 f1 8a  36 2c 32 34 29 22 82 50  |."...)..6,24)".P|
00000540  72 65 73 73 20 61 20 6b  65 79 20 74 6f 20 63 6f  |ress a key to co|
00000550  6e 74 69 6e 75 65 2e 2e  2e 22 3b 0d 00 c8 07 f5  |ntinue...";.....|
00000560  fd a5 0d 00 d2 05 20 0d  00 dc 0d de 20 72 6f 70  |...... ..... rop|
00000570  65 20 33 30 0d 00 e6 13  ef 32 38 2c 30 2c 32 34  |e 30.....28,0,24|
00000580  2c 33 39 2c 35 3a db 0d  00 f0 0e ef 32 36 3a f1  |,39,5:......26:.|
00000590  8a 30 2c 36 29 0d 00 fa  2e f1 22 86 50 6c 65 61  |.0,6).....".Plea|
000005a0  73 65 20 65 6e 74 65 72  20 64 65 73 74 69 6e 61  |se enter destina|
000005b0  74 69 6f 6e 20 64 72 69  76 65 87 3a 22 3b 3a 41  |tion drive.:";:A|
000005c0  25 3d a5 0d 01 04 28 e7  20 41 25 3c 34 38 20 84  |%=....(. A%<48 .|
000005d0  20 41 25 3e 35 31 20 8c  20 ef 31 33 2c 37 3a e5  | A%>51 . .13,7:.|
000005e0  8d 64 7a 40 20 8b 20 f1  bd 41 25 0d 01 0e 18 f2  |.dz@ . ..A%.....|
000005f0  6f 73 63 6c 69 28 22 44  52 49 56 45 20 22 2b bd  |oscli("DRIVE "+.|
00000600  41 25 29 0d 01 18 1a e8  27 22 86 61 6e 64 20 66  |A%).....'".and f|
00000610  69 6c 65 20 6e 61 6d 65  87 20 22 41 24 0d 01 22  |ile name. "A$.."|
00000620  17 f2 6f 73 63 6c 69 28  22 53 50 4f 4f 4c 20 22  |..oscli("SPOOL "|
00000630  2b 41 24 29 0d 01 2c 0b  2a 46 58 33 2c 31 36 0d  |+A$)..,.*FX3,16.|
00000640  01 36 29 f1 27 22 86 61  6e 64 20 6e 6f 77 20 74  |.6).'".and now t|
00000650  68 65 20 53 6f 75 72 63  65 20 64 72 69 76 65 87  |he Source drive.|
00000660  3a 22 3b 3a 53 25 3d a5  0d 01 40 2b e7 20 53 25  |:";:S%=...@+. S%|
00000670  3c 34 38 20 84 20 53 25  3e 35 31 20 8c 20 ef 31  |<48 . S%>51 . .1|
00000680  33 2c 31 31 2c 37 3a e5  8d 54 76 41 20 8b 20 f1  |3,11,7:..TvA . .|
00000690  bd 53 25 0d 01 4a 05 20  0d 01 54 05 f5 0d 01 5e  |.S%..J. ..T....^|
000006a0  05 f1 0d 01 68 15 f2 6f  73 63 6c 69 28 22 43 41  |....h..oscli("CA|
000006b0  54 22 2b bd 53 25 29 0d  01 72 27 f1 27 27 22 82  |T"+.S%)..r'.''".|
000006c0  28 6f 72 20 52 45 54 55  52 4e 20 74 6f 20 66 69  |(or RETURN to fi|
000006d0  6e 69 73 68 29 22 3b 8a  30 2c bc 2d 32 29 0d 01  |nish)";.0,.-2)..|
000006e0  7c 22 e8 22 82 45 6e 74  65 72 20 73 6f 75 72 63  ||".".Enter sourc|
000006f0  65 20 66 69 6c 65 20 6e  61 6d 65 87 3a 22 4e 24  |e file name.:"N$|
00000700  0d 01 86 12 f1 89 28 33  30 29 3b 8a 30 2c bc 2d  |......(30);.0,.-|
00000710  31 29 0d 01 90 38 e7 20  4e 24 3d 22 22 20 8c 20  |1)...8. N$="" . |
00000720  d9 23 30 3a f1 27 22 85  3a 22 bd 41 25 22 2e 22  |.#0:.'".:".A%"."|
00000730  41 24 22 20 28 64 65 73  74 20 66 69 6c 65 29 20  |A$" (dest file) |
00000740  43 6c 6f 73 65 64 2e 22  3a e0 0d 01 9a 15 53 24  |Closed.":.....S$|
00000750  3d 22 3a 22 2b bd 53 25  2b 22 2e 22 2b 4e 24 0d  |=":"+.S%+"."+N$.|
00000760  01 a4 0b 54 25 3d 8e 20  53 24 0d 01 ae 36 e7 20  |...T%=. S$...6. |
00000770  54 25 3d 30 20 8c 20 db  3a f1 22 85 46 69 6c 65  |T%=0 . .:.".File|
00000780  20 22 22 22 3b 4e 24 3b  22 22 22 20 6e 6f 74 20  | """;N$;""" not |
00000790  66 6f 75 6e 64 22 3b bd  37 27 3a e5 8d 44 68 41  |found";.7':..DhA|
000007a0  0d 01 b8 05 20 0d 01 c2  44 f1 22 82 50 72 65 73  |.... ...D.".Pres|
000007b0  74 65 6c 2c 20 43 45 45  46 41 58 2c 20 6f 72 20  |tel, CEEFAX, or |
000007c0  4d 6f 64 65 20 37 20 70  61 67 65 73 3f 22 27 22  |Mode 7 pages?"'"|
000007d0  82 28 50 2f 43 2f 37 29  87 22 3b 3a 74 79 70 65  |.(P/C/7).";:type|
000007e0  25 3d a5 20 80 20 26 44  46 0d 01 cc 61 e7 20 74  |%=. . &DF...a. t|
000007f0  79 70 65 25 3d 97 22 50  22 20 8c 20 6c 69 6e 65  |ype%=."P" . line|
00000800  73 25 3d 32 32 3a f1 22  50 72 65 73 74 65 6c 22  |s%=22:."Prestel"|
00000810  20 8b e7 20 74 79 70 65  25 3d 97 22 43 22 20 8c  | .. type%=."C" .|
00000820  20 6c 69 6e 65 73 25 3d  32 33 3a f1 22 43 65 65  | lines%=23:."Cee|
00000830  66 61 78 22 20 8b 20 6c  69 6e 65 73 25 3d 32 34  |fax" . lines%=24|
00000840  3a f1 22 4d 6f 64 65 20  37 22 0d 01 d6 05 20 0d  |:."Mode 7".... .|
00000850  01 e0 0b 45 25 3d a2 23  54 25 0d 01 ea 44 f1 27  |...E%=.#T%...D.'|
00000860  22 54 68 69 73 20 66 69  6c 65 20 68 61 73 20 22  |"This file has "|
00000870  3b 28 45 25 2b 31 31 30  29 81 26 34 30 30 3b 22  |;(E%+110).&400;"|
00000880  20 70 61 67 65 22 3b 3a  e7 20 45 25 3e 26 35 30  | page";:. E%>&50|
00000890  30 20 8c 20 f1 22 73 22  27 20 8b 20 f1 27 0d 01  |0 . ."s"' . .'..|
000008a0  f4 08 d9 23 54 25 0d 01  fe 4a e7 20 45 25 3e 26  |...#T%...J. E%>&|
000008b0  35 34 30 30 20 8c 20 f1  bd 28 31 31 29 3b bd 28  |5400 . ..(11);.(|
000008c0  37 29 22 81 77 68 69 63  68 20 69 73 20 74 6f 6f  |7)".which is too|
000008d0  20 6c 61 72 67 65 20 74  6f 20 68 61 6e 64 6c 65  | large to handle|
000008e0  2c 20 73 6f 72 72 79 21  22 27 3a e5 8d 44 68 41  |, sorry!"':..DhA|
000008f0  0d 02 08 1e f2 6f 73 63  6c 69 28 22 4c 4f 41 44  |.....oscli("LOAD|
00000900  20 22 2b 53 24 2b 22 20  32 38 30 30 22 29 0d 02  | "+S$+" 2800")..|
00000910  12 10 f2 73 63 72 65 65  6e 70 72 69 6e 74 0d 02  |...screenprint..|
00000920  1c 14 f1 27 22 83 45 6e  64 20 6f 66 20 66 69 6c  |...'".End of fil|
00000930  65 22 0d 02 26 07 fd 20  a3 0d 02 30 05 20 0d 02  |e"..&.. ...0. ..|
00000940  3a 12 dd 20 f2 73 63 72  65 65 6e 70 72 69 6e 74  |:.. .screenprint|
00000950  0d 02 44 0a 2a 46 58 33  2c 30 0d 02 4e 19 e3 20  |..D.*FX3,0..N.. |
00000960  50 25 3d 30 20 b8 20 45  25 2d 31 30 30 20 88 26  |P%=0 . E%-100 .&|
00000970  34 30 30 0d 02 58 35 f1  27 22 3c 3c 20 50 61 67  |400..X5.'"<< Pag|
00000980  65 20 22 3b 50 25 81 26  34 30 30 2b 31 3b 22 20  |e ";P%.&400+1;" |
00000990  6f 66 20 22 3b 28 45 25  2b 31 32 38 29 81 26 34  |of ";(E%+128).&4|
000009a0  30 30 3b 22 20 3e 3e 22  0d 02 62 08 ef 20 31 33  |00;" >>"..b.. 13|
000009b0  0d 02 6c 05 20 0d 02 76  13 e3 20 59 25 3d 30 20  |..l. ..v.. Y%=0 |
000009c0  b8 20 6c 69 6e 65 73 25  0d 02 80 15 67 66 25 3d  |. lines%....gf%=|
000009d0  a3 3a 64 66 25 3d a3 3a  6c 66 25 3d a3 0d 02 8a  |.:df%=.:lf%=....|
000009e0  15 48 25 3d 26 32 38 30  30 2b 59 25 2a 34 30 2b  |.H%=&2800+Y%*40+|
000009f0  50 25 0d 02 94 05 20 0d  02 9e 0b 6c 69 6d 25 3d  |P%.... ....lim%=|
00000a00  2d 31 0d 02 a8 13 e3 20  58 25 3d 33 39 20 b8 20  |-1..... X%=39 . |
00000a10  30 20 88 2d 31 0d 02 b2  23 e7 20 28 48 25 3f 58  |0 .-1...#. (H%?X|
00000a20  25 80 26 37 46 29 3e 33  32 20 8c 20 6c 69 6d 25  |%.&7F)>32 . lim%|
00000a30  3d 58 25 3a 58 25 3d 30  0d 02 bc 05 ed 0d 02 c6  |=X%:X%=0........|
00000a40  05 20 0d 02 d0 15 e7 20  6c 69 6d 25 3c 33 39 20  |. ..... lim%<39 |
00000a50  8c 20 6c 66 25 3d b9 0d  02 da 14 e7 20 6c 69 6d  |. lf%=...... lim|
00000a60  25 3d 2d 31 20 e5 20 8d  64 40 43 0d 02 e4 05 20  |%=-1 . .d@C.... |
00000a70  0d 02 ee 11 e3 20 58 25  3d 30 20 b8 20 6c 69 6d  |..... X%=0 . lim|
00000a80  25 0d 02 f8 11 63 68 25  3d 48 25 3f 58 25 80 26  |%....ch%=H%?X%.&|
00000a90  37 46 0d 03 02 12 e7 20  63 68 25 3e 33 31 20 e5  |7F..... ch%>31 .|
00000aa0  8d 44 48 43 0d 03 0c 05  20 0d 03 16 12 e7 20 63  |.DHC.... ..... c|
00000ab0  68 25 3d 31 33 20 64 66  25 3d b9 0d 03 20 19 e7  |h%=13 df%=... ..|
00000ac0  20 63 68 25 3e 30 20 80  20 63 68 25 3c 38 20 67  | ch%>0 . ch%<8 g|
00000ad0  66 25 3d a3 0d 03 2a 1d  e7 20 63 68 25 3e 31 36  |f%=...*.. ch%>16|
00000ae0  20 80 20 63 68 25 3c 32  34 20 67 66 25 3d 26 32  | . ch%<24 gf%=&2|
00000af0  30 0d 03 34 10 6f 70 25  3d 33 32 3a e5 8d 74 6c  |0..4.op%=32:..tl|
00000b00  43 0d 03 3e 05 20 0d 03  48 0b 6f 70 25 3d 63 68  |C..>. ..H.op%=ch|
00000b10  25 0d 03 52 28 e7 20 63  68 25 20 80 20 67 66 25  |%..R(. ch% . gf%|
00000b20  20 80 20 63 68 25 3c 3e  33 32 20 8c 20 6f 70 25  | . ch%<>32 . op%|
00000b30  3d 34 32 3a e5 8d 74 6c  43 0d 03 5c 24 e7 20 63  |=42:..tlC..\$. c|
00000b40  68 25 3d 33 35 20 8c 20  6f 70 25 3d 39 36 3a e5  |h%=35 . op%=96:.|
00000b50  8d 74 6c 43 3a 20 f4 20  70 6f 75 6e 64 0d 03 66  |.tlC: . pound..f|
00000b60  30 e7 20 63 68 25 3d 39  32 20 8c 20 f1 22 3c 5b  |0. ch%=92 . ."<[|
00000b70  31 2f 32 5d 22 3b 3a 20  6f 70 25 3d 36 32 20 3a  |1/2]";: op%=62 :|
00000b80  e5 8d 74 6c 43 20 3a 20  f4 20 31 2f 32 0d 03 70  |..tlC : . 1/2..p|
00000b90  23 e7 20 63 68 25 3d 39  35 20 8c 20 6f 70 25 3d  |#. ch%=95 . op%=|
00000ba0  33 35 3a e5 8d 74 6c 43  3a 20 f4 20 68 61 73 68  |35:..tlC: . hash|
00000bb0  0d 03 7a 28 e7 20 63 68  25 3d 39 36 20 8c 20 6f  |..z(. ch%=96 . o|
00000bc0  70 25 3d 39 35 3a e5 8d  74 6c 43 3a 20 f4 20 75  |p%=95:..tlC: . u|
00000bd0  6e 64 65 72 6c 69 6e 65  0d 03 84 2e e7 20 63 68  |nderline..... ch|
00000be0  25 3d 31 32 33 20 8c 20  f1 22 3c 5b 31 2f 34 5d  |%=123 . ."<[1/4]|
00000bf0  22 3b 3a 6f 70 25 3d 36  32 3a e5 8d 74 6c 43 3a  |";:op%=62:..tlC:|
00000c00  20 f4 20 31 2f 34 0d 03  8e 2e e7 20 63 68 25 3d  | . 1/4..... ch%=|
00000c10  31 32 35 20 8c 20 f1 22  3c 5b 33 2f 34 5d 22 3b  |125 . ."<[3/4]";|
00000c20  3a 6f 70 25 3d 36 32 3a  e5 8d 74 6c 43 3a 20 f4  |:op%=62:..tlC: .|
00000c30  20 33 2f 34 0d 03 98 31  e7 20 63 68 25 3d 31 32  | 3/4...1. ch%=12|
00000c40  37 20 8c 20 f1 22 3c 5b  23 5d 22 3b 20 20 3a 6f  |7 . ."<[#]";  :o|
00000c50  70 25 3d 36 32 3a e5 8d  74 6c 43 3a 20 f4 20 64  |p%=62:..tlC: . d|
00000c60  65 6c 65 74 65 0d 03 a2  05 20 0d 03 ac 0a ef 6f  |elete.... .....o|
00000c70  70 25 3a ed 0d 03 b6 1f  e7 20 64 66 25 20 59 25  |p%:...... df% Y%|
00000c80  3d 59 25 2b 31 3a f1 27  22 3c 64 6f 75 62 6c 65  |=Y%+1:.'"<double|
00000c90  3e 22 3b 0d 03 c0 0d e7  20 6c 66 25 20 ef 31 30  |>";..... lf% .10|
00000ca0  0d 03 ca 07 ef 31 33 0d  03 d4 0c ed 3a f4 20 4c  |.....13.....:. L|
00000cb0  69 6e 65 0d 03 de 05 20  0d 03 e8 0c ed 3a f4 20  |ine.... .....:. |
00000cc0  50 61 67 65 0d 03 f2 0b  2a 46 58 33 2c 31 36 0d  |Page....*FX3,16.|
00000cd0  03 fc 05 e1 0d 04 06 05  20 0d 04 10 10 dd f2 6f  |........ ......o|
00000ce0  73 63 6c 69 28 6f 73 24  29 0d 04 1a 0d 24 72 6f  |scli(os$)....$ro|
00000cf0  70 65 3d 6f 73 24 0d 04  24 15 58 25 3d 72 6f 70  |pe=os$..$.X%=rop|
00000d00  65 3a 59 25 3d 58 25 81  32 35 36 0d 04 2e 0a d6  |e:Y%=X%.256.....|
00000d10  26 46 46 46 37 0d 04 38  05 e1 0d 04 42 05 20 0d  |&FFF7..8....B. .|
00000d20  04 4c 0b 2a 46 58 33 2c  31 36 0d 04 56 09 2a 46  |.L.*FX3,16..V.*F|
00000d30  58 31 35 0d 04 60 20 f1  27 27 22 85 22 bd 31 38  |X15..` .''".".18|
00000d40  3b 3a f6 3a f1 22 20 61  74 20 6c 69 6e 65 20 22  |;:.:." at line "|
00000d50  3b 9e 27 0d 04 6a 07 d9  23 30 0d 04 74 05 e0 0d  |;.'..j..#0..t...|
00000d60  ff                                                |.|
00000d61