� BTEC Project "PAGE8" v.3.5

*CLOSE

�*FX200,1
("a=0:A=0:singlesearch=0:page%=0
2const=2:valid=0:upto=1
<charge=0
F��paper$(15),price(15),num(40),rname$(40),init$(40),sname$(40),title$(40),telno(40),or1$(40),or2$(40),or3$(40),round(40),todaysbill(40),outstanding(40)
P�mainwindow
Z#�:�c("""COMPLAINT!"" UTILITY")
d/�''''�c("In order to use this utility, it")
n,�'�c("is first necessary to locate the")
x,�'�c("customer's information. To do so")
�0�'�c("input the customer's name or address")
��'�c("when required.")
���'�c("Do not use this utility for GENERAL")''�c("complaints (such as paper was wet)!")''�c("Use only if replacement paper is")''�c("needed to be despatched.")
��23;8202;0;0;0;
��comwindow
� 
�� * Get Delivery Charge *
�that_one=�("CHARGE")
��#that_one,charge
�� #that_one
� 
�� * Get Paper Prices *
� 

papers=�("DATA")

papercount=0

�

"papercount=papercount+1

,1�#papers,paper$(papercount),price(papercount)

6R�paper$(papercount)="EMPTY" � price(papercount)=-981 � papercount=papercount-1

@� �#papers

J
� #papers

T 

^*DIR MORNING

h
*CLOSE

r 

|h�''''''"A : Search By Knowing ADDRESS"'"B : Search By Knowing SURNAME"'"Q : Quit Back To Main Menu";

�
*CLOSE

�S=�:�S=66�txA

��S=65�TZD

��S=81�getout

�	�tPA

�B�''''''"A : Search A Particular Round"'"B : Search All Rounds"

�F=�:

��F=65�djA

��F=66�T\B

�	�dBA

�&�'''''''"Which round "':�12,1);S$

�f� S$="1" � S$="2" � S$="3" � S$="4" � S$="5" � S$="6" � S$="7" � S$="8" � file$="ROUND"+S$:valid=1

�� �(S$)>7 valid=0:�7
�� S$="ROUND1" � S$="ROUND2" � S$="ROUND3" � S$="ROUND4" � S$="ROUND5" � S$="ROUND6" � S$="ROUND7" � S$="ROUND8" � file$=S$:valid=1
"�valid=0�djA � singlesearch=1
8�'''''''"Enter customer's surname "':�25,1);search$
&�searchround
0�displaydata
:�comwindow:�''''''
DE� count=2 �c("Press Space To Display Details")':���=32:N=1:�DlB
NG� count>2 �'''''"Input corresponding above number"':�33,1);N:�DbB
X$�c("Press Space")':���=32:�DhA
b�N>count-1 �7:�DNB
l�thedisplay
v	�DhA
�  
���searchround
� �'''''�c("Starting Search")'
��28,1,24,38,3:�:�comwindow
�4count=1:a=0:�singlesearch=1 a=�(�file$,1)):�dxB
�
� a=1 � 6
��a=1 file$=("ROUND1")
��a=2 file$=("ROUND2")
��a=3 file$=("ROUND3")
��a=4 file$=("ROUND4")
��a=5 file$=("ROUND5")
��a=6 file$=("ROUND6")
�5�mainwindow:�0,a+4)"Searching ";file$:�comwindow
theround=�(file$)
�
��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
 �� �sname$(count),�(search$)) = search$ � �''''''�c("Search element located.")'�c("Continuing Search"):round(count)=a:count=count+1
*� �#theround
4� #theround
>�singlesearch=1�
H�a
R�
\��displaydata
f*�mainwindow:�:�c("RESULTS OF SEARCH")
p,�count-1=0�'"Search unsuccessful.":�TrE
zO�'"A total of ";count-1;" customers with"'"surname ";search$;" were found."
��A=1�(count-1)
� �0,A+5)" ";A;": ";sname$(A)
��13,A+5)" ";init$(A);". "
��17,A+5);num(A)
��20,A+5)" ";rname$(A)
��36,A+5);round(A)
��
��
���mainwindow
��28,1,24,38,1
��
���comwindow
��28,1,30,38,27
�
ݤc(C$):�19-�C$/2);:=C$
B�''''''"A : Search A Particular Round"'"B : Search All Rounds"
$ F=�:�F=65�DBD
.�F=66�DtD
8	�TdD
B&�'''''''"Which round "':�12,1);S$
Lf� S$="1" � S$="2" � S$="3" � S$="4" � S$="5" � S$="6" � S$="7" � S$="8" � file$="ROUND"+S$:valid=1
V� �(S$)>7 valid=0:�7
`�� S$="ROUND1" � S$="ROUND2" � S$="ROUND3" � S$="ROUND4" � S$="ROUND5" � S$="ROUND6" � S$="ROUND7" � S$="ROUND8" � file$=S$:valid=1
j"�valid=0�DBD � singlesearch=1
t_�'''''''"Enter customer's address :"''"Road number    ?"'"Road name      ?";:�15,2);tarnum
~�15,3);sea$
� �'''''�c("Starting Search")'
� 
�M�28,1,24,38,3:�:�comwindow:count=1:�singlesearch=1 � a=�(�file$,1)):�dbD
�#� a=1 � 6:�a=1 file$=("ROUND1")
��a=2 file$=("ROUND2")
��a=3 file$=("ROUND3")
��a=4 file$=("ROUND4")
��a=5 file$=("ROUND5")
��a=6 file$=("ROUND6")
�I�mainwindow:�0,a+4)"Searching ";file$:�comwindow:theround=�(file$):�
��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
�w� num(count)=tarnum � rname$(count)=sea$ � round(count)=a:�''''''�c("Search element located.")':count=count+1:�ThE
� �#theround

� #theround
�singlesearch=1�ThE
�a
(search$=sname$(1):�TpB
2  
<�
F��thedisplay
P�mainwindow:�
Z �c("DETAILS OF CUSTOMER")''
d�'"Title         :"
n�'"Surname       :"
x�'"Address       :"
��'''''"Tel. No.      :"
��''"Paper(s) ordered :"
��'''''"Bill outstanding :";
�"�16,4);title$(N);" ";init$(N)
��16,6);sname$(N)
�!�16,8);num(N);", ";rname$(N)
�A�16,10)"REDCAR"�16,12)"CLEVELAND"�16,14);"(01642) ";telno(N)
�4�19,17);or1$(N);�19,19);or2$(N);�19,21);or3$(N)
�J�19,23);"`";outstanding(N);:� (outstanding(N) * 100) � 10 = 0 � �"0";
��comwindow
�(�or2$(N)="" � notdone$=or1$(N):�TlF
�O�''''''"Please input the name of the paper"'"which has not been delivered."
��'notdone$
/� notdone$=or1$(N) � notdone$=or1$(N):�TlF
/� notdone$=or2$(N) � notdone$=or2$(N):�TlF
/� notdone$=or3$(N) � notdone$=or3$(N):�TlF
"_�7:�''''�c("This address does not ORDER this")'�c("type of newspaper on a morning!!"):�DzH
,b�'''''�c("NATURE OF COMPLAINT")''"The ";notdone$;" has not been"'"delivered to this address!";
6
A$=�(600)
@�''''�c("SOLVING PROBLEM")'
J"�c("Despatch New Paper NOW?")
T�c("(Y/N)");
^S=�:�S=89 � � �tdF
hZ�S=78 � �28,1,30,38,28:�'''''�c("Not possible to despatch new paper!"):A$=�(200):�D|F
r�7:�D^F
|Y�''''�c("Customer is creditted with both price")'�c("of paper and delivery charge.");
�
A$=�(300)
���find:outstanding(N)=(outstanding(N)-cost)-charge:�mainwindow:change%=1:�19,23);"`";�(6);�19,23);"`";outstanding(N);:� (outstanding(N) * 100) � 10 = 0 � �"0";
�	�dtF
�M�28,1,30,38,28:�'''''("Wave Delivery Charge(s) As Apology?")'�c("(Y/N)");
�T=�:�T=89 � � �dLF
��T=78 � change%=0:�T`H
��7:�tdF
�=� or2$(N)="" � outstanding(N)=outstanding(N)-charge:�djF
�C� or3$(N)="" � outstanding(N)=outstanding(N)-(2 * charge):�djF
�.outstanding(N)=outstanding(N)-(3 * charge)
�q�mainwindow:change%=1:�19,23);"`";�(6);�19,23);"`";outstanding(N);:� (outstanding(N) * 100) � 10 = 0 � �"0";
��comwindow:A$=�(50):�'''''�c("Please note the system docks the sum")'�c("of delivery charge NOW from the bill")'�c("outstanding. A charge will still be")'�c("added when page 10 is used!");
�a=round(N)
� a=1 file$="ROUND1"
� a=2 file$="ROUND2"
� a=3 file$="ROUND3"
&� a=4 file$="ROUND4"
0� a=5 file$="ROUND5"
:� a=6 file$="ROUND6"
D�num(0)=num(N):rname$(0)=rname$(N):init$(0)=init$(N):sname$(0)=sname$(N):title$(0)=title$(N):telno(0)=telno(N):or1$(0)=or1$(N):or2$(0)=or2$(N):or3$(0)=or3$(N):todaysbill(0)=todaysbill(N):outstanding(0)=outstanding(N)
Nrund=�(file$)
X	new=0
b�
l
new=new+1
v��#rund,num(new),rname$(new),init$(new),sname$(new),title$(new),telno(new),or1$(new),or2$(new),or3$(new),todaysbill(new),outstanding(new)
�� �#rund
�� #rund
� 
�� search = 1 � new
�s� num(0)=num(search) � rname$(0)=rname$(search) � sname$(0)=sname$(search) � outstanding(search)=outstanding(0)
�� search
� 
�"�''''''�c("Writing New Bill")'
� 
�
*CLOSE
� 
�thee=�(file$)
�
�s=1 � 40
v�#thee,num(s),rname$(s),init$(s),sname$(s),title$(s),telno(s),or1$(s),or2$(s),or3$(s),todaysbill(s),outstanding(s)
� s

�#thee
 
