�"�***********************
�"�*�RECIPE  BOOK �using�*
�"�*�CEEFAX recipe pages�*
(�"�*� (C)� J.J.Brayshaw� *
2�"�*�  JuN 1987�Vers.3b� *
<�"�***********************
F��d\@
P"�"�Change to�40�for 40 tracks:
Zdisc%=80
d:
nadaptor%=�adaptor
x
*TELESOFT
�
*FX4,1
��7
��23,0,2,52;0;0;0;
��23;8202;0;0;0;
��=&6000
�tab%=10
��
�	�menu
�	�Q=51
��3
�
*FX4,0
�*FX12,0
��#0

�7

�heading

�

"
�"�******

,��add_recipe

6�heading

@+�132;�157"�Waiting for�CEEFAX�page..."

J�get_page("0")

Tname$=�recipe_name

^�heading

h6�'�132;�157"�Todays recipe is:"'�132;�157"�";name$

r*FX15,1

|��check_already_saved:�129;�157"�Recipe already saved."'�129;�157"�Press�1�to save it again"'�129;�157"�or any other key to abandon this":Q=�:�Q<>49 �dVA

�1pages%=�how_many:�pages%=1 �save(1,1,name$):�

�2�'�132;�157"�It consists of�";pages%;"�pages."

��A%=1�pages%

�'�132;�157"�Searching for page ";A%

��get_page(�(A%))

�,�132;�157"�Saving page ";A%;" to disc."

��save(pages%,A%,name$)

��

��

�
�"�******

�ݤrecipe_name

��te%,en%,st%,na$

�en%=&70F0:st%=&70C8
"�:st%=st%+1:�?st%>48 �?st%<127
"�:en%=en%-1:�?en%>48 �?en%<127
te%=?(en%+1):?(en%+1)=&D
&na$=�$st%+�38," "),38)
0�na$=�38," ") �d\@
:?(en%+1)=te%
D=na$
N
�"�******
X��get_page(sub_page$)
b�A%
l	*BBC1
vD�sub_page$="0" �oscli("PAGE191") ��oscli("PAGE191000"+sub_page$)
�*TRANSFER 7000
��A%=&7000�&7398
��?A%>159 ?A%=?A%�&7F
��
��
�
�"�******
���oscli(s$)
��s
�
� s 25
�X%=s �256:Y%=s �256
�	$s=s$
�
�&FFF7
��

�"�******
ݤhow_many
"�en%,B%,C%:B%=?&7050:?&7050=&D
 /en%=&7050:�:en%=en%-1:�?en%=�"/" �en%=&7029
