"� BTEC Project "PAGE5-1" v.1.0
��tFF

temp=0
(*FX200,0
2��namesfrom$(15),pricesfrom(15),num(40),rname$(40),init$(40),sname$(40),title$(40),telno(40),or1$(40),or2$(40),or3$(40),todaysbill(40),outstanding(40),g$(40)
<*DIR
Fthat_one=�("DATA")
P>�:temp=temp+1:�#that_one,namesfrom$(temp),pricesfrom(temp)
ZC�namesfrom$(temp)="EMPTY" � pricesfrom(temp)=-981 � temp=temp-1
d� �#that_one
n� #that_one
x*DIR MORNING
��mainwindow
��:�c("NEW CUSTOMER")
��'
�k�'"Title         :"''"Surname       :"''"Address       :"''''''"Tel. No.      :"'''"Paper(s) ordered :"
��'''''"Bill outstanding :";
��23;8202;0;0;0;
�;�comwindow:�'''''''�c("Please enter title")''�c("...");
�.n$="":�17,3);:maxlength=3:�getinput:�TvA
���getinput
�	*FX21
�5�:z=�:� z>1 � z<127 � �n$<maxlength n$=n$+�(z):�z
�)� z=127 � �n$>0 �8,46,8:n$=�n$,�n$-1)
�� z=21 �1:�df@


� z=13

�

 ��mainwindow:�28,1,24,38,1:�

" ��comwindow:�28,1,30,38,27:�

,ݤc(C$):�19-�C$/2);:=C$

6e�''''':�n$,2)<>"MR" � �7:�'''�c("Title must be of type ""MR"" or ""MRS""")':A$=�(250):�''':�tt@

@title$(1)=n$

J!�mainwindow:�16,4);title$(1)

T�comwindow

^L�comwindow:�'''''''�c("Please enter surname")''�c("..................");

h)n$="":�10,3);:maxlength=18:�getinput

rsname$(1)=n$

|!�mainwindow:�16,6);sname$(1)

��comwindow

�)�'''''''�c("Enter initial")''�c(".");

�(n$="":�18,3);:maxlength=1:�getinput

�init$(1)=n$

�3�mainwindow:�15+(�(sname$(1))),6)", ";init$(1)

��comwindow

�7�'''''''�c("Please enter house number")''�c("...");

�(n$="":�17,3);:maxlength=3:�getinput

�num(1)=�(n$)

�remember=�(n$)

�A�(n$)=0 �7:�''''�c("Number not valid."):A$=�(250):�''':�dBA

�"�mainwindow:�16,8);num(1);","

�f�comwindow:�'''''''�c("Please enter road name")'�c("(For example ""WALNUT""")''�c("............");
)n$="":�12,3);:maxlength=13:�getinput
#�mainwindow:�17+remember,8);n$
rname$(1)=n$
&&�16,10)"REDCAR"�16,12)"CLEVELAND"
0f�comwindow:�'''''''�c("Please enter telephone number")'�c("(if available)")''�c("(01642) ......");
:(n$="":�20,3);:maxlength=6:�getinput
Dtell=�(n$)
Nv� tell < 460000 � tell > 500000 � �7:�''''''�c("Telephone number is not local.")''�c("Use it anyway (Y/N)");:�DbB
X	�DlB
bS=�:�S=89�DlB � � �TpB
l9telno(1)=tell:�mainwindow:�16,14)"(01642) ";telno(1)
v$or1$(1)="":or2$(1)="":or3$(1)=""
���comwindow:�'''''''�c("Please enter paper orders")'�c("ORDER # 1 :                      ")'�c("ORDER # 2 :                      ")'�c("ORDER # 3 :                      ");
�
�S=1�3
�#�14,S)".....................";
�)n$="":�14,S);:maxlength=21:�getinput
��� �n$,4)="THE " � �7:�0,0)�(36):A$=�(30):�0,0)�c("Don't use ""THE"" in paper titles"):�2,S)"ORDER # ";S;" : .....................":A$=�(150):�0,0)�(36):A$=�(30):�dnB
���check:�valid=0 � �'''''''�c("Please enter paper orders")'"  ORDER # 1 : ";or1$(1)'"  ORDER # 2 : ";or2$(1)'"  ORDER # 3 : ";or3$(1);:� �tTB
�2�mainwindow:�S=1 � or1$(1)=n$:�19,17);or1$(1)
�&�S=2 � or2$(1)=n$:�19,19);or2$(1)
�&�S=3 � or3$(1)=n$:�19,21);or3$(1)
��comwindow:�S
�	�DfC
�+�8,0)"Enter ORDER # ";S;" again":�t^B
� 
��check:valid=0
#� �(n$)<2 � S=1 � S=0:valid=2:�
� �(n$)<2 � valid=1:�
 a=�(n$)-1:o$=�n$,a):n$=o$
