� BTEC Project "PAGE5" v.4.0

��end
*FX200,0
("place=0:littlenumber=0:page%=0
2$realstart=0:realend=0:location=0
<timesfound=0:upto=2:const=2
F%change=0:stoppoint=0:startpoint=0
P C=0:y=0:direction$="":temp=0
Z��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)
d*DIR
nthat_one=�("DATA")
x>�:temp=temp+1:�#that_one,namesfrom$(temp),pricesfrom(temp)
�C�namesfrom$(temp)="EMPTY" � pricesfrom(temp)=-981 � temp=temp-1
�� �#that_one
�� #that_one
�*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:�D^A
���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:�TNA

,
� z=13

6�

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

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

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

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

htitle$(1)=n$

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

|�comwindow

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

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

�sname$(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):�''':�djA
"�mainwindow:�16,8);num(1);","
&f�comwindow:�'''''''�c("Please enter road name")'�c("(For example ""WALNUT""")''�c("............");
0)n$="":�12,3);:maxlength=13:�getinput
:#�mainwindow:�17+remember,8);n$
Drname$(1)=n$
N&�16,10)"REDCAR"�16,12)"CLEVELAND"
Xf�comwindow:�'''''''�c("Please enter telephone number")'�c("(if available)")''�c("(01642) ......");
b(n$="":�20,3);:maxlength=6:�getinput
ltell=�(n$)
vv� tell < 460000 � tell > 500000 � �7:�''''''�c("Telephone number is not local.")''�c("Use it anyway (Y/N)");:�tJB
�	�tTB
�S=�:�S=89�tTB � � �DXB
�9telno(1)=tell:�mainwindow:�16,14)"(01642) ";telno(1)
�$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):�TVC
ڐ�check:�valid=0 � �'''''''�c("Please enter paper orders")'"  ORDER # 1 : ";or1$(1)'"  ORDER # 2 : ";or2$(1)'"  ORDER # 3 : ";or3$(1);:� �t|B
�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
	�DzC
+�8,0)"Enter ORDER # ";S;" again":�dFB
 ��check:valid=0
*#� �(n$)<2 � S=1 � S=0:valid=2:�
4� �(n$)<2 � valid=1:�
>a=�(n$)-1:o$=�n$,a):n$=o$
H�T=1 � temp
R � n$=namesfrom$(T) � valid=1
\�T
fv�valid=0�7:�''''''"The system cannot order a non-existentpaper such as ";n$''�c("Press space to re-enter");:���=32
p�
z�or2$(1)=1 � or2$(1)=""
��or3$(1)=1 � or3$(1)=""
�:�'''''''�c("All data present and correct? (Y/N)")':D=�
�5�D=89�'''''�c("Customer's data accepted.")':�tlC
�0�D=78�or1$(1)="":or2$(1)="":or3$(1)="":�tj@
�CA$=�(100):�''''�c("Now attempting to place in ROUND")':A$=�(30)
� 
�8length=(�(rname$(1))-1):rname$(1)=�rname$(1),length)
��28,1,24,38,2:�
�
� a=1 � 6
�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
8?�mainwindow:�0,a+4)"Searching for ";rname$(1);" in ";file$
B�comwindow
Ltheround=�(file$)
V�
`��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
j$�or2$(count) <> "" lines=lines+1
t$�or3$(count) <> "" lines=lines+1
~lines=lines+1
�3�num(count)=-999 � num(count)=0 � lines=lines-1
�m� rname$(1)=rname$(count) � timesfound=0 � �''''''�c("Advisable place located.")':timesfound=1:location=a
�count=count+1
�� count=40
�� #theround
��timesfound=1�dDD � �a
�location>0 � �'''''"    The road was found in ROUND ";a;"."'�c("Press space"):���=32 � �'''''�c("The road name is not valid!")':�7:�newroad
�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                      :  ";location;�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%
(�onsearch=2�39
2;�rname$(onsearch)=rname$(1) � startpoint=onsearch:�DPE
<
�onsearch
F 
P"� stopsearch = startpoint � 39
ZC�rname$(stopsearch) <> rname$(1) � stoppoint = stopsearch:�DnE
d�stopsearch
nstoppoint=stoppoint-1
xA�0,13)�c("SYSTEM DATA")'�c("(Required To Insert New Order)")
�*�28,18)stoppoint-1�28,16)startpoint-1
�W�0,16)"Road number start                 :"''"Road number finish                :"
��0,20)"Road type"
��Z=startpoint � stoppoint
�dis=num(Z) � 2
�� dis=0 � g$(Z)="even"
�� dis=1 � g$(Z)="odd"
� 
��Z
�1� (num(1) � 2)=0 � g$(1)="even" � g$(1)="odd"
��direction
��y=0 � �findplace
�	�move
.�thispage%=1�page%:startfrom=upto:�write:�
	�file
�
"��direction
,compare$=g$(startpoint)
6!�T=startpoint � (stoppoint-1)
@6�g$(T)<> compare$ � change=change+1:compare$=g$(T)
J�T
T#type$="D":�change>2 � type$="M"
^>�type$="D" � �25,20)": Directional" � �29,20)": Muddled"
h�type$="D" � � �DDG
r;�comwindow:�''''''�c("Press Space")':���=32:�mainwindow
|4�:�0,0)"THE FOLLOWING ADDRESSES WERE LOCATED :"
��C=startpoint � stoppoint
�?�0,const+C);num(C);�6,const+C)rname$(C)�17,const+C)or1$(C)
��C
�1�1,18)"THE FOLLOWING ADDRESS IS TO INSERT :"
�M�0,20);num(1);�6,20)rname$(1)�17,20)or1$(1)�17,21)or2$(1)�17,22)or3$(1);
�0y=2:�28,0,24,39,3:�0,y);:�145:�39,y);:�146
¦�comwindow:�''''''�c("Move slider bar to the customer")'�c("the new order comes BEFORE."):A$=�(300):�'''''"S : Slider UP   X : Slider DOWN"'"I : Insert New Order"
��28,0,24,39,3
�\�0,y-1);:�130:�39,y-1);:�132:�0,y);:�145:�39,y);:�146:�0,y+1);:�130:�39,y+1);:�132
�U=�
��U=83 � y=y-1
��U=88 � y=y+1
��U=73 � �TfG
� y<2 � y=2
'� y>(stoppoint+1) � y=(stoppoint+1)
	�dVF