*C%=�($(en%+1)):?&7050=B%
4�en%=&7029 �C%=0 =1
>=C%
H
�"�******
R3��save(total_pages%,this_page_no%,recipe_name$)
\file1%=�("file1")
ffile2%=�("file2")
p#�file1%=0 �file2%=0 �open_files
z�#file2%=�#file2%
�!�B%=&7000 �&7398:�#file2%,?B%
��
�&�total_pages%<>this_page_no% �d|C
�E%=((�#file2%)�&399)
�S%=(E%-total_pages%)+1
��#file1%=�#file1%
��#file1%,S%
��#file1%,E%
��B%=1�38
�C%=�(�recipe_name$,B%,1))
��#file1%,C%
��
��#file1%
�#file2%
�

�"�******
$ݤcheck_already_saved
.
�file%
8file1%=�("file1")
B�file1%=0 �D~D
L�#file1%=(�#file1%)-38
V*s%=&A00:�by%=0�37:?(s%+by%)=�#file1%:�
`?(s%+�(name$))=&D
j�#file1%
t�name$=$(s%) =�
~=�
�
�"�******
�
��menu
��heading
�+�''�132;�157"�Press�1�to find a recipe"
�;�adaptor% �'�132;�157"�Press�2�to add todays recipe"��'
�!�'�132;�157;"�Press�3�to end"
�*FX15,1
��:Q=�:�Q>48 �Q<52
��Q=49 �read_files
��Q=50 �adaptor%:�add_recipe
�n�Q=50 ��adaptor%:�'�132;�157;"�Hmmm...Opt.2 is tricky..."'�132;�157;"�there's no Teletext!":Q=�(500):�t\D
��

�"�******

��display(addr%)
�
#�0,0)"�(C)�J.J.Brayshaw�1987�"
(�Q=&17�&394 �4
2!(&7C00+Q)=!(addr%+Q)
<�
F9�0,24)�132;�157;"�^�BACK:�v�FWD:�[�1st PAGE:�]�END";
P�
Z
�"�******
d
��printer
n�"�TEST FOR ON LINE STATUS:
x,�2,1,0,1,0,1,0,3:�A%=1�20:�:�(-4)<>63 �
��A%,A1%
�!�"�SET UNDERLINE & EMPHASISE:
��2,1,27,1,45,1,1,1,27,1,71
��tab%<>0:�t%=1�tab%:�1,32:�
��A1%=&7CC8�&7CF0
�"chr%=?(A1%)�&7F:�chr%<32 �dHE
��1,chr%
��
��"�CANCEL U/LINE & EMPH.:
��1,27,1,45,1,0,1,27,1,72
��A1%=&7CF0�&7F70 �40
��tab%<>0:�t%=1�tab%:�1,32:�
��A%=0�39:chr%=?(A1%+A%)
�chr%=141 A1%=A1%+40
chr%=chr%�&7F
�chr%<32 chr%=32
"Q�chr%=123 �1,27,1,75,1,7,1,0,1,0,1,240,1,6,1,10,1,31,1,2,1,0:�DJF:�"�PRINT {
,T�chr%=125 �1,27,1,75,1,7,1,0,1,168,1,168,1,86,1,10,1,31,1,2,1,0:�DJF:�"�PRINT }
6Q�chr%=92 �1,27,1,75,1,7,1,0,1,0,1,240,1,23,1,21,1,21,1,9,1,0:�DJF:�"�PRINT \
@�1,chr%
J�
T	�1,13
^�
h�3
r�
|
�"�******
�
��heading
��
�+�151;"_p|p0pxtp_p|p0p|p_p|p0pxtp_p|p0"
�:�145;"h,,,4<,,lh,,,4<,lh,,,4<,,lh,,,4"�157;�135"From"
�<�151;"j s(55bs�j ��5� �j sp55bs�jps`"�157;�132;"CEEFAX"
�;�145;"*,/,%-,,.*,,,%-,.*,//%-,,.*,,,%"�157;�135"Pages"
�4�32,129,157,134:�"(C)�J.J.Brayshaw�1986   ";�156
��'
��
�
�"�******
���open_files
��#0
�%file1%=�"file1":�#file1%=60*disc%
�#file1%
file2%=�"file2"
file1%=�"file1"
&�
0
�"�******
:ݤadaptor:� work% 2
DHA%=&7A:X%=work%�256:Y%=work%�256:?work%=17:�&FFF1:�work%?1=0 =� � =�
N
�"�******
X��convert(pos,a%)
b,�A%=1�38:?(&A00+A%)=?(pos+A%):�:?&A23=&D
l�a%>99 ?&A22=&D
v+�"�";a%;:�a%<10 �" �"$&A01; ��"�"$&A01;
��
�
�"�******
���read_files
��heading
�*FX11,7
�*FX12,7
�*LOAD file1 6000
�/file1%=�"file1":ext%=(�#file1%)�40:�#file1%
�
max%=ext%
�1�11:�a%=1�16:�132,157,10,13:�:�28,2,22,39,6:�
�,scrbtm%=max%:�ext%<17 bs%=1 �bs%=max%-15
��a%=bs%�max%
�$�convert(&6000+((a%-1)*40)+1,a%)
?&A23=&D
�
�ext%<=16 Q%=137:�DzH
 �26
*;�0,24)�132;�157;"�^�BACK:�v�FORWARD:�]�SELECT RECIPE";
4�28,2,22,39,6
>�
H*FX15,1
RQ%=�
\]�Q%=138�scrbtm%<ext%:scrbtm%=scrbtm%+1:�0,15):�convert(&6000+((scrbtm%-1)*40)+1,scrbtm%)
fs�Q%=139�(scrbtm%-16)>0:scrbtm%=scrbtm%-1:�0,15)�(40);�0,0);:�11:�convert(&6000+((scrbtm%-16)*40)+1,scrbtm%-15)
p�Q%=137
z�26:�0,24);
��0,24)�(38);
�(�0,23)�132;�157;"�Please select:�";
��:���(-122)
�*FX12,0
�*FX15,1
�	�""R%
�+�(R%>ext%)�(R%<1) �7:�4,23)�(30):�tNH
�(�132;�157"�Looking for recipe ";R%;
�5S%=?(&6000+((R%-1)*40)):E%=?(&6000+((R%-1)*40)+1)
�8�A%=1�38:?(&A00+A%)=?(&6000+(R%*40)+1+A%):�:?&A22=&D
�file2%=�("file2")
��#file2%=(S%-1)*&399
��M%=0�(((E%+1)-S%)*&399)
	?(M%+&6000)=�#file2%
	�
	�#file2%
	$addr%=&6000
	.�
	8�display(addr%)
	B*FX15,1
	L�:Q=�:�Q>134 �Q<140
	V�Q=139 addr%=addr%-&399
	`�Q=138 addr%=addr%+&399
	j�Q=136 addr%=&6000
	t�Q=135 �printer:�DLI
	~C�addr%>=(&6000+(((E%+1)-S%)*&399)) addr%=(&6000+((E%-S%)*&399))
	��addr%<&6000 addr%=&6000
	�
�Q=137
	��
�

00000000  0d 00 0a 1e f4 22 81 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.....".*********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
00000020  14 1e f4 22 81 2a 83 52  45 43 49 50 45 20 20 42  |...".*.RECIPE  B|
00000030  4f 4f 4b 20 86 75 73 69  6e 67 81 2a 0d 00 1e 1e  |OOK .using.*....|
00000040  f4 22 81 2a 86 43 45 45  46 41 58 20 72 65 63 69  |.".*.CEEFAX reci|
00000050  70 65 20 70 61 67 65 73  81 2a 0d 00 28 1e f4 22  |pe pages.*..(.."|
00000060  81 2a 82 20 28 43 29 85  20 4a 2e 4a 2e 42 72 61  |.*. (C). J.J.Bra|
00000070  79 73 68 61 77 81 20 2a  0d 00 32 1e f4 22 81 2a  |yshaw. *..2..".*|
00000080  82 20 20 4a 75 4e 20 31  39 38 37 84 56 65 72 73  |.  JuN 1987.Vers|
00000090  2e 33 62 81 20 2a 0d 00  3c 1e f4 22 81 2a 2a 2a  |.3b. *..<..".***|
000000a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000b0  2a 2a 2a 2a 0d 00 46 0b  ee 85 e5 8d 64 5c 40 0d  |****..F.....d\@.|
000000c0  00 50 22 f4 22 82 43 68  61 6e 67 65 20 74 6f 81  |.P".".Change to.|
000000d0  34 30 82 66 6f 72 20 34  30 20 74 72 61 63 6b 73  |40.for 40 tracks|
000000e0  3a 0d 00 5a 0c 64 69 73  63 25 3d 38 30 0d 00 64  |:..Z.disc%=80..d|
000000f0  05 3a 0d 00 6e 15 61 64  61 70 74 6f 72 25 3d a4  |.:..n.adaptor%=.|
00000100  61 64 61 70 74 6f 72 0d  00 78 0d 2a 54 45 4c 45  |adaptor..x.*TELE|
00000110  53 4f 46 54 0d 00 82 0a  2a 46 58 34 2c 31 0d 00  |SOFT....*FX4,1..|
00000120  8c 06 eb 37 0d 00 96 15  ef 32 33 2c 30 2c 32 2c  |...7.....23,0,2,|
00000130  35 32 3b 30 3b 30 3b 30  3b 0d 00 a0 13 ef 32 33  |52;0;0;0;.....23|
00000140  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 aa 0b  |;8202;0;0;0;....|
00000150  d3 3d 26 36 30 30 30 0d  00 b4 0b 74 61 62 25 3d  |.=&6000....tab%=|
00000160  31 30 0d 00 be 05 f5 0d  00 c8 09 f2 6d 65 6e 75  |10..........menu|
00000170  0d 00 d2 09 fd 51 3d 35  31 0d 00 dc 06 ef 33 0d  |.....Q=51.....3.|
00000180  00 e6 0a 2a 46 58 34 2c  30 0d 00 f0 0b 2a 46 58  |...*FX4,0....*FX|
00000190  31 32 2c 30 0d 00 fa 07  d9 23 30 0d 01 04 06 eb  |12,0.....#0.....|
000001a0  37 0d 01 0e 0c f2 68 65  61 64 69 6e 67 0d 01 18  |7.....heading...|
000001b0  05 e0 0d 01 22 0d f4 22  81 2a 2a 2a 2a 2a 2a 0d  |...."..".******.|
000001c0  01 2c 10 dd f2 61 64 64  5f 72 65 63 69 70 65 0d  |.,...add_recipe.|
000001d0  01 36 0c f2 68 65 61 64  69 6e 67 0d 01 40 2b f1  |.6..heading..@+.|
000001e0  bd 31 33 32 3b bd 31 35  37 22 87 57 61 69 74 69  |.132;.157".Waiti|
000001f0  6e 67 20 66 6f 72 83 43  45 45 46 41 58 87 70 61  |ng for.CEEFAX.pa|
00000200  67 65 2e 2e 2e 22 0d 01  4a 12 f2 67 65 74 5f 70  |ge..."..J..get_p|
00000210  61 67 65 28 22 30 22 29  0d 01 54 16 6e 61 6d 65  |age("0")..T.name|
00000220  24 3d a4 72 65 63 69 70  65 5f 6e 61 6d 65 0d 01  |$=.recipe_name..|
00000230  5e 0c f2 68 65 61 64 69  6e 67 0d 01 68 36 f1 27  |^..heading..h6.'|
00000240  bd 31 33 32 3b bd 31 35  37 22 86 54 6f 64 61 79  |.132;.157".Today|
00000250  73 20 72 65 63 69 70 65  20 69 73 3a 22 27 bd 31  |s recipe is:"'.1|
00000260  33 32 3b bd 31 35 37 22  83 22 3b 6e 61 6d 65 24  |32;.157".";name$|
00000270  0d 01 72 0b 2a 46 58 31  35 2c 31 0d 01 7c 9f e7  |..r.*FX15,1..|..|
00000280  a4 63 68 65 63 6b 5f 61  6c 72 65 61 64 79 5f 73  |.check_already_s|
00000290  61 76 65 64 3a f1 bd 31  32 39 3b bd 31 35 37 22  |aved:..129;.157"|
000002a0  87 52 65 63 69 70 65 20  61 6c 72 65 61 64 79 20  |.Recipe already |
000002b0  73 61 76 65 64 2e 22 27  bd 31 32 39 3b bd 31 35  |saved."'.129;.15|
000002c0  37 22 87 50 72 65 73 73  86 31 87 74 6f 20 73 61  |7".Press.1.to sa|
000002d0  76 65 20 69 74 20 61 67  61 69 6e 22 27 bd 31 32  |ve it again"'.12|
000002e0  39 3b bd 31 35 37 22 87  6f 72 20 61 6e 79 20 6f  |9;.157".or any o|
000002f0  74 68 65 72 20 6b 65 79  20 74 6f 20 61 62 61 6e  |ther key to aban|
00000300  64 6f 6e 20 74 68 69 73  22 3a 51 3d a5 3a e7 51  |don this":Q=.:.Q|
00000310  3c 3e 34 39 20 e5 8d 64  56 41 0d 01 86 31 70 61  |<>49 ..dVA...1pa|
00000320  67 65 73 25 3d a4 68 6f  77 5f 6d 61 6e 79 3a e7  |ges%=.how_many:.|
00000330  70 61 67 65 73 25 3d 31  20 f2 73 61 76 65 28 31  |pages%=1 .save(1|
00000340  2c 31 2c 6e 61 6d 65 24  29 3a e1 0d 01 90 32 f1  |,1,name$):....2.|
00000350  27 bd 31 33 32 3b bd 31  35 37 22 86 49 74 20 63  |'.132;.157".It c|
00000360  6f 6e 73 69 73 74 73 20  6f 66 83 22 3b 70 61 67  |onsists of.";pag|
00000370  65 73 25 3b 22 86 70 61  67 65 73 2e 22 0d 01 9a  |es%;".pages."...|
00000380  10 e3 41 25 3d 31 b8 70  61 67 65 73 25 0d 01 a4  |..A%=1.pages%...|
00000390  27 f1 bd 31 33 32 3b bd  31 35 37 22 87 53 65 61  |'..132;.157".Sea|
000003a0  72 63 68 69 6e 67 20 66  6f 72 20 70 61 67 65 20  |rching for page |
000003b0  22 3b 41 25 0d 01 ae 14  f2 67 65 74 5f 70 61 67  |";A%.....get_pag|
000003c0  65 28 c3 28 41 25 29 29  0d 01 b8 2c f1 bd 31 33  |e(.(A%))...,..13|
000003d0  32 3b bd 31 35 37 22 86  53 61 76 69 6e 67 20 70  |2;.157".Saving p|
000003e0  61 67 65 20 22 3b 41 25  3b 22 20 74 6f 20 64 69  |age ";A%;" to di|
000003f0  73 63 2e 22 0d 01 c2 1a  f2 73 61 76 65 28 70 61  |sc.".....save(pa|
00000400  67 65 73 25 2c 41 25 2c  6e 61 6d 65 24 29 0d 01  |ges%,A%,name$)..|
00000410  cc 05 ed 0d 01 d6 05 e1  0d 01 e0 0d f4 22 81 2a  |.............".*|
00000420  2a 2a 2a 2a 2a 0d 01 ea  11 dd a4 72 65 63 69 70  |*****......recip|
00000430  65 5f 6e 61 6d 65 0d 01  f4 14 ea 74 65 25 2c 65  |e_name.....te%,e|
00000440  6e 25 2c 73 74 25 2c 6e  61 24 0d 01 fe 17 65 6e  |n%,st%,na$....en|
00000450  25 3d 26 37 30 46 30 3a  73 74 25 3d 26 37 30 43  |%=&70F0:st%=&70C|
00000460  38 0d 02 08 22 f5 3a 73  74 25 3d 73 74 25 2b 31  |8...".:st%=st%+1|
00000470  3a fd 3f 73 74 25 3e 34  38 20 80 3f 73 74 25 3c  |:.?st%>48 .?st%<|
00000480  31 32 37 0d 02 12 22 f5  3a 65 6e 25 3d 65 6e 25  |127...".:en%=en%|
00000490  2d 31 3a fd 3f 65 6e 25  3e 34 38 20 80 3f 65 6e  |-1:.?en%>48 .?en|
000004a0  25 3c 31 32 37 0d 02 1c  1c 74 65 25 3d 3f 28 65  |%<127....te%=?(e|
000004b0  6e 25 2b 31 29 3a 3f 28  65 6e 25 2b 31 29 3d 26  |n%+1):?(en%+1)=&|
000004c0  44 0d 02 26 1a 6e 61 24  3d c0 24 73 74 25 2b c4  |D..&.na$=.$st%+.|
000004d0  33 38 2c 22 20 22 29 2c  33 38 29 0d 02 30 17 e7  |38," "),38)..0..|
000004e0  6e 61 24 3d c4 33 38 2c  22 20 22 29 20 e5 8d 64  |na$=.38," ") ..d|
000004f0  5c 40 0d 02 3a 10 3f 28  65 6e 25 2b 31 29 3d 74  |\@..:.?(en%+1)=t|
00000500  65 25 0d 02 44 08 3d 6e  61 24 0d 02 4e 0d f4 22  |e%..D.=na$..N.."|
00000510  81 2a 2a 2a 2a 2a 2a 0d  02 58 19 dd f2 67 65 74  |.******..X...get|
00000520  5f 70 61 67 65 28 73 75  62 5f 70 61 67 65 24 29  |_page(sub_page$)|
00000530  0d 02 62 07 ea 41 25 0d  02 6c 09 2a 42 42 43 31  |..b..A%..l.*BBC1|
00000540  0d 02 76 44 e7 73 75 62  5f 70 61 67 65 24 3d 22  |..vD.sub_page$="|
00000550  30 22 20 f2 6f 73 63 6c  69 28 22 50 41 47 45 31  |0" .oscli("PAGE1|
00000560  39 31 22 29 20 8b f2 6f  73 63 6c 69 28 22 50 41  |91") ..oscli("PA|
00000570  47 45 31 39 31 30 30 30  22 2b 73 75 62 5f 70 61  |GE191000"+sub_pa|
00000580  67 65 24 29 0d 02 80 12  2a 54 52 41 4e 53 46 45  |ge$)....*TRANSFE|
00000590  52 20 37 30 30 30 0d 02  8a 13 e3 41 25 3d 26 37  |R 7000.....A%=&7|
000005a0  30 30 30 b8 26 37 33 39  38 0d 02 94 18 e7 3f 41  |000.&7398.....?A|
000005b0  25 3e 31 35 39 20 3f 41  25 3d 3f 41 25 80 26 37  |%>159 ?A%=?A%.&7|
000005c0  46 0d 02 9e 05 ed 0d 02  a8 05 e1 0d 02 b2 0d f4  |F...............|
000005d0  22 81 2a 2a 2a 2a 2a 2a  0d 02 bc 0f dd f2 6f 73  |".******......os|
000005e0  63 6c 69 28 73 24 29 0d  02 c6 06 ea 73 0d 02 d0  |cli(s$).....s...|
000005f0  0a de 20 73 20 32 35 0d  02 da 17 58 25 3d 73 20  |.. s 25....X%=s |
00000600  83 32 35 36 3a 59 25 3d  73 20 81 32 35 36 0d 02  |.256:Y%=s .256..|
00000610  e4 09 24 73 3d 73 24 0d  02 ee 0a d6 26 46 46 46  |..$s=s$.....&FFF|
00000620  37 0d 02 f8 05 e1 0d 03  02 0d f4 22 81 2a 2a 2a  |7..........".***|
00000630  2a 2a 2a 0d 03 0c 0e dd  a4 68 6f 77 5f 6d 61 6e  |***......how_man|
00000640  79 0d 03 16 22 ea 65 6e  25 2c 42 25 2c 43 25 3a  |y...".en%,B%,C%:|
00000650  42 25 3d 3f 26 37 30 35  30 3a 3f 26 37 30 35 30  |B%=?&7050:?&7050|
00000660  3d 26 44 0d 03 20 2f 65  6e 25 3d 26 37 30 35 30  |=&D.. /en%=&7050|
00000670  3a f5 3a 65 6e 25 3d 65  6e 25 2d 31 3a fd 3f 65  |:.:en%=en%-1:.?e|
00000680  6e 25 3d 97 22 2f 22 20  84 65 6e 25 3d 26 37 30  |n%=."/" .en%=&70|
00000690  32 39 0d 03 2a 1c 43 25  3d bb 28 24 28 65 6e 25  |29..*.C%=.($(en%|
000006a0  2b 31 29 29 3a 3f 26 37  30 35 30 3d 42 25 0d 03  |+1)):?&7050=B%..|
000006b0  34 17 e7 65 6e 25 3d 26  37 30 32 39 20 84 43 25  |4..en%=&7029 .C%|
000006c0  3d 30 20 3d 31 0d 03 3e  07 3d 43 25 0d 03 48 0d  |=0 =1..>.=C%..H.|
000006d0  f4 22 81 2a 2a 2a 2a 2a  2a 0d 03 52 33 dd f2 73  |.".******..R3..s|
000006e0  61 76 65 28 74 6f 74 61  6c 5f 70 61 67 65 73 25  |ave(total_pages%|
000006f0  2c 74 68 69 73 5f 70 61  67 65 5f 6e 6f 25 2c 72  |,this_page_no%,r|
00000700  65 63 69 70 65 5f 6e 61  6d 65 24 29 0d 03 5c 15  |ecipe_name$)..\.|
00000710  66 69 6c 65 31 25 3d ad  28 22 66 69 6c 65 31 22  |file1%=.("file1"|
00000720  29 0d 03 66 15 66 69 6c  65 32 25 3d ad 28 22 66  |)..f.file2%=.("f|
00000730  69 6c 65 32 22 29 0d 03  70 23 e7 66 69 6c 65 31  |ile2")..p#.file1|
00000740  25 3d 30 20 84 66 69 6c  65 32 25 3d 30 20 f2 6f  |%=0 .file2%=0 .o|
00000750  70 65 6e 5f 66 69 6c 65  73 0d 03 7a 15 cf 23 66  |pen_files..z..#f|
00000760  69 6c 65 32 25 3d a2 23  66 69 6c 65 32 25 0d 03  |ile2%=.#file2%..|
00000770  84 21 e3 42 25 3d 26 37  30 30 30 20 b8 26 37 33  |.!.B%=&7000 .&73|
00000780  39 38 3a d5 23 66 69 6c  65 32 25 2c 3f 42 25 0d  |98:.#file2%,?B%.|
00000790  03 8e 05 ed 0d 03 98 26  e7 74 6f 74 61 6c 5f 70  |.......&.total_p|
000007a0  61 67 65 73 25 3c 3e 74  68 69 73 5f 70 61 67 65  |ages%<>this_page|
000007b0  5f 6e 6f 25 20 e5 8d 64  7c 43 0d 03 a2 18 45 25  |_no% ..d|C....E%|
000007c0  3d 28 28 a2 23 66 69 6c  65 32 25 29 81 26 33 39  |=((.#file2%).&39|
000007d0  39 29 0d 03 ac 1a 53 25  3d 28 45 25 2d 74 6f 74  |9)....S%=(E%-tot|
000007e0  61 6c 5f 70 61 67 65 73  25 29 2b 31 0d 03 b6 15  |al_pages%)+1....|
000007f0  cf 23 66 69 6c 65 31 25  3d a2 23 66 69 6c 65 31  |.#file1%=.#file1|
00000800  25 0d 03 c0 0f d5 23 66  69 6c 65 31 25 2c 53 25  |%.....#file1%,S%|
00000810  0d 03 ca 0f d5 23 66 69  6c 65 31 25 2c 45 25 0d  |.....#file1%,E%.|
00000820  03 d4 0c e3 42 25 3d 31  b8 33 38 0d 03 de 1d 43  |....B%=1.38....C|
00000830  25 3d 97 28 c1 72 65 63  69 70 65 5f 6e 61 6d 65  |%=.(.recipe_name|
00000840  24 2c 42 25 2c 31 29 29  0d 03 e8 0f d5 23 66 69  |$,B%,1)).....#fi|
00000850  6c 65 31 25 2c 43 25 0d  03 f2 05 ed 0d 03 fc 0c  |le1%,C%.........|
00000860  d9 23 66 69 6c 65 31 25  0d 04 06 0c d9 23 66 69  |.#file1%.....#fi|
00000870  6c 65 32 25 0d 04 10 05  e1 0d 04 1a 0d f4 22 81  |le2%..........".|
00000880  2a 2a 2a 2a 2a 2a 0d 04  24 19 dd a4 63 68 65 63  |******..$...chec|
00000890  6b 5f 61 6c 72 65 61 64  79 5f 73 61 76 65 64 0d  |k_already_saved.|
000008a0  04 2e 0a ea 66 69 6c 65  25 0d 04 38 15 66 69 6c  |....file%..8.fil|
000008b0  65 31 25 3d ad 28 22 66  69 6c 65 31 22 29 0d 04  |e1%=.("file1")..|
000008c0  42 13 e7 66 69 6c 65 31  25 3d 30 20 e5 8d 44 7e  |B..file1%=0 ..D~|
000008d0  44 0d 04 4c 1a cf 23 66  69 6c 65 31 25 3d 28 a2  |D..L..#file1%=(.|
000008e0  23 66 69 6c 65 31 25 29  2d 33 38 0d 04 56 2a 73  |#file1%)-38..V*s|
000008f0  25 3d 26 41 30 30 3a e3  62 79 25 3d 30 b8 33 37  |%=&A00:.by%=0.37|
00000900  3a 3f 28 73 25 2b 62 79  25 29 3d 9a 23 66 69 6c  |:?(s%+by%)=.#fil|
00000910  65 31 25 3a ed 0d 04 60  15 3f 28 73 25 2b a9 28  |e1%:...`.?(s%+.(|
00000920  6e 61 6d 65 24 29 29 3d  26 44 0d 04 6a 0c d9 23  |name$))=&D..j..#|
00000930  66 69 6c 65 31 25 0d 04  74 13 e7 6e 61 6d 65 24  |file1%..t..name$|
00000940  3d 24 28 73 25 29 20 3d  b9 0d 04 7e 06 3d a3 0d  |=$(s%) =...~.=..|
00000950  04 88 0d f4 22 81 2a 2a  2a 2a 2a 2a 0d 04 92 0a  |....".******....|
00000960  dd f2 6d 65 6e 75 0d 04  9c 0c f2 68 65 61 64 69  |..menu.....headi|
00000970  6e 67 0d 04 a6 2b f1 27  27 bd 31 33 32 3b bd 31  |ng...+.''.132;.1|
00000980  35 37 22 87 50 72 65 73  73 86 31 87 74 6f 20 66  |57".Press.1.to f|
00000990  69 6e 64 20 61 20 72 65  63 69 70 65 22 0d 04 b0  |ind a recipe"...|
000009a0  3b e7 61 64 61 70 74 6f  72 25 20 f1 27 bd 31 33  |;.adaptor% .'.13|
000009b0  32 3b bd 31 35 37 22 87  50 72 65 73 73 86 32 87  |2;.157".Press.2.|
000009c0  74 6f 20 61 64 64 20 74  6f 64 61 79 73 20 72 65  |to add todays re|
000009d0  63 69 70 65 22 8b f1 27  0d 04 ba 21 f1 27 bd 31  |cipe"..'...!.'.1|
000009e0  33 32 3b bd 31 35 37 3b  22 87 50 72 65 73 73 86  |32;.157;".Press.|
000009f0  33 87 74 6f 20 65 6e 64  22 0d 04 c4 0b 2a 46 58  |3.to end"....*FX|
00000a00  31 35 2c 31 0d 04 ce 15  f5 3a 51 3d a5 3a fd 51  |15,1.....:Q=.:.Q|
00000a10  3e 34 38 20 80 51 3c 35  32 0d 04 d8 15 e7 51 3d  |>48 .Q<52.....Q=|
00000a20  34 39 20 f2 72 65 61 64  5f 66 69 6c 65 73 0d 04  |49 .read_files..|
00000a30  e2 1f e7 51 3d 35 30 20  80 61 64 61 70 74 6f 72  |...Q=50 .adaptor|
00000a40  25 3a f2 61 64 64 5f 72  65 63 69 70 65 0d 04 ec  |%:.add_recipe...|
00000a50  6e e7 51 3d 35 30 20 80  ac 61 64 61 70 74 6f 72  |n.Q=50 ..adaptor|
00000a60  25 3a f1 27 bd 31 33 32  3b bd 31 35 37 3b 22 86  |%:.'.132;.157;".|
00000a70  48 6d 6d 6d 2e 2e 2e 4f  70 74 2e 32 20 69 73 20  |Hmmm...Opt.2 is |
00000a80  74 72 69 63 6b 79 2e 2e  2e 22 27 bd 31 33 32 3b  |tricky..."'.132;|
00000a90  bd 31 35 37 3b 22 86 74  68 65 72 65 27 73 20 6e  |.157;".there's n|
00000aa0  6f 20 54 65 6c 65 74 65  78 74 21 22 3a 51 3d a6  |o Teletext!":Q=.|
00000ab0  28 35 30 30 29 3a e5 8d  74 5c 44 0d 04 f6 05 e1  |(500):..t\D.....|
00000ac0  0d 05 00 0d f4 22 81 2a  2a 2a 2a 2a 2a 0d 05 0a  |.....".******...|
00000ad0  14 dd f2 64 69 73 70 6c  61 79 28 61 64 64 72 25  |...display(addr%|
00000ae0  29 0d 05 14 05 db 0d 05  1e 23 f1 8a 30 2c 30 29  |)........#..0,0)|
00000af0  22 81 28 43 29 82 4a 2e  4a 2e 42 72 61 79 73 68  |".(C).J.J.Braysh|
00000b00  61 77 81 31 39 38 37 86  22 0d 05 28 12 e3 51 3d  |aw.1987."..(..Q=|
00000b10  26 31 37 b8 26 33 39 34  20 88 34 0d 05 32 19 21  |&17.&394 .4..2.!|
00000b20  28 26 37 43 30 30 2b 51  29 3d 21 28 61 64 64 72  |(&7C00+Q)=!(addr|
00000b30  25 2b 51 29 0d 05 3c 05  ed 0d 05 46 39 f1 8a 30  |%+Q)..<....F9..0|
00000b40  2c 32 34 29 bd 31 33 32  3b bd 31 35 37 3b 22 83  |,24).132;.157;".|
00000b50  5e 86 42 41 43 4b 3a 83  76 86 46 57 44 3a 83 5b  |^.BACK:.v.FWD:.[|
00000b60  86 31 73 74 20 50 41 47  45 3a 83 5d 86 45 4e 44  |.1st PAGE:.].END|
00000b70  22 3b 0d 05 50 05 e1 0d  05 5a 0d f4 22 81 2a 2a  |";..P....Z..".**|
00000b80  2a 2a 2a 2a 0d 05 64 0d  dd f2 70 72 69 6e 74 65  |****..d...printe|
00000b90  72 0d 05 6e 1f f4 22 82  54 45 53 54 20 46 4f 52  |r..n..".TEST FOR|
00000ba0  20 4f 4e 20 4c 49 4e 45  20 53 54 41 54 55 53 3a  | ON LINE STATUS:|
00000bb0  0d 05 78 2c ef 32 2c 31  2c 30 2c 31 2c 30 2c 31  |..x,.2,1,0,1,0,1|
00000bc0  2c 30 2c 33 3a e3 41 25  3d 31 b8 32 30 3a ed 3a  |,0,3:.A%=1.20:.:|
00000bd0  e7 96 28 2d 34 29 3c 3e  36 33 20 e1 0d 05 82 0b  |..(-4)<>63 .....|
00000be0  ea 41 25 2c 41 31 25 0d  05 8c 21 f4 22 82 53 45  |.A%,A1%...!.".SE|
00000bf0  54 20 55 4e 44 45 52 4c  49 4e 45 20 26 20 45 4d  |T UNDERLINE & EM|
00000c00  50 48 41 53 49 53 45 3a  0d 05 96 1e ef 32 2c 31  |PHASISE:.....2,1|
00000c10  2c 32 37 2c 31 2c 34 35  2c 31 2c 31 2c 31 2c 32  |,27,1,45,1,1,1,2|
00000c20  37 2c 31 2c 37 31 0d 05  a0 1f e7 74 61 62 25 3c  |7,1,71.....tab%<|
00000c30  3e 30 3a e3 74 25 3d 31  b8 74 61 62 25 3a ef 31  |>0:.t%=1.tab%:.1|
00000c40  2c 33 32 3a ed 0d 05 aa  14 e3 41 31 25 3d 26 37  |,32:......A1%=&7|
00000c50  43 43 38 b8 26 37 43 46  30 0d 05 b4 22 63 68 72  |CC8.&7CF0..."chr|
00000c60  25 3d 3f 28 41 31 25 29  80 26 37 46 3a e7 63 68  |%=?(A1%).&7F:.ch|
00000c70  72 25 3c 33 32 20 e5 8d  64 48 45 0d 05 be 0b ef  |r%<32 ..dHE.....|
00000c80  31 2c 63 68 72 25 0d 05  c8 05 ed 0d 05 d2 1d f4  |1,chr%..........|
00000c90  22 82 43 41 4e 43 45 4c  20 55 2f 4c 49 4e 45 20  |".CANCEL U/LINE |
00000ca0  26 20 45 4d 50 48 2e 3a  0d 05 dc 1c ef 31 2c 32  |& EMPH.:.....1,2|
00000cb0  37 2c 31 2c 34 35 2c 31  2c 30 2c 31 2c 32 37 2c  |7,1,45,1,0,1,27,|
00000cc0  31 2c 37 32 0d 05 e6 18  e3 41 31 25 3d 26 37 43  |1,72.....A1%=&7C|
00000cd0  46 30 b8 26 37 46 37 30  20 88 34 30 0d 05 f0 1f  |F0.&7F70 .40....|
00000ce0  e7 74 61 62 25 3c 3e 30  3a e3 74 25 3d 31 b8 74  |.tab%<>0:.t%=1.t|
00000cf0  61 62 25 3a ef 31 2c 33  32 3a ed 0d 05 fa 1b e3  |ab%:.1,32:......|
00000d00  41 25 3d 30 b8 33 39 3a  63 68 72 25 3d 3f 28 41  |A%=0.39:chr%=?(A|
00000d10  31 25 2b 41 25 29 0d 06  04 18 e7 63 68 72 25 3d  |1%+A%).....chr%=|
00000d20  31 34 31 20 41 31 25 3d  41 31 25 2b 34 30 0d 06  |141 A1%=A1%+40..|
00000d30  0e 11 63 68 72 25 3d 63  68 72 25 80 26 37 46 0d  |..chr%=chr%.&7F.|
00000d40  06 18 14 e7 63 68 72 25  3c 33 32 20 63 68 72 25  |....chr%<32 chr%|
00000d50  3d 33 32 0d 06 22 51 e7  63 68 72 25 3d 31 32 33  |=32.."Q.chr%=123|
00000d60  20 ef 31 2c 32 37 2c 31  2c 37 35 2c 31 2c 37 2c  | .1,27,1,75,1,7,|
00000d70  31 2c 30 2c 31 2c 30 2c  31 2c 32 34 30 2c 31 2c  |1,0,1,0,1,240,1,|
00000d80  36 2c 31 2c 31 30 2c 31  2c 33 31 2c 31 2c 32 2c  |6,1,10,1,31,1,2,|
00000d90  31 2c 30 3a e5 8d 44 4a  46 3a f4 22 82 50 52 49  |1,0:..DJF:.".PRI|
00000da0  4e 54 20 7b 0d 06 2c 54  e7 63 68 72 25 3d 31 32  |NT {..,T.chr%=12|
00000db0  35 20 ef 31 2c 32 37 2c  31 2c 37 35 2c 31 2c 37  |5 .1,27,1,75,1,7|
00000dc0  2c 31 2c 30 2c 31 2c 31  36 38 2c 31 2c 31 36 38  |,1,0,1,168,1,168|
00000dd0  2c 31 2c 38 36 2c 31 2c  31 30 2c 31 2c 33 31 2c  |,1,86,1,10,1,31,|
00000de0  31 2c 32 2c 31 2c 30 3a  e5 8d 44 4a 46 3a f4 22  |1,2,1,0:..DJF:."|
00000df0  82 50 52 49 4e 54 20 7d  0d 06 36 51 e7 63 68 72  |.PRINT }..6Q.chr|
00000e00  25 3d 39 32 20 ef 31 2c  32 37 2c 31 2c 37 35 2c  |%=92 .1,27,1,75,|
00000e10  31 2c 37 2c 31 2c 30 2c  31 2c 30 2c 31 2c 32 34  |1,7,1,0,1,0,1,24|
00000e20  30 2c 31 2c 32 33 2c 31  2c 32 31 2c 31 2c 32 31  |0,1,23,1,21,1,21|
00000e30  2c 31 2c 39 2c 31 2c 30  3a e5 8d 44 4a 46 3a f4  |,1,9,1,0:..DJF:.|
00000e40  22 82 50 52 49 4e 54 20  5c 0d 06 40 0b ef 31 2c  |".PRINT \..@..1,|
00000e50  63 68 72 25 0d 06 4a 05  ed 0d 06 54 09 ef 31 2c  |chr%..J....T..1,|
00000e60  31 33 0d 06 5e 05 ed 0d  06 68 06 ef 33 0d 06 72  |13..^....h..3..r|
00000e70  05 e1 0d 06 7c 0d f4 22  81 2a 2a 2a 2a 2a 2a 0d  |....|..".******.|
00000e80  06 86 0d dd f2 68 65 61  64 69 6e 67 0d 06 90 05  |.....heading....|
00000e90  db 0d 06 9a 2b f1 bd 31  35 31 3b 22 5f 70 7c 70  |....+..151;"_p|p|
00000ea0  30 70 78 74 70 5f 70 7c  70 30 70 7c 70 5f 70 7c  |0pxtp_p|p0p|p_p||
00000eb0  70 30 70 78 74 70 5f 70  7c 70 30 22 0d 06 a4 3a  |p0pxtp_p|p0"...:|
00000ec0  f1 bd 31 34 35 3b 22 68  2c 2c 2c 34 3c 2c 2c 6c  |..145;"h,,,4<,,l|
00000ed0  68 2c 2c 2c 34 3c 2c 6c  68 2c 2c 2c 34 3c 2c 2c  |h,,,4<,lh,,,4<,,|
00000ee0  6c 68 2c 2c 2c 34 22 bd  31 35 37 3b bd 31 33 35  |lh,,,4".157;.135|
00000ef0  22 46 72 6f 6d 22 0d 06  ae 3c f1 bd 31 35 31 3b  |"From"...<..151;|
00000f00  22 6a 20 73 28 35 35 62  73 ff 6a 20 ff ff 35 ff  |"j s(55bs.j ..5.|
00000f10  20 ff 6a 20 73 70 35 35  62 73 ff 6a 70 73 60 22  | .j sp55bs.jps`"|
00000f20  bd 31 35 37 3b bd 31 33  32 3b 22 43 45 45 46 41  |.157;.132;"CEEFA|
00000f30  58 22 0d 06 b8 3b f1 bd  31 34 35 3b 22 2a 2c 2f  |X"...;..145;"*,/|
00000f40  2c 25 2d 2c 2c 2e 2a 2c  2c 2c 25 2d 2c 2e 2a 2c  |,%-,,.*,,,%-,.*,|
00000f50  2f 2f 25 2d 2c 2c 2e 2a  2c 2c 2c 25 22 bd 31 35  |//%-,,.*,,,%".15|
00000f60  37 3b bd 31 33 35 22 50  61 67 65 73 22 0d 06 c2  |7;.135"Pages"...|
00000f70  34 ef 33 32 2c 31 32 39  2c 31 35 37 2c 31 33 34  |4.32,129,157,134|
00000f80  3a f1 22 28 43 29 87 4a  2e 4a 2e 42 72 61 79 73  |:."(C).J.J.Brays|
00000f90  68 61 77 86 31 39 38 36  20 20 20 22 3b bd 31 35  |haw.1986   ";.15|
00000fa0  36 0d 06 cc 06 f1 27 0d  06 d6 05 e1 0d 06 e0 0d  |6.....'.........|
00000fb0  f4 22 81 2a 2a 2a 2a 2a  2a 0d 06 ea 10 dd f2 6f  |.".******......o|
00000fc0  70 65 6e 5f 66 69 6c 65  73 0d 06 f4 07 d9 23 30  |pen_files.....#0|
00000fd0  0d 06 fe 25 66 69 6c 65  31 25 3d ae 22 66 69 6c  |...%file1%=."fil|
00000fe0  65 31 22 3a cf 23 66 69  6c 65 31 25 3d 36 30 2a  |e1":.#file1%=60*|
00000ff0  64 69 73 63 25 0d 07 08  0c d9 23 66 69 6c 65 31  |disc%.....#file1|
00001000  25 0d 07 12 13 66 69 6c  65 32 25 3d ae 22 66 69  |%....file2%=."fi|
00001010  6c 65 32 22 0d 07 1c 13  66 69 6c 65 31 25 3d ae  |le2"....file1%=.|
00001020  22 66 69 6c 65 31 22 0d  07 26 05 e1 0d 07 30 0d  |"file1"..&....0.|
00001030  f4 22 81 2a 2a 2a 2a 2a  2a 0d 07 3a 17 dd a4 61  |.".******..:...a|
00001040  64 61 70 74 6f 72 3a de  20 77 6f 72 6b 25 20 32  |daptor:. work% 2|
00001050  0d 07 44 48 41 25 3d 26  37 41 3a 58 25 3d 77 6f  |..DHA%=&7A:X%=wo|
00001060  72 6b 25 83 32 35 36 3a  59 25 3d 77 6f 72 6b 25  |rk%.256:Y%=work%|
00001070  81 32 35 36 3a 3f 77 6f  72 6b 25 3d 31 37 3a d6  |.256:?work%=17:.|
00001080  26 46 46 46 31 3a e7 77  6f 72 6b 25 3f 31 3d 30  |&FFF1:.work%?1=0|
00001090  20 3d b9 20 8b 20 3d a3  0d 07 4e 0d f4 22 81 2a  | =. . =...N..".*|
000010a0  2a 2a 2a 2a 2a 0d 07 58  15 dd f2 63 6f 6e 76 65  |*****..X...conve|
000010b0  72 74 28 70 6f 73 2c 61  25 29 0d 07 62 2c e3 41  |rt(pos,a%)..b,.A|
000010c0  25 3d 31 b8 33 38 3a 3f  28 26 41 30 30 2b 41 25  |%=1.38:?(&A00+A%|
000010d0  29 3d 3f 28 70 6f 73 2b  41 25 29 3a ed 3a 3f 26  |)=?(pos+A%):.:?&|
000010e0  41 32 33 3d 26 44 0d 07  6c 13 e7 61 25 3e 39 39  |A23=&D..l..a%>99|
000010f0  20 3f 26 41 32 32 3d 26  44 0d 07 76 2b f1 22 83  | ?&A22=&D..v+.".|
00001100  22 3b 61 25 3b 3a e7 61  25 3c 31 30 20 f1 22 20  |";a%;:.a%<10 ." |
00001110  87 22 24 26 41 30 31 3b  20 8b f1 22 87 22 24 26  |."$&A01; .."."$&|
00001120  41 30 31 3b 0d 07 80 05  e1 0d 07 8a 0d f4 22 81  |A01;..........".|
00001130  2a 2a 2a 2a 2a 2a 0d 07  94 10 dd f2 72 65 61 64  |******......read|
00001140  5f 66 69 6c 65 73 0d 07  9e 0c f2 68 65 61 64 69  |_files.....headi|
00001150  6e 67 0d 07 a8 0b 2a 46  58 31 31 2c 37 0d 07 b2  |ng....*FX11,7...|
00001160  0b 2a 46 58 31 32 2c 37  0d 07 bc 14 2a 4c 4f 41  |.*FX12,7....*LOA|
00001170  44 20 66 69 6c 65 31 20  36 30 30 30 0d 07 c6 2f  |D file1 6000.../|
00001180  66 69 6c 65 31 25 3d ad  22 66 69 6c 65 31 22 3a  |file1%=."file1":|
00001190  65 78 74 25 3d 28 a2 23  66 69 6c 65 31 25 29 81  |ext%=(.#file1%).|
000011a0  34 30 3a d9 23 66 69 6c  65 31 25 0d 07 d0 0d 6d  |40:.#file1%....m|
000011b0  61 78 25 3d 65 78 74 25  0d 07 da 31 ef 31 31 3a  |ax%=ext%...1.11:|
000011c0  e3 61 25 3d 31 b8 31 36  3a ef 31 33 32 2c 31 35  |.a%=1.16:.132,15|
000011d0  37 2c 31 30 2c 31 33 3a  ed 3a ef 32 38 2c 32 2c  |7,10,13:.:.28,2,|
000011e0  32 32 2c 33 39 2c 36 3a  db 0d 07 e4 2c 73 63 72  |22,39,6:....,scr|
000011f0  62 74 6d 25 3d 6d 61 78  25 3a e7 65 78 74 25 3c  |btm%=max%:.ext%<|
00001200  31 37 20 62 73 25 3d 31  20 8b 62 73 25 3d 6d 61  |17 bs%=1 .bs%=ma|
00001210  78 25 2d 31 35 0d 07 ee  10 e3 61 25 3d 62 73 25  |x%-15.....a%=bs%|
00001220  b8 6d 61 78 25 0d 07 f8  24 f2 63 6f 6e 76 65 72  |.max%...$.conver|
00001230  74 28 26 36 30 30 30 2b  28 28 61 25 2d 31 29 2a  |t(&6000+((a%-1)*|
00001240  34 30 29 2b 31 2c 61 25  29 0d 08 02 0c 3f 26 41  |40)+1,a%)....?&A|
00001250  32 33 3d 26 44 0d 08 0c  05 ed 0d 08 16 1a e7 65  |23=&D..........e|
00001260  78 74 25 3c 3d 31 36 20  51 25 3d 31 33 37 3a e5  |xt%<=16 Q%=137:.|
00001270  8d 44 7a 48 0d 08 20 07  ef 32 36 0d 08 2a 3b f1  |.DzH.. ..26..*;.|
00001280  8a 30 2c 32 34 29 bd 31  33 32 3b bd 31 35 37 3b  |.0,24).132;.157;|
00001290  22 83 5e 86 42 41 43 4b  3a 83 76 86 46 4f 52 57  |".^.BACK:.v.FORW|
000012a0  41 52 44 3a 83 5d 86 53  45 4c 45 43 54 20 52 45  |ARD:.].SELECT RE|
000012b0  43 49 50 45 22 3b 0d 08  34 11 ef 32 38 2c 32 2c  |CIPE";..4..28,2,|
000012c0  32 32 2c 33 39 2c 36 0d  08 3e 05 f5 0d 08 48 0b  |22,39,6..>....H.|
000012d0  2a 46 58 31 35 2c 31 0d  08 52 08 51 25 3d a5 0d  |*FX15,1..R.Q%=..|
000012e0  08 5c 5d e7 51 25 3d 31  33 38 80 73 63 72 62 74  |.\].Q%=138.scrbt|
000012f0  6d 25 3c 65 78 74 25 3a  73 63 72 62 74 6d 25 3d  |m%<ext%:scrbtm%=|
00001300  73 63 72 62 74 6d 25 2b  31 3a f1 8a 30 2c 31 35  |scrbtm%+1:..0,15|
00001310  29 3a f2 63 6f 6e 76 65  72 74 28 26 36 30 30 30  |):.convert(&6000|
00001320  2b 28 28 73 63 72 62 74  6d 25 2d 31 29 2a 34 30  |+((scrbtm%-1)*40|
00001330  29 2b 31 2c 73 63 72 62  74 6d 25 29 0d 08 66 73  |)+1,scrbtm%)..fs|
00001340  e7 51 25 3d 31 33 39 80  28 73 63 72 62 74 6d 25  |.Q%=139.(scrbtm%|
00001350  2d 31 36 29 3e 30 3a 73  63 72 62 74 6d 25 3d 73  |-16)>0:scrbtm%=s|
00001360  63 72 62 74 6d 25 2d 31  3a f1 8a 30 2c 31 35 29  |crbtm%-1:..0,15)|
00001370  89 28 34 30 29 3b 8a 30  2c 30 29 3b 3a ef 31 31  |.(40);.0,0);:.11|
00001380  3a f2 63 6f 6e 76 65 72  74 28 26 36 30 30 30 2b  |:.convert(&6000+|
00001390  28 28 73 63 72 62 74 6d  25 2d 31 36 29 2a 34 30  |((scrbtm%-16)*40|
000013a0  29 2b 31 2c 73 63 72 62  74 6d 25 2d 31 35 29 0d  |)+1,scrbtm%-15).|
000013b0  08 70 0b fd 51 25 3d 31  33 37 0d 08 7a 10 ef 32  |.p..Q%=137..z..2|
000013c0  36 3a f1 8a 30 2c 32 34  29 3b 0d 08 84 11 f1 8a  |6:..0,24);......|
000013d0  30 2c 32 34 29 89 28 33  38 29 3b 0d 08 8e 28 f1  |0,24).(38);...(.|
000013e0  8a 30 2c 32 33 29 bd 31  33 32 3b bd 31 35 37 3b  |.0,23).132;.157;|
000013f0  22 87 50 6c 65 61 73 65  20 73 65 6c 65 63 74 3a  |".Please select:|
00001400  83 22 3b 0d 08 98 0f f5  3a fd ac a6 28 2d 31 32  |.";.....:...(-12|
00001410  32 29 0d 08 a2 0b 2a 46  58 31 32 2c 30 0d 08 ac  |2)....*FX12,0...|
00001420  0b 2a 46 58 31 35 2c 31  0d 08 b6 09 e8 22 22 52  |.*FX15,1.....""R|
00001430  25 0d 08 c0 2b e7 28 52  25 3e 65 78 74 25 29 84  |%...+.(R%>ext%).|
00001440  28 52 25 3c 31 29 20 ef  37 3a f1 8a 34 2c 32 33  |(R%<1) .7:..4,23|
00001450  29 89 28 33 30 29 3a e5  8d 74 4e 48 0d 08 ca 28  |).(30):..tNH...(|
00001460  f1 bd 31 33 32 3b bd 31  35 37 22 83 4c 6f 6f 6b  |..132;.157".Look|
00001470  69 6e 67 20 66 6f 72 20  72 65 63 69 70 65 20 22  |ing for recipe "|
00001480  3b 52 25 3b 0d 08 d4 35  53 25 3d 3f 28 26 36 30  |;R%;...5S%=?(&60|
00001490  30 30 2b 28 28 52 25 2d  31 29 2a 34 30 29 29 3a  |00+((R%-1)*40)):|
000014a0  45 25 3d 3f 28 26 36 30  30 30 2b 28 28 52 25 2d  |E%=?(&6000+((R%-|
000014b0  31 29 2a 34 30 29 2b 31  29 0d 08 de 38 e3 41 25  |1)*40)+1)...8.A%|
000014c0  3d 31 b8 33 38 3a 3f 28  26 41 30 30 2b 41 25 29  |=1.38:?(&A00+A%)|
000014d0  3d 3f 28 26 36 30 30 30  2b 28 52 25 2a 34 30 29  |=?(&6000+(R%*40)|
000014e0  2b 31 2b 41 25 29 3a ed  3a 3f 26 41 32 32 3d 26  |+1+A%):.:?&A22=&|
000014f0  44 0d 08 e8 15 66 69 6c  65 32 25 3d ad 28 22 66  |D....file2%=.("f|
00001500  69 6c 65 32 22 29 0d 08  f2 18 cf 23 66 69 6c 65  |ile2").....#file|
00001510  32 25 3d 28 53 25 2d 31  29 2a 26 33 39 39 0d 08  |2%=(S%-1)*&399..|
00001520  fc 1c e3 4d 25 3d 30 b8  28 28 28 45 25 2b 31 29  |...M%=0.(((E%+1)|
00001530  2d 53 25 29 2a 26 33 39  39 29 0d 09 06 18 3f 28  |-S%)*&399)....?(|
00001540  4d 25 2b 26 36 30 30 30  29 3d 9a 23 66 69 6c 65  |M%+&6000)=.#file|
00001550  32 25 0d 09 10 05 ed 0d  09 1a 0c d9 23 66 69 6c  |2%..........#fil|
00001560  65 32 25 0d 09 24 0f 61  64 64 72 25 3d 26 36 30  |e2%..$.addr%=&60|
00001570  30 30 0d 09 2e 05 f5 0d  09 38 13 f2 64 69 73 70  |00.......8..disp|
00001580  6c 61 79 28 61 64 64 72  25 29 0d 09 42 0b 2a 46  |lay(addr%)..B.*F|
00001590  58 31 35 2c 31 0d 09 4c  17 f5 3a 51 3d a5 3a fd  |X15,1..L..:Q=.:.|
000015a0  51 3e 31 33 34 20 80 51  3c 31 34 30 0d 09 56 1b  |Q>134 .Q<140..V.|
000015b0  e7 51 3d 31 33 39 20 61  64 64 72 25 3d 61 64 64  |.Q=139 addr%=add|
000015c0  72 25 2d 26 33 39 39 0d  09 60 1b e7 51 3d 31 33  |r%-&399..`..Q=13|
000015d0  38 20 61 64 64 72 25 3d  61 64 64 72 25 2b 26 33  |8 addr%=addr%+&3|
000015e0  39 39 0d 09 6a 16 e7 51  3d 31 33 36 20 61 64 64  |99..j..Q=136 add|
000015f0  72 25 3d 26 36 30 30 30  0d 09 74 19 e7 51 3d 31  |r%=&6000..t..Q=1|
00001600  33 35 20 f2 70 72 69 6e  74 65 72 3a e5 8d 44 4c  |35 .printer:..DL|
00001610  49 0d 09 7e 43 e7 61 64  64 72 25 3e 3d 28 26 36  |I..~C.addr%>=(&6|
00001620  30 30 30 2b 28 28 28 45  25 2b 31 29 2d 53 25 29  |000+(((E%+1)-S%)|
00001630  2a 26 33 39 39 29 29 20  61 64 64 72 25 3d 28 26  |*&399)) addr%=(&|
00001640  36 30 30 30 2b 28 28 45  25 2d 53 25 29 2a 26 33  |6000+((E%-S%)*&3|
00001650  39 39 29 29 0d 09 88 1c  e7 61 64 64 72 25 3c 26  |99)).....addr%<&|
00001660  36 30 30 30 20 61 64 64  72 25 3d 26 36 30 30 30  |6000 addr%=&6000|
00001670  0d 09 92 0a fd 51 3d 31  33 37 0d 09 9c 05 e1 0d  |.....Q=137......|
00001680  ff                                                |.|
00001681