*CLOSE
*	�tlH
4��getout
>5�comwindow:�''''''''�c("Loading Main Menu")':*DIR
H�"MENU"
R�A$=�(300):�'''''"The ";notdone$;" is not"'"listed as ordered for this house."'"A : Abandon Complaint Procedure"'"B : Retry Entering The Strayed Paper";:A=�
\�A=65 � �getout
f�A=66 � � �d\E
p
A=�:�D\H
z
��find
��z=1�papercount
�-�notdone$=paper$(z) � cost=price(z):�tbH
��z
��
� 
�� * Open Up New Arrays *
�a=round(N)
�G�wages(10),deliverer$(10),housenum(10),road$(10),phone(10),owed(10)
� 
�*DIR
� 
�the_wages=�("WAGES")
��
	temp=temp+1
	^�#the_wages,wages(temp),deliverer$(temp),housenum(temp),road$(temp),phone(temp),owed(temp)
	3�wages(temp)=-999 � wages(temp)=0 � temp=temp-1
	$� �#the_wages
	.� #the_wages
	8 
	B'�mainwindow:�:�c("RESPONSIBILITY")
	L;�'''"ROUND ";a;" is delivered by:"''�(15);deliverer$(a)
	VE�comwindow:�'''''�c("Dock Wages Of Paper Deliverer?")'�c("(Y/N)")
	`G=�:�G=89�find:�DjI
	jowed(a)=owed(a)-cost
	tR�'''''"   Deliverer's Wages Docked By `";cost;:� (cost * 100) � 10 = 0 � �"0";
	~�'
	�
A$=�(250)
	�
*CLOSE
	��change%=0 � �dvI
	�"�'''''''�c("Writing Changes")'
	�new_wages=�("WAGES")
	��
	��s=1 � temp
	�L�#new_wages,wages(s),deliverer$(s),housenum(s),road$(s),phone(s),owed(s)
	��s
	���#new_wages
	�� #new_wages
	��getout