&place=y+startpoint-2
0�0,y);:�130:�39,y);:�132
:-�comwindow:�'''''�c("Press space")':�t|G
D�0,22)"Direction of road";
ND� Pick out the bit of the round where new order should be placed
Xcompare$=g$(1)
b�A=startpoint � stoppoint
l$�g$(A)=g$(1) � realstart=A:�t@G
v�A
�$�B=(realstart+1) � (stoppoint+1)
�%�g$(B)<>g$(1) � realend=B-1:�t^G
��B
�J�num(realstart)>num(realstart+1) � direction$="DOWN":�32,22)": Down";
�F�num(realstart)<num(realstart+1) � direction$="UP":�34,22)": Up";
�/�comwindow:�''''''�c("Press Space")':���=32
��
�  
���findplace
��pl=realstart � realend
��direction$="DOWN" � � �dxG
��direction$="UP" � � �T`H
�$�num(1)>num(pl) � place=pl:�TVH
�pl=realend � place=pl+1
�pl
	�T~H
 $�num(1)<num(pl) � place=pl:�T~H
*�pl=realend � place=pl+1
4�pl
>�
H 
R
��move
\�move=1�place
fnum(move-1)=num(move)
prname$(move-1)=rname$(move)
zinit$(move-1)=init$(move)
�sname$(move-1)=sname$(move)
�title$(move-1)=title$(move)
�telno(move-1)=telno(move)
�or1$(move-1)=or1$(move)
�or2$(move-1)=or2$(move)
�or3$(move-1)=or3$(move)
�'todaysbill(move-1)=todaysbill(move)
�)outstanding(move-1)=outstanding(move)
�	�move
�place=place-1
�num(place)=num(0)
�rname$(place)=rname$(0)
�init$(place)=init$(0)
	sname$(place)=sname$(0)
	title$(place)=title$(0)
	telno(place)=telno(0)
	$or1$(place)=or1$(0)
	.or2$(place)=or2$(0)
	8or3$(place)=or3$(0)
	B#todaysbill(place)=todaysbill(0)
	L%outstanding(place)=outstanding(0)
	V�
	`  
	j��write
	t�mainwindow
	~�:�16,0)"ROUND ";�file$,1)
	�$�32,0)"Pg ";thispage%;"/";page%
	�� thispage%=1 startfrom=1
	� � A=startfrom � startfrom+16
	�i�num(A)=-999 �comwindow:�''''''�c("The new customer has been added")'�c("Press Space"):A=startfrom+16
	�-� A=startfrom+16 � upto=A:const=-14:�dXI
	�?�0,A+const);num(A);�6,A+const)rname$(A)�17,A+const)or1$(A)
	�8� or2$(A) <> "" � const=const+1:�17,A+const)or2$(A)
	�8� or3$(A) <> "" � const=const+1:�17,A+const)or3$(A)
	�� A
	�
���=32
	��
	� 

��file

'�''''�c("Saving New Round Layout")'
new_round=�(file$)
count=40
(�s=1 � count
2{�#new_round,num(s),rname$(s),init$(s),sname$(s),title$(s),telno(s),or1$(s),or2$(s),or3$(s),todaysbill(s),outstanding(s)
<� s
F�#new_round
P!�'''�c("New Round Accepted")'
Z
A$=�(300)
d�
n 
x��end:*FX200,1
�"�'''''�c("Loading Main Menu")'
�*DIR
��"MENU"
�
��newroad
��A$=�(200):�''''�c("This utility will allow you to")'�c("create a new road at the beginning")'�c("of ROUND 6 only.")'�c("Go ahead with new road (Y/N)?");
�Q=�:� Q=89 � �
��7:�end
��
�

00000000  0d 00 0a 20 f4 20 42 54  45 43 20 50 72 6f 6a 65  |... . BTEC Proje|
00000010  63 74 20 22 50 41 47 45  35 22 20 76 2e 34 2e 30  |ct "PAGE5" v.4.0|
00000020  0d 00 14 0a ee 85 f2 65  6e 64 0d 00 1e 0c 2a 46  |.......end....*F|
00000030  58 32 30 30 2c 30 0d 00  28 22 70 6c 61 63 65 3d  |X200,0..("place=|
00000040  30 3a 6c 69 74 74 6c 65  6e 75 6d 62 65 72 3d 30  |0:littlenumber=0|
00000050  3a 70 61 67 65 25 3d 30  0d 00 32 24 72 65 61 6c  |:page%=0..2$real|
00000060  73 74 61 72 74 3d 30 3a  72 65 61 6c 65 6e 64 3d  |start=0:realend=|
00000070  30 3a 6c 6f 63 61 74 69  6f 6e 3d 30 0d 00 3c 1f  |0:location=0..<.|
00000080  74 69 6d 65 73 66 6f 75  6e 64 3d 30 3a 75 70 74  |timesfound=0:upt|
00000090  6f 3d 32 3a 63 6f 6e 73  74 3d 32 0d 00 46 25 63  |o=2:const=2..F%c|
000000a0  68 61 6e 67 65 3d 30 3a  73 74 6f 70 70 6f 69 6e  |hange=0:stoppoin|
000000b0  74 3d 30 3a 73 74 61 72  74 70 6f 69 6e 74 3d 30  |t=0:startpoint=0|
000000c0  0d 00 50 20 43 3d 30 3a  79 3d 30 3a 64 69 72 65  |..P C=0:y=0:dire|
000000d0  63 74 69 6f 6e 24 3d 22  22 3a 74 65 6d 70 3d 30  |ction$="":temp=0|
000000e0  0d 00 5a a0 de 6e 61 6d  65 73 66 72 6f 6d 24 28  |..Z..namesfrom$(|
000000f0  31 35 29 2c 70 72 69 63  65 73 66 72 6f 6d 28 31  |15),pricesfrom(1|
00000100  35 29 2c 6e 75 6d 28 34  30 29 2c 72 6e 61 6d 65  |5),num(40),rname|
00000110  24 28 34 30 29 2c 69 6e  69 74 24 28 34 30 29 2c  |$(40),init$(40),|
00000120  73 6e 61 6d 65 24 28 34  30 29 2c 74 69 74 6c 65  |sname$(40),title|
00000130  24 28 34 30 29 2c 74 65  6c 6e 6f 28 34 30 29 2c  |$(40),telno(40),|
00000140  6f 72 31 24 28 34 30 29  2c 6f 72 32 24 28 34 30  |or1$(40),or2$(40|
00000150  29 2c 6f 72 33 24 28 34  30 29 2c 74 6f 64 61 79  |),or3$(40),today|
00000160  73 62 69 6c 6c 28 34 30  29 2c 6f 75 74 73 74 61  |sbill(40),outsta|
00000170  6e 64 69 6e 67 28 34 30  29 2c 67 24 28 34 30 29  |nding(40),g$(40)|
00000180  0d 00 64 08 2a 44 49 52  0d 00 6e 16 74 68 61 74  |..d.*DIR..n.that|
00000190  5f 6f 6e 65 3d 8e 28 22  44 41 54 41 22 29 0d 00  |_one=.("DATA")..|
000001a0  78 3e f5 3a 74 65 6d 70  3d 74 65 6d 70 2b 31 3a  |x>.:temp=temp+1:|
000001b0  e8 23 74 68 61 74 5f 6f  6e 65 2c 6e 61 6d 65 73  |.#that_one,names|
000001c0  66 72 6f 6d 24 28 74 65  6d 70 29 2c 70 72 69 63  |from$(temp),pric|
000001d0  65 73 66 72 6f 6d 28 74  65 6d 70 29 0d 00 82 43  |esfrom(temp)...C|
000001e0  e7 6e 61 6d 65 73 66 72  6f 6d 24 28 74 65 6d 70  |.namesfrom$(temp|
000001f0  29 3d 22 45 4d 50 54 59  22 20 84 20 70 72 69 63  |)="EMPTY" . pric|
00000200  65 73 66 72 6f 6d 28 74  65 6d 70 29 3d 2d 39 38  |esfrom(temp)=-98|
00000210  31 20 8c 20 74 65 6d 70  3d 74 65 6d 70 2d 31 0d  |1 . temp=temp-1.|
00000220  00 8c 10 fd 20 c5 23 74  68 61 74 5f 6f 6e 65 0d  |.... .#that_one.|
00000230  00 96 0f d9 20 23 74 68  61 74 5f 6f 6e 65 0d 00  |.... #that_one..|
00000240  a0 10 2a 44 49 52 20 4d  4f 52 4e 49 4e 47 0d 00  |..*DIR MORNING..|
00000250  aa 0f f2 6d 61 69 6e 77  69 6e 64 6f 77 0d 00 b4  |...mainwindow...|
00000260  19 db 3a f1 a4 63 28 22  4e 45 57 20 43 55 53 54  |..:..c("NEW CUST|
00000270  4f 4d 45 52 22 29 0d 00  be 06 f1 27 0d 00 c8 6b  |OMER").....'...k|
00000280  f1 27 22 54 69 74 6c 65  20 20 20 20 20 20 20 20  |.'"Title        |
00000290  20 3a 22 27 27 22 53 75  72 6e 61 6d 65 20 20 20  | :"''"Surname   |
000002a0  20 20 20 20 3a 22 27 27  22 41 64 64 72 65 73 73  |    :"''"Address|
000002b0  20 20 20 20 20 20 20 3a  22 27 27 27 27 27 27 22  |       :"''''''"|
000002c0  54 65 6c 2e 20 4e 6f 2e  20 20 20 20 20 20 3a 22  |Tel. No.      :"|
000002d0  27 27 27 22 50 61 70 65  72 28 73 29 20 6f 72 64  |'''"Paper(s) ord|
000002e0  65 72 65 64 20 3a 22 0d  00 d2 1f f1 27 27 27 27  |ered :".....''''|
000002f0  27 22 42 69 6c 6c 20 6f  75 74 73 74 61 6e 64 69  |'"Bill outstandi|
00000300  6e 67 20 3a 22 3b 0d 00  dc 13 ef 32 33 3b 38 32  |ng :";.....23;82|
00000310  30 32 3b 30 3b 30 3b 30  3b 0d 00 e6 3b f2 63 6f  |02;0;0;0;...;.co|
00000320  6d 77 69 6e 64 6f 77 3a  f1 27 27 27 27 27 27 27  |mwindow:.'''''''|
00000330  a4 63 28 22 50 6c 65 61  73 65 20 65 6e 74 65 72  |.c("Please enter|
00000340  20 74 69 74 6c 65 22 29  27 27 a4 63 28 22 2e 2e  | title")''.c("..|
00000350  2e 22 29 3b 0d 00 f0 2e  6e 24 3d 22 22 3a f1 8a  |.");....n$="":..|
00000360  31 37 2c 33 29 3b 3a 6d  61 78 6c 65 6e 67 74 68  |17,3);:maxlength|
00000370  3d 33 3a f2 67 65 74 69  6e 70 75 74 3a e5 8d 44  |=3:.getinput:..D|
00000380  5e 41 0d 00 fa 0e dd f2  67 65 74 69 6e 70 75 74  |^A......getinput|
00000390  0d 01 04 09 2a 46 58 32  31 0d 01 0e 35 f5 3a 7a  |....*FX21...5.:z|
000003a0  3d a5 3a e7 20 7a 3e 31  20 80 20 7a 3c 31 32 37  |=.:. z>1 . z<127|
000003b0  20 80 20 a9 6e 24 3c 6d  61 78 6c 65 6e 67 74 68  | . .n$<maxlength|
000003c0  20 6e 24 3d 6e 24 2b bd  28 7a 29 3a ef 7a 0d 01  | n$=n$+.(z):.z..|
000003d0  18 29 e7 20 7a 3d 31 32  37 20 80 20 a9 6e 24 3e  |.). z=127 . .n$>|
000003e0  30 20 ef 38 2c 34 36 2c  38 3a 6e 24 3d c0 6e 24  |0 .8,46,8:n$=.n$|
000003f0  2c a9 6e 24 2d 31 29 0d  01 22 13 e7 20 7a 3d 32  |,.n$-1)..".. z=2|
00000400  31 20 fd 31 3a e5 8d 54  4e 41 0d 01 2c 0a fd 20  |1 .1:..TNA..,.. |
00000410  7a 3d 31 33 0d 01 36 05  e1 0d 01 40 20 dd f2 6d  |z=13..6....@ ..m|
00000420  61 69 6e 77 69 6e 64 6f  77 3a ef 32 38 2c 31 2c  |ainwindow:.28,1,|
00000430  32 34 2c 33 38 2c 31 3a  e1 0d 01 4a 20 dd f2 63  |24,38,1:...J ..c|
00000440  6f 6d 77 69 6e 64 6f 77  3a ef 32 38 2c 31 2c 33  |omwindow:.28,1,3|
00000450  30 2c 33 38 2c 32 37 3a  e1 0d 01 54 1c dd a4 63  |0,38,27:...T...c|
00000460  28 43 24 29 3a f1 8a 31  39 2d a9 43 24 2f 32 29  |(C$):..19-.C$/2)|
00000470  3b 3a 3d 43 24 0d 01 5e  65 f1 27 27 27 27 27 3a  |;:=C$..^e.''''':|
00000480  e7 c0 6e 24 2c 32 29 3c  3e 22 4d 52 22 20 8c 20  |..n$,2)<>"MR" . |
00000490  ef 37 3a f1 27 27 27 a4  63 28 22 54 69 74 6c 65  |.7:.'''.c("Title|
000004a0  20 6d 75 73 74 20 62 65  20 6f 66 20 74 79 70 65  | must be of type|
000004b0  20 22 22 4d 52 22 22 20  6f 72 20 22 22 4d 52 53  | ""MR"" or ""MRS|
000004c0  22 22 22 29 27 3a 41 24  3d bf 28 32 35 30 29 3a  |""")':A$=.(250):|
000004d0  f1 27 27 27 3a e5 8d 64  5c 40 0d 01 68 10 74 69  |.''':..d\@..h.ti|
000004e0  74 6c 65 24 28 31 29 3d  6e 24 0d 01 72 21 f2 6d  |tle$(1)=n$..r!.m|
000004f0  61 69 6e 77 69 6e 64 6f  77 3a f1 8a 31 36 2c 34  |ainwindow:..16,4|
00000500  29 3b 74 69 74 6c 65 24  28 31 29 0d 01 7c 0e f2  |);title$(1)..|..|
00000510  63 6f 6d 77 69 6e 64 6f  77 0d 01 86 4c f2 63 6f  |comwindow...L.co|
00000520  6d 77 69 6e 64 6f 77 3a  f1 27 27 27 27 27 27 27  |mwindow:.'''''''|
00000530  a4 63 28 22 50 6c 65 61  73 65 20 65 6e 74 65 72  |.c("Please enter|
00000540  20 73 75 72 6e 61 6d 65  22 29 27 27 a4 63 28 22  | surname")''.c("|
00000550  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000560  2e 2e 22 29 3b 0d 01 90  29 6e 24 3d 22 22 3a f1  |..");...)n$="":.|
00000570  8a 31 30 2c 33 29 3b 3a  6d 61 78 6c 65 6e 67 74  |.10,3);:maxlengt|
00000580  68 3d 31 38 3a f2 67 65  74 69 6e 70 75 74 0d 01  |h=18:.getinput..|
00000590  9a 10 73 6e 61 6d 65 24  28 31 29 3d 6e 24 0d 01  |..sname$(1)=n$..|
000005a0  a4 21 f2 6d 61 69 6e 77  69 6e 64 6f 77 3a f1 8a  |.!.mainwindow:..|
000005b0  31 36 2c 36 29 3b 73 6e  61 6d 65 24 28 31 29 0d  |16,6);sname$(1).|
000005c0  01 ae 0e f2 63 6f 6d 77  69 6e 64 6f 77 0d 01 b8  |....comwindow...|
000005d0  29 f1 27 27 27 27 27 27  27 a4 63 28 22 45 6e 74  |).'''''''.c("Ent|
000005e0  65 72 20 69 6e 69 74 69  61 6c 22 29 27 27 a4 63  |er initial")''.c|
000005f0  28 22 2e 22 29 3b 0d 01  c2 28 6e 24 3d 22 22 3a  |(".");...(n$="":|
00000600  f1 8a 31 38 2c 33 29 3b  3a 6d 61 78 6c 65 6e 67  |..18,3);:maxleng|
00000610  74 68 3d 31 3a f2 67 65  74 69 6e 70 75 74 0d 01  |th=1:.getinput..|
00000620  cc 0f 69 6e 69 74 24 28  31 29 3d 6e 24 0d 01 d6  |..init$(1)=n$...|
00000630  33 f2 6d 61 69 6e 77 69  6e 64 6f 77 3a f1 8a 31  |3.mainwindow:..1|
00000640  35 2b 28 a9 28 73 6e 61  6d 65 24 28 31 29 29 29  |5+(.(sname$(1)))|
00000650  2c 36 29 22 2c 20 22 3b  69 6e 69 74 24 28 31 29  |,6)", ";init$(1)|
00000660  0d 01 e0 0e f2 63 6f 6d  77 69 6e 64 6f 77 0d 01  |.....comwindow..|
00000670  ea 37 f1 27 27 27 27 27  27 27 a4 63 28 22 50 6c  |.7.'''''''.c("Pl|
00000680  65 61 73 65 20 65 6e 74  65 72 20 68 6f 75 73 65  |ease enter house|
00000690  20 6e 75 6d 62 65 72 22  29 27 27 a4 63 28 22 2e  | number")''.c(".|
000006a0  2e 2e 22 29 3b 0d 01 f4  28 6e 24 3d 22 22 3a f1  |..");...(n$="":.|
000006b0  8a 31 37 2c 33 29 3b 3a  6d 61 78 6c 65 6e 67 74  |.17,3);:maxlengt|
000006c0  68 3d 33 3a f2 67 65 74  69 6e 70 75 74 0d 01 fe  |h=3:.getinput...|
000006d0  10 6e 75 6d 28 31 29 3d  bb 28 6e 24 29 0d 02 08  |.num(1)=.(n$)...|
000006e0  12 72 65 6d 65 6d 62 65  72 3d a9 28 6e 24 29 0d  |.remember=.(n$).|
000006f0  02 12 41 e7 bb 28 6e 24  29 3d 30 20 ef 37 3a f1  |..A..(n$)=0 .7:.|
00000700  27 27 27 27 a4 63 28 22  4e 75 6d 62 65 72 20 6e  |''''.c("Number n|
00000710  6f 74 20 76 61 6c 69 64  2e 22 29 3a 41 24 3d bf  |ot valid."):A$=.|
00000720  28 32 35 30 29 3a f1 27  27 27 3a e5 8d 64 6a 41  |(250):.''':..djA|
00000730  0d 02 1c 22 f2 6d 61 69  6e 77 69 6e 64 6f 77 3a  |...".mainwindow:|
00000740  f1 8a 31 36 2c 38 29 3b  6e 75 6d 28 31 29 3b 22  |..16,8);num(1);"|
00000750  2c 22 0d 02 26 66 f2 63  6f 6d 77 69 6e 64 6f 77  |,"..&f.comwindow|
00000760  3a f1 27 27 27 27 27 27  27 a4 63 28 22 50 6c 65  |:.'''''''.c("Ple|
00000770  61 73 65 20 65 6e 74 65  72 20 72 6f 61 64 20 6e  |ase enter road n|
00000780  61 6d 65 22 29 27 a4 63  28 22 28 46 6f 72 20 65  |ame")'.c("(For e|
00000790  78 61 6d 70 6c 65 20 22  22 57 41 4c 4e 55 54 22  |xample ""WALNUT"|
000007a0  22 22 29 27 27 a4 63 28  22 2e 2e 2e 2e 2e 2e 2e  |"")''.c(".......|
000007b0  2e 2e 2e 2e 2e 22 29 3b  0d 02 30 29 6e 24 3d 22  |.....");..0)n$="|
000007c0  22 3a f1 8a 31 32 2c 33  29 3b 3a 6d 61 78 6c 65  |":..12,3);:maxle|
000007d0  6e 67 74 68 3d 31 33 3a  f2 67 65 74 69 6e 70 75  |ngth=13:.getinpu|
000007e0  74 0d 02 3a 23 f2 6d 61  69 6e 77 69 6e 64 6f 77  |t..:#.mainwindow|
000007f0  3a f1 8a 31 37 2b 72 65  6d 65 6d 62 65 72 2c 38  |:..17+remember,8|
00000800  29 3b 6e 24 0d 02 44 10  72 6e 61 6d 65 24 28 31  |);n$..D.rname$(1|
00000810  29 3d 6e 24 0d 02 4e 26  f1 8a 31 36 2c 31 30 29  |)=n$..N&..16,10)|
00000820  22 52 45 44 43 41 52 22  8a 31 36 2c 31 32 29 22  |"REDCAR".16,12)"|
00000830  43 4c 45 56 45 4c 41 4e  44 22 0d 02 58 66 f2 63  |CLEVELAND"..Xf.c|
00000840  6f 6d 77 69 6e 64 6f 77  3a f1 27 27 27 27 27 27  |omwindow:.''''''|
00000850  27 a4 63 28 22 50 6c 65  61 73 65 20 65 6e 74 65  |'.c("Please ente|
00000860  72 20 74 65 6c 65 70 68  6f 6e 65 20 6e 75 6d 62  |r telephone numb|
00000870  65 72 22 29 27 a4 63 28  22 28 69 66 20 61 76 61  |er")'.c("(if ava|
00000880  69 6c 61 62 6c 65 29 22  29 27 27 a4 63 28 22 28  |ilable)")''.c("(|
00000890  30 31 36 34 32 29 20 2e  2e 2e 2e 2e 2e 22 29 3b  |01642) ......");|
000008a0  0d 02 62 28 6e 24 3d 22  22 3a f1 8a 32 30 2c 33  |..b(n$="":..20,3|
000008b0  29 3b 3a 6d 61 78 6c 65  6e 67 74 68 3d 36 3a f2  |);:maxlength=6:.|
000008c0  67 65 74 69 6e 70 75 74  0d 02 6c 0e 74 65 6c 6c  |getinput..l.tell|
000008d0  3d bb 28 6e 24 29 0d 02  76 76 e7 20 74 65 6c 6c  |=.(n$)..vv. tell|
000008e0  20 3c 20 34 36 30 30 30  30 20 84 20 74 65 6c 6c  | < 460000 . tell|
000008f0  20 3e 20 35 30 30 30 30  30 20 8c 20 ef 37 3a f1  | > 500000 . .7:.|
00000900  27 27 27 27 27 27 a4 63  28 22 54 65 6c 65 70 68  |''''''.c("Teleph|
00000910  6f 6e 65 20 6e 75 6d 62  65 72 20 69 73 20 6e 6f  |one number is no|
00000920  74 20 6c 6f 63 61 6c 2e  22 29 27 27 a4 63 28 22  |t local.")''.c("|
00000930  55 73 65 20 69 74 20 61  6e 79 77 61 79 20 28 59  |Use it anyway (Y|
00000940  2f 4e 29 22 29 3b 3a e5  8d 74 4a 42 0d 02 80 09  |/N)");:..tJB....|
00000950  e5 8d 74 54 42 0d 02 8a  1b 53 3d a5 3a e7 53 3d  |..tTB....S=.:.S=|
00000960  38 39 e5 8d 74 54 42 20  8b 20 e5 20 8d 44 58 42  |89..tTB . . .DXB|
00000970  0d 02 94 39 74 65 6c 6e  6f 28 31 29 3d 74 65 6c  |...9telno(1)=tel|
00000980  6c 3a f2 6d 61 69 6e 77  69 6e 64 6f 77 3a f1 8a  |l:.mainwindow:..|
00000990  31 36 2c 31 34 29 22 28  30 31 36 34 32 29 20 22  |16,14)"(01642) "|
000009a0  3b 74 65 6c 6e 6f 28 31  29 0d 02 9e 24 6f 72 31  |;telno(1)...$or1|
000009b0  24 28 31 29 3d 22 22 3a  6f 72 32 24 28 31 29 3d  |$(1)="":or2$(1)=|
000009c0  22 22 3a 6f 72 33 24 28  31 29 3d 22 22 0d 02 a8  |"":or3$(1)=""...|
000009d0  af f2 63 6f 6d 77 69 6e  64 6f 77 3a f1 27 27 27  |..comwindow:.'''|
000009e0  27 27 27 27 a4 63 28 22  50 6c 65 61 73 65 20 65  |''''.c("Please e|
000009f0  6e 74 65 72 20 70 61 70  65 72 20 6f 72 64 65 72  |nter paper order|
00000a00  73 22 29 27 a4 63 28 22  4f 52 44 45 52 20 23 20  |s")'.c("ORDER # |
00000a10  31 20 3a 20 20 20 20 20  20 20 20 20 20 20 20 20  |1 :             |
00000a20  20 20 20 20 20 20 20 20  20 22 29 27 a4 63 28 22  |         ")'.c("|
00000a30  4f 52 44 45 52 20 23 20  32 20 3a 20 20 20 20 20  |ORDER # 2 :     |
00000a40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a50  20 22 29 27 a4 63 28 22  4f 52 44 45 52 20 23 20  | ")'.c("ORDER # |
00000a60  33 20 3a 20 20 20 20 20  20 20 20 20 20 20 20 20  |3 :             |
00000a70  20 20 20 20 20 20 20 20  20 22 29 3b 0d 02 b2 0a  |         ");....|
00000a80  e3 53 3d 31 b8 33 0d 02  bc 23 f1 8a 31 34 2c 53  |.S=1.3...#..14,S|
00000a90  29 22 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |)"..............|
00000aa0  2e 2e 2e 2e 2e 2e 2e 22  3b 0d 02 c6 29 6e 24 3d  |.......";...)n$=|
00000ab0  22 22 3a f1 8a 31 34 2c  53 29 3b 3a 6d 61 78 6c  |"":..14,S);:maxl|
00000ac0  65 6e 67 74 68 3d 32 31  3a f2 67 65 74 69 6e 70  |ength=21:.getinp|
00000ad0  75 74 0d 02 d0 ae e7 20  c0 6e 24 2c 34 29 3d 22  |ut..... .n$,4)="|
00000ae0  54 48 45 20 22 20 8c 20  ef 37 3a f1 8a 30 2c 30  |THE " . .7:..0,0|
00000af0  29 89 28 33 36 29 3a 41  24 3d bf 28 33 30 29 3a  |).(36):A$=.(30):|
00000b00  f1 8a 30 2c 30 29 a4 63  28 22 44 6f 6e 27 74 20  |..0,0).c("Don't |
00000b10  75 73 65 20 22 22 54 48  45 22 22 20 69 6e 20 70  |use ""THE"" in p|
00000b20  61 70 65 72 20 74 69 74  6c 65 73 22 29 3a f1 8a  |aper titles"):..|
00000b30  32 2c 53 29 22 4f 52 44  45 52 20 23 20 22 3b 53  |2,S)"ORDER # ";S|
00000b40  3b 22 20 3a 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |;" : ...........|
00000b50  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 22 3a 41 24 3d bf  |..........":A$=.|
00000b60  28 31 35 30 29 3a f1 8a  30 2c 30 29 89 28 33 36  |(150):..0,0).(36|
00000b70  29 3a 41 24 3d bf 28 33  30 29 3a e5 8d 54 56 43  |):A$=.(30):..TVC|
00000b80  0d 02 da 90 f2 63 68 65  63 6b 3a e7 76 61 6c 69  |.....check:.vali|
00000b90  64 3d 30 20 8c 20 f1 27  27 27 27 27 27 27 a4 63  |d=0 . .'''''''.c|
00000ba0  28 22 50 6c 65 61 73 65  20 65 6e 74 65 72 20 70  |("Please enter p|
00000bb0  61 70 65 72 20 6f 72 64  65 72 73 22 29 27 22 20  |aper orders")'" |
00000bc0  20 4f 52 44 45 52 20 23  20 31 20 3a 20 22 3b 6f  | ORDER # 1 : ";o|
00000bd0  72 31 24 28 31 29 27 22  20 20 4f 52 44 45 52 20  |r1$(1)'"  ORDER |
00000be0  23 20 32 20 3a 20 22 3b  6f 72 32 24 28 31 29 27  |# 2 : ";or2$(1)'|
00000bf0  22 20 20 4f 52 44 45 52  20 23 20 33 20 3a 20 22  |"  ORDER # 3 : "|
00000c00  3b 6f 72 33 24 28 31 29  3b 3a e5 20 8d 74 7c 42  |;or3$(1);:. .t|B|
00000c10  0d 02 e4 32 f2 6d 61 69  6e 77 69 6e 64 6f 77 3a  |...2.mainwindow:|
00000c20  e7 53 3d 31 20 8c 20 6f  72 31 24 28 31 29 3d 6e  |.S=1 . or1$(1)=n|
00000c30  24 3a f1 8a 31 39 2c 31  37 29 3b 6f 72 31 24 28  |$:..19,17);or1$(|
00000c40  31 29 0d 02 ee 26 e7 53  3d 32 20 8c 20 6f 72 32  |1)...&.S=2 . or2|
00000c50  24 28 31 29 3d 6e 24 3a  f1 8a 31 39 2c 31 39 29  |$(1)=n$:..19,19)|
00000c60  3b 6f 72 32 24 28 31 29  0d 02 f8 26 e7 53 3d 33  |;or2$(1)...&.S=3|
00000c70  20 8c 20 6f 72 33 24 28  31 29 3d 6e 24 3a f1 8a  | . or3$(1)=n$:..|
00000c80  31 39 2c 32 31 29 3b 6f  72 33 24 28 31 29 0d 03  |19,21);or3$(1)..|
00000c90  02 11 f2 63 6f 6d 77 69  6e 64 6f 77 3a ed 53 0d  |...comwindow:.S.|
00000ca0  03 0c 09 e5 8d 44 7a 43  0d 03 16 2b f1 8a 38 2c  |.....DzC...+..8,|
00000cb0  30 29 22 45 6e 74 65 72  20 4f 52 44 45 52 20 23  |0)"Enter ORDER #|
00000cc0  20 22 3b 53 3b 22 20 61  67 61 69 6e 22 3a e5 8d  | ";S;" again":..|
00000cd0  64 46 42 0d 03 20 13 dd  f2 63 68 65 63 6b 3a 76  |dFB.. ...check:v|
00000ce0  61 6c 69 64 3d 30 0d 03  2a 23 e7 20 a9 28 6e 24  |alid=0..*#. .(n$|
00000cf0  29 3c 32 20 80 20 53 3d  31 20 8c 20 53 3d 30 3a  |)<2 . S=1 . S=0:|
00000d00  76 61 6c 69 64 3d 32 3a  e1 0d 03 34 19 e7 20 a9  |valid=2:...4.. .|
00000d10  28 6e 24 29 3c 32 20 8c  20 76 61 6c 69 64 3d 31  |(n$)<2 . valid=1|
00000d20  3a e1 0d 03 3e 1d 61 3d  a9 28 6e 24 29 2d 31 3a  |:...>.a=.(n$)-1:|
00000d30  6f 24 3d c0 6e 24 2c 61  29 3a 6e 24 3d 6f 24 0d  |o$=.n$,a):n$=o$.|
00000d40  03 48 0f e3 54 3d 31 20  b8 20 74 65 6d 70 0d 03  |.H..T=1 . temp..|
00000d50  52 20 e7 20 6e 24 3d 6e  61 6d 65 73 66 72 6f 6d  |R . n$=namesfrom|
00000d60  24 28 54 29 20 8c 20 76  61 6c 69 64 3d 31 0d 03  |$(T) . valid=1..|
00000d70  5c 06 ed 54 0d 03 66 76  e7 76 61 6c 69 64 3d 30  |\..T..fv.valid=0|
00000d80  ef 37 3a f1 27 27 27 27  27 27 22 54 68 65 20 73  |.7:.''''''"The s|
00000d90  79 73 74 65 6d 20 63 61  6e 6e 6f 74 20 6f 72 64  |ystem cannot ord|
00000da0  65 72 20 61 20 6e 6f 6e  2d 65 78 69 73 74 65 6e  |er a non-existen|
00000db0  74 70 61 70 65 72 20 73  75 63 68 20 61 73 20 22  |tpaper such as "|
00000dc0  3b 6e 24 27 27 a4 63 28  22 50 72 65 73 73 20 73  |;n$''.c("Press s|
00000dd0  70 61 63 65 20 74 6f 20  72 65 2d 65 6e 74 65 72  |pace to re-enter|
00000de0  22 29 3b 3a f5 fd a5 3d  33 32 0d 03 70 05 e1 0d  |");:...=32..p...|
00000df0  03 7a 1c e7 a9 6f 72 32  24 28 31 29 3d 31 20 8c  |.z...or2$(1)=1 .|
00000e00  20 6f 72 32 24 28 31 29  3d 22 22 0d 03 84 1c e7  | or2$(1)="".....|
00000e10  a9 6f 72 33 24 28 31 29  3d 31 20 8c 20 6f 72 33  |.or3$(1)=1 . or3|
00000e20  24 28 31 29 3d 22 22 0d  03 8e 3a f1 27 27 27 27  |$(1)=""...:.''''|
00000e30  27 27 27 a4 63 28 22 41  6c 6c 20 64 61 74 61 20  |'''.c("All data |
00000e40  70 72 65 73 65 6e 74 20  61 6e 64 20 63 6f 72 72  |present and corr|
00000e50  65 63 74 3f 20 28 59 2f  4e 29 22 29 27 3a 44 3d  |ect? (Y/N)")':D=|
00000e60  a5 0d 03 98 35 e7 44 3d  38 39 f1 27 27 27 27 27  |....5.D=89.'''''|
00000e70  a4 63 28 22 43 75 73 74  6f 6d 65 72 27 73 20 64  |.c("Customer's d|
00000e80  61 74 61 20 61 63 63 65  70 74 65 64 2e 22 29 27  |ata accepted.")'|
00000e90  3a e5 8d 74 6c 43 0d 03  a2 30 e7 44 3d 37 38 8c  |:..tlC...0.D=78.|
00000ea0  6f 72 31 24 28 31 29 3d  22 22 3a 6f 72 32 24 28  |or1$(1)="":or2$(|
00000eb0  31 29 3d 22 22 3a 6f 72  33 24 28 31 29 3d 22 22  |1)="":or3$(1)=""|
00000ec0  3a e5 8d 74 6a 40 0d 03  ac 43 41 24 3d bf 28 31  |:..tj@...CA$=.(1|
00000ed0  30 30 29 3a f1 27 27 27  27 a4 63 28 22 4e 6f 77  |00):.''''.c("Now|
00000ee0  20 61 74 74 65 6d 70 74  69 6e 67 20 74 6f 20 70  | attempting to p|
00000ef0  6c 61 63 65 20 69 6e 20  52 4f 55 4e 44 22 29 27  |lace in ROUND")'|
00000f00  3a 41 24 3d bf 28 33 30  29 0d 03 b6 05 20 0d 03  |:A$=.(30).... ..|
00000f10  c0 38 6c 65 6e 67 74 68  3d 28 a9 28 72 6e 61 6d  |.8length=(.(rnam|
00000f20  65 24 28 31 29 29 2d 31  29 3a 72 6e 61 6d 65 24  |e$(1))-1):rname$|
00000f30  28 31 29 3d c0 72 6e 61  6d 65 24 28 31 29 2c 6c  |(1)=.rname$(1),l|
00000f40  65 6e 67 74 68 29 0d 03  ca 13 ef 32 38 2c 31 2c  |ength).....28,1,|
00000f50  32 34 2c 33 38 2c 32 3a  db 0d 03 d4 0d e3 20 61  |24,38,2:...... a|
00000f60  3d 31 20 b8 20 36 0d 03  de 0b 63 6f 75 6e 74 3d  |=1 . 6....count=|
00000f70  32 0d 03 e8 0b 6c 69 6e  65 73 3d 30 0d 03 f2 19  |2....lines=0....|
00000f80  e7 61 3d 31 20 66 69 6c  65 24 3d 28 22 52 4f 55  |.a=1 file$=("ROU|
00000f90  4e 44 31 22 29 0d 03 fc  19 e7 61 3d 32 20 66 69  |ND1").....a=2 fi|
00000fa0  6c 65 24 3d 28 22 52 4f  55 4e 44 32 22 29 0d 04  |le$=("ROUND2")..|
00000fb0  06 19 e7 61 3d 33 20 66  69 6c 65 24 3d 28 22 52  |...a=3 file$=("R|
00000fc0  4f 55 4e 44 33 22 29 0d  04 10 19 e7 61 3d 34 20  |OUND3").....a=4 |
00000fd0  66 69 6c 65 24 3d 28 22  52 4f 55 4e 44 34 22 29  |file$=("ROUND4")|
00000fe0  0d 04 1a 19 e7 61 3d 35  20 66 69 6c 65 24 3d 28  |.....a=5 file$=(|
00000ff0  22 52 4f 55 4e 44 35 22  29 0d 04 24 19 e7 61 3d  |"ROUND5")..$..a=|
00001000  36 20 66 69 6c 65 24 3d  28 22 52 4f 55 4e 44 36  |6 file$=("ROUND6|
00001010  22 29 0d 04 2e 0b 6c 69  6e 65 73 3d 30 0d 04 38  |")....lines=0..8|
00001020  3f f2 6d 61 69 6e 77 69  6e 64 6f 77 3a f1 8a 30  |?.mainwindow:..0|
00001030  2c 61 2b 34 29 22 53 65  61 72 63 68 69 6e 67 20  |,a+4)"Searching |
00001040  66 6f 72 20 22 3b 72 6e  61 6d 65 24 28 31 29 3b  |for ";rname$(1);|
00001050  22 20 69 6e 20 22 3b 66  69 6c 65 24 0d 04 42 0e  |" in ";file$..B.|
00001060  f2 63 6f 6d 77 69 6e 64  6f 77 0d 04 4c 15 74 68  |.comwindow..L.th|
00001070  65 72 6f 75 6e 64 3d 8e  28 66 69 6c 65 24 29 0d  |eround=.(file$).|
00001080  04 56 05 f5 0d 04 60 a6  e8 23 74 68 65 72 6f 75  |.V....`..#therou|
00001090  6e 64 2c 6e 75 6d 28 63  6f 75 6e 74 29 2c 72 6e  |nd,num(count),rn|
000010a0  61 6d 65 24 28 63 6f 75  6e 74 29 2c 69 6e 69 74  |ame$(count),init|
000010b0  24 28 63 6f 75 6e 74 29  2c 73 6e 61 6d 65 24 28  |$(count),sname$(|
000010c0  63 6f 75 6e 74 29 2c 74  69 74 6c 65 24 28 63 6f  |count),title$(co|
000010d0  75 6e 74 29 2c 74 65 6c  6e 6f 28 63 6f 75 6e 74  |unt),telno(count|
000010e0  29 2c 6f 72 31 24 28 63  6f 75 6e 74 29 2c 6f 72  |),or1$(count),or|
000010f0  32 24 28 63 6f 75 6e 74  29 2c 6f 72 33 24 28 63  |2$(count),or3$(c|
00001100  6f 75 6e 74 29 2c 74 6f  64 61 79 73 62 69 6c 6c  |ount),todaysbill|
00001110  28 63 6f 75 6e 74 29 2c  6f 75 74 73 74 61 6e 64  |(count),outstand|
00001120  69 6e 67 28 63 6f 75 6e  74 29 0d 04 6a 24 e7 6f  |ing(count)..j$.o|
00001130  72 32 24 28 63 6f 75 6e  74 29 20 3c 3e 20 22 22  |r2$(count) <> ""|
00001140  20 6c 69 6e 65 73 3d 6c  69 6e 65 73 2b 31 0d 04  | lines=lines+1..|
00001150  74 24 e7 6f 72 33 24 28  63 6f 75 6e 74 29 20 3c  |t$.or3$(count) <|
00001160  3e 20 22 22 20 6c 69 6e  65 73 3d 6c 69 6e 65 73  |> "" lines=lines|
00001170  2b 31 0d 04 7e 11 6c 69  6e 65 73 3d 6c 69 6e 65  |+1..~.lines=line|
00001180  73 2b 31 0d 04 88 33 e7  6e 75 6d 28 63 6f 75 6e  |s+1...3.num(coun|
00001190  74 29 3d 2d 39 39 39 20  84 20 6e 75 6d 28 63 6f  |t)=-999 . num(co|
000011a0  75 6e 74 29 3d 30 20 8c  20 6c 69 6e 65 73 3d 6c  |unt)=0 . lines=l|
000011b0  69 6e 65 73 2d 31 0d 04  92 6d e7 20 72 6e 61 6d  |ines-1...m. rnam|
000011c0  65 24 28 31 29 3d 72 6e  61 6d 65 24 28 63 6f 75  |e$(1)=rname$(cou|
000011d0  6e 74 29 20 80 20 74 69  6d 65 73 66 6f 75 6e 64  |nt) . timesfound|
000011e0  3d 30 20 8c 20 f1 27 27  27 27 27 27 a4 63 28 22  |=0 . .''''''.c("|
000011f0  41 64 76 69 73 61 62 6c  65 20 70 6c 61 63 65 20  |Advisable place |
00001200  6c 6f 63 61 74 65 64 2e  22 29 27 3a 74 69 6d 65  |located.")':time|
00001210  73 66 6f 75 6e 64 3d 31  3a 6c 6f 63 61 74 69 6f  |sfound=1:locatio|
00001220  6e 3d 61 0d 04 9c 11 63  6f 75 6e 74 3d 63 6f 75  |n=a....count=cou|
00001230  6e 74 2b 31 0d 04 a6 0e  fd 20 63 6f 75 6e 74 3d  |nt+1..... count=|
00001240  34 30 0d 04 b0 0f d9 20  23 74 68 65 72 6f 75 6e  |40..... #theroun|
00001250  64 0d 04 ba 1b e7 74 69  6d 65 73 66 6f 75 6e 64  |d.....timesfound|
00001260  3d 31 e5 8d 64 44 44 20  8b 20 ed 61 0d 04 c4 90  |=1..dDD . .a....|
00001270  e7 6c 6f 63 61 74 69 6f  6e 3e 30 20 8c 20 f1 27  |.location>0 . .'|
00001280  27 27 27 27 22 20 20 20  20 54 68 65 20 72 6f 61  |''''"    The roa|
00001290  64 20 77 61 73 20 66 6f  75 6e 64 20 69 6e 20 52  |d was found in R|
000012a0  4f 55 4e 44 20 22 3b 61  3b 22 2e 22 27 a4 63 28  |OUND ";a;"."'.c(|
000012b0  22 50 72 65 73 73 20 73  70 61 63 65 22 29 3a f5  |"Press space"):.|
000012c0  fd a5 3d 33 32 20 8b 20  f1 27 27 27 27 27 a4 63  |..=32 . .'''''.c|
000012d0  28 22 54 68 65 20 72 6f  61 64 20 6e 61 6d 65 20  |("The road name |
000012e0  69 73 20 6e 6f 74 20 76  61 6c 69 64 21 22 29 27  |is not valid!")'|
000012f0  3a ef 37 3a f2 6e 65 77  72 6f 61 64 0d 04 ce 1e  |:.7:.newroad....|
00001300  6e 75 6d 62 65 72 5f 6f  66 5f 68 6f 75 73 65 73  |number_of_houses|
00001310  3d 30 3a e3 57 3d 32 b8  34 30 0d 04 d8 39 e7 20  |=0:.W=2.40...9. |
00001320  6e 75 6d 28 57 29 20 3c  3e 20 30 20 8c 20 6e 75  |num(W) <> 0 . nu|
00001330  6d 62 65 72 5f 6f 66 5f  68 6f 75 73 65 73 3d 6e  |mber_of_houses=n|
00001340  75 6d 62 65 72 5f 6f 66  5f 68 6f 75 73 65 73 20  |umber_of_houses |
00001350  2b 20 31 0d 04 e2 3b e7  20 6e 75 6d 28 57 29 20  |+ 1...;. num(W) |
00001360  3d 20 2d 39 39 39 20 8c  20 6e 75 6d 62 65 72 5f  |= -999 . number_|
00001370  6f 66 5f 68 6f 75 73 65  73 3d 6e 75 6d 62 65 72  |of_houses=number|
00001380  5f 6f 66 5f 68 6f 75 73  65 73 20 2d 20 31 0d 04  |_of_houses - 1..|
00001390  ec 06 ed 57 0d 04 f6 58  f2 6d 61 69 6e 77 69 6e  |...W...X.mainwin|
000013a0  64 6f 77 3a db 3a f1 a4  63 28 22 50 52 45 56 49  |dow:.:..c("PREVI|
000013b0  4f 55 53 20 52 4f 55 4e  44 20 53 54 41 54 49 53  |OUS ROUND STATIS|
000013c0  54 49 43 53 22 29 27 a4  63 28 22 28 57 69 74 68  |TICS")'.c("(With|
000013d0  6f 75 74 20 41 64 64 69  6e 67 20 54 68 69 73 20  |out Adding This |
000013e0  4e 65 77 20 4f 72 64 65  72 29 22 29 0d 05 00 a9  |New Order)")....|
000013f0  f1 8a 30 2c 34 29 22 52  6f 75 6e 64 20 4e 75 6d  |..0,4)"Round Num|
00001400  62 65 72 20 20 20 20 20  20 20 20 20 20 20 20 20  |ber             |
00001410  20 20 20 20 20 20 20 20  20 3a 20 20 22 3b 6c 6f  |         :  ";lo|
00001420  63 61 74 69 6f 6e 3b 8a  30 2c 36 29 22 4e 75 6d  |cation;.0,6)"Num|
00001430  62 65 72 20 6f 66 20 70  61 70 65 72 73 20 20 20  |ber of papers   |
00001440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00001450  20 22 3b 6c 69 6e 65 73  3b 8a 30 2c 38 29 22 4e  | ";lines;.0,8)"N|
00001460  75 6d 62 65 72 20 6f 66  20 68 6f 75 73 65 73 20  |umber of houses |
00001470  6f 6e 20 72 6f 75 6e 64  20 20 20 20 20 20 20 20  |on round        |
00001480  20 3a 20 22 3b 6e 75 6d  62 65 72 5f 6f 66 5f 68  | : ";number_of_h|
00001490  6f 75 73 65 73 0d 05 0a  1d 70 61 67 65 25 3d 31  |ouses....page%=1|
000014a0  3a e7 6c 69 6e 65 73 3e  31 37 20 70 61 67 65 25  |:.lines>17 page%|
000014b0  3d 32 0d 05 14 15 e7 6c  69 6e 65 73 3e 33 34 20  |=2.....lines>34 |
000014c0  70 61 67 65 25 3d 33 0d  05 1e 38 f1 8a 30 2c 31  |page%=3...8..0,1|
000014d0  30 29 22 4e 75 6d 62 65  72 20 6f 66 20 73 63 72  |0)"Number of scr|
000014e0  65 65 6e 20 70 61 67 65  73 20 20 20 20 20 20 20  |een pages       |
000014f0  20 20 20 20 20 3a 20 20  22 3b 70 61 67 65 25 0d  |     :  ";page%.|
00001500  05 28 12 e3 6f 6e 73 65  61 72 63 68 3d 32 b8 33  |.(..onsearch=2.3|
00001510  39 0d 05 32 3b e7 72 6e  61 6d 65 24 28 6f 6e 73  |9..2;.rname$(ons|
00001520  65 61 72 63 68 29 3d 72  6e 61 6d 65 24 28 31 29  |earch)=rname$(1)|
00001530  20 8c 20 73 74 61 72 74  70 6f 69 6e 74 3d 6f 6e  | . startpoint=on|
00001540  73 65 61 72 63 68 3a e5  8d 44 50 45 0d 05 3c 0d  |search:..DPE..<.|
00001550  ed 6f 6e 73 65 61 72 63  68 0d 05 46 05 20 0d 05  |.onsearch..F. ..|
00001560  50 22 e3 20 73 74 6f 70  73 65 61 72 63 68 20 3d  |P". stopsearch =|
00001570  20 73 74 61 72 74 70 6f  69 6e 74 20 b8 20 33 39  | startpoint . 39|
00001580  0d 05 5a 43 e7 72 6e 61  6d 65 24 28 73 74 6f 70  |..ZC.rname$(stop|
00001590  73 65 61 72 63 68 29 20  3c 3e 20 72 6e 61 6d 65  |search) <> rname|
000015a0  24 28 31 29 20 8c 20 73  74 6f 70 70 6f 69 6e 74  |$(1) . stoppoint|
000015b0  20 3d 20 73 74 6f 70 73  65 61 72 63 68 3a e5 8d  | = stopsearch:..|
000015c0  44 6e 45 0d 05 64 0f ed  73 74 6f 70 73 65 61 72  |DnE..d..stopsear|
000015d0  63 68 0d 05 6e 19 73 74  6f 70 70 6f 69 6e 74 3d  |ch..n.stoppoint=|
000015e0  73 74 6f 70 70 6f 69 6e  74 2d 31 0d 05 78 41 f1  |stoppoint-1..xA.|
000015f0  8a 30 2c 31 33 29 a4 63  28 22 53 59 53 54 45 4d  |.0,13).c("SYSTEM|
00001600  20 44 41 54 41 22 29 27  a4 63 28 22 28 52 65 71  | DATA")'.c("(Req|
00001610  75 69 72 65 64 20 54 6f  20 49 6e 73 65 72 74 20  |uired To Insert |
00001620  4e 65 77 20 4f 72 64 65  72 29 22 29 0d 05 82 2a  |New Order)")...*|
00001630  f1 8a 32 38 2c 31 38 29  73 74 6f 70 70 6f 69 6e  |..28,18)stoppoin|
00001640  74 2d 31 8a 32 38 2c 31  36 29 73 74 61 72 74 70  |t-1.28,16)startp|
00001650  6f 69 6e 74 2d 31 0d 05  8c 57 f1 8a 30 2c 31 36  |oint-1...W..0,16|
00001660  29 22 52 6f 61 64 20 6e  75 6d 62 65 72 20 73 74  |)"Road number st|
00001670  61 72 74 20 20 20 20 20  20 20 20 20 20 20 20 20  |art             |
00001680  20 20 20 20 3a 22 27 27  22 52 6f 61 64 20 6e 75  |    :"''"Road nu|
00001690  6d 62 65 72 20 66 69 6e  69 73 68 20 20 20 20 20  |mber finish     |
000016a0  20 20 20 20 20 20 20 20  20 20 20 3a 22 0d 05 96  |           :"...|
000016b0  16 f1 8a 30 2c 32 30 29  22 52 6f 61 64 20 74 79  |...0,20)"Road ty|
000016c0  70 65 22 0d 05 a0 1d e3  5a 3d 73 74 61 72 74 70  |pe".....Z=startp|
000016d0  6f 69 6e 74 20 b8 20 73  74 6f 70 70 6f 69 6e 74  |oint . stoppoint|
000016e0  0d 05 aa 12 64 69 73 3d  6e 75 6d 28 5a 29 20 83  |....dis=num(Z) .|
000016f0  20 32 0d 05 b4 1a e7 20  64 69 73 3d 30 20 8c 20  | 2..... dis=0 . |
00001700  67 24 28 5a 29 3d 22 65  76 65 6e 22 0d 05 be 19  |g$(Z)="even"....|
00001710  e7 20 64 69 73 3d 31 20  8c 20 67 24 28 5a 29 3d  |. dis=1 . g$(Z)=|
00001720  22 6f 64 64 22 0d 05 c8  05 20 0d 05 d2 06 ed 5a  |"odd".... .....Z|
00001730  0d 05 dc 31 e7 20 28 6e  75 6d 28 31 29 20 83 20  |...1. (num(1) . |
00001740  32 29 3d 30 20 8c 20 67  24 28 31 29 3d 22 65 76  |2)=0 . g$(1)="ev|
00001750  65 6e 22 20 8b 20 67 24  28 31 29 3d 22 6f 64 64  |en" . g$(1)="odd|
00001760  22 0d 05 e6 0e f2 64 69  72 65 63 74 69 6f 6e 0d  |".....direction.|
00001770  05 f0 15 e7 79 3d 30 20  8c 20 f2 66 69 6e 64 70  |....y=0 . .findp|
00001780  6c 61 63 65 0d 05 fa 09  f2 6d 6f 76 65 0d 06 04  |lace.....move...|
00001790  2e e3 74 68 69 73 70 61  67 65 25 3d 31 b8 70 61  |..thispage%=1.pa|
000017a0  67 65 25 3a 73 74 61 72  74 66 72 6f 6d 3d 75 70  |ge%:startfrom=up|
000017b0  74 6f 3a f2 77 72 69 74  65 3a ed 0d 06 0e 09 f2  |to:.write:......|
000017c0  66 69 6c 65 0d 06 18 05  e0 0d 06 22 0f dd f2 64  |file......."...d|
000017d0  69 72 65 63 74 69 6f 6e  0d 06 2c 1b 63 6f 6d 70  |irection..,.comp|
000017e0  61 72 65 24 3d 67 24 28  73 74 61 72 74 70 6f 69  |are$=g$(startpoi|
000017f0  6e 74 29 0d 06 36 21 e3  54 3d 73 74 61 72 74 70  |nt)..6!.T=startp|
00001800  6f 69 6e 74 20 b8 20 28  73 74 6f 70 70 6f 69 6e  |oint . (stoppoin|
00001810  74 2d 31 29 0d 06 40 36  e7 67 24 28 54 29 3c 3e  |t-1)..@6.g$(T)<>|
00001820  20 63 6f 6d 70 61 72 65  24 20 8c 20 63 68 61 6e  | compare$ . chan|
00001830  67 65 3d 63 68 61 6e 67  65 2b 31 3a 63 6f 6d 70  |ge=change+1:comp|
00001840  61 72 65 24 3d 67 24 28  54 29 0d 06 4a 06 ed 54  |are$=g$(T)..J..T|
00001850  0d 06 54 23 74 79 70 65  24 3d 22 44 22 3a e7 63  |..T#type$="D":.c|
00001860  68 61 6e 67 65 3e 32 20  8c 20 74 79 70 65 24 3d  |hange>2 . type$=|
00001870  22 4d 22 0d 06 5e 3e e7  74 79 70 65 24 3d 22 44  |"M"..^>.type$="D|
00001880  22 20 8c 20 f1 8a 32 35  2c 32 30 29 22 3a 20 44  |" . ..25,20)": D|
00001890  69 72 65 63 74 69 6f 6e  61 6c 22 20 8b 20 f1 8a  |irectional" . ..|
000018a0  32 39 2c 32 30 29 22 3a  20 4d 75 64 64 6c 65 64  |29,20)": Muddled|
000018b0  22 0d 06 68 17 e7 74 79  70 65 24 3d 22 44 22 20  |"..h..type$="D" |
000018c0  8c 20 e5 20 8d 44 44 47  0d 06 72 3b f2 63 6f 6d  |. . .DDG..r;.com|
000018d0  77 69 6e 64 6f 77 3a f1  27 27 27 27 27 27 a4 63  |window:.''''''.c|
000018e0  28 22 50 72 65 73 73 20  53 70 61 63 65 22 29 27  |("Press Space")'|
000018f0  3a f5 fd a5 3d 33 32 3a  f2 6d 61 69 6e 77 69 6e  |:...=32:.mainwin|
00001900  64 6f 77 0d 06 7c 34 db  3a f1 8a 30 2c 30 29 22  |dow..|4.:..0,0)"|
00001910  54 48 45 20 46 4f 4c 4c  4f 57 49 4e 47 20 41 44  |THE FOLLOWING AD|
00001920  44 52 45 53 53 45 53 20  57 45 52 45 20 4c 4f 43  |DRESSES WERE LOC|
00001930  41 54 45 44 20 3a 22 0d  06 86 1d e3 43 3d 73 74  |ATED :".....C=st|
00001940  61 72 74 70 6f 69 6e 74  20 b8 20 73 74 6f 70 70  |artpoint . stopp|
00001950  6f 69 6e 74 0d 06 90 3f  f1 8a 30 2c 63 6f 6e 73  |oint...?..0,cons|
00001960  74 2b 43 29 3b 6e 75 6d  28 43 29 3b 8a 36 2c 63  |t+C);num(C);.6,c|
00001970  6f 6e 73 74 2b 43 29 72  6e 61 6d 65 24 28 43 29  |onst+C)rname$(C)|
00001980  8a 31 37 2c 63 6f 6e 73  74 2b 43 29 6f 72 31 24  |.17,const+C)or1$|
00001990  28 43 29 0d 06 9a 06 ed  43 0d 06 a4 31 f1 8a 31  |(C).....C...1..1|
000019a0  2c 31 38 29 22 54 48 45  20 46 4f 4c 4c 4f 57 49  |,18)"THE FOLLOWI|
000019b0  4e 47 20 41 44 44 52 45  53 53 20 49 53 20 54 4f  |NG ADDRESS IS TO|
000019c0  20 49 4e 53 45 52 54 20  3a 22 0d 06 ae 4d f1 8a  | INSERT :"...M..|
000019d0  30 2c 32 30 29 3b 6e 75  6d 28 31 29 3b 8a 36 2c  |0,20);num(1);.6,|
000019e0  32 30 29 72 6e 61 6d 65  24 28 31 29 8a 31 37 2c  |20)rname$(1).17,|
000019f0  32 30 29 6f 72 31 24 28  31 29 8a 31 37 2c 32 31  |20)or1$(1).17,21|
00001a00  29 6f 72 32 24 28 31 29  8a 31 37 2c 32 32 29 6f  |)or2$(1).17,22)o|
00001a10  72 33 24 28 31 29 3b 0d  06 b8 30 79 3d 32 3a ef  |r3$(1);...0y=2:.|
00001a20  32 38 2c 30 2c 32 34 2c  33 39 2c 33 3a f1 8a 30  |28,0,24,39,3:..0|
00001a30  2c 79 29 3b 3a ef 31 34  35 3a f1 8a 33 39 2c 79  |,y);:.145:..39,y|
00001a40  29 3b 3a ef 31 34 36 0d  06 c2 a6 f2 63 6f 6d 77  |);:.146.....comw|
00001a50  69 6e 64 6f 77 3a f1 27  27 27 27 27 27 a4 63 28  |indow:.''''''.c(|
00001a60  22 4d 6f 76 65 20 73 6c  69 64 65 72 20 62 61 72  |"Move slider bar|
00001a70  20 74 6f 20 74 68 65 20  63 75 73 74 6f 6d 65 72  | to the customer|
00001a80  22 29 27 a4 63 28 22 74  68 65 20 6e 65 77 20 6f  |")'.c("the new o|
00001a90  72 64 65 72 20 63 6f 6d  65 73 20 42 45 46 4f 52  |rder comes BEFOR|
00001aa0  45 2e 22 29 3a 41 24 3d  bf 28 33 30 30 29 3a f1  |E."):A$=.(300):.|
00001ab0  27 27 27 27 27 22 53 20  3a 20 53 6c 69 64 65 72  |'''''"S : Slider|
00001ac0  20 55 50 20 20 20 58 20  3a 20 53 6c 69 64 65 72  | UP   X : Slider|
00001ad0  20 44 4f 57 4e 22 27 22  49 20 3a 20 49 6e 73 65  | DOWN"'"I : Inse|
00001ae0  72 74 20 4e 65 77 20 4f  72 64 65 72 22 0d 06 cc  |rt New Order"...|
00001af0  11 ef 32 38 2c 30 2c 32  34 2c 33 39 2c 33 0d 06  |..28,0,24,39,3..|
00001b00  d6 5c f1 8a 30 2c 79 2d  31 29 3b 3a ef 31 33 30  |.\..0,y-1);:.130|
00001b10  3a f1 8a 33 39 2c 79 2d  31 29 3b 3a ef 31 33 32  |:..39,y-1);:.132|
00001b20  3a f1 8a 30 2c 79 29 3b  3a ef 31 34 35 3a f1 8a  |:..0,y);:.145:..|
00001b30  33 39 2c 79 29 3b 3a ef  31 34 36 3a f1 8a 30 2c  |39,y);:.146:..0,|
00001b40  79 2b 31 29 3b 3a ef 31  33 30 3a f1 8a 33 39 2c  |y+1);:.130:..39,|
00001b50  79 2b 31 29 3b 3a ef 31  33 32 0d 06 e0 07 55 3d  |y+1);:.132....U=|
00001b60  a5 0d 06 ea 11 e7 55 3d  38 33 20 8c 20 79 3d 79  |......U=83 . y=y|
00001b70  2d 31 0d 06 f4 11 e7 55  3d 38 38 20 8c 20 79 3d  |-1.....U=88 . y=|
00001b80  79 2b 31 0d 06 fe 11 e7  55 3d 37 33 20 8c 20 e5  |y+1.....U=73 . .|
00001b90  8d 54 66 47 0d 07 08 0f  e7 20 79 3c 32 20 8c 20  |.TfG..... y<2 . |
00001ba0  79 3d 32 0d 07 12 27 e7  20 79 3e 28 73 74 6f 70  |y=2...'. y>(stop|
00001bb0  70 6f 69 6e 74 2b 31 29  20 8c 20 79 3d 28 73 74  |point+1) . y=(st|
00001bc0  6f 70 70 6f 69 6e 74 2b  31 29 0d 07 1c 09 e5 8d  |oppoint+1)......|
00001bd0  64 56 46 0d 07 26 18 70  6c 61 63 65 3d 79 2b 73  |dVF..&.place=y+s|
00001be0  74 61 72 74 70 6f 69 6e  74 2d 32 0d 07 30 1e f1  |tartpoint-2..0..|
00001bf0  8a 30 2c 79 29 3b 3a ef  31 33 30 3a f1 8a 33 39  |.0,y);:.130:..39|
00001c00  2c 79 29 3b 3a ef 31 33  32 0d 07 3a 2d f2 63 6f  |,y);:.132..:-.co|
00001c10  6d 77 69 6e 64 6f 77 3a  f1 27 27 27 27 27 a4 63  |mwindow:.'''''.c|
00001c20  28 22 50 72 65 73 73 20  73 70 61 63 65 22 29 27  |("Press space")'|
00001c30  3a e5 8d 74 7c 47 0d 07  44 1f f1 8a 30 2c 32 32  |:..t|G..D...0,22|
00001c40  29 22 44 69 72 65 63 74  69 6f 6e 20 6f 66 20 72  |)"Direction of r|
00001c50  6f 61 64 22 3b 0d 07 4e  44 f4 20 50 69 63 6b 20  |oad";..ND. Pick |
00001c60  6f 75 74 20 74 68 65 20  62 69 74 20 6f 66 20 74  |out the bit of t|
00001c70  68 65 20 72 6f 75 6e 64  20 77 68 65 72 65 20 6e  |he round where n|
00001c80  65 77 20 6f 72 64 65 72  20 73 68 6f 75 6c 64 20  |ew order should |
00001c90  62 65 20 70 6c 61 63 65  64 0d 07 58 12 63 6f 6d  |be placed..X.com|
00001ca0  70 61 72 65 24 3d 67 24  28 31 29 0d 07 62 1d e3  |pare$=g$(1)..b..|
00001cb0  41 3d 73 74 61 72 74 70  6f 69 6e 74 20 b8 20 73  |A=startpoint . s|
00001cc0  74 6f 70 70 6f 69 6e 74  0d 07 6c 24 e7 67 24 28  |toppoint..l$.g$(|
00001cd0  41 29 3d 67 24 28 31 29  20 8c 20 72 65 61 6c 73  |A)=g$(1) . reals|
00001ce0  74 61 72 74 3d 41 3a e5  8d 74 40 47 0d 07 76 06  |tart=A:..t@G..v.|
00001cf0  ed 41 0d 07 80 24 e3 42  3d 28 72 65 61 6c 73 74  |.A...$.B=(realst|
00001d00  61 72 74 2b 31 29 20 b8  20 28 73 74 6f 70 70 6f  |art+1) . (stoppo|
00001d10  69 6e 74 2b 31 29 0d 07  8a 25 e7 67 24 28 42 29  |int+1)...%.g$(B)|
00001d20  3c 3e 67 24 28 31 29 20  8c 20 72 65 61 6c 65 6e  |<>g$(1) . realen|
00001d30  64 3d 42 2d 31 3a e5 8d  74 5e 47 0d 07 94 06 ed  |d=B-1:..t^G.....|
00001d40  42 0d 07 9e 4a e7 6e 75  6d 28 72 65 61 6c 73 74  |B...J.num(realst|
00001d50  61 72 74 29 3e 6e 75 6d  28 72 65 61 6c 73 74 61  |art)>num(realsta|
00001d60  72 74 2b 31 29 20 8c 20  64 69 72 65 63 74 69 6f  |rt+1) . directio|
00001d70  6e 24 3d 22 44 4f 57 4e  22 3a f1 8a 33 32 2c 32  |n$="DOWN":..32,2|
00001d80  32 29 22 3a 20 44 6f 77  6e 22 3b 0d 07 a8 46 e7  |2)": Down";...F.|
00001d90  6e 75 6d 28 72 65 61 6c  73 74 61 72 74 29 3c 6e  |num(realstart)<n|
00001da0  75 6d 28 72 65 61 6c 73  74 61 72 74 2b 31 29 20  |um(realstart+1) |
00001db0  8c 20 64 69 72 65 63 74  69 6f 6e 24 3d 22 55 50  |. direction$="UP|
00001dc0  22 3a f1 8a 33 34 2c 32  32 29 22 3a 20 55 70 22  |":..34,22)": Up"|
00001dd0  3b 0d 07 b2 2f f2 63 6f  6d 77 69 6e 64 6f 77 3a  |;.../.comwindow:|
00001de0  f1 27 27 27 27 27 27 a4  63 28 22 50 72 65 73 73  |.''''''.c("Press|
00001df0  20 53 70 61 63 65 22 29  27 3a f5 fd a5 3d 33 32  | Space")':...=32|
00001e00  0d 07 bc 05 e1 0d 07 c6  06 20 20 0d 07 d0 0f dd  |.........  .....|
00001e10  f2 66 69 6e 64 70 6c 61  63 65 0d 07 da 1b e3 70  |.findplace.....p|
00001e20  6c 3d 72 65 61 6c 73 74  61 72 74 20 b8 20 72 65  |l=realstart . re|
00001e30  61 6c 65 6e 64 0d 07 e4  1f e7 64 69 72 65 63 74  |alend.....direct|
00001e40  69 6f 6e 24 3d 22 44 4f  57 4e 22 20 8c 20 e5 20  |ion$="DOWN" . . |
00001e50  8d 64 78 47 0d 07 ee 1d  e7 64 69 72 65 63 74 69  |.dxG.....directi|
00001e60  6f 6e 24 3d 22 55 50 22  20 8c 20 e5 20 8d 54 60  |on$="UP" . . .T`|
00001e70  48 0d 07 f8 24 e7 6e 75  6d 28 31 29 3e 6e 75 6d  |H...$.num(1)>num|
00001e80  28 70 6c 29 20 8c 20 70  6c 61 63 65 3d 70 6c 3a  |(pl) . place=pl:|
00001e90  e5 8d 54 56 48 0d 08 02  1c e7 70 6c 3d 72 65 61  |..TVH.....pl=rea|
00001ea0  6c 65 6e 64 20 8c 20 70  6c 61 63 65 3d 70 6c 2b  |lend . place=pl+|
00001eb0  31 0d 08 0c 07 ed 70 6c  0d 08 16 09 e5 8d 54 7e  |1.....pl......T~|
00001ec0  48 0d 08 20 24 e7 6e 75  6d 28 31 29 3c 6e 75 6d  |H.. $.num(1)<num|
00001ed0  28 70 6c 29 20 8c 20 70  6c 61 63 65 3d 70 6c 3a  |(pl) . place=pl:|
00001ee0  e5 8d 54 7e 48 0d 08 2a  1c e7 70 6c 3d 72 65 61  |..T~H..*..pl=rea|
00001ef0  6c 65 6e 64 20 8c 20 70  6c 61 63 65 3d 70 6c 2b  |lend . place=pl+|
00001f00  31 0d 08 34 07 ed 70 6c  0d 08 3e 05 e1 0d 08 48  |1..4..pl..>....H|
00001f10  05 20 0d 08 52 0a dd f2  6d 6f 76 65 0d 08 5c 11  |. ..R...move..\.|
00001f20  e3 6d 6f 76 65 3d 31 b8  70 6c 61 63 65 0d 08 66  |.move=1.place..f|
00001f30  19 6e 75 6d 28 6d 6f 76  65 2d 31 29 3d 6e 75 6d  |.num(move-1)=num|
00001f40  28 6d 6f 76 65 29 0d 08  70 1f 72 6e 61 6d 65 24  |(move)..p.rname$|
00001f50  28 6d 6f 76 65 2d 31 29  3d 72 6e 61 6d 65 24 28  |(move-1)=rname$(|
00001f60  6d 6f 76 65 29 0d 08 7a  1d 69 6e 69 74 24 28 6d  |move)..z.init$(m|
00001f70  6f 76 65 2d 31 29 3d 69  6e 69 74 24 28 6d 6f 76  |ove-1)=init$(mov|
00001f80  65 29 0d 08 84 1f 73 6e  61 6d 65 24 28 6d 6f 76  |e)....sname$(mov|
00001f90  65 2d 31 29 3d 73 6e 61  6d 65 24 28 6d 6f 76 65  |e-1)=sname$(move|
00001fa0  29 0d 08 8e 1f 74 69 74  6c 65 24 28 6d 6f 76 65  |)....title$(move|
00001fb0  2d 31 29 3d 74 69 74 6c  65 24 28 6d 6f 76 65 29  |-1)=title$(move)|
00001fc0  0d 08 98 1d 74 65 6c 6e  6f 28 6d 6f 76 65 2d 31  |....telno(move-1|
00001fd0  29 3d 74 65 6c 6e 6f 28  6d 6f 76 65 29 0d 08 a2  |)=telno(move)...|
00001fe0  1b 6f 72 31 24 28 6d 6f  76 65 2d 31 29 3d 6f 72  |.or1$(move-1)=or|
00001ff0  31 24 28 6d 6f 76 65 29  0d 08 ac 1b 6f 72 32 24  |1$(move)....or2$|
00002000  28 6d 6f 76 65 2d 31 29  3d 6f 72 32 24 28 6d 6f  |(move-1)=or2$(mo|
00002010  76 65 29 0d 08 b6 1b 6f  72 33 24 28 6d 6f 76 65  |ve)....or3$(move|
00002020  2d 31 29 3d 6f 72 33 24  28 6d 6f 76 65 29 0d 08  |-1)=or3$(move)..|
00002030  c0 27 74 6f 64 61 79 73  62 69 6c 6c 28 6d 6f 76  |.'todaysbill(mov|
00002040  65 2d 31 29 3d 74 6f 64  61 79 73 62 69 6c 6c 28  |e-1)=todaysbill(|
00002050  6d 6f 76 65 29 0d 08 ca  29 6f 75 74 73 74 61 6e  |move)...)outstan|
00002060  64 69 6e 67 28 6d 6f 76  65 2d 31 29 3d 6f 75 74  |ding(move-1)=out|
00002070  73 74 61 6e 64 69 6e 67  28 6d 6f 76 65 29 0d 08  |standing(move)..|
00002080  d4 09 ed 6d 6f 76 65 0d  08 de 11 70 6c 61 63 65  |...move....place|
00002090  3d 70 6c 61 63 65 2d 31  0d 08 e8 15 6e 75 6d 28  |=place-1....num(|
000020a0  70 6c 61 63 65 29 3d 6e  75 6d 28 30 29 0d 08 f2  |place)=num(0)...|
000020b0  1b 72 6e 61 6d 65 24 28  70 6c 61 63 65 29 3d 72  |.rname$(place)=r|
000020c0  6e 61 6d 65 24 28 30 29  0d 08 fc 19 69 6e 69 74  |name$(0)....init|
000020d0  24 28 70 6c 61 63 65 29  3d 69 6e 69 74 24 28 30  |$(place)=init$(0|
000020e0  29 0d 09 06 1b 73 6e 61  6d 65 24 28 70 6c 61 63  |)....sname$(plac|
000020f0  65 29 3d 73 6e 61 6d 65  24 28 30 29 0d 09 10 1b  |e)=sname$(0)....|
00002100  74 69 74 6c 65 24 28 70  6c 61 63 65 29 3d 74 69  |title$(place)=ti|
00002110  74 6c 65 24 28 30 29 0d  09 1a 19 74 65 6c 6e 6f  |tle$(0)....telno|
00002120  28 70 6c 61 63 65 29 3d  74 65 6c 6e 6f 28 30 29  |(place)=telno(0)|
00002130  0d 09 24 17 6f 72 31 24  28 70 6c 61 63 65 29 3d  |..$.or1$(place)=|
00002140  6f 72 31 24 28 30 29 0d  09 2e 17 6f 72 32 24 28  |or1$(0)....or2$(|
00002150  70 6c 61 63 65 29 3d 6f  72 32 24 28 30 29 0d 09  |place)=or2$(0)..|
00002160  38 17 6f 72 33 24 28 70  6c 61 63 65 29 3d 6f 72  |8.or3$(place)=or|
00002170  33 24 28 30 29 0d 09 42  23 74 6f 64 61 79 73 62  |3$(0)..B#todaysb|
00002180  69 6c 6c 28 70 6c 61 63  65 29 3d 74 6f 64 61 79  |ill(place)=today|
00002190  73 62 69 6c 6c 28 30 29  0d 09 4c 25 6f 75 74 73  |sbill(0)..L%outs|
000021a0  74 61 6e 64 69 6e 67 28  70 6c 61 63 65 29 3d 6f  |tanding(place)=o|
000021b0  75 74 73 74 61 6e 64 69  6e 67 28 30 29 0d 09 56  |utstanding(0)..V|
000021c0  05 e1 0d 09 60 06 20 20  0d 09 6a 0b dd f2 77 72  |....`.  ..j...wr|
000021d0  69 74 65 0d 09 74 0f f2  6d 61 69 6e 77 69 6e 64  |ite..t..mainwind|
000021e0  6f 77 0d 09 7e 1f db 3a  f1 8a 31 36 2c 30 29 22  |ow..~..:..16,0)"|
000021f0  52 4f 55 4e 44 20 22 3b  c2 66 69 6c 65 24 2c 31  |ROUND ";.file$,1|
00002200  29 0d 09 88 24 f1 8a 33  32 2c 30 29 22 50 67 20  |)...$..32,0)"Pg |
00002210  22 3b 74 68 69 73 70 61  67 65 25 3b 22 2f 22 3b  |";thispage%;"/";|
00002220  70 61 67 65 25 0d 09 92  1d e7 20 74 68 69 73 70  |page%..... thisp|
00002230  61 67 65 25 3d 31 20 73  74 61 72 74 66 72 6f 6d  |age%=1 startfrom|
00002240  3d 31 0d 09 9c 20 e3 20  41 3d 73 74 61 72 74 66  |=1... . A=startf|
00002250  72 6f 6d 20 b8 20 73 74  61 72 74 66 72 6f 6d 2b  |rom . startfrom+|
00002260  31 36 0d 09 a6 69 e7 6e  75 6d 28 41 29 3d 2d 39  |16...i.num(A)=-9|
00002270  39 39 20 f2 63 6f 6d 77  69 6e 64 6f 77 3a f1 27  |99 .comwindow:.'|
00002280  27 27 27 27 27 a4 63 28  22 54 68 65 20 6e 65 77  |'''''.c("The new|
00002290  20 63 75 73 74 6f 6d 65  72 20 68 61 73 20 62 65  | customer has be|
000022a0  65 6e 20 61 64 64 65 64  22 29 27 a4 63 28 22 50  |en added")'.c("P|
000022b0  72 65 73 73 20 53 70 61  63 65 22 29 3a 41 3d 73  |ress Space"):A=s|
000022c0  74 61 72 74 66 72 6f 6d  2b 31 36 0d 09 b0 2d e7  |tartfrom+16...-.|
000022d0  20 41 3d 73 74 61 72 74  66 72 6f 6d 2b 31 36 20  | A=startfrom+16 |
000022e0  8c 20 75 70 74 6f 3d 41  3a 63 6f 6e 73 74 3d 2d  |. upto=A:const=-|
000022f0  31 34 3a e5 8d 64 58 49  0d 09 ba 3f f1 8a 30 2c  |14:..dXI...?..0,|
00002300  41 2b 63 6f 6e 73 74 29  3b 6e 75 6d 28 41 29 3b  |A+const);num(A);|
00002310  8a 36 2c 41 2b 63 6f 6e  73 74 29 72 6e 61 6d 65  |.6,A+const)rname|
00002320  24 28 41 29 8a 31 37 2c  41 2b 63 6f 6e 73 74 29  |$(A).17,A+const)|
00002330  6f 72 31 24 28 41 29 0d  09 c4 38 e7 20 6f 72 32  |or1$(A)...8. or2|
00002340  24 28 41 29 20 3c 3e 20  22 22 20 8c 20 63 6f 6e  |$(A) <> "" . con|
00002350  73 74 3d 63 6f 6e 73 74  2b 31 3a f1 8a 31 37 2c  |st=const+1:..17,|
00002360  41 2b 63 6f 6e 73 74 29  6f 72 32 24 28 41 29 0d  |A+const)or2$(A).|
00002370  09 ce 38 e7 20 6f 72 33  24 28 41 29 20 3c 3e 20  |..8. or3$(A) <> |
00002380  22 22 20 8c 20 63 6f 6e  73 74 3d 63 6f 6e 73 74  |"" . const=const|
00002390  2b 31 3a f1 8a 31 37 2c  41 2b 63 6f 6e 73 74 29  |+1:..17,A+const)|
000023a0  6f 72 33 24 28 41 29 0d  09 d8 07 ed 20 41 0d 09  |or3$(A)..... A..|
000023b0  e2 0a f5 fd a5 3d 33 32  0d 09 ec 05 e1 0d 09 f6  |.....=32........|
000023c0  05 20 0d 0a 00 0a dd f2  66 69 6c 65 0d 0a 0a 27  |. ......file...'|
000023d0  f1 27 27 27 27 a4 63 28  22 53 61 76 69 6e 67 20  |.''''.c("Saving |
000023e0  4e 65 77 20 52 6f 75 6e  64 20 4c 61 79 6f 75 74  |New Round Layout|
000023f0  22 29 27 0d 0a 14 16 6e  65 77 5f 72 6f 75 6e 64  |")'....new_round|
00002400  3d ae 28 66 69 6c 65 24  29 0d 0a 1e 0c 63 6f 75  |=.(file$)....cou|
00002410  6e 74 3d 34 30 0d 0a 28  10 e3 73 3d 31 20 b8 20  |nt=40..(..s=1 . |
00002420  63 6f 75 6e 74 0d 0a 32  7b f1 23 6e 65 77 5f 72  |count..2{.#new_r|
00002430  6f 75 6e 64 2c 6e 75 6d  28 73 29 2c 72 6e 61 6d  |ound,num(s),rnam|
00002440  65 24 28 73 29 2c 69 6e  69 74 24 28 73 29 2c 73  |e$(s),init$(s),s|
00002450  6e 61 6d 65 24 28 73 29  2c 74 69 74 6c 65 24 28  |name$(s),title$(|
00002460  73 29 2c 74 65 6c 6e 6f  28 73 29 2c 6f 72 31 24  |s),telno(s),or1$|
00002470  28 73 29 2c 6f 72 32 24  28 73 29 2c 6f 72 33 24  |(s),or2$(s),or3$|
00002480  28 73 29 2c 74 6f 64 61  79 73 62 69 6c 6c 28 73  |(s),todaysbill(s|
00002490  29 2c 6f 75 74 73 74 61  6e 64 69 6e 67 28 73 29  |),outstanding(s)|
000024a0  0d 0a 3c 07 ed 20 73 0d  0a 46 0f d9 23 6e 65 77  |..<.. s..F..#new|
000024b0  5f 72 6f 75 6e 64 0d 0a  50 21 f1 27 27 27 a4 63  |_round..P!.'''.c|
000024c0  28 22 4e 65 77 20 52 6f  75 6e 64 20 41 63 63 65  |("New Round Acce|
000024d0  70 74 65 64 22 29 27 0d  0a 5a 0d 41 24 3d bf 28  |pted")'..Z.A$=.(|
000024e0  33 30 30 29 0d 0a 64 05  e1 0d 0a 6e 05 20 0d 0a  |300)..d....n. ..|
000024f0  78 12 dd f2 65 6e 64 3a  2a 46 58 32 30 30 2c 31  |x...end:*FX200,1|
00002500  0d 0a 82 22 f1 27 27 27  27 27 a4 63 28 22 4c 6f  |...".'''''.c("Lo|
00002510  61 64 69 6e 67 20 4d 61  69 6e 20 4d 65 6e 75 22  |ading Main Menu"|
00002520  29 27 0d 0a 8c 08 2a 44  49 52 0d 0a 96 0b d7 22  |)'....*DIR....."|
00002530  4d 45 4e 55 22 0d 0a a0  0d dd f2 6e 65 77 72 6f  |MENU"......newro|
00002540  61 64 0d 0a aa 9c 41 24  3d bf 28 32 30 30 29 3a  |ad....A$=.(200):|
00002550  f1 27 27 27 27 a4 63 28  22 54 68 69 73 20 75 74  |.''''.c("This ut|
00002560  69 6c 69 74 79 20 77 69  6c 6c 20 61 6c 6c 6f 77  |ility will allow|
00002570  20 79 6f 75 20 74 6f 22  29 27 a4 63 28 22 63 72  | you to")'.c("cr|
00002580  65 61 74 65 20 61 20 6e  65 77 20 72 6f 61 64 20  |eate a new road |
00002590  61 74 20 74 68 65 20 62  65 67 69 6e 6e 69 6e 67  |at the beginning|
000025a0  22 29 27 a4 63 28 22 6f  66 20 52 4f 55 4e 44 20  |")'.c("of ROUND |
000025b0  36 20 6f 6e 6c 79 2e 22  29 27 a4 63 28 22 47 6f  |6 only.")'.c("Go|
000025c0  20 61 68 65 61 64 20 77  69 74 68 20 6e 65 77 20  | ahead with new |
000025d0  72 6f 61 64 20 28 59 2f  4e 29 3f 22 29 3b 0d 0a  |road (Y/N)?");..|
000025e0  b4 12 51 3d a5 3a e7 20  51 3d 38 39 20 8c 20 e1  |..Q=.:. Q=89 . .|
000025f0  0d 0a be 0b ef 37 3a f2  65 6e 64 0d 0a c8 05 e1  |.....7:.end.....|
00002600  0d ff                                             |..|
00002602