*�T=1 � temp
4 � n$=namesfrom$(T) � valid=1
>�T
Hv�valid=0�7:�''''''"The system cannot order a non-existentpaper such as ";n$''�c("Press space to re-enter");:���=32
R�
\ 
f�or2$(1)=1 � or2$(1)=""
p�or3$(1)=1 � or3$(1)=""
zO�'''''''�c("Which ROUND shall I add this")'�c("new round to?  "):�23,2);q$
�"a=�(q$):� a>6 � a<1 � �7:�DzC
�0�'''''�c("Customer's data accepted.")':�tXC
�AA$=�(100):�''''�c("Now attempting to add to ROUND")':A$=�(30)
� 
�8length=(�(rname$(1))-1):rname$(1)=�rname$(1),length)
��28,1,24,38,2:�
�count=2
�lines=0
��a=1 file$=("ROUND1")
��a=2 file$=("ROUND2")
��a=3 file$=("ROUND3")
��a=4 file$=("ROUND4")
��a=5 file$=("ROUND5")
�a=6 file$=("ROUND6")
lines=0
(�mainwindow:�0,a+4)"Loading ";file$
$�comwindow
.theround=�(file$)
8�
B��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
L$�or2$(count) <> "" lines=lines+1
V$�or3$(count) <> "" lines=lines+1
`lines=lines+1
j3�num(count)=-999 � num(count)=0 � lines=lines-1
tcount=count+1
~� count=40
�� #theround
� 
�number_of_houses=0:�W=2�40
�9� num(W) <> 0 � number_of_houses=number_of_houses + 1
�;� num(W) = -999 � number_of_houses=number_of_houses - 1
��W
�X�mainwindow:�:�c("PREVIOUS ROUND STATISTICS")'�c("(Without Adding This New Order)")
΢�0,4)"Round Number                      :  ";a;�0,6)"Number of papers                  : ";lines;�0,8)"Number of houses on round         : ";number_of_houses
�page%=1:�lines>17 page%=2
��lines>34 page%=3
�8�0,10)"Number of screen pages            :  ";page%
�;�comwindow:�''''''�c("Press Space")':���=32:�mainwindow
�num(number_of_houses+1)=num(1):rname$(number_of_houses+1)=rname$(1):init$(number_of_houses+1)=init$(1):sname$(number_of_houses+1)=sname$(1):title$(number_of_houses+1)=title$(1):telno(number_of_houses+1)=telno(1)

�or1$(number_of_houses+1)=or1$(1):or2$(number_of_houses+1)=or2$(1):or3$(number_of_houses+1)=or3$(1):todaysbill(number_of_houses+1)=todaysbill(1):outstanding(number_of_houses+1)=outstanding(1)
;�comwindow:�'''''''�c("New customer added.")':A$=�(300)
 �move=1�(number_of_houses+1)
(num(move-1)=num(move)
2rname$(move-1)=rname$(move)
<init$(move-1)=init$(move)
Fsname$(move-1)=sname$(move)
Ptitle$(move-1)=title$(move)
Ztelno(move-1)=telno(move)
dor1$(move-1)=or1$(move)
nor2$(move-1)=or2$(move)
xor3$(move-1)=or3$(move)
�'todaysbill(move-1)=todaysbill(move)
�)outstanding(move-1)=outstanding(move)
�	�move
� 
�num(0)=0
�rname$(0)=""
�init$(0)=""
�sname$(0)=""
�title$(0)=""
�telno(0)=0
�or1$(0)=""
�or2$(0)=""
�or3$(0)=""
todaysbill(0)=0
outstanding(0)=0
  
"'�''''�c("Saving New Round Layout")'
,new_round=�(file$)
6count=40
@�s=1 � count
J{�#new_round,num(s),rname$(s),init$(s),sname$(s),title$(s),telno(s),or1$(s),or2$(s),or3$(s),todaysbill(s),outstanding(s)
T� s
^�#new_round
h!�'''�c("New Round Accepted")'
r
A$=�(300)
| 
�*FX200,1
�"�'''''�c("Loading Main Menu")'
�*DIR
��"MENU"
�

00000000  0d 00 0a 22 f4 20 42 54  45 43 20 50 72 6f 6a 65  |...". BTEC Proje|
00000010  63 74 20 22 50 41 47 45  35 2d 31 22 20 76 2e 31  |ct "PAGE5-1" v.1|
00000020  2e 30 0d 00 14 0b ee 85  e5 8d 74 46 46 0d 00 1e  |.0........tFF...|
00000030  0a 74 65 6d 70 3d 30 0d  00 28 0c 2a 46 58 32 30  |.temp=0..(.*FX20|
00000040  30 2c 30 0d 00 32 a0 de  6e 61 6d 65 73 66 72 6f  |0,0..2..namesfro|
00000050  6d 24 28 31 35 29 2c 70  72 69 63 65 73 66 72 6f  |m$(15),pricesfro|
00000060  6d 28 31 35 29 2c 6e 75  6d 28 34 30 29 2c 72 6e  |m(15),num(40),rn|
00000070  61 6d 65 24 28 34 30 29  2c 69 6e 69 74 24 28 34  |ame$(40),init$(4|
00000080  30 29 2c 73 6e 61 6d 65  24 28 34 30 29 2c 74 69  |0),sname$(40),ti|
00000090  74 6c 65 24 28 34 30 29  2c 74 65 6c 6e 6f 28 34  |tle$(40),telno(4|
000000a0  30 29 2c 6f 72 31 24 28  34 30 29 2c 6f 72 32 24  |0),or1$(40),or2$|
000000b0  28 34 30 29 2c 6f 72 33  24 28 34 30 29 2c 74 6f  |(40),or3$(40),to|
000000c0  64 61 79 73 62 69 6c 6c  28 34 30 29 2c 6f 75 74  |daysbill(40),out|
000000d0  73 74 61 6e 64 69 6e 67  28 34 30 29 2c 67 24 28  |standing(40),g$(|
000000e0  34 30 29 0d 00 3c 08 2a  44 49 52 0d 00 46 16 74  |40)..<.*DIR..F.t|
000000f0  68 61 74 5f 6f 6e 65 3d  8e 28 22 44 41 54 41 22  |hat_one=.("DATA"|
00000100  29 0d 00 50 3e f5 3a 74  65 6d 70 3d 74 65 6d 70  |)..P>.:temp=temp|
00000110  2b 31 3a e8 23 74 68 61  74 5f 6f 6e 65 2c 6e 61  |+1:.#that_one,na|
00000120  6d 65 73 66 72 6f 6d 24  28 74 65 6d 70 29 2c 70  |mesfrom$(temp),p|
00000130  72 69 63 65 73 66 72 6f  6d 28 74 65 6d 70 29 0d  |ricesfrom(temp).|
00000140  00 5a 43 e7 6e 61 6d 65  73 66 72 6f 6d 24 28 74  |.ZC.namesfrom$(t|
00000150  65 6d 70 29 3d 22 45 4d  50 54 59 22 20 84 20 70  |emp)="EMPTY" . p|
00000160  72 69 63 65 73 66 72 6f  6d 28 74 65 6d 70 29 3d  |ricesfrom(temp)=|
00000170  2d 39 38 31 20 8c 20 74  65 6d 70 3d 74 65 6d 70  |-981 . temp=temp|
00000180  2d 31 0d 00 64 10 fd 20  c5 23 74 68 61 74 5f 6f  |-1..d.. .#that_o|
00000190  6e 65 0d 00 6e 0f d9 20  23 74 68 61 74 5f 6f 6e  |ne..n.. #that_on|
000001a0  65 0d 00 78 10 2a 44 49  52 20 4d 4f 52 4e 49 4e  |e..x.*DIR MORNIN|
000001b0  47 0d 00 82 0f f2 6d 61  69 6e 77 69 6e 64 6f 77  |G.....mainwindow|
000001c0  0d 00 8c 19 db 3a f1 a4  63 28 22 4e 45 57 20 43  |.....:..c("NEW C|
000001d0  55 53 54 4f 4d 45 52 22  29 0d 00 96 06 f1 27 0d  |USTOMER").....'.|
000001e0  00 a0 6b f1 27 22 54 69  74 6c 65 20 20 20 20 20  |..k.'"Title     |
000001f0  20 20 20 20 3a 22 27 27  22 53 75 72 6e 61 6d 65  |    :"''"Surname|
00000200  20 20 20 20 20 20 20 3a  22 27 27 22 41 64 64 72  |       :"''"Addr|
00000210  65 73 73 20 20 20 20 20  20 20 3a 22 27 27 27 27  |ess       :"''''|
00000220  27 27 22 54 65 6c 2e 20  4e 6f 2e 20 20 20 20 20  |''"Tel. No.     |
00000230  20 3a 22 27 27 27 22 50  61 70 65 72 28 73 29 20  | :"'''"Paper(s) |
00000240  6f 72 64 65 72 65 64 20  3a 22 0d 00 aa 1f f1 27  |ordered :".....'|
00000250  27 27 27 27 22 42 69 6c  6c 20 6f 75 74 73 74 61  |''''"Bill outsta|
00000260  6e 64 69 6e 67 20 3a 22  3b 0d 00 b4 13 ef 32 33  |nding :";.....23|
00000270  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 be 3b  |;8202;0;0;0;...;|
00000280  f2 63 6f 6d 77 69 6e 64  6f 77 3a f1 27 27 27 27  |.comwindow:.''''|
00000290  27 27 27 a4 63 28 22 50  6c 65 61 73 65 20 65 6e  |'''.c("Please en|
000002a0  74 65 72 20 74 69 74 6c  65 22 29 27 27 a4 63 28  |ter title")''.c(|
000002b0  22 2e 2e 2e 22 29 3b 0d  00 c8 2e 6e 24 3d 22 22  |"...");....n$=""|
000002c0  3a f1 8a 31 37 2c 33 29  3b 3a 6d 61 78 6c 65 6e  |:..17,3);:maxlen|
000002d0  67 74 68 3d 33 3a f2 67  65 74 69 6e 70 75 74 3a  |gth=3:.getinput:|
000002e0  e5 8d 54 76 41 0d 00 d2  0e dd f2 67 65 74 69 6e  |..TvA......getin|
000002f0  70 75 74 0d 00 dc 09 2a  46 58 32 31 0d 00 e6 35  |put....*FX21...5|
00000300  f5 3a 7a 3d a5 3a e7 20  7a 3e 31 20 80 20 7a 3c  |.:z=.:. z>1 . z<|
00000310  31 32 37 20 80 20 a9 6e  24 3c 6d 61 78 6c 65 6e  |127 . .n$<maxlen|
00000320  67 74 68 20 6e 24 3d 6e  24 2b bd 28 7a 29 3a ef  |gth n$=n$+.(z):.|
00000330  7a 0d 00 f0 29 e7 20 7a  3d 31 32 37 20 80 20 a9  |z...). z=127 . .|
00000340  6e 24 3e 30 20 ef 38 2c  34 36 2c 38 3a 6e 24 3d  |n$>0 .8,46,8:n$=|
00000350  c0 6e 24 2c a9 6e 24 2d  31 29 0d 00 fa 13 e7 20  |.n$,.n$-1)..... |
00000360  7a 3d 32 31 20 fd 31 3a  e5 8d 64 66 40 0d 01 04  |z=21 .1:..df@...|
00000370  0a fd 20 7a 3d 31 33 0d  01 0e 05 e1 0d 01 18 20  |.. z=13........ |
00000380  dd f2 6d 61 69 6e 77 69  6e 64 6f 77 3a ef 32 38  |..mainwindow:.28|
00000390  2c 31 2c 32 34 2c 33 38  2c 31 3a e1 0d 01 22 20  |,1,24,38,1:..." |
000003a0  dd f2 63 6f 6d 77 69 6e  64 6f 77 3a ef 32 38 2c  |..comwindow:.28,|
000003b0  31 2c 33 30 2c 33 38 2c  32 37 3a e1 0d 01 2c 1c  |1,30,38,27:...,.|
000003c0  dd a4 63 28 43 24 29 3a  f1 8a 31 39 2d a9 43 24  |..c(C$):..19-.C$|
000003d0  2f 32 29 3b 3a 3d 43 24  0d 01 36 65 f1 27 27 27  |/2);:=C$..6e.'''|
000003e0  27 27 3a e7 c0 6e 24 2c  32 29 3c 3e 22 4d 52 22  |'':..n$,2)<>"MR"|
000003f0  20 8c 20 ef 37 3a f1 27  27 27 a4 63 28 22 54 69  | . .7:.'''.c("Ti|
00000400  74 6c 65 20 6d 75 73 74  20 62 65 20 6f 66 20 74  |tle must be of t|
00000410  79 70 65 20 22 22 4d 52  22 22 20 6f 72 20 22 22  |ype ""MR"" or ""|
00000420  4d 52 53 22 22 22 29 27  3a 41 24 3d bf 28 32 35  |MRS""")':A$=.(25|
00000430  30 29 3a f1 27 27 27 3a  e5 8d 74 74 40 0d 01 40  |0):.''':..tt@..@|
00000440  10 74 69 74 6c 65 24 28  31 29 3d 6e 24 0d 01 4a  |.title$(1)=n$..J|
00000450  21 f2 6d 61 69 6e 77 69  6e 64 6f 77 3a f1 8a 31  |!.mainwindow:..1|
00000460  36 2c 34 29 3b 74 69 74  6c 65 24 28 31 29 0d 01  |6,4);title$(1)..|
00000470  54 0e f2 63 6f 6d 77 69  6e 64 6f 77 0d 01 5e 4c  |T..comwindow..^L|
00000480  f2 63 6f 6d 77 69 6e 64  6f 77 3a f1 27 27 27 27  |.comwindow:.''''|
00000490  27 27 27 a4 63 28 22 50  6c 65 61 73 65 20 65 6e  |'''.c("Please en|
000004a0  74 65 72 20 73 75 72 6e  61 6d 65 22 29 27 27 a4  |ter surname")''.|
000004b0  63 28 22 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |c(".............|
000004c0  2e 2e 2e 2e 2e 22 29 3b  0d 01 68 29 6e 24 3d 22  |.....");..h)n$="|
000004d0  22 3a f1 8a 31 30 2c 33  29 3b 3a 6d 61 78 6c 65  |":..10,3);:maxle|
000004e0  6e 67 74 68 3d 31 38 3a  f2 67 65 74 69 6e 70 75  |ngth=18:.getinpu|
000004f0  74 0d 01 72 10 73 6e 61  6d 65 24 28 31 29 3d 6e  |t..r.sname$(1)=n|
00000500  24 0d 01 7c 21 f2 6d 61  69 6e 77 69 6e 64 6f 77  |$..|!.mainwindow|
00000510  3a f1 8a 31 36 2c 36 29  3b 73 6e 61 6d 65 24 28  |:..16,6);sname$(|
00000520  31 29 0d 01 86 0e f2 63  6f 6d 77 69 6e 64 6f 77  |1).....comwindow|
00000530  0d 01 90 29 f1 27 27 27  27 27 27 27 a4 63 28 22  |...).'''''''.c("|
00000540  45 6e 74 65 72 20 69 6e  69 74 69 61 6c 22 29 27  |Enter initial")'|
00000550  27 a4 63 28 22 2e 22 29  3b 0d 01 9a 28 6e 24 3d  |'.c(".");...(n$=|
00000560  22 22 3a f1 8a 31 38 2c  33 29 3b 3a 6d 61 78 6c  |"":..18,3);:maxl|
00000570  65 6e 67 74 68 3d 31 3a  f2 67 65 74 69 6e 70 75  |ength=1:.getinpu|
00000580  74 0d 01 a4 0f 69 6e 69  74 24 28 31 29 3d 6e 24  |t....init$(1)=n$|
00000590  0d 01 ae 33 f2 6d 61 69  6e 77 69 6e 64 6f 77 3a  |...3.mainwindow:|
000005a0  f1 8a 31 35 2b 28 a9 28  73 6e 61 6d 65 24 28 31  |..15+(.(sname$(1|
000005b0  29 29 29 2c 36 29 22 2c  20 22 3b 69 6e 69 74 24  |))),6)", ";init$|
000005c0  28 31 29 0d 01 b8 0e f2  63 6f 6d 77 69 6e 64 6f  |(1).....comwindo|
000005d0  77 0d 01 c2 37 f1 27 27  27 27 27 27 27 a4 63 28  |w...7.'''''''.c(|
000005e0  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 68 6f  |"Please enter ho|
000005f0  75 73 65 20 6e 75 6d 62  65 72 22 29 27 27 a4 63  |use number")''.c|
00000600  28 22 2e 2e 2e 22 29 3b  0d 01 cc 28 6e 24 3d 22  |("...");...(n$="|
00000610  22 3a f1 8a 31 37 2c 33  29 3b 3a 6d 61 78 6c 65  |":..17,3);:maxle|
00000620  6e 67 74 68 3d 33 3a f2  67 65 74 69 6e 70 75 74  |ngth=3:.getinput|
00000630  0d 01 d6 10 6e 75 6d 28  31 29 3d bb 28 6e 24 29  |....num(1)=.(n$)|
00000640  0d 01 e0 12 72 65 6d 65  6d 62 65 72 3d a9 28 6e  |....remember=.(n|
00000650  24 29 0d 01 ea 41 e7 bb  28 6e 24 29 3d 30 20 ef  |$)...A..(n$)=0 .|
00000660  37 3a f1 27 27 27 27 a4  63 28 22 4e 75 6d 62 65  |7:.''''.c("Numbe|
00000670  72 20 6e 6f 74 20 76 61  6c 69 64 2e 22 29 3a 41  |r not valid."):A|
00000680  24 3d bf 28 32 35 30 29  3a f1 27 27 27 3a e5 8d  |$=.(250):.''':..|
00000690  64 42 41 0d 01 f4 22 f2  6d 61 69 6e 77 69 6e 64  |dBA...".mainwind|
000006a0  6f 77 3a f1 8a 31 36 2c  38 29 3b 6e 75 6d 28 31  |ow:..16,8);num(1|
000006b0  29 3b 22 2c 22 0d 01 fe  66 f2 63 6f 6d 77 69 6e  |);","...f.comwin|
000006c0  64 6f 77 3a f1 27 27 27  27 27 27 27 a4 63 28 22  |dow:.'''''''.c("|
000006d0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 72 6f 61  |Please enter roa|
000006e0  64 20 6e 61 6d 65 22 29  27 a4 63 28 22 28 46 6f  |d name")'.c("(Fo|
000006f0  72 20 65 78 61 6d 70 6c  65 20 22 22 57 41 4c 4e  |r example ""WALN|
00000700  55 54 22 22 22 29 27 27  a4 63 28 22 2e 2e 2e 2e  |UT""")''.c("....|
00000710  2e 2e 2e 2e 2e 2e 2e 2e  22 29 3b 0d 02 08 29 6e  |........");...)n|
00000720  24 3d 22 22 3a f1 8a 31  32 2c 33 29 3b 3a 6d 61  |$="":..12,3);:ma|
00000730  78 6c 65 6e 67 74 68 3d  31 33 3a f2 67 65 74 69  |xlength=13:.geti|
00000740  6e 70 75 74 0d 02 12 23  f2 6d 61 69 6e 77 69 6e  |nput...#.mainwin|
00000750  64 6f 77 3a f1 8a 31 37  2b 72 65 6d 65 6d 62 65  |dow:..17+remembe|
00000760  72 2c 38 29 3b 6e 24 0d  02 1c 10 72 6e 61 6d 65  |r,8);n$....rname|
00000770  24 28 31 29 3d 6e 24 0d  02 26 26 f1 8a 31 36 2c  |$(1)=n$..&&..16,|
00000780  31 30 29 22 52 45 44 43  41 52 22 8a 31 36 2c 31  |10)"REDCAR".16,1|
00000790  32 29 22 43 4c 45 56 45  4c 41 4e 44 22 0d 02 30  |2)"CLEVELAND"..0|
000007a0  66 f2 63 6f 6d 77 69 6e  64 6f 77 3a f1 27 27 27  |f.comwindow:.'''|
000007b0  27 27 27 27 a4 63 28 22  50 6c 65 61 73 65 20 65  |''''.c("Please e|
000007c0  6e 74 65 72 20 74 65 6c  65 70 68 6f 6e 65 20 6e  |nter telephone n|
000007d0  75 6d 62 65 72 22 29 27  a4 63 28 22 28 69 66 20  |umber")'.c("(if |
000007e0  61 76 61 69 6c 61 62 6c  65 29 22 29 27 27 a4 63  |available)")''.c|
000007f0  28 22 28 30 31 36 34 32  29 20 2e 2e 2e 2e 2e 2e  |("(01642) ......|
00000800  22 29 3b 0d 02 3a 28 6e  24 3d 22 22 3a f1 8a 32  |");..:(n$="":..2|
00000810  30 2c 33 29 3b 3a 6d 61  78 6c 65 6e 67 74 68 3d  |0,3);:maxlength=|
00000820  36 3a f2 67 65 74 69 6e  70 75 74 0d 02 44 0e 74  |6:.getinput..D.t|
00000830  65 6c 6c 3d bb 28 6e 24  29 0d 02 4e 76 e7 20 74  |ell=.(n$)..Nv. t|
00000840  65 6c 6c 20 3c 20 34 36  30 30 30 30 20 84 20 74  |ell < 460000 . t|
00000850  65 6c 6c 20 3e 20 35 30  30 30 30 30 20 8c 20 ef  |ell > 500000 . .|
00000860  37 3a f1 27 27 27 27 27  27 a4 63 28 22 54 65 6c  |7:.''''''.c("Tel|
00000870  65 70 68 6f 6e 65 20 6e  75 6d 62 65 72 20 69 73  |ephone number is|
00000880  20 6e 6f 74 20 6c 6f 63  61 6c 2e 22 29 27 27 a4  | not local.")''.|
00000890  63 28 22 55 73 65 20 69  74 20 61 6e 79 77 61 79  |c("Use it anyway|
000008a0  20 28 59 2f 4e 29 22 29  3b 3a e5 8d 44 62 42 0d  | (Y/N)");:..DbB.|
000008b0  02 58 09 e5 8d 44 6c 42  0d 02 62 1b 53 3d a5 3a  |.X...DlB..b.S=.:|
000008c0  e7 53 3d 38 39 e5 8d 44  6c 42 20 8b 20 e5 20 8d  |.S=89..DlB . . .|
000008d0  54 70 42 0d 02 6c 39 74  65 6c 6e 6f 28 31 29 3d  |TpB..l9telno(1)=|
000008e0  74 65 6c 6c 3a f2 6d 61  69 6e 77 69 6e 64 6f 77  |tell:.mainwindow|
000008f0  3a f1 8a 31 36 2c 31 34  29 22 28 30 31 36 34 32  |:..16,14)"(01642|
00000900  29 20 22 3b 74 65 6c 6e  6f 28 31 29 0d 02 76 24  |) ";telno(1)..v$|
00000910  6f 72 31 24 28 31 29 3d  22 22 3a 6f 72 32 24 28  |or1$(1)="":or2$(|
00000920  31 29 3d 22 22 3a 6f 72  33 24 28 31 29 3d 22 22  |1)="":or3$(1)=""|
00000930  0d 02 80 af f2 63 6f 6d  77 69 6e 64 6f 77 3a f1  |.....comwindow:.|
00000940  27 27 27 27 27 27 27 a4  63 28 22 50 6c 65 61 73  |'''''''.c("Pleas|
00000950  65 20 65 6e 74 65 72 20  70 61 70 65 72 20 6f 72  |e enter paper or|
00000960  64 65 72 73 22 29 27 a4  63 28 22 4f 52 44 45 52  |ders")'.c("ORDER|
00000970  20 23 20 31 20 3a 20 20  20 20 20 20 20 20 20 20  | # 1 :          |
00000980  20 20 20 20 20 20 20 20  20 20 20 20 22 29 27 a4  |            ")'.|
00000990  63 28 22 4f 52 44 45 52  20 23 20 32 20 3a 20 20  |c("ORDER # 2 :  |
000009a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009b0  20 20 20 20 22 29 27 a4  63 28 22 4f 52 44 45 52  |    ")'.c("ORDER|
000009c0  20 23 20 33 20 3a 20 20  20 20 20 20 20 20 20 20  | # 3 :          |
000009d0  20 20 20 20 20 20 20 20  20 20 20 20 22 29 3b 0d  |            ");.|
000009e0  02 8a 0a e3 53 3d 31 b8  33 0d 02 94 23 f1 8a 31  |....S=1.3...#..1|
000009f0  34 2c 53 29 22 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |4,S)"...........|
00000a00  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 22 3b 0d 02 9e 29  |..........";...)|
00000a10  6e 24 3d 22 22 3a f1 8a  31 34 2c 53 29 3b 3a 6d  |n$="":..14,S);:m|
00000a20  61 78 6c 65 6e 67 74 68  3d 32 31 3a f2 67 65 74  |axlength=21:.get|
00000a30  69 6e 70 75 74 0d 02 a8  ae e7 20 c0 6e 24 2c 34  |input..... .n$,4|
00000a40  29 3d 22 54 48 45 20 22  20 8c 20 ef 37 3a f1 8a  |)="THE " . .7:..|
00000a50  30 2c 30 29 89 28 33 36  29 3a 41 24 3d bf 28 33  |0,0).(36):A$=.(3|
00000a60  30 29 3a f1 8a 30 2c 30  29 a4 63 28 22 44 6f 6e  |0):..0,0).c("Don|
00000a70  27 74 20 75 73 65 20 22  22 54 48 45 22 22 20 69  |'t use ""THE"" i|
00000a80  6e 20 70 61 70 65 72 20  74 69 74 6c 65 73 22 29  |n paper titles")|
00000a90  3a f1 8a 32 2c 53 29 22  4f 52 44 45 52 20 23 20  |:..2,S)"ORDER # |
00000aa0  22 3b 53 3b 22 20 3a 20  2e 2e 2e 2e 2e 2e 2e 2e  |";S;" : ........|
00000ab0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 22 3a 41  |.............":A|
00000ac0  24 3d bf 28 31 35 30 29  3a f1 8a 30 2c 30 29 89  |$=.(150):..0,0).|
00000ad0  28 33 36 29 3a 41 24 3d  bf 28 33 30 29 3a e5 8d  |(36):A$=.(30):..|
00000ae0  64 6e 42 0d 02 b2 90 f2  63 68 65 63 6b 3a e7 76  |dnB.....check:.v|
00000af0  61 6c 69 64 3d 30 20 8c  20 f1 27 27 27 27 27 27  |alid=0 . .''''''|
00000b00  27 a4 63 28 22 50 6c 65  61 73 65 20 65 6e 74 65  |'.c("Please ente|
00000b10  72 20 70 61 70 65 72 20  6f 72 64 65 72 73 22 29  |r paper orders")|
00000b20  27 22 20 20 4f 52 44 45  52 20 23 20 31 20 3a 20  |'"  ORDER # 1 : |
00000b30  22 3b 6f 72 31 24 28 31  29 27 22 20 20 4f 52 44  |";or1$(1)'"  ORD|
00000b40  45 52 20 23 20 32 20 3a  20 22 3b 6f 72 32 24 28  |ER # 2 : ";or2$(|
00000b50  31 29 27 22 20 20 4f 52  44 45 52 20 23 20 33 20  |1)'"  ORDER # 3 |
00000b60  3a 20 22 3b 6f 72 33 24  28 31 29 3b 3a e5 20 8d  |: ";or3$(1);:. .|
00000b70  74 54 42 0d 02 bc 32 f2  6d 61 69 6e 77 69 6e 64  |tTB...2.mainwind|
00000b80  6f 77 3a e7 53 3d 31 20  8c 20 6f 72 31 24 28 31  |ow:.S=1 . or1$(1|
00000b90  29 3d 6e 24 3a f1 8a 31  39 2c 31 37 29 3b 6f 72  |)=n$:..19,17);or|
00000ba0  31 24 28 31 29 0d 02 c6  26 e7 53 3d 32 20 8c 20  |1$(1)...&.S=2 . |
00000bb0  6f 72 32 24 28 31 29 3d  6e 24 3a f1 8a 31 39 2c  |or2$(1)=n$:..19,|
00000bc0  31 39 29 3b 6f 72 32 24  28 31 29 0d 02 d0 26 e7  |19);or2$(1)...&.|
00000bd0  53 3d 33 20 8c 20 6f 72  33 24 28 31 29 3d 6e 24  |S=3 . or3$(1)=n$|
00000be0  3a f1 8a 31 39 2c 32 31  29 3b 6f 72 33 24 28 31  |:..19,21);or3$(1|
00000bf0  29 0d 02 da 11 f2 63 6f  6d 77 69 6e 64 6f 77 3a  |).....comwindow:|
00000c00  ed 53 0d 02 e4 09 e5 8d  44 66 43 0d 02 ee 2b f1  |.S......DfC...+.|
00000c10  8a 38 2c 30 29 22 45 6e  74 65 72 20 4f 52 44 45  |.8,0)"Enter ORDE|
00000c20  52 20 23 20 22 3b 53 3b  22 20 61 67 61 69 6e 22  |R # ";S;" again"|
00000c30  3a e5 8d 74 5e 42 0d 02  f8 05 20 0d 03 02 13 dd  |:..t^B.... .....|
00000c40  f2 63 68 65 63 6b 3a 76  61 6c 69 64 3d 30 0d 03  |.check:valid=0..|
00000c50  0c 23 e7 20 a9 28 6e 24  29 3c 32 20 80 20 53 3d  |.#. .(n$)<2 . S=|
00000c60  31 20 8c 20 53 3d 30 3a  76 61 6c 69 64 3d 32 3a  |1 . S=0:valid=2:|
00000c70  e1 0d 03 16 19 e7 20 a9  28 6e 24 29 3c 32 20 8c  |...... .(n$)<2 .|
00000c80  20 76 61 6c 69 64 3d 31  3a e1 0d 03 20 1d 61 3d  | valid=1:... .a=|
00000c90  a9 28 6e 24 29 2d 31 3a  6f 24 3d c0 6e 24 2c 61  |.(n$)-1:o$=.n$,a|
00000ca0  29 3a 6e 24 3d 6f 24 0d  03 2a 0f e3 54 3d 31 20  |):n$=o$..*..T=1 |
00000cb0  b8 20 74 65 6d 70 0d 03  34 20 e7 20 6e 24 3d 6e  |. temp..4 . n$=n|
00000cc0  61 6d 65 73 66 72 6f 6d  24 28 54 29 20 8c 20 76  |amesfrom$(T) . v|
00000cd0  61 6c 69 64 3d 31 0d 03  3e 06 ed 54 0d 03 48 76  |alid=1..>..T..Hv|
00000ce0  e7 76 61 6c 69 64 3d 30  ef 37 3a f1 27 27 27 27  |.valid=0.7:.''''|
00000cf0  27 27 22 54 68 65 20 73  79 73 74 65 6d 20 63 61  |''"The system ca|
00000d00  6e 6e 6f 74 20 6f 72 64  65 72 20 61 20 6e 6f 6e  |nnot order a non|
00000d10  2d 65 78 69 73 74 65 6e  74 70 61 70 65 72 20 73  |-existentpaper s|
00000d20  75 63 68 20 61 73 20 22  3b 6e 24 27 27 a4 63 28  |uch as ";n$''.c(|
00000d30  22 50 72 65 73 73 20 73  70 61 63 65 20 74 6f 20  |"Press space to |
00000d40  72 65 2d 65 6e 74 65 72  22 29 3b 3a f5 fd a5 3d  |re-enter");:...=|
00000d50  33 32 0d 03 52 05 e1 0d  03 5c 05 20 0d 03 66 1c  |32..R....\. ..f.|
00000d60  e7 a9 6f 72 32 24 28 31  29 3d 31 20 8c 20 6f 72  |..or2$(1)=1 . or|
00000d70  32 24 28 31 29 3d 22 22  0d 03 70 1c e7 a9 6f 72  |2$(1)=""..p...or|
00000d80  33 24 28 31 29 3d 31 20  8c 20 6f 72 33 24 28 31  |3$(1)=1 . or3$(1|
00000d90  29 3d 22 22 0d 03 7a 4f  f1 27 27 27 27 27 27 27  |)=""..zO.'''''''|
00000da0  a4 63 28 22 57 68 69 63  68 20 52 4f 55 4e 44 20  |.c("Which ROUND |
00000db0  73 68 61 6c 6c 20 49 20  61 64 64 20 74 68 69 73  |shall I add this|
00000dc0  22 29 27 a4 63 28 22 6e  65 77 20 72 6f 75 6e 64  |")'.c("new round|
00000dd0  20 74 6f 3f 20 20 22 29  3a e8 8a 32 33 2c 32 29  | to?  "):..23,2)|
00000de0  3b 71 24 0d 03 84 22 61  3d bb 28 71 24 29 3a e7  |;q$..."a=.(q$):.|
00000df0  20 61 3e 36 20 84 20 61  3c 31 20 8c 20 ef 37 3a  | a>6 . a<1 . .7:|
00000e00  e5 8d 44 7a 43 0d 03 8e  30 f1 27 27 27 27 27 a4  |..DzC...0.'''''.|
00000e10  63 28 22 43 75 73 74 6f  6d 65 72 27 73 20 64 61  |c("Customer's da|
00000e20  74 61 20 61 63 63 65 70  74 65 64 2e 22 29 27 3a  |ta accepted.")':|
00000e30  e5 8d 74 58 43 0d 03 98  41 41 24 3d bf 28 31 30  |..tXC...AA$=.(10|
00000e40  30 29 3a f1 27 27 27 27  a4 63 28 22 4e 6f 77 20  |0):.''''.c("Now |
00000e50  61 74 74 65 6d 70 74 69  6e 67 20 74 6f 20 61 64  |attempting to ad|
00000e60  64 20 74 6f 20 52 4f 55  4e 44 22 29 27 3a 41 24  |d to ROUND")':A$|
00000e70  3d bf 28 33 30 29 0d 03  a2 05 20 0d 03 ac 38 6c  |=.(30).... ...8l|
00000e80  65 6e 67 74 68 3d 28 a9  28 72 6e 61 6d 65 24 28  |ength=(.(rname$(|
00000e90  31 29 29 2d 31 29 3a 72  6e 61 6d 65 24 28 31 29  |1))-1):rname$(1)|
00000ea0  3d c0 72 6e 61 6d 65 24  28 31 29 2c 6c 65 6e 67  |=.rname$(1),leng|
00000eb0  74 68 29 0d 03 b6 13 ef  32 38 2c 31 2c 32 34 2c  |th).....28,1,24,|
00000ec0  33 38 2c 32 3a db 0d 03  c0 0b 63 6f 75 6e 74 3d  |38,2:.....count=|
00000ed0  32 0d 03 ca 0b 6c 69 6e  65 73 3d 30 0d 03 d4 19  |2....lines=0....|
00000ee0  e7 61 3d 31 20 66 69 6c  65 24 3d 28 22 52 4f 55  |.a=1 file$=("ROU|
00000ef0  4e 44 31 22 29 0d 03 de  19 e7 61 3d 32 20 66 69  |ND1").....a=2 fi|
00000f00  6c 65 24 3d 28 22 52 4f  55 4e 44 32 22 29 0d 03  |le$=("ROUND2")..|
00000f10  e8 19 e7 61 3d 33 20 66  69 6c 65 24 3d 28 22 52  |...a=3 file$=("R|
00000f20  4f 55 4e 44 33 22 29 0d  03 f2 19 e7 61 3d 34 20  |OUND3").....a=4 |
00000f30  66 69 6c 65 24 3d 28 22  52 4f 55 4e 44 34 22 29  |file$=("ROUND4")|
00000f40  0d 03 fc 19 e7 61 3d 35  20 66 69 6c 65 24 3d 28  |.....a=5 file$=(|
00000f50  22 52 4f 55 4e 44 35 22  29 0d 04 06 19 e7 61 3d  |"ROUND5").....a=|
00000f60  36 20 66 69 6c 65 24 3d  28 22 52 4f 55 4e 44 36  |6 file$=("ROUND6|
00000f70  22 29 0d 04 10 0b 6c 69  6e 65 73 3d 30 0d 04 1a  |")....lines=0...|
00000f80  28 f2 6d 61 69 6e 77 69  6e 64 6f 77 3a f1 8a 30  |(.mainwindow:..0|
00000f90  2c 61 2b 34 29 22 4c 6f  61 64 69 6e 67 20 22 3b  |,a+4)"Loading ";|
00000fa0  66 69 6c 65 24 0d 04 24  0e f2 63 6f 6d 77 69 6e  |file$..$..comwin|
00000fb0  64 6f 77 0d 04 2e 15 74  68 65 72 6f 75 6e 64 3d  |dow....theround=|
00000fc0  8e 28 66 69 6c 65 24 29  0d 04 38 05 f5 0d 04 42  |.(file$)..8....B|
00000fd0  a6 e8 23 74 68 65 72 6f  75 6e 64 2c 6e 75 6d 28  |..#theround,num(|
00000fe0  63 6f 75 6e 74 29 2c 72  6e 61 6d 65 24 28 63 6f  |count),rname$(co|
00000ff0  75 6e 74 29 2c 69 6e 69  74 24 28 63 6f 75 6e 74  |unt),init$(count|
00001000  29 2c 73 6e 61 6d 65 24  28 63 6f 75 6e 74 29 2c  |),sname$(count),|
00001010  74 69 74 6c 65 24 28 63  6f 75 6e 74 29 2c 74 65  |title$(count),te|
00001020  6c 6e 6f 28 63 6f 75 6e  74 29 2c 6f 72 31 24 28  |lno(count),or1$(|
00001030  63 6f 75 6e 74 29 2c 6f  72 32 24 28 63 6f 75 6e  |count),or2$(coun|
00001040  74 29 2c 6f 72 33 24 28  63 6f 75 6e 74 29 2c 74  |t),or3$(count),t|
00001050  6f 64 61 79 73 62 69 6c  6c 28 63 6f 75 6e 74 29  |odaysbill(count)|
00001060  2c 6f 75 74 73 74 61 6e  64 69 6e 67 28 63 6f 75  |,outstanding(cou|
00001070  6e 74 29 0d 04 4c 24 e7  6f 72 32 24 28 63 6f 75  |nt)..L$.or2$(cou|
00001080  6e 74 29 20 3c 3e 20 22  22 20 6c 69 6e 65 73 3d  |nt) <> "" lines=|
00001090  6c 69 6e 65 73 2b 31 0d  04 56 24 e7 6f 72 33 24  |lines+1..V$.or3$|
000010a0  28 63 6f 75 6e 74 29 20  3c 3e 20 22 22 20 6c 69  |(count) <> "" li|
000010b0  6e 65 73 3d 6c 69 6e 65  73 2b 31 0d 04 60 11 6c  |nes=lines+1..`.l|
000010c0  69 6e 65 73 3d 6c 69 6e  65 73 2b 31 0d 04 6a 33  |ines=lines+1..j3|
000010d0  e7 6e 75 6d 28 63 6f 75  6e 74 29 3d 2d 39 39 39  |.num(count)=-999|
000010e0  20 84 20 6e 75 6d 28 63  6f 75 6e 74 29 3d 30 20  | . num(count)=0 |
000010f0  8c 20 6c 69 6e 65 73 3d  6c 69 6e 65 73 2d 31 0d  |. lines=lines-1.|
00001100  04 74 11 63 6f 75 6e 74  3d 63 6f 75 6e 74 2b 31  |.t.count=count+1|
00001110  0d 04 7e 0e fd 20 63 6f  75 6e 74 3d 34 30 0d 04  |..~.. count=40..|
00001120  88 0f d9 20 23 74 68 65  72 6f 75 6e 64 0d 04 92  |... #theround...|
00001130  05 20 0d 04 9c 1e 6e 75  6d 62 65 72 5f 6f 66 5f  |. ....number_of_|
00001140  68 6f 75 73 65 73 3d 30  3a e3 57 3d 32 b8 34 30  |houses=0:.W=2.40|
00001150  0d 04 a6 39 e7 20 6e 75  6d 28 57 29 20 3c 3e 20  |...9. num(W) <> |
00001160  30 20 8c 20 6e 75 6d 62  65 72 5f 6f 66 5f 68 6f  |0 . number_of_ho|
00001170  75 73 65 73 3d 6e 75 6d  62 65 72 5f 6f 66 5f 68  |uses=number_of_h|
00001180  6f 75 73 65 73 20 2b 20  31 0d 04 b0 3b e7 20 6e  |ouses + 1...;. n|
00001190  75 6d 28 57 29 20 3d 20  2d 39 39 39 20 8c 20 6e  |um(W) = -999 . n|
000011a0  75 6d 62 65 72 5f 6f 66  5f 68 6f 75 73 65 73 3d  |umber_of_houses=|
000011b0  6e 75 6d 62 65 72 5f 6f  66 5f 68 6f 75 73 65 73  |number_of_houses|
000011c0  20 2d 20 31 0d 04 ba 06  ed 57 0d 04 c4 58 f2 6d  | - 1.....W...X.m|
000011d0  61 69 6e 77 69 6e 64 6f  77 3a db 3a f1 a4 63 28  |ainwindow:.:..c(|
000011e0  22 50 52 45 56 49 4f 55  53 20 52 4f 55 4e 44 20  |"PREVIOUS ROUND |
000011f0  53 54 41 54 49 53 54 49  43 53 22 29 27 a4 63 28  |STATISTICS")'.c(|
00001200  22 28 57 69 74 68 6f 75  74 20 41 64 64 69 6e 67  |"(Without Adding|
00001210  20 54 68 69 73 20 4e 65  77 20 4f 72 64 65 72 29  | This New Order)|
00001220  22 29 0d 04 ce a2 f1 8a  30 2c 34 29 22 52 6f 75  |")......0,4)"Rou|
00001230  6e 64 20 4e 75 6d 62 65  72 20 20 20 20 20 20 20  |nd Number       |
00001240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00001250  20 20 22 3b 61 3b 8a 30  2c 36 29 22 4e 75 6d 62  |  ";a;.0,6)"Numb|
00001260  65 72 20 6f 66 20 70 61  70 65 72 73 20 20 20 20  |er of papers    |
00001270  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |              : |
00001280  22 3b 6c 69 6e 65 73 3b  8a 30 2c 38 29 22 4e 75  |";lines;.0,8)"Nu|
00001290  6d 62 65 72 20 6f 66 20  68 6f 75 73 65 73 20 6f  |mber of houses o|
000012a0  6e 20 72 6f 75 6e 64 20  20 20 20 20 20 20 20 20  |n round         |
000012b0  3a 20 22 3b 6e 75 6d 62  65 72 5f 6f 66 5f 68 6f  |: ";number_of_ho|
000012c0  75 73 65 73 0d 04 d8 1d  70 61 67 65 25 3d 31 3a  |uses....page%=1:|
000012d0  e7 6c 69 6e 65 73 3e 31  37 20 70 61 67 65 25 3d  |.lines>17 page%=|
000012e0  32 0d 04 e2 15 e7 6c 69  6e 65 73 3e 33 34 20 70  |2.....lines>34 p|
000012f0  61 67 65 25 3d 33 0d 04  ec 38 f1 8a 30 2c 31 30  |age%=3...8..0,10|
00001300  29 22 4e 75 6d 62 65 72  20 6f 66 20 73 63 72 65  |)"Number of scre|
00001310  65 6e 20 70 61 67 65 73  20 20 20 20 20 20 20 20  |en pages        |
00001320  20 20 20 20 3a 20 20 22  3b 70 61 67 65 25 0d 04  |    :  ";page%..|
00001330  f6 3b f2 63 6f 6d 77 69  6e 64 6f 77 3a f1 27 27  |.;.comwindow:.''|
00001340  27 27 27 27 a4 63 28 22  50 72 65 73 73 20 53 70  |''''.c("Press Sp|
00001350  61 63 65 22 29 27 3a f5  fd a5 3d 33 32 3a f2 6d  |ace")':...=32:.m|
00001360  61 69 6e 77 69 6e 64 6f  77 0d 05 00 d7 6e 75 6d  |ainwindow....num|
00001370  28 6e 75 6d 62 65 72 5f  6f 66 5f 68 6f 75 73 65  |(number_of_house|
00001380  73 2b 31 29 3d 6e 75 6d  28 31 29 3a 72 6e 61 6d  |s+1)=num(1):rnam|
00001390  65 24 28 6e 75 6d 62 65  72 5f 6f 66 5f 68 6f 75  |e$(number_of_hou|
000013a0  73 65 73 2b 31 29 3d 72  6e 61 6d 65 24 28 31 29  |ses+1)=rname$(1)|
000013b0  3a 69 6e 69 74 24 28 6e  75 6d 62 65 72 5f 6f 66  |:init$(number_of|
000013c0  5f 68 6f 75 73 65 73 2b  31 29 3d 69 6e 69 74 24  |_houses+1)=init$|
000013d0  28 31 29 3a 73 6e 61 6d  65 24 28 6e 75 6d 62 65  |(1):sname$(numbe|
000013e0  72 5f 6f 66 5f 68 6f 75  73 65 73 2b 31 29 3d 73  |r_of_houses+1)=s|
000013f0  6e 61 6d 65 24 28 31 29  3a 74 69 74 6c 65 24 28  |name$(1):title$(|
00001400  6e 75 6d 62 65 72 5f 6f  66 5f 68 6f 75 73 65 73  |number_of_houses|
00001410  2b 31 29 3d 74 69 74 6c  65 24 28 31 29 3a 74 65  |+1)=title$(1):te|
00001420  6c 6e 6f 28 6e 75 6d 62  65 72 5f 6f 66 5f 68 6f  |lno(number_of_ho|
00001430  75 73 65 73 2b 31 29 3d  74 65 6c 6e 6f 28 31 29  |uses+1)=telno(1)|
00001440  0d 05 0a c2 6f 72 31 24  28 6e 75 6d 62 65 72 5f  |....or1$(number_|
00001450  6f 66 5f 68 6f 75 73 65  73 2b 31 29 3d 6f 72 31  |of_houses+1)=or1|
00001460  24 28 31 29 3a 6f 72 32  24 28 6e 75 6d 62 65 72  |$(1):or2$(number|
00001470  5f 6f 66 5f 68 6f 75 73  65 73 2b 31 29 3d 6f 72  |_of_houses+1)=or|
00001480  32 24 28 31 29 3a 6f 72  33 24 28 6e 75 6d 62 65  |2$(1):or3$(numbe|
00001490  72 5f 6f 66 5f 68 6f 75  73 65 73 2b 31 29 3d 6f  |r_of_houses+1)=o|
000014a0  72 33 24 28 31 29 3a 74  6f 64 61 79 73 62 69 6c  |r3$(1):todaysbil|
000014b0  6c 28 6e 75 6d 62 65 72  5f 6f 66 5f 68 6f 75 73  |l(number_of_hous|
000014c0  65 73 2b 31 29 3d 74 6f  64 61 79 73 62 69 6c 6c  |es+1)=todaysbill|
000014d0  28 31 29 3a 6f 75 74 73  74 61 6e 64 69 6e 67 28  |(1):outstanding(|
000014e0  6e 75 6d 62 65 72 5f 6f  66 5f 68 6f 75 73 65 73  |number_of_houses|
000014f0  2b 31 29 3d 6f 75 74 73  74 61 6e 64 69 6e 67 28  |+1)=outstanding(|
00001500  31 29 0d 05 14 3b f2 63  6f 6d 77 69 6e 64 6f 77  |1)...;.comwindow|
00001510  3a f1 27 27 27 27 27 27  27 a4 63 28 22 4e 65 77  |:.'''''''.c("New|
00001520  20 63 75 73 74 6f 6d 65  72 20 61 64 64 65 64 2e  | customer added.|
00001530  22 29 27 3a 41 24 3d bf  28 33 30 30 29 0d 05 1e  |")':A$=.(300)...|
00001540  20 e3 6d 6f 76 65 3d 31  b8 28 6e 75 6d 62 65 72  | .move=1.(number|
00001550  5f 6f 66 5f 68 6f 75 73  65 73 2b 31 29 0d 05 28  |_of_houses+1)..(|
00001560  19 6e 75 6d 28 6d 6f 76  65 2d 31 29 3d 6e 75 6d  |.num(move-1)=num|
00001570  28 6d 6f 76 65 29 0d 05  32 1f 72 6e 61 6d 65 24  |(move)..2.rname$|
00001580  28 6d 6f 76 65 2d 31 29  3d 72 6e 61 6d 65 24 28  |(move-1)=rname$(|
00001590  6d 6f 76 65 29 0d 05 3c  1d 69 6e 69 74 24 28 6d  |move)..<.init$(m|
000015a0  6f 76 65 2d 31 29 3d 69  6e 69 74 24 28 6d 6f 76  |ove-1)=init$(mov|
000015b0  65 29 0d 05 46 1f 73 6e  61 6d 65 24 28 6d 6f 76  |e)..F.sname$(mov|
000015c0  65 2d 31 29 3d 73 6e 61  6d 65 24 28 6d 6f 76 65  |e-1)=sname$(move|
000015d0  29 0d 05 50 1f 74 69 74  6c 65 24 28 6d 6f 76 65  |)..P.title$(move|
000015e0  2d 31 29 3d 74 69 74 6c  65 24 28 6d 6f 76 65 29  |-1)=title$(move)|
000015f0  0d 05 5a 1d 74 65 6c 6e  6f 28 6d 6f 76 65 2d 31  |..Z.telno(move-1|
00001600  29 3d 74 65 6c 6e 6f 28  6d 6f 76 65 29 0d 05 64  |)=telno(move)..d|
00001610  1b 6f 72 31 24 28 6d 6f  76 65 2d 31 29 3d 6f 72  |.or1$(move-1)=or|
00001620  31 24 28 6d 6f 76 65 29  0d 05 6e 1b 6f 72 32 24  |1$(move)..n.or2$|
00001630  28 6d 6f 76 65 2d 31 29  3d 6f 72 32 24 28 6d 6f  |(move-1)=or2$(mo|
00001640  76 65 29 0d 05 78 1b 6f  72 33 24 28 6d 6f 76 65  |ve)..x.or3$(move|
00001650  2d 31 29 3d 6f 72 33 24  28 6d 6f 76 65 29 0d 05  |-1)=or3$(move)..|
00001660  82 27 74 6f 64 61 79 73  62 69 6c 6c 28 6d 6f 76  |.'todaysbill(mov|
00001670  65 2d 31 29 3d 74 6f 64  61 79 73 62 69 6c 6c 28  |e-1)=todaysbill(|
00001680  6d 6f 76 65 29 0d 05 8c  29 6f 75 74 73 74 61 6e  |move)...)outstan|
00001690  64 69 6e 67 28 6d 6f 76  65 2d 31 29 3d 6f 75 74  |ding(move-1)=out|
000016a0  73 74 61 6e 64 69 6e 67  28 6d 6f 76 65 29 0d 05  |standing(move)..|
000016b0  96 09 ed 6d 6f 76 65 0d  05 a0 05 20 0d 05 aa 0c  |...move.... ....|
000016c0  6e 75 6d 28 30 29 3d 30  0d 05 b4 10 72 6e 61 6d  |num(0)=0....rnam|
000016d0  65 24 28 30 29 3d 22 22  0d 05 be 0f 69 6e 69 74  |e$(0)=""....init|
000016e0  24 28 30 29 3d 22 22 0d  05 c8 10 73 6e 61 6d 65  |$(0)=""....sname|
000016f0  24 28 30 29 3d 22 22 0d  05 d2 10 74 69 74 6c 65  |$(0)=""....title|
00001700  24 28 30 29 3d 22 22 0d  05 dc 0e 74 65 6c 6e 6f  |$(0)=""....telno|
00001710  28 30 29 3d 30 0d 05 e6  0e 6f 72 31 24 28 30 29  |(0)=0....or1$(0)|
00001720  3d 22 22 0d 05 f0 0e 6f  72 32 24 28 30 29 3d 22  |=""....or2$(0)="|
00001730  22 0d 05 fa 0e 6f 72 33  24 28 30 29 3d 22 22 0d  |"....or3$(0)="".|
00001740  06 04 13 74 6f 64 61 79  73 62 69 6c 6c 28 30 29  |...todaysbill(0)|
00001750  3d 30 0d 06 0e 14 6f 75  74 73 74 61 6e 64 69 6e  |=0....outstandin|
00001760  67 28 30 29 3d 30 0d 06  18 06 20 20 0d 06 22 27  |g(0)=0....  .."'|
00001770  f1 27 27 27 27 a4 63 28  22 53 61 76 69 6e 67 20  |.''''.c("Saving |
00001780  4e 65 77 20 52 6f 75 6e  64 20 4c 61 79 6f 75 74  |New Round Layout|
00001790  22 29 27 0d 06 2c 16 6e  65 77 5f 72 6f 75 6e 64  |")'..,.new_round|
000017a0  3d ae 28 66 69 6c 65 24  29 0d 06 36 0c 63 6f 75  |=.(file$)..6.cou|
000017b0  6e 74 3d 34 30 0d 06 40  10 e3 73 3d 31 20 b8 20  |nt=40..@..s=1 . |
000017c0  63 6f 75 6e 74 0d 06 4a  7b f1 23 6e 65 77 5f 72  |count..J{.#new_r|
000017d0  6f 75 6e 64 2c 6e 75 6d  28 73 29 2c 72 6e 61 6d  |ound,num(s),rnam|
000017e0  65 24 28 73 29 2c 69 6e  69 74 24 28 73 29 2c 73  |e$(s),init$(s),s|
000017f0  6e 61 6d 65 24 28 73 29  2c 74 69 74 6c 65 24 28  |name$(s),title$(|
00001800  73 29 2c 74 65 6c 6e 6f  28 73 29 2c 6f 72 31 24  |s),telno(s),or1$|
00001810  28 73 29 2c 6f 72 32 24  28 73 29 2c 6f 72 33 24  |(s),or2$(s),or3$|
00001820  28 73 29 2c 74 6f 64 61  79 73 62 69 6c 6c 28 73  |(s),todaysbill(s|
00001830  29 2c 6f 75 74 73 74 61  6e 64 69 6e 67 28 73 29  |),outstanding(s)|
00001840  0d 06 54 07 ed 20 73 0d  06 5e 0f d9 23 6e 65 77  |..T.. s..^..#new|
00001850  5f 72 6f 75 6e 64 0d 06  68 21 f1 27 27 27 a4 63  |_round..h!.'''.c|
00001860  28 22 4e 65 77 20 52 6f  75 6e 64 20 41 63 63 65  |("New Round Acce|
00001870  70 74 65 64 22 29 27 0d  06 72 0d 41 24 3d bf 28  |pted")'..r.A$=.(|
00001880  33 30 30 29 0d 06 7c 05  20 0d 06 86 0c 2a 46 58  |300)..|. ....*FX|
00001890  32 30 30 2c 31 0d 06 90  22 f1 27 27 27 27 27 a4  |200,1...".'''''.|
000018a0  63 28 22 4c 6f 61 64 69  6e 67 20 4d 61 69 6e 20  |c("Loading Main |
000018b0  4d 65 6e 75 22 29 27 0d  06 9a 08 2a 44 49 52 0d  |Menu")'....*DIR.|
000018c0  06 a4 0b d7 22 4d 45 4e  55 22 0d ff              |...."MENU"..|
000018cc