�

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  38 22 20 76 2e 33 2e 35  |ct "PAGE8" v.3.5|
00000020  0d 00 14 0a 2a 43 4c 4f  53 45 0d 00 1e 0d f4 2a  |....*CLOSE.....*|
00000030  46 58 32 30 30 2c 31 0d  00 28 22 61 3d 30 3a 41  |FX200,1..("a=0:A|
00000040  3d 30 3a 73 69 6e 67 6c  65 73 65 61 72 63 68 3d  |=0:singlesearch=|
00000050  30 3a 70 61 67 65 25 3d  30 0d 00 32 1a 63 6f 6e  |0:page%=0..2.con|
00000060  73 74 3d 32 3a 76 61 6c  69 64 3d 30 3a 75 70 74  |st=2:valid=0:upt|
00000070  6f 3d 31 0d 00 3c 0c 63  68 61 72 67 65 3d 30 0d  |o=1..<.charge=0.|
00000080  00 46 9a de 70 61 70 65  72 24 28 31 35 29 2c 70  |.F..paper$(15),p|
00000090  72 69 63 65 28 31 35 29  2c 6e 75 6d 28 34 30 29  |rice(15),num(40)|
000000a0  2c 72 6e 61 6d 65 24 28  34 30 29 2c 69 6e 69 74  |,rname$(40),init|
000000b0  24 28 34 30 29 2c 73 6e  61 6d 65 24 28 34 30 29  |$(40),sname$(40)|
000000c0  2c 74 69 74 6c 65 24 28  34 30 29 2c 74 65 6c 6e  |,title$(40),teln|
000000d0  6f 28 34 30 29 2c 6f 72  31 24 28 34 30 29 2c 6f  |o(40),or1$(40),o|
000000e0  72 32 24 28 34 30 29 2c  6f 72 33 24 28 34 30 29  |r2$(40),or3$(40)|
000000f0  2c 72 6f 75 6e 64 28 34  30 29 2c 74 6f 64 61 79  |,round(40),today|
00000100  73 62 69 6c 6c 28 34 30  29 2c 6f 75 74 73 74 61  |sbill(40),outsta|
00000110  6e 64 69 6e 67 28 34 30  29 0d 00 50 0f f2 6d 61  |nding(40)..P..ma|
00000120  69 6e 77 69 6e 64 6f 77  0d 00 5a 23 db 3a f1 a4  |inwindow..Z#.:..|
00000130  63 28 22 22 22 43 4f 4d  50 4c 41 49 4e 54 21 22  |c("""COMPLAINT!"|
00000140  22 20 55 54 49 4c 49 54  59 22 29 0d 00 64 2f f1  |" UTILITY")..d/.|
00000150  27 27 27 27 a4 63 28 22  49 6e 20 6f 72 64 65 72  |''''.c("In order|
00000160  20 74 6f 20 75 73 65 20  74 68 69 73 20 75 74 69  | to use this uti|
00000170  6c 69 74 79 2c 20 69 74  22 29 0d 00 6e 2c f1 27  |lity, it")..n,.'|
00000180  a4 63 28 22 69 73 20 66  69 72 73 74 20 6e 65 63  |.c("is first nec|
00000190  65 73 73 61 72 79 20 74  6f 20 6c 6f 63 61 74 65  |essary to locate|
000001a0  20 74 68 65 22 29 0d 00  78 2c f1 27 a4 63 28 22  | the")..x,.'.c("|
000001b0  63 75 73 74 6f 6d 65 72  27 73 20 69 6e 66 6f 72  |customer's infor|
000001c0  6d 61 74 69 6f 6e 2e 20  54 6f 20 64 6f 20 73 6f  |mation. To do so|
000001d0  22 29 0d 00 82 30 f1 27  a4 63 28 22 69 6e 70 75  |")...0.'.c("inpu|
000001e0  74 20 74 68 65 20 63 75  73 74 6f 6d 65 72 27 73  |t the customer's|
000001f0  20 6e 61 6d 65 20 6f 72  20 61 64 64 72 65 73 73  | name or address|
00000200  22 29 0d 00 8c 1a f1 27  a4 63 28 22 77 68 65 6e  |").....'.c("when|
00000210  20 72 65 71 75 69 72 65  64 2e 22 29 0d 00 96 a2  | required.")....|
00000220  f1 27 a4 63 28 22 44 6f  20 6e 6f 74 20 75 73 65  |.'.c("Do not use|
00000230  20 74 68 69 73 20 75 74  69 6c 69 74 79 20 66 6f  | this utility fo|
00000240  72 20 47 45 4e 45 52 41  4c 22 29 27 27 a4 63 28  |r GENERAL")''.c(|
00000250  22 63 6f 6d 70 6c 61 69  6e 74 73 20 28 73 75 63  |"complaints (suc|
00000260  68 20 61 73 20 70 61 70  65 72 20 77 61 73 20 77  |h as paper was w|
00000270  65 74 29 21 22 29 27 27  a4 63 28 22 55 73 65 20  |et)!")''.c("Use |
00000280  6f 6e 6c 79 20 69 66 20  72 65 70 6c 61 63 65 6d  |only if replacem|
00000290  65 6e 74 20 70 61 70 65  72 20 69 73 22 29 27 27  |ent paper is")''|
000002a0  a4 63 28 22 6e 65 65 64  65 64 20 74 6f 20 62 65  |.c("needed to be|
000002b0  20 64 65 73 70 61 74 63  68 65 64 2e 22 29 0d 00  | despatched.")..|
000002c0  a0 13 ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |...23;8202;0;0;0|
000002d0  3b 0d 00 aa 0e f2 63 6f  6d 77 69 6e 64 6f 77 0d  |;.....comwindow.|
000002e0  00 b4 05 20 0d 00 be 1d  f4 20 2a 20 47 65 74 20  |... ..... * Get |
000002f0  44 65 6c 69 76 65 72 79  20 43 68 61 72 67 65 20  |Delivery Charge |
00000300  2a 0d 00 c8 18 74 68 61  74 5f 6f 6e 65 3d 8e 28  |*....that_one=.(|
00000310  22 43 48 41 52 47 45 22  29 0d 00 d2 15 e8 23 74  |"CHARGE").....#t|
00000320  68 61 74 5f 6f 6e 65 2c  63 68 61 72 67 65 0d 00  |hat_one,charge..|
00000330  dc 0f d9 20 23 74 68 61  74 5f 6f 6e 65 0d 00 e6  |... #that_one...|
00000340  05 20 0d 00 f0 1a f4 20  2a 20 47 65 74 20 50 61  |. ..... * Get Pa|
00000350  70 65 72 20 50 72 69 63  65 73 20 2a 0d 00 fa 05  |per Prices *....|
00000360  20 0d 01 04 14 70 61 70  65 72 73 3d 8e 28 22 44  | ....papers=.("D|
00000370  41 54 41 22 29 0d 01 0e  10 70 61 70 65 72 63 6f  |ATA")....paperco|
00000380  75 6e 74 3d 30 0d 01 18  05 f5 0d 01 22 1b 70 61  |unt=0.......".pa|
00000390  70 65 72 63 6f 75 6e 74  3d 70 61 70 65 72 63 6f  |percount=paperco|
000003a0  75 6e 74 2b 31 0d 01 2c  31 e8 23 70 61 70 65 72  |unt+1..,1.#paper|
000003b0  73 2c 70 61 70 65 72 24  28 70 61 70 65 72 63 6f  |s,paper$(paperco|
000003c0  75 6e 74 29 2c 70 72 69  63 65 28 70 61 70 65 72  |unt),price(paper|
000003d0  63 6f 75 6e 74 29 0d 01  36 52 e7 70 61 70 65 72  |count)..6R.paper|
000003e0  24 28 70 61 70 65 72 63  6f 75 6e 74 29 3d 22 45  |$(papercount)="E|
000003f0  4d 50 54 59 22 20 84 20  70 72 69 63 65 28 70 61  |MPTY" . price(pa|
00000400  70 65 72 63 6f 75 6e 74  29 3d 2d 39 38 31 20 8c  |percount)=-981 .|
00000410  20 70 61 70 65 72 63 6f  75 6e 74 3d 70 61 70 65  | papercount=pape|
00000420  72 63 6f 75 6e 74 2d 31  0d 01 40 0e fd 20 c5 23  |rcount-1..@.. .#|
00000430  70 61 70 65 72 73 0d 01  4a 0d d9 20 23 70 61 70  |papers..J.. #pap|
00000440  65 72 73 0d 01 54 05 20  0d 01 5e 10 2a 44 49 52  |ers..T. ..^.*DIR|
00000450  20 4d 4f 52 4e 49 4e 47  0d 01 68 0a 2a 43 4c 4f  | MORNING..h.*CLO|
00000460  53 45 0d 01 72 05 20 0d  01 7c 68 f1 27 27 27 27  |SE..r. ..|h.''''|
00000470  27 27 22 41 20 3a 20 53  65 61 72 63 68 20 42 79  |''"A : Search By|
00000480  20 4b 6e 6f 77 69 6e 67  20 41 44 44 52 45 53 53  | Knowing ADDRESS|
00000490  22 27 22 42 20 3a 20 53  65 61 72 63 68 20 42 79  |"'"B : Search By|
000004a0  20 4b 6e 6f 77 69 6e 67  20 53 55 52 4e 41 4d 45  | Knowing SURNAME|
000004b0  22 27 22 51 20 3a 20 51  75 69 74 20 42 61 63 6b  |"'"Q : Quit Back|
000004c0  20 54 6f 20 4d 61 69 6e  20 4d 65 6e 75 22 3b 0d  | To Main Menu";.|
000004d0  01 86 0a 2a 43 4c 4f 53  45 0d 01 90 12 53 3d a5  |...*CLOSE....S=.|
000004e0  3a e7 53 3d 36 36 e5 8d  74 78 41 0d 01 9a 0e e7  |:.S=66..txA.....|
000004f0  53 3d 36 35 e5 8d 54 5a  44 0d 01 a4 10 e7 53 3d  |S=65..TZD.....S=|
00000500  38 31 f2 67 65 74 6f 75  74 0d 01 ae 09 e5 8d 74  |81.getout......t|
00000510  50 41 0d 01 b8 42 f1 27  27 27 27 27 27 22 41 20  |PA...B.''''''"A |
00000520  3a 20 53 65 61 72 63 68  20 41 20 50 61 72 74 69  |: Search A Parti|
00000530  63 75 6c 61 72 20 52 6f  75 6e 64 22 27 22 42 20  |cular Round"'"B |
00000540  3a 20 53 65 61 72 63 68  20 41 6c 6c 20 52 6f 75  |: Search All Rou|
00000550  6e 64 73 22 0d 01 c2 08  46 3d a5 3a 0d 01 cc 0e  |nds"....F=.:....|
00000560  e7 46 3d 36 35 e5 8d 64  6a 41 0d 01 d6 0e e7 46  |.F=65..djA.....F|
00000570  3d 36 36 e5 8d 54 5c 42  0d 01 e0 09 e5 8d 64 42  |=66..T\B......dB|
00000580  41 0d 01 ea 26 f1 27 27  27 27 27 27 27 22 57 68  |A...&.'''''''"Wh|
00000590  69 63 68 20 72 6f 75 6e  64 20 22 27 3a e8 8a 31  |ich round "':..1|
000005a0  32 2c 31 29 3b 53 24 0d  01 f4 66 e7 20 53 24 3d  |2,1);S$...f. S$=|
000005b0  22 31 22 20 84 20 53 24  3d 22 32 22 20 84 20 53  |"1" . S$="2" . S|
000005c0  24 3d 22 33 22 20 84 20  53 24 3d 22 34 22 20 84  |$="3" . S$="4" .|
000005d0  20 53 24 3d 22 35 22 20  84 20 53 24 3d 22 36 22  | S$="5" . S$="6"|
000005e0  20 84 20 53 24 3d 22 37  22 20 84 20 53 24 3d 22  | . S$="7" . S$="|
000005f0  38 22 20 8c 20 66 69 6c  65 24 3d 22 52 4f 55 4e  |8" . file$="ROUN|
00000600  44 22 2b 53 24 3a 76 61  6c 69 64 3d 31 0d 01 fe  |D"+S$:valid=1...|
00000610  18 e7 20 a9 28 53 24 29  3e 37 20 76 61 6c 69 64  |.. .(S$)>7 valid|
00000620  3d 30 3a ef 37 0d 02 08  86 e7 20 53 24 3d 22 52  |=0:.7..... S$="R|
00000630  4f 55 4e 44 31 22 20 84  20 53 24 3d 22 52 4f 55  |OUND1" . S$="ROU|
00000640  4e 44 32 22 20 84 20 53  24 3d 22 52 4f 55 4e 44  |ND2" . S$="ROUND|
00000650  33 22 20 84 20 53 24 3d  22 52 4f 55 4e 44 34 22  |3" . S$="ROUND4"|
00000660  20 84 20 53 24 3d 22 52  4f 55 4e 44 35 22 20 84  | . S$="ROUND5" .|
00000670  20 53 24 3d 22 52 4f 55  4e 44 36 22 20 84 20 53  | S$="ROUND6" . S|
00000680  24 3d 22 52 4f 55 4e 44  37 22 20 84 20 53 24 3d  |$="ROUND7" . S$=|
00000690  22 52 4f 55 4e 44 38 22  20 8c 20 66 69 6c 65 24  |"ROUND8" . file$|
000006a0  3d 53 24 3a 76 61 6c 69  64 3d 31 0d 02 12 22 e7  |=S$:valid=1...".|
000006b0  76 61 6c 69 64 3d 30 e5  8d 64 6a 41 20 8b 20 73  |valid=0..djA . s|
000006c0  69 6e 67 6c 65 73 65 61  72 63 68 3d 31 0d 02 1c  |inglesearch=1...|
000006d0  38 f1 27 27 27 27 27 27  27 22 45 6e 74 65 72 20  |8.'''''''"Enter |
000006e0  63 75 73 74 6f 6d 65 72  27 73 20 73 75 72 6e 61  |customer's surna|
000006f0  6d 65 20 22 27 3a e8 8a  32 35 2c 31 29 3b 73 65  |me "':..25,1);se|
00000700  61 72 63 68 24 0d 02 26  10 f2 73 65 61 72 63 68  |arch$..&..search|
00000710  72 6f 75 6e 64 0d 02 30  10 f2 64 69 73 70 6c 61  |round..0..displa|
00000720  79 64 61 74 61 0d 02 3a  16 f2 63 6f 6d 77 69 6e  |ydata..:..comwin|
00000730  64 6f 77 3a f1 27 27 27  27 27 27 0d 02 44 45 e7  |dow:.''''''..DE.|
00000740  20 63 6f 75 6e 74 3d 32  20 f1 a4 63 28 22 50 72  | count=2 ..c("Pr|
00000750  65 73 73 20 53 70 61 63  65 20 54 6f 20 44 69 73  |ess Space To Dis|
00000760  70 6c 61 79 20 44 65 74  61 69 6c 73 22 29 27 3a  |play Details")':|
00000770  f5 fd a5 3d 33 32 3a 4e  3d 31 3a e5 8d 44 6c 42  |...=32:N=1:..DlB|
00000780  0d 02 4e 47 e7 20 63 6f  75 6e 74 3e 32 20 f1 27  |..NG. count>2 .'|
00000790  27 27 27 27 22 49 6e 70  75 74 20 63 6f 72 72 65  |''''"Input corre|
000007a0  73 70 6f 6e 64 69 6e 67  20 61 62 6f 76 65 20 6e  |sponding above n|
000007b0  75 6d 62 65 72 22 27 3a  e8 8a 33 33 2c 31 29 3b  |umber"':..33,1);|
000007c0  4e 3a e5 8d 44 62 42 0d  02 58 24 f1 a4 63 28 22  |N:..DbB..X$..c("|
000007d0  50 72 65 73 73 20 53 70  61 63 65 22 29 27 3a f5  |Press Space")':.|
000007e0  fd a5 3d 33 32 3a e5 8d  44 68 41 0d 02 62 17 e7  |..=32:..DhA..b..|
000007f0  4e 3e 63 6f 75 6e 74 2d  31 20 ef 37 3a e5 8d 44  |N>count-1 .7:..D|
00000800  4e 42 0d 02 6c 0f f2 74  68 65 64 69 73 70 6c 61  |NB..l..thedispla|
00000810  79 0d 02 76 09 e5 8d 44  68 41 0d 02 80 06 20 20  |y..v...DhA....  |
00000820  0d 02 8a 11 dd f2 73 65  61 72 63 68 72 6f 75 6e  |......searchroun|
00000830  64 0d 02 94 20 f1 27 27  27 27 27 a4 63 28 22 53  |d... .'''''.c("S|
00000840  74 61 72 74 69 6e 67 20  53 65 61 72 63 68 22 29  |tarting Search")|
00000850  27 0d 02 9e 1e ef 32 38  2c 31 2c 32 34 2c 33 38  |'.....28,1,24,38|
00000860  2c 33 3a db 3a f2 63 6f  6d 77 69 6e 64 6f 77 0d  |,3:.:.comwindow.|
00000870  02 a8 34 63 6f 75 6e 74  3d 31 3a 61 3d 30 3a e7  |..4count=1:a=0:.|
00000880  73 69 6e 67 6c 65 73 65  61 72 63 68 3d 31 20 61  |singlesearch=1 a|
00000890  3d bb 28 c2 66 69 6c 65  24 2c 31 29 29 3a e5 8d  |=.(.file$,1)):..|
000008a0  64 78 42 0d 02 b2 0d e3  20 61 3d 31 20 b8 20 36  |dxB..... a=1 . 6|
000008b0  0d 02 bc 19 e7 61 3d 31  20 66 69 6c 65 24 3d 28  |.....a=1 file$=(|
000008c0  22 52 4f 55 4e 44 31 22  29 0d 02 c6 19 e7 61 3d  |"ROUND1").....a=|
000008d0  32 20 66 69 6c 65 24 3d  28 22 52 4f 55 4e 44 32  |2 file$=("ROUND2|
000008e0  22 29 0d 02 d0 19 e7 61  3d 33 20 66 69 6c 65 24  |").....a=3 file$|
000008f0  3d 28 22 52 4f 55 4e 44  33 22 29 0d 02 da 19 e7  |=("ROUND3").....|
00000900  61 3d 34 20 66 69 6c 65  24 3d 28 22 52 4f 55 4e  |a=4 file$=("ROUN|
00000910  44 34 22 29 0d 02 e4 19  e7 61 3d 35 20 66 69 6c  |D4").....a=5 fil|
00000920  65 24 3d 28 22 52 4f 55  4e 44 35 22 29 0d 02 ee  |e$=("ROUND5")...|
00000930  19 e7 61 3d 36 20 66 69  6c 65 24 3d 28 22 52 4f  |..a=6 file$=("RO|
00000940  55 4e 44 36 22 29 0d 02  f8 35 f2 6d 61 69 6e 77  |UND6")...5.mainw|
00000950  69 6e 64 6f 77 3a f1 8a  30 2c 61 2b 34 29 22 53  |indow:..0,a+4)"S|
00000960  65 61 72 63 68 69 6e 67  20 22 3b 66 69 6c 65 24  |earching ";file$|
00000970  3a f2 63 6f 6d 77 69 6e  64 6f 77 0d 03 02 15 74  |:.comwindow....t|
00000980  68 65 72 6f 75 6e 64 3d  8e 28 66 69 6c 65 24 29  |heround=.(file$)|
00000990  0d 03 0c 05 f5 0d 03 16  a6 e8 23 74 68 65 72 6f  |..........#thero|
000009a0  75 6e 64 2c 6e 75 6d 28  63 6f 75 6e 74 29 2c 72  |und,num(count),r|
000009b0  6e 61 6d 65 24 28 63 6f  75 6e 74 29 2c 69 6e 69  |name$(count),ini|
000009c0  74 24 28 63 6f 75 6e 74  29 2c 73 6e 61 6d 65 24  |t$(count),sname$|
000009d0  28 63 6f 75 6e 74 29 2c  74 69 74 6c 65 24 28 63  |(count),title$(c|
000009e0  6f 75 6e 74 29 2c 74 65  6c 6e 6f 28 63 6f 75 6e  |ount),telno(coun|
000009f0  74 29 2c 6f 72 31 24 28  63 6f 75 6e 74 29 2c 6f  |t),or1$(count),o|
00000a00  72 32 24 28 63 6f 75 6e  74 29 2c 6f 72 33 24 28  |r2$(count),or3$(|
00000a10  63 6f 75 6e 74 29 2c 74  6f 64 61 79 73 62 69 6c  |count),todaysbil|
00000a20  6c 28 63 6f 75 6e 74 29  2c 6f 75 74 73 74 61 6e  |l(count),outstan|
00000a30  64 69 6e 67 28 63 6f 75  6e 74 29 0d 03 20 86 e7  |ding(count).. ..|
00000a40  20 c0 73 6e 61 6d 65 24  28 63 6f 75 6e 74 29 2c  | .sname$(count),|
00000a50  a9 28 73 65 61 72 63 68  24 29 29 20 3d 20 73 65  |.(search$)) = se|
00000a60  61 72 63 68 24 20 8c 20  f1 27 27 27 27 27 27 a4  |arch$ . .''''''.|
00000a70  63 28 22 53 65 61 72 63  68 20 65 6c 65 6d 65 6e  |c("Search elemen|
00000a80  74 20 6c 6f 63 61 74 65  64 2e 22 29 27 a4 63 28  |t located.")'.c(|
00000a90  22 43 6f 6e 74 69 6e 75  69 6e 67 20 53 65 61 72  |"Continuing Sear|
00000aa0  63 68 22 29 3a 72 6f 75  6e 64 28 63 6f 75 6e 74  |ch"):round(count|
00000ab0  29 3d 61 3a 63 6f 75 6e  74 3d 63 6f 75 6e 74 2b  |)=a:count=count+|
00000ac0  31 0d 03 2a 10 fd 20 c5  23 74 68 65 72 6f 75 6e  |1..*.. .#theroun|
00000ad0  64 0d 03 34 0f d9 20 23  74 68 65 72 6f 75 6e 64  |d..4.. #theround|
00000ae0  0d 03 3e 14 e7 73 69 6e  67 6c 65 73 65 61 72 63  |..>..singlesearc|
00000af0  68 3d 31 e1 0d 03 48 06  ed 61 0d 03 52 05 e1 0d  |h=1...H..a..R...|
00000b00  03 5c 11 dd f2 64 69 73  70 6c 61 79 64 61 74 61  |.\...displaydata|
00000b10  0d 03 66 2a f2 6d 61 69  6e 77 69 6e 64 6f 77 3a  |..f*.mainwindow:|
00000b20  db 3a f1 a4 63 28 22 52  45 53 55 4c 54 53 20 4f  |.:..c("RESULTS O|
00000b30  46 20 53 45 41 52 43 48  22 29 0d 03 70 2c e7 63  |F SEARCH")..p,.c|
00000b40  6f 75 6e 74 2d 31 3d 30  f1 27 22 53 65 61 72 63  |ount-1=0.'"Searc|
00000b50  68 20 75 6e 73 75 63 63  65 73 73 66 75 6c 2e 22  |h unsuccessful."|
00000b60  3a e5 8d 54 72 45 0d 03  7a 4f f1 27 22 41 20 74  |:..TrE..zO.'"A t|
00000b70  6f 74 61 6c 20 6f 66 20  22 3b 63 6f 75 6e 74 2d  |otal of ";count-|
00000b80  31 3b 22 20 63 75 73 74  6f 6d 65 72 73 20 77 69  |1;" customers wi|
00000b90  74 68 22 27 22 73 75 72  6e 61 6d 65 20 22 3b 73  |th"'"surname ";s|
00000ba0  65 61 72 63 68 24 3b 22  20 77 65 72 65 20 66 6f  |earch$;" were fo|
00000bb0  75 6e 64 2e 22 0d 03 84  12 e3 41 3d 31 b8 28 63  |und.".....A=1.(c|
00000bc0  6f 75 6e 74 2d 31 29 0d  03 8e 20 f1 8a 30 2c 41  |ount-1)... ..0,A|
00000bd0  2b 35 29 22 20 22 3b 41  3b 22 3a 20 22 3b 73 6e  |+5)" ";A;": ";sn|
00000be0  61 6d 65 24 28 41 29 0d  03 98 1e f1 8a 31 33 2c  |ame$(A)......13,|
00000bf0  41 2b 35 29 22 20 22 3b  69 6e 69 74 24 28 41 29  |A+5)" ";init$(A)|
00000c00  3b 22 2e 20 22 0d 03 a2  14 f1 8a 31 37 2c 41 2b  |;". "......17,A+|
00000c10  35 29 3b 6e 75 6d 28 41  29 0d 03 ac 1a f1 8a 32  |5);num(A)......2|
00000c20  30 2c 41 2b 35 29 22 20  22 3b 72 6e 61 6d 65 24  |0,A+5)" ";rname$|
00000c30  28 41 29 0d 03 b6 16 f1  8a 33 36 2c 41 2b 35 29  |(A)......36,A+5)|
00000c40  3b 72 6f 75 6e 64 28 41  29 0d 03 c0 05 ed 0d 03  |;round(A).......|
00000c50  ca 05 e1 0d 03 d4 10 dd  f2 6d 61 69 6e 77 69 6e  |.........mainwin|
00000c60  64 6f 77 0d 03 de 11 ef  32 38 2c 31 2c 32 34 2c  |dow.....28,1,24,|
00000c70  33 38 2c 31 0d 03 e8 05  e1 0d 03 f2 0f dd f2 63  |38,1...........c|
00000c80  6f 6d 77 69 6e 64 6f 77  0d 03 fc 12 ef 32 38 2c  |omwindow.....28,|
00000c90  31 2c 33 30 2c 33 38 2c  32 37 0d 04 06 05 e1 0d  |1,30,38,27......|
00000ca0  04 10 1c dd a4 63 28 43  24 29 3a f1 8a 31 39 2d  |.....c(C$):..19-|
00000cb0  a9 43 24 2f 32 29 3b 3a  3d 43 24 0d 04 1a 42 f1  |.C$/2);:=C$...B.|
00000cc0  27 27 27 27 27 27 22 41  20 3a 20 53 65 61 72 63  |''''''"A : Searc|
00000cd0  68 20 41 20 50 61 72 74  69 63 75 6c 61 72 20 52  |h A Particular R|
00000ce0  6f 75 6e 64 22 27 22 42  20 3a 20 53 65 61 72 63  |ound"'"B : Searc|
00000cf0  68 20 41 6c 6c 20 52 6f  75 6e 64 73 22 0d 04 24  |h All Rounds"..$|
00000d00  13 20 46 3d a5 3a e7 46  3d 36 35 e5 8d 44 42 44  |. F=.:.F=65..DBD|
00000d10  0d 04 2e 0e e7 46 3d 36  36 e5 8d 44 74 44 0d 04  |.....F=66..DtD..|
00000d20  38 09 e5 8d 54 64 44 0d  04 42 26 f1 27 27 27 27  |8...TdD..B&.''''|
00000d30  27 27 27 22 57 68 69 63  68 20 72 6f 75 6e 64 20  |'''"Which round |
00000d40  22 27 3a e8 8a 31 32 2c  31 29 3b 53 24 0d 04 4c  |"':..12,1);S$..L|
00000d50  66 e7 20 53 24 3d 22 31  22 20 84 20 53 24 3d 22  |f. S$="1" . S$="|
00000d60  32 22 20 84 20 53 24 3d  22 33 22 20 84 20 53 24  |2" . S$="3" . S$|
00000d70  3d 22 34 22 20 84 20 53  24 3d 22 35 22 20 84 20  |="4" . S$="5" . |
00000d80  53 24 3d 22 36 22 20 84  20 53 24 3d 22 37 22 20  |S$="6" . S$="7" |
00000d90  84 20 53 24 3d 22 38 22  20 8c 20 66 69 6c 65 24  |. S$="8" . file$|
00000da0  3d 22 52 4f 55 4e 44 22  2b 53 24 3a 76 61 6c 69  |="ROUND"+S$:vali|
00000db0  64 3d 31 0d 04 56 18 e7  20 a9 28 53 24 29 3e 37  |d=1..V.. .(S$)>7|
00000dc0  20 76 61 6c 69 64 3d 30  3a ef 37 0d 04 60 86 e7  | valid=0:.7..`..|
00000dd0  20 53 24 3d 22 52 4f 55  4e 44 31 22 20 84 20 53  | S$="ROUND1" . S|
00000de0  24 3d 22 52 4f 55 4e 44  32 22 20 84 20 53 24 3d  |$="ROUND2" . S$=|
00000df0  22 52 4f 55 4e 44 33 22  20 84 20 53 24 3d 22 52  |"ROUND3" . S$="R|
00000e00  4f 55 4e 44 34 22 20 84  20 53 24 3d 22 52 4f 55  |OUND4" . S$="ROU|
00000e10  4e 44 35 22 20 84 20 53  24 3d 22 52 4f 55 4e 44  |ND5" . S$="ROUND|
00000e20  36 22 20 84 20 53 24 3d  22 52 4f 55 4e 44 37 22  |6" . S$="ROUND7"|
00000e30  20 84 20 53 24 3d 22 52  4f 55 4e 44 38 22 20 8c  | . S$="ROUND8" .|
00000e40  20 66 69 6c 65 24 3d 53  24 3a 76 61 6c 69 64 3d  | file$=S$:valid=|
00000e50  31 0d 04 6a 22 e7 76 61  6c 69 64 3d 30 e5 8d 44  |1..j".valid=0..D|
00000e60  42 44 20 8b 20 73 69 6e  67 6c 65 73 65 61 72 63  |BD . singlesearc|
00000e70  68 3d 31 0d 04 74 5f f1  27 27 27 27 27 27 27 22  |h=1..t_.'''''''"|
00000e80  45 6e 74 65 72 20 63 75  73 74 6f 6d 65 72 27 73  |Enter customer's|
00000e90  20 61 64 64 72 65 73 73  20 3a 22 27 27 22 52 6f  | address :"''"Ro|
00000ea0  61 64 20 6e 75 6d 62 65  72 20 20 20 20 3f 22 27  |ad number    ?"'|
00000eb0  22 52 6f 61 64 20 6e 61  6d 65 20 20 20 20 20 20  |"Road name      |
00000ec0  3f 22 3b 3a e8 8a 31 35  2c 32 29 3b 74 61 72 6e  |?";:..15,2);tarn|
00000ed0  75 6d 0d 04 7e 10 e8 8a  31 35 2c 33 29 3b 73 65  |um..~...15,3);se|
00000ee0  61 24 0d 04 88 20 f1 27  27 27 27 27 a4 63 28 22  |a$... .'''''.c("|
00000ef0  53 74 61 72 74 69 6e 67  20 53 65 61 72 63 68 22  |Starting Search"|
00000f00  29 27 0d 04 92 05 20 0d  04 9c 4d ef 32 38 2c 31  |)'.... ...M.28,1|
00000f10  2c 32 34 2c 33 38 2c 33  3a db 3a f2 63 6f 6d 77  |,24,38,3:.:.comw|
00000f20  69 6e 64 6f 77 3a 63 6f  75 6e 74 3d 31 3a e7 73  |indow:count=1:.s|
00000f30  69 6e 67 6c 65 73 65 61  72 63 68 3d 31 20 8c 20  |inglesearch=1 . |
00000f40  61 3d bb 28 c2 66 69 6c  65 24 2c 31 29 29 3a e5  |a=.(.file$,1)):.|
00000f50  8d 64 62 44 0d 04 a6 23  e3 20 61 3d 31 20 b8 20  |.dbD...#. a=1 . |
00000f60  36 3a e7 61 3d 31 20 66  69 6c 65 24 3d 28 22 52  |6:.a=1 file$=("R|
00000f70  4f 55 4e 44 31 22 29 0d  04 b0 19 e7 61 3d 32 20  |OUND1").....a=2 |
00000f80  66 69 6c 65 24 3d 28 22  52 4f 55 4e 44 32 22 29  |file$=("ROUND2")|
00000f90  0d 04 ba 19 e7 61 3d 33  20 66 69 6c 65 24 3d 28  |.....a=3 file$=(|
00000fa0  22 52 4f 55 4e 44 33 22  29 0d 04 c4 19 e7 61 3d  |"ROUND3").....a=|
00000fb0  34 20 66 69 6c 65 24 3d  28 22 52 4f 55 4e 44 34  |4 file$=("ROUND4|
00000fc0  22 29 0d 04 ce 19 e7 61  3d 35 20 66 69 6c 65 24  |").....a=5 file$|
00000fd0  3d 28 22 52 4f 55 4e 44  35 22 29 0d 04 d8 19 e7  |=("ROUND5").....|
00000fe0  61 3d 36 20 66 69 6c 65  24 3d 28 22 52 4f 55 4e  |a=6 file$=("ROUN|
00000ff0  44 36 22 29 0d 04 e2 49  f2 6d 61 69 6e 77 69 6e  |D6")...I.mainwin|
00001000  64 6f 77 3a f1 8a 30 2c  61 2b 34 29 22 53 65 61  |dow:..0,a+4)"Sea|
00001010  72 63 68 69 6e 67 20 22  3b 66 69 6c 65 24 3a f2  |rching ";file$:.|
00001020  63 6f 6d 77 69 6e 64 6f  77 3a 74 68 65 72 6f 75  |comwindow:therou|
00001030  6e 64 3d 8e 28 66 69 6c  65 24 29 3a f5 0d 04 ec  |nd=.(file$):....|
00001040  a6 e8 23 74 68 65 72 6f  75 6e 64 2c 6e 75 6d 28  |..#theround,num(|
00001050  63 6f 75 6e 74 29 2c 72  6e 61 6d 65 24 28 63 6f  |count),rname$(co|
00001060  75 6e 74 29 2c 69 6e 69  74 24 28 63 6f 75 6e 74  |unt),init$(count|
00001070  29 2c 73 6e 61 6d 65 24  28 63 6f 75 6e 74 29 2c  |),sname$(count),|
00001080  74 69 74 6c 65 24 28 63  6f 75 6e 74 29 2c 74 65  |title$(count),te|
00001090  6c 6e 6f 28 63 6f 75 6e  74 29 2c 6f 72 31 24 28  |lno(count),or1$(|
000010a0  63 6f 75 6e 74 29 2c 6f  72 32 24 28 63 6f 75 6e  |count),or2$(coun|
000010b0  74 29 2c 6f 72 33 24 28  63 6f 75 6e 74 29 2c 74  |t),or3$(count),t|
000010c0  6f 64 61 79 73 62 69 6c  6c 28 63 6f 75 6e 74 29  |odaysbill(count)|
000010d0  2c 6f 75 74 73 74 61 6e  64 69 6e 67 28 63 6f 75  |,outstanding(cou|
000010e0  6e 74 29 0d 04 f6 77 e7  20 6e 75 6d 28 63 6f 75  |nt)...w. num(cou|
000010f0  6e 74 29 3d 74 61 72 6e  75 6d 20 80 20 72 6e 61  |nt)=tarnum . rna|
00001100  6d 65 24 28 63 6f 75 6e  74 29 3d 73 65 61 24 20  |me$(count)=sea$ |
00001110  8c 20 72 6f 75 6e 64 28  63 6f 75 6e 74 29 3d 61  |. round(count)=a|
00001120  3a f1 27 27 27 27 27 27  a4 63 28 22 53 65 61 72  |:.''''''.c("Sear|
00001130  63 68 20 65 6c 65 6d 65  6e 74 20 6c 6f 63 61 74  |ch element locat|
00001140  65 64 2e 22 29 27 3a 63  6f 75 6e 74 3d 63 6f 75  |ed.")':count=cou|
00001150  6e 74 2b 31 3a e5 8d 54  68 45 0d 05 00 10 fd 20  |nt+1:..ThE..... |
00001160  c5 23 74 68 65 72 6f 75  6e 64 0d 05 0a 0f d9 20  |.#theround..... |
00001170  23 74 68 65 72 6f 75 6e  64 0d 05 14 18 e7 73 69  |#theround.....si|
00001180  6e 67 6c 65 73 65 61 72  63 68 3d 31 e5 8d 54 68  |nglesearch=1..Th|
00001190  45 0d 05 1e 06 ed 61 0d  05 28 1b 73 65 61 72 63  |E.....a..(.searc|
000011a0  68 24 3d 73 6e 61 6d 65  24 28 31 29 3a e5 8d 54  |h$=sname$(1):..T|
000011b0  70 42 0d 05 32 06 20 20  0d 05 3c 05 e1 0d 05 46  |pB..2.  ..<....F|
000011c0  10 dd f2 74 68 65 64 69  73 70 6c 61 79 0d 05 50  |...thedisplay..P|
000011d0  11 f2 6d 61 69 6e 77 69  6e 64 6f 77 3a db 0d 05  |..mainwindow:...|
000011e0  5a 20 f1 a4 63 28 22 44  45 54 41 49 4c 53 20 4f  |Z ..c("DETAILS O|
000011f0  46 20 43 55 53 54 4f 4d  45 52 22 29 27 27 0d 05  |F CUSTOMER")''..|
00001200  64 17 f1 27 22 54 69 74  6c 65 20 20 20 20 20 20  |d..'"Title      |
00001210  20 20 20 3a 22 0d 05 6e  17 f1 27 22 53 75 72 6e  |   :"..n..'"Surn|
00001220  61 6d 65 20 20 20 20 20  20 20 3a 22 0d 05 78 17  |ame       :"..x.|
00001230  f1 27 22 41 64 64 72 65  73 73 20 20 20 20 20 20  |.'"Address      |
00001240  20 3a 22 0d 05 82 1b f1  27 27 27 27 27 22 54 65  | :".....'''''"Te|
00001250  6c 2e 20 4e 6f 2e 20 20  20 20 20 20 3a 22 0d 05  |l. No.      :"..|
00001260  8c 1b f1 27 27 22 50 61  70 65 72 28 73 29 20 6f  |...''"Paper(s) o|
00001270  72 64 65 72 65 64 20 3a  22 0d 05 96 1f f1 27 27  |rdered :".....''|
00001280  27 27 27 22 42 69 6c 6c  20 6f 75 74 73 74 61 6e  |'''"Bill outstan|
00001290  64 69 6e 67 20 3a 22 3b  0d 05 a0 22 f1 8a 31 36  |ding :";..."..16|
000012a0  2c 34 29 3b 74 69 74 6c  65 24 28 4e 29 3b 22 20  |,4);title$(N);" |
000012b0  22 3b 69 6e 69 74 24 28  4e 29 0d 05 aa 15 f1 8a  |";init$(N)......|
000012c0  31 36 2c 36 29 3b 73 6e  61 6d 65 24 28 4e 29 0d  |16,6);sname$(N).|
000012d0  05 b4 21 f1 8a 31 36 2c  38 29 3b 6e 75 6d 28 4e  |..!..16,8);num(N|
000012e0  29 3b 22 2c 20 22 3b 72  6e 61 6d 65 24 28 4e 29  |);", ";rname$(N)|
000012f0  0d 05 be 41 f1 8a 31 36  2c 31 30 29 22 52 45 44  |...A..16,10)"RED|
00001300  43 41 52 22 8a 31 36 2c  31 32 29 22 43 4c 45 56  |CAR".16,12)"CLEV|
00001310  45 4c 41 4e 44 22 8a 31  36 2c 31 34 29 3b 22 28  |ELAND".16,14);"(|
00001320  30 31 36 34 32 29 20 22  3b 74 65 6c 6e 6f 28 4e  |01642) ";telno(N|
00001330  29 0d 05 c8 34 f1 8a 31  39 2c 31 37 29 3b 6f 72  |)...4..19,17);or|
00001340  31 24 28 4e 29 3b 8a 31  39 2c 31 39 29 3b 6f 72  |1$(N);.19,19);or|
00001350  32 24 28 4e 29 3b 8a 31  39 2c 32 31 29 3b 6f 72  |2$(N);.19,21);or|
00001360  33 24 28 4e 29 0d 05 d2  4a f1 8a 31 39 2c 32 33  |3$(N)...J..19,23|
00001370  29 3b 22 60 22 3b 6f 75  74 73 74 61 6e 64 69 6e  |);"`";outstandin|
00001380  67 28 4e 29 3b 3a e7 20  28 6f 75 74 73 74 61 6e  |g(N);:. (outstan|
00001390  64 69 6e 67 28 4e 29 20  2a 20 31 30 30 29 20 83  |ding(N) * 100) .|
000013a0  20 31 30 20 3d 20 30 20  8c 20 f1 22 30 22 3b 0d  | 10 = 0 . ."0";.|
000013b0  05 dc 0e f2 63 6f 6d 77  69 6e 64 6f 77 0d 05 e6  |....comwindow...|
000013c0  28 e7 6f 72 32 24 28 4e  29 3d 22 22 20 8c 20 6e  |(.or2$(N)="" . n|
000013d0  6f 74 64 6f 6e 65 24 3d  6f 72 31 24 28 4e 29 3a  |otdone$=or1$(N):|
000013e0  e5 8d 54 6c 46 0d 05 f0  4f f1 27 27 27 27 27 27  |..TlF...O.''''''|
000013f0  22 50 6c 65 61 73 65 20  69 6e 70 75 74 20 74 68  |"Please input th|
00001400  65 20 6e 61 6d 65 20 6f  66 20 74 68 65 20 70 61  |e name of the pa|
00001410  70 65 72 22 27 22 77 68  69 63 68 20 68 61 73 20  |per"'"which has |
00001420  6e 6f 74 20 62 65 65 6e  20 64 65 6c 69 76 65 72  |not been deliver|
00001430  65 64 2e 22 0d 05 fa 0e  e8 27 6e 6f 74 64 6f 6e  |ed.".....'notdon|
00001440  65 24 0d 06 04 2f e7 20  6e 6f 74 64 6f 6e 65 24  |e$.../. notdone$|
00001450  3d 6f 72 31 24 28 4e 29  20 8c 20 6e 6f 74 64 6f  |=or1$(N) . notdo|
00001460  6e 65 24 3d 6f 72 31 24  28 4e 29 3a e5 8d 54 6c  |ne$=or1$(N):..Tl|
00001470  46 0d 06 0e 2f e7 20 6e  6f 74 64 6f 6e 65 24 3d  |F.../. notdone$=|
00001480  6f 72 32 24 28 4e 29 20  8c 20 6e 6f 74 64 6f 6e  |or2$(N) . notdon|
00001490  65 24 3d 6f 72 32 24 28  4e 29 3a e5 8d 54 6c 46  |e$=or2$(N):..TlF|
000014a0  0d 06 18 2f e7 20 6e 6f  74 64 6f 6e 65 24 3d 6f  |.../. notdone$=o|
000014b0  72 33 24 28 4e 29 20 8c  20 6e 6f 74 64 6f 6e 65  |r3$(N) . notdone|
000014c0  24 3d 6f 72 33 24 28 4e  29 3a e5 8d 54 6c 46 0d  |$=or3$(N):..TlF.|
000014d0  06 22 5f ef 37 3a f1 27  27 27 27 a4 63 28 22 54  |."_.7:.''''.c("T|
000014e0  68 69 73 20 61 64 64 72  65 73 73 20 64 6f 65 73  |his address does|
000014f0  20 6e 6f 74 20 4f 52 44  45 52 20 74 68 69 73 22  | not ORDER this"|
00001500  29 27 a4 63 28 22 74 79  70 65 20 6f 66 20 6e 65  |)'.c("type of ne|
00001510  77 73 70 61 70 65 72 20  6f 6e 20 61 20 6d 6f 72  |wspaper on a mor|
00001520  6e 69 6e 67 21 21 22 29  3a e5 8d 44 7a 48 0d 06  |ning!!"):..DzH..|
00001530  2c 62 f1 27 27 27 27 27  a4 63 28 22 4e 41 54 55  |,b.'''''.c("NATU|
00001540  52 45 20 4f 46 20 43 4f  4d 50 4c 41 49 4e 54 22  |RE OF COMPLAINT"|
00001550  29 27 27 22 54 68 65 20  22 3b 6e 6f 74 64 6f 6e  |)''"The ";notdon|
00001560  65 24 3b 22 20 68 61 73  20 6e 6f 74 20 62 65 65  |e$;" has not bee|
00001570  6e 22 27 22 64 65 6c 69  76 65 72 65 64 20 74 6f  |n"'"delivered to|
00001580  20 74 68 69 73 20 61 64  64 72 65 73 73 21 22 3b  | this address!";|
00001590  0d 06 36 0d 41 24 3d bf  28 36 30 30 29 0d 06 40  |..6.A$=.(600)..@|
000015a0  1f f1 27 27 27 27 a4 63  28 22 53 4f 4c 56 49 4e  |..''''.c("SOLVIN|
000015b0  47 20 50 52 4f 42 4c 45  4d 22 29 27 0d 06 4a 22  |G PROBLEM")'..J"|
000015c0  f1 a4 63 28 22 44 65 73  70 61 74 63 68 20 4e 65  |..c("Despatch Ne|
000015d0  77 20 50 61 70 65 72 20  4e 4f 57 3f 22 29 0d 06  |w Paper NOW?")..|
000015e0  54 11 f1 a4 63 28 22 28  59 2f 4e 29 22 29 3b 0d  |T...c("(Y/N)");.|
000015f0  06 5e 16 53 3d a5 3a e7  53 3d 38 39 20 8c 20 e5  |.^.S=.:.S=89 . .|
00001600  20 8d 74 64 46 0d 06 68  5a e7 53 3d 37 38 20 8c  | .tdF..hZ.S=78 .|
00001610  20 ef 32 38 2c 31 2c 33  30 2c 33 38 2c 32 38 3a  | .28,1,30,38,28:|
00001620  f1 27 27 27 27 27 a4 63  28 22 4e 6f 74 20 70 6f  |.'''''.c("Not po|
00001630  73 73 69 62 6c 65 20 74  6f 20 64 65 73 70 61 74  |ssible to despat|
00001640  63 68 20 6e 65 77 20 70  61 70 65 72 21 22 29 3a  |ch new paper!"):|
00001650  41 24 3d bf 28 32 30 30  29 3a e5 8d 44 7c 46 0d  |A$=.(200):..D|F.|
00001660  06 72 0c ef 37 3a e5 8d  44 5e 46 0d 06 7c 59 f1  |.r..7:..D^F..|Y.|
00001670  27 27 27 27 a4 63 28 22  43 75 73 74 6f 6d 65 72  |''''.c("Customer|
00001680  20 69 73 20 63 72 65 64  69 74 74 65 64 20 77 69  | is creditted wi|
00001690  74 68 20 62 6f 74 68 20  70 72 69 63 65 22 29 27  |th both price")'|
000016a0  a4 63 28 22 6f 66 20 70  61 70 65 72 20 61 6e 64  |.c("of paper and|
000016b0  20 64 65 6c 69 76 65 72  79 20 63 68 61 72 67 65  | delivery charge|
000016c0  2e 22 29 3b 0d 06 86 0d  41 24 3d bf 28 33 30 30  |.");....A$=.(300|
000016d0  29 0d 06 90 a3 f2 66 69  6e 64 3a 6f 75 74 73 74  |).....find:outst|
000016e0  61 6e 64 69 6e 67 28 4e  29 3d 28 6f 75 74 73 74  |anding(N)=(outst|
000016f0  61 6e 64 69 6e 67 28 4e  29 2d 63 6f 73 74 29 2d  |anding(N)-cost)-|
00001700  63 68 61 72 67 65 3a f2  6d 61 69 6e 77 69 6e 64  |charge:.mainwind|
00001710  6f 77 3a 63 68 61 6e 67  65 25 3d 31 3a f1 8a 31  |ow:change%=1:..1|
00001720  39 2c 32 33 29 3b 22 60  22 3b 89 28 36 29 3b 8a  |9,23);"`";.(6);.|
00001730  31 39 2c 32 33 29 3b 22  60 22 3b 6f 75 74 73 74  |19,23);"`";outst|
00001740  61 6e 64 69 6e 67 28 4e  29 3b 3a e7 20 28 6f 75  |anding(N);:. (ou|
00001750  74 73 74 61 6e 64 69 6e  67 28 4e 29 20 2a 20 31  |tstanding(N) * 1|
00001760  30 30 29 20 83 20 31 30  20 3d 20 30 20 8c 20 f1  |00) . 10 = 0 . .|
00001770  22 30 22 3b 0d 06 9a 09  e5 8d 64 74 46 0d 06 a4  |"0";......dtF...|
00001780  4d ef 32 38 2c 31 2c 33  30 2c 33 38 2c 32 38 3a  |M.28,1,30,38,28:|
00001790  f1 27 27 27 27 27 28 22  57 61 76 65 20 44 65 6c  |.'''''("Wave Del|
000017a0  69 76 65 72 79 20 43 68  61 72 67 65 28 73 29 20  |ivery Charge(s) |
000017b0  41 73 20 41 70 6f 6c 6f  67 79 3f 22 29 27 a4 63  |As Apology?")'.c|
000017c0  28 22 28 59 2f 4e 29 22  29 3b 0d 06 ae 16 54 3d  |("(Y/N)");....T=|
000017d0  a5 3a e7 54 3d 38 39 20  8c 20 e5 20 8d 64 4c 46  |.:.T=89 . . .dLF|
000017e0  0d 06 b8 1b e7 54 3d 37  38 20 8c 20 63 68 61 6e  |.....T=78 . chan|
000017f0  67 65 25 3d 30 3a e5 8d  54 60 48 0d 06 c2 0c ef  |ge%=0:..T`H.....|
00001800  37 3a e5 8d 74 64 46 0d  06 cc 3d e7 20 6f 72 32  |7:..tdF...=. or2|
00001810  24 28 4e 29 3d 22 22 20  8c 20 6f 75 74 73 74 61  |$(N)="" . outsta|
00001820  6e 64 69 6e 67 28 4e 29  3d 6f 75 74 73 74 61 6e  |nding(N)=outstan|
00001830  64 69 6e 67 28 4e 29 2d  63 68 61 72 67 65 3a e5  |ding(N)-charge:.|
00001840  8d 64 6a 46 0d 06 d6 43  e7 20 6f 72 33 24 28 4e  |.djF...C. or3$(N|
00001850  29 3d 22 22 20 8c 20 6f  75 74 73 74 61 6e 64 69  |)="" . outstandi|
00001860  6e 67 28 4e 29 3d 6f 75  74 73 74 61 6e 64 69 6e  |ng(N)=outstandin|
00001870  67 28 4e 29 2d 28 32 20  2a 20 63 68 61 72 67 65  |g(N)-(2 * charge|
00001880  29 3a e5 8d 64 6a 46 0d  06 e0 2e 6f 75 74 73 74  |):..djF....outst|
00001890  61 6e 64 69 6e 67 28 4e  29 3d 6f 75 74 73 74 61  |anding(N)=outsta|
000018a0  6e 64 69 6e 67 28 4e 29  2d 28 33 20 2a 20 63 68  |nding(N)-(3 * ch|
000018b0  61 72 67 65 29 0d 06 ea  71 f2 6d 61 69 6e 77 69  |arge)...q.mainwi|
000018c0  6e 64 6f 77 3a 63 68 61  6e 67 65 25 3d 31 3a f1  |ndow:change%=1:.|
000018d0  8a 31 39 2c 32 33 29 3b  22 60 22 3b 89 28 36 29  |.19,23);"`";.(6)|
000018e0  3b 8a 31 39 2c 32 33 29  3b 22 60 22 3b 6f 75 74  |;.19,23);"`";out|
000018f0  73 74 61 6e 64 69 6e 67  28 4e 29 3b 3a e7 20 28  |standing(N);:. (|
00001900  6f 75 74 73 74 61 6e 64  69 6e 67 28 4e 29 20 2a  |outstanding(N) *|
00001910  20 31 30 30 29 20 83 20  31 30 20 3d 20 30 20 8c  | 100) . 10 = 0 .|
00001920  20 f1 22 30 22 3b 0d 06  f4 c0 f2 63 6f 6d 77 69  | ."0";.....comwi|
00001930  6e 64 6f 77 3a 41 24 3d  bf 28 35 30 29 3a f1 27  |ndow:A$=.(50):.'|
00001940  27 27 27 27 a4 63 28 22  50 6c 65 61 73 65 20 6e  |''''.c("Please n|
00001950  6f 74 65 20 74 68 65 20  73 79 73 74 65 6d 20 64  |ote the system d|
00001960  6f 63 6b 73 20 74 68 65  20 73 75 6d 22 29 27 a4  |ocks the sum")'.|
00001970  63 28 22 6f 66 20 64 65  6c 69 76 65 72 79 20 63  |c("of delivery c|
00001980  68 61 72 67 65 20 4e 4f  57 20 66 72 6f 6d 20 74  |harge NOW from t|
00001990  68 65 20 62 69 6c 6c 22  29 27 a4 63 28 22 6f 75  |he bill")'.c("ou|
000019a0  74 73 74 61 6e 64 69 6e  67 2e 20 41 20 63 68 61  |tstanding. A cha|
000019b0  72 67 65 20 77 69 6c 6c  20 73 74 69 6c 6c 20 62  |rge will still b|
000019c0  65 22 29 27 a4 63 28 22  61 64 64 65 64 20 77 68  |e")'.c("added wh|
000019d0  65 6e 20 70 61 67 65 20  31 30 20 69 73 20 75 73  |en page 10 is us|
000019e0  65 64 21 22 29 3b 0d 06  fe 0e 61 3d 72 6f 75 6e  |ed!");....a=roun|
000019f0  64 28 4e 29 0d 07 08 18  e7 20 61 3d 31 20 66 69  |d(N)..... a=1 fi|
00001a00  6c 65 24 3d 22 52 4f 55  4e 44 31 22 0d 07 12 18  |le$="ROUND1"....|
00001a10  e7 20 61 3d 32 20 66 69  6c 65 24 3d 22 52 4f 55  |. a=2 file$="ROU|
00001a20  4e 44 32 22 0d 07 1c 18  e7 20 61 3d 33 20 66 69  |ND2"..... a=3 fi|
00001a30  6c 65 24 3d 22 52 4f 55  4e 44 33 22 0d 07 26 18  |le$="ROUND3"..&.|
00001a40  e7 20 61 3d 34 20 66 69  6c 65 24 3d 22 52 4f 55  |. a=4 file$="ROU|
00001a50  4e 44 34 22 0d 07 30 18  e7 20 61 3d 35 20 66 69  |ND4"..0.. a=5 fi|
00001a60  6c 65 24 3d 22 52 4f 55  4e 44 35 22 0d 07 3a 18  |le$="ROUND5"..:.|
00001a70  e7 20 61 3d 36 20 66 69  6c 65 24 3d 22 52 4f 55  |. a=6 file$="ROU|
00001a80  4e 44 36 22 0d 07 44 db  6e 75 6d 28 30 29 3d 6e  |ND6"..D.num(0)=n|
00001a90  75 6d 28 4e 29 3a 72 6e  61 6d 65 24 28 30 29 3d  |um(N):rname$(0)=|
00001aa0  72 6e 61 6d 65 24 28 4e  29 3a 69 6e 69 74 24 28  |rname$(N):init$(|
00001ab0  30 29 3d 69 6e 69 74 24  28 4e 29 3a 73 6e 61 6d  |0)=init$(N):snam|
00001ac0  65 24 28 30 29 3d 73 6e  61 6d 65 24 28 4e 29 3a  |e$(0)=sname$(N):|
00001ad0  74 69 74 6c 65 24 28 30  29 3d 74 69 74 6c 65 24  |title$(0)=title$|
00001ae0  28 4e 29 3a 74 65 6c 6e  6f 28 30 29 3d 74 65 6c  |(N):telno(0)=tel|
00001af0  6e 6f 28 4e 29 3a 6f 72  31 24 28 30 29 3d 6f 72  |no(N):or1$(0)=or|
00001b00  31 24 28 4e 29 3a 6f 72  32 24 28 30 29 3d 6f 72  |1$(N):or2$(0)=or|
00001b10  32 24 28 4e 29 3a 6f 72  33 24 28 30 29 3d 6f 72  |2$(N):or3$(0)=or|
00001b20  33 24 28 4e 29 3a 74 6f  64 61 79 73 62 69 6c 6c  |3$(N):todaysbill|
00001b30  28 30 29 3d 74 6f 64 61  79 73 62 69 6c 6c 28 4e  |(0)=todaysbill(N|
00001b40  29 3a 6f 75 74 73 74 61  6e 64 69 6e 67 28 30 29  |):outstanding(0)|
00001b50  3d 6f 75 74 73 74 61 6e  64 69 6e 67 28 4e 29 0d  |=outstanding(N).|
00001b60  07 4e 11 72 75 6e 64 3d  8e 28 66 69 6c 65 24 29  |.N.rund=.(file$)|
00001b70  0d 07 58 09 6e 65 77 3d  30 0d 07 62 05 f5 0d 07  |..X.new=0..b....|
00001b80  6c 0d 6e 65 77 3d 6e 65  77 2b 31 0d 07 76 8c e8  |l.new=new+1..v..|
00001b90  23 72 75 6e 64 2c 6e 75  6d 28 6e 65 77 29 2c 72  |#rund,num(new),r|
00001ba0  6e 61 6d 65 24 28 6e 65  77 29 2c 69 6e 69 74 24  |name$(new),init$|
00001bb0  28 6e 65 77 29 2c 73 6e  61 6d 65 24 28 6e 65 77  |(new),sname$(new|
00001bc0  29 2c 74 69 74 6c 65 24  28 6e 65 77 29 2c 74 65  |),title$(new),te|
00001bd0  6c 6e 6f 28 6e 65 77 29  2c 6f 72 31 24 28 6e 65  |lno(new),or1$(ne|
00001be0  77 29 2c 6f 72 32 24 28  6e 65 77 29 2c 6f 72 33  |w),or2$(new),or3|
00001bf0  24 28 6e 65 77 29 2c 74  6f 64 61 79 73 62 69 6c  |$(new),todaysbil|
00001c00  6c 28 6e 65 77 29 2c 6f  75 74 73 74 61 6e 64 69  |l(new),outstandi|
00001c10  6e 67 28 6e 65 77 29 0d  07 80 0c fd 20 c5 23 72  |ng(new)..... .#r|
00001c20  75 6e 64 0d 07 8a 0b d9  20 23 72 75 6e 64 0d 07  |und..... #rund..|
00001c30  94 05 20 0d 07 9e 16 e3  20 73 65 61 72 63 68 20  |.. ..... search |
00001c40  3d 20 31 20 b8 20 6e 65  77 0d 07 a8 73 e7 20 6e  |= 1 . new...s. n|
00001c50  75 6d 28 30 29 3d 6e 75  6d 28 73 65 61 72 63 68  |um(0)=num(search|
00001c60  29 20 80 20 72 6e 61 6d  65 24 28 30 29 3d 72 6e  |) . rname$(0)=rn|
00001c70  61 6d 65 24 28 73 65 61  72 63 68 29 20 80 20 73  |ame$(search) . s|
00001c80  6e 61 6d 65 24 28 30 29  3d 73 6e 61 6d 65 24 28  |name$(0)=sname$(|
00001c90  73 65 61 72 63 68 29 20  8c 20 6f 75 74 73 74 61  |search) . outsta|
00001ca0  6e 64 69 6e 67 28 73 65  61 72 63 68 29 3d 6f 75  |nding(search)=ou|
00001cb0  74 73 74 61 6e 64 69 6e  67 28 30 29 0d 07 b2 0c  |tstanding(0)....|
00001cc0  ed 20 73 65 61 72 63 68  0d 07 bc 05 20 0d 07 c6  |. search.... ...|
00001cd0  22 f1 27 27 27 27 27 27  a4 63 28 22 57 72 69 74  |".''''''.c("Writ|
00001ce0  69 6e 67 20 4e 65 77 20  42 69 6c 6c 22 29 27 0d  |ing New Bill")'.|
00001cf0  07 d0 05 20 0d 07 da 0a  2a 43 4c 4f 53 45 0d 07  |... ....*CLOSE..|
00001d00  e4 05 20 0d 07 ee 11 74  68 65 65 3d ae 28 66 69  |.. ....thee=.(fi|
00001d10  6c 65 24 29 0d 07 f8 0d  e3 73 3d 31 20 b8 20 34  |le$).....s=1 . 4|
00001d20  30 0d 08 02 76 f1 23 74  68 65 65 2c 6e 75 6d 28  |0...v.#thee,num(|
00001d30  73 29 2c 72 6e 61 6d 65  24 28 73 29 2c 69 6e 69  |s),rname$(s),ini|
00001d40  74 24 28 73 29 2c 73 6e  61 6d 65 24 28 73 29 2c  |t$(s),sname$(s),|
00001d50  74 69 74 6c 65 24 28 73  29 2c 74 65 6c 6e 6f 28  |title$(s),telno(|
00001d60  73 29 2c 6f 72 31 24 28  73 29 2c 6f 72 32 24 28  |s),or1$(s),or2$(|
00001d70  73 29 2c 6f 72 33 24 28  73 29 2c 74 6f 64 61 79  |s),or3$(s),today|
00001d80  73 62 69 6c 6c 28 73 29  2c 6f 75 74 73 74 61 6e  |sbill(s),outstan|
00001d90  64 69 6e 67 28 73 29 0d  08 0c 07 ed 20 73 0d 08  |ding(s)..... s..|
00001da0  16 0a d9 23 74 68 65 65  0d 08 20 0a 2a 43 4c 4f  |...#thee.. .*CLO|
00001db0  53 45 0d 08 2a 09 e5 8d  74 6c 48 0d 08 34 0c dd  |SE..*...tlH..4..|
00001dc0  f2 67 65 74 6f 75 74 0d  08 3e 35 f2 63 6f 6d 77  |.getout..>5.comw|
00001dd0  69 6e 64 6f 77 3a f1 27  27 27 27 27 27 27 27 a4  |indow:.''''''''.|
00001de0  63 28 22 4c 6f 61 64 69  6e 67 20 4d 61 69 6e 20  |c("Loading Main |
00001df0  4d 65 6e 75 22 29 27 3a  2a 44 49 52 0d 08 48 0b  |Menu")':*DIR..H.|
00001e00  d7 22 4d 45 4e 55 22 0d  08 52 9f 41 24 3d bf 28  |."MENU"..R.A$=.(|
00001e10  33 30 30 29 3a f1 27 27  27 27 27 22 54 68 65 20  |300):.'''''"The |
00001e20  22 3b 6e 6f 74 64 6f 6e  65 24 3b 22 20 69 73 20  |";notdone$;" is |
00001e30  6e 6f 74 22 27 22 6c 69  73 74 65 64 20 61 73 20  |not"'"listed as |
00001e40  6f 72 64 65 72 65 64 20  66 6f 72 20 74 68 69 73  |ordered for this|
00001e50  20 68 6f 75 73 65 2e 22  27 22 41 20 3a 20 41 62  | house."'"A : Ab|
00001e60  61 6e 64 6f 6e 20 43 6f  6d 70 6c 61 69 6e 74 20  |andon Complaint |
00001e70  50 72 6f 63 65 64 75 72  65 22 27 22 42 20 3a 20  |Procedure"'"B : |
00001e80  52 65 74 72 79 20 45 6e  74 65 72 69 6e 67 20 54  |Retry Entering T|
00001e90  68 65 20 53 74 72 61 79  65 64 20 50 61 70 65 72  |he Strayed Paper|
00001ea0  22 3b 3a 41 3d a5 0d 08  5c 13 e7 41 3d 36 35 20  |";:A=...\..A=65 |
00001eb0  8c 20 f2 67 65 74 6f 75  74 0d 08 66 12 e7 41 3d  |. .getout..f..A=|
00001ec0  36 36 20 8c 20 e5 20 8d  64 5c 45 0d 08 70 0d 41  |66 . . .d\E..p.A|
00001ed0  3d a5 3a e5 8d 44 5c 48  0d 08 7a 0a dd f2 66 69  |=.:..D\H..z...fi|
00001ee0  6e 64 0d 08 84 13 e3 7a  3d 31 b8 70 61 70 65 72  |nd.....z=1.paper|
00001ef0  63 6f 75 6e 74 0d 08 8e  2d e7 6e 6f 74 64 6f 6e  |count...-.notdon|
00001f00  65 24 3d 70 61 70 65 72  24 28 7a 29 20 8c 20 63  |e$=paper$(z) . c|
00001f10  6f 73 74 3d 70 72 69 63  65 28 7a 29 3a e5 8d 74  |ost=price(z):..t|
00001f20  62 48 0d 08 98 06 ed 7a  0d 08 a2 05 e1 0d 08 ac  |bH.....z........|
00001f30  05 20 0d 08 b6 1c f4 20  2a 20 4f 70 65 6e 20 55  |. ..... * Open U|
00001f40  70 20 4e 65 77 20 41 72  72 61 79 73 20 2a 0d 08  |p New Arrays *..|
00001f50  c0 0e 61 3d 72 6f 75 6e  64 28 4e 29 0d 08 ca 47  |..a=round(N)...G|
00001f60  de 77 61 67 65 73 28 31  30 29 2c 64 65 6c 69 76  |.wages(10),deliv|
00001f70  65 72 65 72 24 28 31 30  29 2c 68 6f 75 73 65 6e  |erer$(10),housen|
00001f80  75 6d 28 31 30 29 2c 72  6f 61 64 24 28 31 30 29  |um(10),road$(10)|
00001f90  2c 70 68 6f 6e 65 28 31  30 29 2c 6f 77 65 64 28  |,phone(10),owed(|
00001fa0  31 30 29 0d 08 d4 05 20  0d 08 de 08 2a 44 49 52  |10).... ....*DIR|
00001fb0  0d 08 e8 05 20 0d 08 f2  18 74 68 65 5f 77 61 67  |.... ....the_wag|
00001fc0  65 73 3d 8e 28 22 57 41  47 45 53 22 29 0d 08 fc  |es=.("WAGES")...|
00001fd0  05 f5 0d 09 06 0f 74 65  6d 70 3d 74 65 6d 70 2b  |......temp=temp+|
00001fe0  31 0d 09 10 5e e8 23 74  68 65 5f 77 61 67 65 73  |1...^.#the_wages|
00001ff0  2c 77 61 67 65 73 28 74  65 6d 70 29 2c 64 65 6c  |,wages(temp),del|
00002000  69 76 65 72 65 72 24 28  74 65 6d 70 29 2c 68 6f  |iverer$(temp),ho|
00002010  75 73 65 6e 75 6d 28 74  65 6d 70 29 2c 72 6f 61  |usenum(temp),roa|
00002020  64 24 28 74 65 6d 70 29  2c 70 68 6f 6e 65 28 74  |d$(temp),phone(t|
00002030  65 6d 70 29 2c 6f 77 65  64 28 74 65 6d 70 29 0d  |emp),owed(temp).|
00002040  09 1a 33 e7 77 61 67 65  73 28 74 65 6d 70 29 3d  |..3.wages(temp)=|
00002050  2d 39 39 39 20 84 20 77  61 67 65 73 28 74 65 6d  |-999 . wages(tem|
00002060  70 29 3d 30 20 8c 20 74  65 6d 70 3d 74 65 6d 70  |p)=0 . temp=temp|
00002070  2d 31 0d 09 24 11 fd 20  c5 23 74 68 65 5f 77 61  |-1..$.. .#the_wa|
00002080  67 65 73 0d 09 2e 10 d9  20 23 74 68 65 5f 77 61  |ges..... #the_wa|
00002090  67 65 73 0d 09 38 05 20  0d 09 42 27 f2 6d 61 69  |ges..8. ..B'.mai|
000020a0  6e 77 69 6e 64 6f 77 3a  db 3a f1 a4 63 28 22 52  |nwindow:.:..c("R|
000020b0  45 53 50 4f 4e 53 49 42  49 4c 49 54 59 22 29 0d  |ESPONSIBILITY").|
000020c0  09 4c 3b f1 27 27 27 22  52 4f 55 4e 44 20 22 3b  |.L;.'''"ROUND ";|
000020d0  61 3b 22 20 69 73 20 64  65 6c 69 76 65 72 65 64  |a;" is delivered|
000020e0  20 62 79 3a 22 27 27 89  28 31 35 29 3b 64 65 6c  | by:"''.(15);del|
000020f0  69 76 65 72 65 72 24 28  61 29 0d 09 56 45 f2 63  |iverer$(a)..VE.c|
00002100  6f 6d 77 69 6e 64 6f 77  3a f1 27 27 27 27 27 a4  |omwindow:.'''''.|
00002110  63 28 22 44 6f 63 6b 20  57 61 67 65 73 20 4f 66  |c("Dock Wages Of|
00002120  20 50 61 70 65 72 20 44  65 6c 69 76 65 72 65 72  | Paper Deliverer|
00002130  3f 22 29 27 a4 63 28 22  28 59 2f 4e 29 22 29 0d  |?")'.c("(Y/N)").|
00002140  09 60 18 47 3d a5 3a e7  47 3d 38 39 f2 66 69 6e  |.`.G=.:.G=89.fin|
00002150  64 3a e5 8d 44 6a 49 0d  09 6a 18 6f 77 65 64 28  |d:..DjI..j.owed(|
00002160  61 29 3d 6f 77 65 64 28  61 29 2d 63 6f 73 74 0d  |a)=owed(a)-cost.|
00002170  09 74 52 f1 27 27 27 27  27 22 20 20 20 44 65 6c  |.tR.'''''"   Del|
00002180  69 76 65 72 65 72 27 73  20 57 61 67 65 73 20 44  |iverer's Wages D|
00002190  6f 63 6b 65 64 20 42 79  20 60 22 3b 63 6f 73 74  |ocked By `";cost|
000021a0  3b 3a e7 20 28 63 6f 73  74 20 2a 20 31 30 30 29  |;:. (cost * 100)|
000021b0  20 83 20 31 30 20 3d 20  30 20 8c 20 f1 22 30 22  | . 10 = 0 . ."0"|
000021c0  3b 0d 09 7e 06 f1 27 0d  09 88 0d 41 24 3d bf 28  |;..~..'....A$=.(|
000021d0  32 35 30 29 0d 09 92 0a  2a 43 4c 4f 53 45 0d 09  |250)....*CLOSE..|
000021e0  9c 16 e7 63 68 61 6e 67  65 25 3d 30 20 8c 20 e5  |...change%=0 . .|
000021f0  8d 64 76 49 0d 09 a6 22  f1 27 27 27 27 27 27 27  |.dvI...".'''''''|
00002200  a4 63 28 22 57 72 69 74  69 6e 67 20 43 68 61 6e  |.c("Writing Chan|
00002210  67 65 73 22 29 27 0d 09  b0 18 6e 65 77 5f 77 61  |ges")'....new_wa|
00002220  67 65 73 3d ae 28 22 57  41 47 45 53 22 29 0d 09  |ges=.("WAGES")..|
00002230  ba 05 f5 0d 09 c4 0f e3  73 3d 31 20 b8 20 74 65  |........s=1 . te|
00002240  6d 70 0d 09 ce 4c f1 23  6e 65 77 5f 77 61 67 65  |mp...L.#new_wage|
00002250  73 2c 77 61 67 65 73 28  73 29 2c 64 65 6c 69 76  |s,wages(s),deliv|
00002260  65 72 65 72 24 28 73 29  2c 68 6f 75 73 65 6e 75  |erer$(s),housenu|
00002270  6d 28 73 29 2c 72 6f 61  64 24 28 73 29 2c 70 68  |m(s),road$(s),ph|
00002280  6f 6e 65 28 73 29 2c 6f  77 65 64 28 73 29 0d 09  |one(s),owed(s)..|
00002290  d8 06 ed 73 0d 09 e2 10  fd c5 23 6e 65 77 5f 77  |...s......#new_w|
000022a0  61 67 65 73 0d 09 ec 10  d9 20 23 6e 65 77 5f 77  |ages..... #new_w|
000022b0  61 67 65 73 0d 09 f6 0b  f2 67 65 74 6f 75 74 0d  |ages.....getout.|
000022c0  ff                                                |.|
000022c1