� BTEC Project "PAGE6" v.3.5

*CLOSE
*FX200,1
(*DIR MORNING
2"a=0:A=0:singlesearch=0:page%=0
<const=2:valid=0:upto=1
F��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("""CANCEL PAPERS"" 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.")
�/�'''"  Refer to page 30 of the USER GUIDE"'
�-�"which explains some of the more advan-"
�(�c("ced features of this utility.")
��23;8202;0;0;0;
��comwindow
�h�''''''"A : Search By Knowing ADDRESS"'"B : Search By Knowing SURNAME"'"Q : Quit Back To Main Menu";
�
*CLOSE
�S=�:�S=66�TDA
��S=65�DfC
��S=81�getout
�	�d\@

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

F=�:

�F=65�TvA

"�F=66�DhA

,	�TNA

6&�'''''''"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

J� �(S$)>7 valid=0:�7

T�� S$="ROUND1" � S$="ROUND2" � S$="ROUND3" � S$="ROUND4" � S$="ROUND5" � S$="ROUND6" � S$="ROUND7" � S$="ROUND8" � file$=S$:valid=1

^"�valid=0�TvA � singlesearch=1

h8�'''''''"Enter customer's surname "':�25,1);search$

r�searchround

|�displaydata

��comwindow:�''''''

�E� count=2 �c("Press Space To Display Details")':���=32:N=1:�txA

�G� count>2 �'''''"Input corresponding above number"':�33,1);N:�tnA

�$�c("Press Space")':���=32:�DP@

��N>count-1 �7:�tZA

��thedisplay

�	�DP@

�  

���searchround

� �'''''�c("Starting Search")'

��28,1,24,38,3:�:�comwindow

�4count=1:a=0:�singlesearch=1 a=�(�file$,1)):�DDB

�
� a=1 � 6
�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")
D5�mainwindow:�0,a+4)"Searching ";file$:�comwindow
Ntheround=�(file$)
X�
b��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
l�� �sname$(count),�(search$)) = search$ � �''''''�c("Search element located.")'�c("Continuing Search"):round(count)=a:count=count+1
v� �#theround
�� #theround
��singlesearch=1�
��a
��
���displaydata
�*�mainwindow:�:�c("RESULTS OF SEARCH")
�,�count-1=0�'"Search unsuccessful.":�D~D
�O�'"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
4�
>��comwindow
H�28,1,30,38,27
R�
\ݤc(C$):�19-�C$/2);:=C$
fB�''''''"A : Search A Particular Round"'"B : Search All Rounds"
p F=�:�F=65�tNC
z�F=66�d@C
�	�DpC
�&�'''''''"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�tNC � singlesearch=1
�_�'''''''"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)):�TnD
�#� 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$):�
8��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
Bw� num(count)=tarnum � rname$(count)=sea$ � round(count)=a:�''''''�c("Search element located.")':count=count+1:�DtD
L� �#theround
V� #theround
`�singlesearch=1�DtD
j�a
tsearch$=sname$(1):�D|A
~  
��
���thedisplay
��mainwindow:�
�#�c("DETAILS OF SEARCH ITEM")''
��'"Title         :"
��'"Surname       :"
��'"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)
K�19,23);"`";outstanding(N);:�((outstanding(N) * 100)+1) � 10 = 0 �"0";
(�comwindow
2(�'''''''�c("Cancel paper(s) (Y/N)")'
<A=�
F%�A=89 � outstanding(N)>0 � � �tBE
P��A=89 �''''''�c("Removing customer")':remembernum=num(N):rememberrname$=rname$(N):remembersname$=sname$(N):A$=�(200):�''''�c("Stage # 1 Completed")':�DTF
Z�A=78 �
d	�TrE
n�
x 
���'''''�c("This process takes around")'�c("thirty seconds. Do NOT touch")'�c("the keyboard until you are advised")'�c("all three stages are complete");
��num(1)=num(N):rname$(1)=rname$(N):init$(1)=init$(N):sname$(1)=sname$(N):title$(1)=title$(N):telno(1)=telno(N):or1$(1)=or1$(N):or2$(1)=or2$(N):or3$(1)=or3$(N):todaysbill(1)=todaysbill(N):outstanding(1)=outstanding(N)
�blacklist=�("UNPAID")
�da=1
��
�da=da+1
���#blacklist,num(da),rname$(da),init$(da),sname$(da),title$(da),telno(da),or1$(da),or2$(da),or3$(da),todaysbill(da),outstanding(da)
�� �#blacklist
�� #blacklist
�num(da+1)=-999
�"� UNPAID is copied into memory
�� New house added to UNPAID
�
*CLOSE
saveigen=�("UNPAID")
� number=1 � (da+1)
�� #saveigen,num(number),rname$(number),init$(number),sname$(number),title$(number),telno(number),or1$(number),or2$(number),or3$(number),todaysbill(number),outstanding(number)
"�number
,� #saveigen
6  
@$�'''''�c("Stage # 1 Completed")'
JHremembernum=num(1):rememberrname$=rname$(1):remembersname$=sname$(1)
Trund=�(file$)
^	new=0
h�
r
new=new+1
|��#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
��� remembernum=num(search) � rememberrname$=rname$(search) � remembersname$=sname$(search) � num(search)=-888:rname$(search)="TEMPORARILY EMPTY"
�� search
� 
�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
�#�''''�c("Stage # 2 Completed")'

*CLOSE
  
rund=�(file$)
&	new=0
0�
:
new=new+1
D��#rund,num(new),rname$(new),init$(new),sname$(new),title$(new),telno(new),or1$(new),or2$(new),or3$(new),todaysbill(new),outstanding(new)
NA� num(new)=-888 � rname$(new)="TEMPORARILY EMPTY" � new=new-1
X� �#rund
b� #rund
l 
varound=�(file$)
��a=1�40
�x�#around,num(a),rname$(a),init$(a),sname$(a),title$(a),telno(a),or1$(a),or2$(a),or3$(a),todaysbill(a),outstanding(a)
��a
� 
�n�c("Stage # 3 Completed")'�c("This customer's papers have been")'�c("stopped.")'�c("Press Space");:���=32
��
���getout
�5�comwindow:�''''''''�c("Loading Main Menu")':*DIR
��"MENU"
�

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  36 22 20 76 2e 33 2e 35  |ct "PAGE6" v.3.5|
00000020  0d 00 14 0a 2a 43 4c 4f  53 45 0d 00 1e 0c 2a 46  |....*CLOSE....*F|
00000030  58 32 30 30 2c 31 0d 00  28 10 2a 44 49 52 20 4d  |X200,1..(.*DIR M|
00000040  4f 52 4e 49 4e 47 0d 00  32 22 61 3d 30 3a 41 3d  |ORNING..2"a=0:A=|
00000050  30 3a 73 69 6e 67 6c 65  73 65 61 72 63 68 3d 30  |0:singlesearch=0|
00000060  3a 70 61 67 65 25 3d 30  0d 00 3c 1a 63 6f 6e 73  |:page%=0..<.cons|
00000070  74 3d 32 3a 76 61 6c 69  64 3d 30 3a 75 70 74 6f  |t=2:valid=0:upto|
00000080  3d 31 0d 00 46 85 de 6e  75 6d 28 34 30 29 2c 72  |=1..F..num(40),r|
00000090  6e 61 6d 65 24 28 34 30  29 2c 69 6e 69 74 24 28  |name$(40),init$(|
000000a0  34 30 29 2c 73 6e 61 6d  65 24 28 34 30 29 2c 74  |40),sname$(40),t|
000000b0  69 74 6c 65 24 28 34 30  29 2c 74 65 6c 6e 6f 28  |itle$(40),telno(|
000000c0  34 30 29 2c 6f 72 31 24  28 34 30 29 2c 6f 72 32  |40),or1$(40),or2|
000000d0  24 28 34 30 29 2c 6f 72  33 24 28 34 30 29 2c 72  |$(40),or3$(40),r|
000000e0  6f 75 6e 64 28 34 30 29  2c 74 6f 64 61 79 73 62  |ound(40),todaysb|
000000f0  69 6c 6c 28 34 30 29 2c  6f 75 74 73 74 61 6e 64  |ill(40),outstand|
00000100  69 6e 67 28 34 30 29 0d  00 50 0f f2 6d 61 69 6e  |ing(40)..P..main|
00000110  77 69 6e 64 6f 77 0d 00  5a 26 db 3a f1 a4 63 28  |window..Z&.:..c(|
00000120  22 22 22 43 41 4e 43 45  4c 20 50 41 50 45 52 53  |"""CANCEL PAPERS|
00000130  22 22 20 55 54 49 4c 49  54 59 22 29 0d 00 64 2f  |"" UTILITY")..d/|
00000140  f1 27 27 27 27 a4 63 28  22 49 6e 20 6f 72 64 65  |.''''.c("In orde|
00000150  72 20 74 6f 20 75 73 65  20 74 68 69 73 20 75 74  |r to use this ut|
00000160  69 6c 69 74 79 2c 20 69  74 22 29 0d 00 6e 2c f1  |ility, it")..n,.|
00000170  27 a4 63 28 22 69 73 20  66 69 72 73 74 20 6e 65  |'.c("is first ne|
00000180  63 65 73 73 61 72 79 20  74 6f 20 6c 6f 63 61 74  |cessary to locat|
00000190  65 20 74 68 65 22 29 0d  00 78 2c f1 27 a4 63 28  |e the")..x,.'.c(|
000001a0  22 63 75 73 74 6f 6d 65  72 27 73 20 69 6e 66 6f  |"customer's info|
000001b0  72 6d 61 74 69 6f 6e 2e  20 54 6f 20 64 6f 20 73  |rmation. To do s|
000001c0  6f 22 29 0d 00 82 30 f1  27 a4 63 28 22 69 6e 70  |o")...0.'.c("inp|
000001d0  75 74 20 74 68 65 20 63  75 73 74 6f 6d 65 72 27  |ut the customer'|
000001e0  73 20 6e 61 6d 65 20 6f  72 20 61 64 64 72 65 73  |s name or addres|
000001f0  73 22 29 0d 00 8c 1a f1  27 a4 63 28 22 77 68 65  |s").....'.c("whe|
00000200  6e 20 72 65 71 75 69 72  65 64 2e 22 29 0d 00 96  |n required.")...|
00000210  2f f1 27 27 27 22 20 20  52 65 66 65 72 20 74 6f  |/.'''"  Refer to|
00000220  20 70 61 67 65 20 33 30  20 6f 66 20 74 68 65 20  | page 30 of the |
00000230  55 53 45 52 20 47 55 49  44 45 22 27 0d 00 a0 2d  |USER GUIDE"'...-|
00000240  f1 22 77 68 69 63 68 20  65 78 70 6c 61 69 6e 73  |."which explains|
00000250  20 73 6f 6d 65 20 6f 66  20 74 68 65 20 6d 6f 72  | some of the mor|
00000260  65 20 61 64 76 61 6e 2d  22 0d 00 aa 28 f1 a4 63  |e advan-"...(..c|
00000270  28 22 63 65 64 20 66 65  61 74 75 72 65 73 20 6f  |("ced features o|
00000280  66 20 74 68 69 73 20 75  74 69 6c 69 74 79 2e 22  |f this utility."|
00000290  29 0d 00 b4 13 ef 32 33  3b 38 32 30 32 3b 30 3b  |).....23;8202;0;|
000002a0  30 3b 30 3b 0d 00 be 0e  f2 63 6f 6d 77 69 6e 64  |0;0;.....comwind|
000002b0  6f 77 0d 00 c8 68 f1 27  27 27 27 27 27 22 41 20  |ow...h.''''''"A |
000002c0  3a 20 53 65 61 72 63 68  20 42 79 20 4b 6e 6f 77  |: Search By Know|
000002d0  69 6e 67 20 41 44 44 52  45 53 53 22 27 22 42 20  |ing ADDRESS"'"B |
000002e0  3a 20 53 65 61 72 63 68  20 42 79 20 4b 6e 6f 77  |: Search By Know|
000002f0  69 6e 67 20 53 55 52 4e  41 4d 45 22 27 22 51 20  |ing SURNAME"'"Q |
00000300  3a 20 51 75 69 74 20 42  61 63 6b 20 54 6f 20 4d  |: Quit Back To M|
00000310  61 69 6e 20 4d 65 6e 75  22 3b 0d 00 d2 0a 2a 43  |ain Menu";....*C|
00000320  4c 4f 53 45 0d 00 dc 12  53 3d a5 3a e7 53 3d 36  |LOSE....S=.:.S=6|
00000330  36 e5 8d 54 44 41 0d 00  e6 0e e7 53 3d 36 35 e5  |6..TDA.....S=65.|
00000340  8d 44 66 43 0d 00 f0 10  e7 53 3d 38 31 f2 67 65  |.DfC.....S=81.ge|
00000350  74 6f 75 74 0d 00 fa 09  e5 8d 64 5c 40 0d 01 04  |tout......d\@...|
00000360  42 f1 27 27 27 27 27 27  22 41 20 3a 20 53 65 61  |B.''''''"A : Sea|
00000370  72 63 68 20 41 20 50 61  72 74 69 63 75 6c 61 72  |rch A Particular|
00000380  20 52 6f 75 6e 64 22 27  22 42 20 3a 20 53 65 61  | Round"'"B : Sea|
00000390  72 63 68 20 41 6c 6c 20  52 6f 75 6e 64 73 22 0d  |rch All Rounds".|
000003a0  01 0e 08 46 3d a5 3a 0d  01 18 0e e7 46 3d 36 35  |...F=.:.....F=65|
000003b0  e5 8d 54 76 41 0d 01 22  0e e7 46 3d 36 36 e5 8d  |..TvA.."..F=66..|
000003c0  44 68 41 0d 01 2c 09 e5  8d 54 4e 41 0d 01 36 26  |DhA..,...TNA..6&|
000003d0  f1 27 27 27 27 27 27 27  22 57 68 69 63 68 20 72  |.'''''''"Which r|
000003e0  6f 75 6e 64 20 22 27 3a  e8 8a 31 32 2c 31 29 3b  |ound "':..12,1);|
000003f0  53 24 0d 01 40 66 e7 20  53 24 3d 22 31 22 20 84  |S$..@f. S$="1" .|
00000400  20 53 24 3d 22 32 22 20  84 20 53 24 3d 22 33 22  | S$="2" . S$="3"|
00000410  20 84 20 53 24 3d 22 34  22 20 84 20 53 24 3d 22  | . S$="4" . S$="|
00000420  35 22 20 84 20 53 24 3d  22 36 22 20 84 20 53 24  |5" . S$="6" . S$|
00000430  3d 22 37 22 20 84 20 53  24 3d 22 38 22 20 8c 20  |="7" . S$="8" . |
00000440  66 69 6c 65 24 3d 22 52  4f 55 4e 44 22 2b 53 24  |file$="ROUND"+S$|
00000450  3a 76 61 6c 69 64 3d 31  0d 01 4a 18 e7 20 a9 28  |:valid=1..J.. .(|
00000460  53 24 29 3e 37 20 76 61  6c 69 64 3d 30 3a ef 37  |S$)>7 valid=0:.7|
00000470  0d 01 54 86 e7 20 53 24  3d 22 52 4f 55 4e 44 31  |..T.. S$="ROUND1|
00000480  22 20 84 20 53 24 3d 22  52 4f 55 4e 44 32 22 20  |" . S$="ROUND2" |
00000490  84 20 53 24 3d 22 52 4f  55 4e 44 33 22 20 84 20  |. S$="ROUND3" . |
000004a0  53 24 3d 22 52 4f 55 4e  44 34 22 20 84 20 53 24  |S$="ROUND4" . S$|
000004b0  3d 22 52 4f 55 4e 44 35  22 20 84 20 53 24 3d 22  |="ROUND5" . S$="|
000004c0  52 4f 55 4e 44 36 22 20  84 20 53 24 3d 22 52 4f  |ROUND6" . S$="RO|
000004d0  55 4e 44 37 22 20 84 20  53 24 3d 22 52 4f 55 4e  |UND7" . S$="ROUN|
000004e0  44 38 22 20 8c 20 66 69  6c 65 24 3d 53 24 3a 76  |D8" . file$=S$:v|
000004f0  61 6c 69 64 3d 31 0d 01  5e 22 e7 76 61 6c 69 64  |alid=1..^".valid|
00000500  3d 30 e5 8d 54 76 41 20  8b 20 73 69 6e 67 6c 65  |=0..TvA . single|
00000510  73 65 61 72 63 68 3d 31  0d 01 68 38 f1 27 27 27  |search=1..h8.'''|
00000520  27 27 27 27 22 45 6e 74  65 72 20 63 75 73 74 6f  |''''"Enter custo|
00000530  6d 65 72 27 73 20 73 75  72 6e 61 6d 65 20 22 27  |mer's surname "'|
00000540  3a e8 8a 32 35 2c 31 29  3b 73 65 61 72 63 68 24  |:..25,1);search$|
00000550  0d 01 72 10 f2 73 65 61  72 63 68 72 6f 75 6e 64  |..r..searchround|
00000560  0d 01 7c 10 f2 64 69 73  70 6c 61 79 64 61 74 61  |..|..displaydata|
00000570  0d 01 86 16 f2 63 6f 6d  77 69 6e 64 6f 77 3a f1  |.....comwindow:.|
00000580  27 27 27 27 27 27 0d 01  90 45 e7 20 63 6f 75 6e  |''''''...E. coun|
00000590  74 3d 32 20 f1 a4 63 28  22 50 72 65 73 73 20 53  |t=2 ..c("Press S|
000005a0  70 61 63 65 20 54 6f 20  44 69 73 70 6c 61 79 20  |pace To Display |
000005b0  44 65 74 61 69 6c 73 22  29 27 3a f5 fd a5 3d 33  |Details")':...=3|
000005c0  32 3a 4e 3d 31 3a e5 8d  74 78 41 0d 01 9a 47 e7  |2:N=1:..txA...G.|
000005d0  20 63 6f 75 6e 74 3e 32  20 f1 27 27 27 27 27 22  | count>2 .'''''"|
000005e0  49 6e 70 75 74 20 63 6f  72 72 65 73 70 6f 6e 64  |Input correspond|
000005f0  69 6e 67 20 61 62 6f 76  65 20 6e 75 6d 62 65 72  |ing above number|
00000600  22 27 3a e8 8a 33 33 2c  31 29 3b 4e 3a e5 8d 74  |"':..33,1);N:..t|
00000610  6e 41 0d 01 a4 24 f1 a4  63 28 22 50 72 65 73 73  |nA...$..c("Press|
00000620  20 53 70 61 63 65 22 29  27 3a f5 fd a5 3d 33 32  | Space")':...=32|
00000630  3a e5 8d 44 50 40 0d 01  ae 17 e7 4e 3e 63 6f 75  |:..DP@.....N>cou|
00000640  6e 74 2d 31 20 ef 37 3a  e5 8d 74 5a 41 0d 01 b8  |nt-1 .7:..tZA...|
00000650  0f f2 74 68 65 64 69 73  70 6c 61 79 0d 01 c2 09  |..thedisplay....|
00000660  e5 8d 44 50 40 0d 01 cc  06 20 20 0d 01 d6 11 dd  |..DP@....  .....|
00000670  f2 73 65 61 72 63 68 72  6f 75 6e 64 0d 01 e0 20  |.searchround... |
00000680  f1 27 27 27 27 27 a4 63  28 22 53 74 61 72 74 69  |.'''''.c("Starti|
00000690  6e 67 20 53 65 61 72 63  68 22 29 27 0d 01 ea 1e  |ng Search")'....|
000006a0  ef 32 38 2c 31 2c 32 34  2c 33 38 2c 33 3a db 3a  |.28,1,24,38,3:.:|
000006b0  f2 63 6f 6d 77 69 6e 64  6f 77 0d 01 f4 34 63 6f  |.comwindow...4co|
000006c0  75 6e 74 3d 31 3a 61 3d  30 3a e7 73 69 6e 67 6c  |unt=1:a=0:.singl|
000006d0  65 73 65 61 72 63 68 3d  31 20 61 3d bb 28 c2 66  |esearch=1 a=.(.f|
000006e0  69 6c 65 24 2c 31 29 29  3a e5 8d 44 44 42 0d 01  |ile$,1)):..DDB..|
000006f0  fe 0d e3 20 61 3d 31 20  b8 20 36 0d 02 08 19 e7  |... a=1 . 6.....|
00000700  61 3d 31 20 66 69 6c 65  24 3d 28 22 52 4f 55 4e  |a=1 file$=("ROUN|
00000710  44 31 22 29 0d 02 12 19  e7 61 3d 32 20 66 69 6c  |D1").....a=2 fil|
00000720  65 24 3d 28 22 52 4f 55  4e 44 32 22 29 0d 02 1c  |e$=("ROUND2")...|
00000730  19 e7 61 3d 33 20 66 69  6c 65 24 3d 28 22 52 4f  |..a=3 file$=("RO|
00000740  55 4e 44 33 22 29 0d 02  26 19 e7 61 3d 34 20 66  |UND3")..&..a=4 f|
00000750  69 6c 65 24 3d 28 22 52  4f 55 4e 44 34 22 29 0d  |ile$=("ROUND4").|
00000760  02 30 19 e7 61 3d 35 20  66 69 6c 65 24 3d 28 22  |.0..a=5 file$=("|
00000770  52 4f 55 4e 44 35 22 29  0d 02 3a 19 e7 61 3d 36  |ROUND5")..:..a=6|
00000780  20 66 69 6c 65 24 3d 28  22 52 4f 55 4e 44 36 22  | file$=("ROUND6"|
00000790  29 0d 02 44 35 f2 6d 61  69 6e 77 69 6e 64 6f 77  |)..D5.mainwindow|
000007a0  3a f1 8a 30 2c 61 2b 34  29 22 53 65 61 72 63 68  |:..0,a+4)"Search|
000007b0  69 6e 67 20 22 3b 66 69  6c 65 24 3a f2 63 6f 6d  |ing ";file$:.com|
000007c0  77 69 6e 64 6f 77 0d 02  4e 15 74 68 65 72 6f 75  |window..N.therou|
000007d0  6e 64 3d 8e 28 66 69 6c  65 24 29 0d 02 58 05 f5  |nd=.(file$)..X..|
000007e0  0d 02 62 a6 e8 23 74 68  65 72 6f 75 6e 64 2c 6e  |..b..#theround,n|
000007f0  75 6d 28 63 6f 75 6e 74  29 2c 72 6e 61 6d 65 24  |um(count),rname$|
00000800  28 63 6f 75 6e 74 29 2c  69 6e 69 74 24 28 63 6f  |(count),init$(co|
00000810  75 6e 74 29 2c 73 6e 61  6d 65 24 28 63 6f 75 6e  |unt),sname$(coun|
00000820  74 29 2c 74 69 74 6c 65  24 28 63 6f 75 6e 74 29  |t),title$(count)|
00000830  2c 74 65 6c 6e 6f 28 63  6f 75 6e 74 29 2c 6f 72  |,telno(count),or|
00000840  31 24 28 63 6f 75 6e 74  29 2c 6f 72 32 24 28 63  |1$(count),or2$(c|
00000850  6f 75 6e 74 29 2c 6f 72  33 24 28 63 6f 75 6e 74  |ount),or3$(count|
00000860  29 2c 74 6f 64 61 79 73  62 69 6c 6c 28 63 6f 75  |),todaysbill(cou|
00000870  6e 74 29 2c 6f 75 74 73  74 61 6e 64 69 6e 67 28  |nt),outstanding(|
00000880  63 6f 75 6e 74 29 0d 02  6c 86 e7 20 c0 73 6e 61  |count)..l.. .sna|
00000890  6d 65 24 28 63 6f 75 6e  74 29 2c a9 28 73 65 61  |me$(count),.(sea|
000008a0  72 63 68 24 29 29 20 3d  20 73 65 61 72 63 68 24  |rch$)) = search$|
000008b0  20 8c 20 f1 27 27 27 27  27 27 a4 63 28 22 53 65  | . .''''''.c("Se|
000008c0  61 72 63 68 20 65 6c 65  6d 65 6e 74 20 6c 6f 63  |arch element loc|
000008d0  61 74 65 64 2e 22 29 27  a4 63 28 22 43 6f 6e 74  |ated.")'.c("Cont|
000008e0  69 6e 75 69 6e 67 20 53  65 61 72 63 68 22 29 3a  |inuing Search"):|
000008f0  72 6f 75 6e 64 28 63 6f  75 6e 74 29 3d 61 3a 63  |round(count)=a:c|
00000900  6f 75 6e 74 3d 63 6f 75  6e 74 2b 31 0d 02 76 10  |ount=count+1..v.|
00000910  fd 20 c5 23 74 68 65 72  6f 75 6e 64 0d 02 80 0f  |. .#theround....|
00000920  d9 20 23 74 68 65 72 6f  75 6e 64 0d 02 8a 14 e7  |. #theround.....|
00000930  73 69 6e 67 6c 65 73 65  61 72 63 68 3d 31 e1 0d  |singlesearch=1..|
00000940  02 94 06 ed 61 0d 02 9e  05 e1 0d 02 a8 11 dd f2  |....a...........|
00000950  64 69 73 70 6c 61 79 64  61 74 61 0d 02 b2 2a f2  |displaydata...*.|
00000960  6d 61 69 6e 77 69 6e 64  6f 77 3a db 3a f1 a4 63  |mainwindow:.:..c|
00000970  28 22 52 45 53 55 4c 54  53 20 4f 46 20 53 45 41  |("RESULTS OF SEA|
00000980  52 43 48 22 29 0d 02 bc  2c e7 63 6f 75 6e 74 2d  |RCH")...,.count-|
00000990  31 3d 30 f1 27 22 53 65  61 72 63 68 20 75 6e 73  |1=0.'"Search uns|
000009a0  75 63 63 65 73 73 66 75  6c 2e 22 3a e5 8d 44 7e  |uccessful.":..D~|
000009b0  44 0d 02 c6 4f f1 27 22  41 20 74 6f 74 61 6c 20  |D...O.'"A total |
000009c0  6f 66 20 22 3b 63 6f 75  6e 74 2d 31 3b 22 20 63  |of ";count-1;" c|
000009d0  75 73 74 6f 6d 65 72 73  20 77 69 74 68 22 27 22  |ustomers with"'"|
000009e0  73 75 72 6e 61 6d 65 20  22 3b 73 65 61 72 63 68  |surname ";search|
000009f0  24 3b 22 20 77 65 72 65  20 66 6f 75 6e 64 2e 22  |$;" were found."|
00000a00  0d 02 d0 12 e3 41 3d 31  b8 28 63 6f 75 6e 74 2d  |.....A=1.(count-|
00000a10  31 29 0d 02 da 20 f1 8a  30 2c 41 2b 35 29 22 20  |1)... ..0,A+5)" |
00000a20  22 3b 41 3b 22 3a 20 22  3b 73 6e 61 6d 65 24 28  |";A;": ";sname$(|
00000a30  41 29 0d 02 e4 1e f1 8a  31 33 2c 41 2b 35 29 22  |A)......13,A+5)"|
00000a40  20 22 3b 69 6e 69 74 24  28 41 29 3b 22 2e 20 22  | ";init$(A);". "|
00000a50  0d 02 ee 14 f1 8a 31 37  2c 41 2b 35 29 3b 6e 75  |......17,A+5);nu|
00000a60  6d 28 41 29 0d 02 f8 1a  f1 8a 32 30 2c 41 2b 35  |m(A)......20,A+5|
00000a70  29 22 20 22 3b 72 6e 61  6d 65 24 28 41 29 0d 03  |)" ";rname$(A)..|
00000a80  02 16 f1 8a 33 36 2c 41  2b 35 29 3b 72 6f 75 6e  |....36,A+5);roun|
00000a90  64 28 41 29 0d 03 0c 05  ed 0d 03 16 05 e1 0d 03  |d(A)............|
00000aa0  20 10 dd f2 6d 61 69 6e  77 69 6e 64 6f 77 0d 03  | ...mainwindow..|
00000ab0  2a 11 ef 32 38 2c 31 2c  32 34 2c 33 38 2c 31 0d  |*..28,1,24,38,1.|
00000ac0  03 34 05 e1 0d 03 3e 0f  dd f2 63 6f 6d 77 69 6e  |.4....>...comwin|
00000ad0  64 6f 77 0d 03 48 12 ef  32 38 2c 31 2c 33 30 2c  |dow..H..28,1,30,|
00000ae0  33 38 2c 32 37 0d 03 52  05 e1 0d 03 5c 1c dd a4  |38,27..R....\...|
00000af0  63 28 43 24 29 3a f1 8a  31 39 2d a9 43 24 2f 32  |c(C$):..19-.C$/2|
00000b00  29 3b 3a 3d 43 24 0d 03  66 42 f1 27 27 27 27 27  |);:=C$..fB.'''''|
00000b10  27 22 41 20 3a 20 53 65  61 72 63 68 20 41 20 50  |'"A : Search A P|
00000b20  61 72 74 69 63 75 6c 61  72 20 52 6f 75 6e 64 22  |articular Round"|
00000b30  27 22 42 20 3a 20 53 65  61 72 63 68 20 41 6c 6c  |'"B : Search All|
00000b40  20 52 6f 75 6e 64 73 22  0d 03 70 13 20 46 3d a5  | Rounds"..p. F=.|
00000b50  3a e7 46 3d 36 35 e5 8d  74 4e 43 0d 03 7a 0e e7  |:.F=65..tNC..z..|
00000b60  46 3d 36 36 e5 8d 64 40  43 0d 03 84 09 e5 8d 44  |F=66..d@C......D|
00000b70  70 43 0d 03 8e 26 f1 27  27 27 27 27 27 27 22 57  |pC...&.'''''''"W|
00000b80  68 69 63 68 20 72 6f 75  6e 64 20 22 27 3a e8 8a  |hich round "':..|
00000b90  31 32 2c 31 29 3b 53 24  0d 03 98 66 e7 20 53 24  |12,1);S$...f. S$|
00000ba0  3d 22 31 22 20 84 20 53  24 3d 22 32 22 20 84 20  |="1" . S$="2" . |
00000bb0  53 24 3d 22 33 22 20 84  20 53 24 3d 22 34 22 20  |S$="3" . S$="4" |
00000bc0  84 20 53 24 3d 22 35 22  20 84 20 53 24 3d 22 36  |. S$="5" . S$="6|
00000bd0  22 20 84 20 53 24 3d 22  37 22 20 84 20 53 24 3d  |" . S$="7" . S$=|
00000be0  22 38 22 20 8c 20 66 69  6c 65 24 3d 22 52 4f 55  |"8" . file$="ROU|
00000bf0  4e 44 22 2b 53 24 3a 76  61 6c 69 64 3d 31 0d 03  |ND"+S$:valid=1..|
00000c00  a2 18 e7 20 a9 28 53 24  29 3e 37 20 76 61 6c 69  |... .(S$)>7 vali|
00000c10  64 3d 30 3a ef 37 0d 03  ac 86 e7 20 53 24 3d 22  |d=0:.7..... S$="|
00000c20  52 4f 55 4e 44 31 22 20  84 20 53 24 3d 22 52 4f  |ROUND1" . S$="RO|
00000c30  55 4e 44 32 22 20 84 20  53 24 3d 22 52 4f 55 4e  |UND2" . S$="ROUN|
00000c40  44 33 22 20 84 20 53 24  3d 22 52 4f 55 4e 44 34  |D3" . S$="ROUND4|
00000c50  22 20 84 20 53 24 3d 22  52 4f 55 4e 44 35 22 20  |" . S$="ROUND5" |
00000c60  84 20 53 24 3d 22 52 4f  55 4e 44 36 22 20 84 20  |. S$="ROUND6" . |
00000c70  53 24 3d 22 52 4f 55 4e  44 37 22 20 84 20 53 24  |S$="ROUND7" . S$|
00000c80  3d 22 52 4f 55 4e 44 38  22 20 8c 20 66 69 6c 65  |="ROUND8" . file|
00000c90  24 3d 53 24 3a 76 61 6c  69 64 3d 31 0d 03 b6 22  |$=S$:valid=1..."|
00000ca0  e7 76 61 6c 69 64 3d 30  e5 8d 74 4e 43 20 8b 20  |.valid=0..tNC . |
00000cb0  73 69 6e 67 6c 65 73 65  61 72 63 68 3d 31 0d 03  |singlesearch=1..|
00000cc0  c0 5f f1 27 27 27 27 27  27 27 22 45 6e 74 65 72  |._.'''''''"Enter|
00000cd0  20 63 75 73 74 6f 6d 65  72 27 73 20 61 64 64 72  | customer's addr|
00000ce0  65 73 73 20 3a 22 27 27  22 52 6f 61 64 20 6e 75  |ess :"''"Road nu|
00000cf0  6d 62 65 72 20 20 20 20  3f 22 27 22 52 6f 61 64  |mber    ?"'"Road|
00000d00  20 6e 61 6d 65 20 20 20  20 20 20 3f 22 3b 3a e8  | name      ?";:.|
00000d10  8a 31 35 2c 32 29 3b 74  61 72 6e 75 6d 0d 03 ca  |.15,2);tarnum...|
00000d20  10 e8 8a 31 35 2c 33 29  3b 73 65 61 24 0d 03 d4  |...15,3);sea$...|
00000d30  20 f1 27 27 27 27 27 a4  63 28 22 53 74 61 72 74  | .'''''.c("Start|
00000d40  69 6e 67 20 53 65 61 72  63 68 22 29 27 0d 03 de  |ing Search")'...|
00000d50  05 20 0d 03 e8 4d ef 32  38 2c 31 2c 32 34 2c 33  |. ...M.28,1,24,3|
00000d60  38 2c 33 3a db 3a f2 63  6f 6d 77 69 6e 64 6f 77  |8,3:.:.comwindow|
00000d70  3a 63 6f 75 6e 74 3d 31  3a e7 73 69 6e 67 6c 65  |:count=1:.single|
00000d80  73 65 61 72 63 68 3d 31  20 8c 20 61 3d bb 28 c2  |search=1 . a=.(.|
00000d90  66 69 6c 65 24 2c 31 29  29 3a e5 8d 54 6e 44 0d  |file$,1)):..TnD.|
00000da0  03 f2 23 e3 20 61 3d 31  20 b8 20 36 3a e7 61 3d  |..#. a=1 . 6:.a=|
00000db0  31 20 66 69 6c 65 24 3d  28 22 52 4f 55 4e 44 31  |1 file$=("ROUND1|
00000dc0  22 29 0d 03 fc 19 e7 61  3d 32 20 66 69 6c 65 24  |").....a=2 file$|
00000dd0  3d 28 22 52 4f 55 4e 44  32 22 29 0d 04 06 19 e7  |=("ROUND2").....|
00000de0  61 3d 33 20 66 69 6c 65  24 3d 28 22 52 4f 55 4e  |a=3 file$=("ROUN|
00000df0  44 33 22 29 0d 04 10 19  e7 61 3d 34 20 66 69 6c  |D3").....a=4 fil|
00000e00  65 24 3d 28 22 52 4f 55  4e 44 34 22 29 0d 04 1a  |e$=("ROUND4")...|
00000e10  19 e7 61 3d 35 20 66 69  6c 65 24 3d 28 22 52 4f  |..a=5 file$=("RO|
00000e20  55 4e 44 35 22 29 0d 04  24 19 e7 61 3d 36 20 66  |UND5")..$..a=6 f|
00000e30  69 6c 65 24 3d 28 22 52  4f 55 4e 44 36 22 29 0d  |ile$=("ROUND6").|
00000e40  04 2e 49 f2 6d 61 69 6e  77 69 6e 64 6f 77 3a f1  |..I.mainwindow:.|
00000e50  8a 30 2c 61 2b 34 29 22  53 65 61 72 63 68 69 6e  |.0,a+4)"Searchin|
00000e60  67 20 22 3b 66 69 6c 65  24 3a f2 63 6f 6d 77 69  |g ";file$:.comwi|
00000e70  6e 64 6f 77 3a 74 68 65  72 6f 75 6e 64 3d 8e 28  |ndow:theround=.(|
00000e80  66 69 6c 65 24 29 3a f5  0d 04 38 a6 e8 23 74 68  |file$):...8..#th|
00000e90  65 72 6f 75 6e 64 2c 6e  75 6d 28 63 6f 75 6e 74  |eround,num(count|
00000ea0  29 2c 72 6e 61 6d 65 24  28 63 6f 75 6e 74 29 2c  |),rname$(count),|
00000eb0  69 6e 69 74 24 28 63 6f  75 6e 74 29 2c 73 6e 61  |init$(count),sna|
00000ec0  6d 65 24 28 63 6f 75 6e  74 29 2c 74 69 74 6c 65  |me$(count),title|
00000ed0  24 28 63 6f 75 6e 74 29  2c 74 65 6c 6e 6f 28 63  |$(count),telno(c|
00000ee0  6f 75 6e 74 29 2c 6f 72  31 24 28 63 6f 75 6e 74  |ount),or1$(count|
00000ef0  29 2c 6f 72 32 24 28 63  6f 75 6e 74 29 2c 6f 72  |),or2$(count),or|
00000f00  33 24 28 63 6f 75 6e 74  29 2c 74 6f 64 61 79 73  |3$(count),todays|
00000f10  62 69 6c 6c 28 63 6f 75  6e 74 29 2c 6f 75 74 73  |bill(count),outs|
00000f20  74 61 6e 64 69 6e 67 28  63 6f 75 6e 74 29 0d 04  |tanding(count)..|
00000f30  42 77 e7 20 6e 75 6d 28  63 6f 75 6e 74 29 3d 74  |Bw. num(count)=t|
00000f40  61 72 6e 75 6d 20 80 20  72 6e 61 6d 65 24 28 63  |arnum . rname$(c|
00000f50  6f 75 6e 74 29 3d 73 65  61 24 20 8c 20 72 6f 75  |ount)=sea$ . rou|
00000f60  6e 64 28 63 6f 75 6e 74  29 3d 61 3a f1 27 27 27  |nd(count)=a:.'''|
00000f70  27 27 27 a4 63 28 22 53  65 61 72 63 68 20 65 6c  |'''.c("Search el|
00000f80  65 6d 65 6e 74 20 6c 6f  63 61 74 65 64 2e 22 29  |ement located.")|
00000f90  27 3a 63 6f 75 6e 74 3d  63 6f 75 6e 74 2b 31 3a  |':count=count+1:|
00000fa0  e5 8d 44 74 44 0d 04 4c  10 fd 20 c5 23 74 68 65  |..DtD..L.. .#the|
00000fb0  72 6f 75 6e 64 0d 04 56  0f d9 20 23 74 68 65 72  |round..V.. #ther|
00000fc0  6f 75 6e 64 0d 04 60 18  e7 73 69 6e 67 6c 65 73  |ound..`..singles|
00000fd0  65 61 72 63 68 3d 31 e5  8d 44 74 44 0d 04 6a 06  |earch=1..DtD..j.|
00000fe0  ed 61 0d 04 74 1b 73 65  61 72 63 68 24 3d 73 6e  |.a..t.search$=sn|
00000ff0  61 6d 65 24 28 31 29 3a  e5 8d 44 7c 41 0d 04 7e  |ame$(1):..D|A..~|
00001000  06 20 20 0d 04 88 05 e1  0d 04 92 10 dd f2 74 68  |.  ...........th|
00001010  65 64 69 73 70 6c 61 79  0d 04 9c 11 f2 6d 61 69  |edisplay.....mai|
00001020  6e 77 69 6e 64 6f 77 3a  db 0d 04 a6 23 f1 a4 63  |nwindow:....#..c|
00001030  28 22 44 45 54 41 49 4c  53 20 4f 46 20 53 45 41  |("DETAILS OF SEA|
00001040  52 43 48 20 49 54 45 4d  22 29 27 27 0d 04 b0 17  |RCH ITEM")''....|
00001050  f1 27 22 54 69 74 6c 65  20 20 20 20 20 20 20 20  |.'"Title        |
00001060  20 3a 22 0d 04 ba 17 f1  27 22 53 75 72 6e 61 6d  | :".....'"Surnam|
00001070  65 20 20 20 20 20 20 20  3a 22 0d 04 c4 17 f1 27  |e       :".....'|
00001080  22 41 64 64 72 65 73 73  20 20 20 20 20 20 20 3a  |"Address       :|
00001090  22 0d 04 ce 1b f1 27 27  27 27 27 22 54 65 6c 2e  |".....'''''"Tel.|
000010a0  20 4e 6f 2e 20 20 20 20  20 20 3a 22 0d 04 d8 1b  | No.      :"....|
000010b0  f1 27 27 22 50 61 70 65  72 28 73 29 20 6f 72 64  |.''"Paper(s) ord|
000010c0  65 72 65 64 20 3a 22 0d  04 e2 1f f1 27 27 27 27  |ered :".....''''|
000010d0  27 22 42 69 6c 6c 20 6f  75 74 73 74 61 6e 64 69  |'"Bill outstandi|
000010e0  6e 67 20 3a 22 3b 0d 04  ec 22 f1 8a 31 36 2c 34  |ng :";..."..16,4|
000010f0  29 3b 74 69 74 6c 65 24  28 4e 29 3b 22 20 22 3b  |);title$(N);" ";|
00001100  69 6e 69 74 24 28 4e 29  0d 04 f6 15 f1 8a 31 36  |init$(N)......16|
00001110  2c 36 29 3b 73 6e 61 6d  65 24 28 4e 29 0d 05 00  |,6);sname$(N)...|
00001120  21 f1 8a 31 36 2c 38 29  3b 6e 75 6d 28 4e 29 3b  |!..16,8);num(N);|
00001130  22 2c 20 22 3b 72 6e 61  6d 65 24 28 4e 29 0d 05  |", ";rname$(N)..|
00001140  0a 41 f1 8a 31 36 2c 31  30 29 22 52 45 44 43 41  |.A..16,10)"REDCA|
00001150  52 22 8a 31 36 2c 31 32  29 22 43 4c 45 56 45 4c  |R".16,12)"CLEVEL|
00001160  41 4e 44 22 8a 31 36 2c  31 34 29 3b 22 28 30 31  |AND".16,14);"(01|
00001170  36 34 32 29 20 22 3b 74  65 6c 6e 6f 28 4e 29 0d  |642) ";telno(N).|
00001180  05 14 34 f1 8a 31 39 2c  31 37 29 3b 6f 72 31 24  |..4..19,17);or1$|
00001190  28 4e 29 3b 8a 31 39 2c  31 39 29 3b 6f 72 32 24  |(N);.19,19);or2$|
000011a0  28 4e 29 3b 8a 31 39 2c  32 31 29 3b 6f 72 33 24  |(N);.19,21);or3$|
000011b0  28 4e 29 0d 05 1e 4b f1  8a 31 39 2c 32 33 29 3b  |(N)...K..19,23);|
000011c0  22 60 22 3b 6f 75 74 73  74 61 6e 64 69 6e 67 28  |"`";outstanding(|
000011d0  4e 29 3b 3a e7 28 28 6f  75 74 73 74 61 6e 64 69  |N);:.((outstandi|
000011e0  6e 67 28 4e 29 20 2a 20  31 30 30 29 2b 31 29 20  |ng(N) * 100)+1) |
000011f0  83 20 31 30 20 3d 20 30  20 f1 22 30 22 3b 0d 05  |. 10 = 0 ."0";..|
00001200  28 0e f2 63 6f 6d 77 69  6e 64 6f 77 0d 05 32 28  |(..comwindow..2(|
00001210  f1 27 27 27 27 27 27 27  a4 63 28 22 43 61 6e 63  |.'''''''.c("Canc|
00001220  65 6c 20 70 61 70 65 72  28 73 29 20 28 59 2f 4e  |el paper(s) (Y/N|
00001230  29 22 29 27 0d 05 3c 07  41 3d a5 0d 05 46 25 e7  |)")'..<.A=...F%.|
00001240  41 3d 38 39 20 80 20 6f  75 74 73 74 61 6e 64 69  |A=89 . outstandi|
00001250  6e 67 28 4e 29 3e 30 20  8c 20 e5 20 8d 74 42 45  |ng(N)>0 . . .tBE|
00001260  0d 05 50 9e e7 41 3d 38  39 20 f1 27 27 27 27 27  |..P..A=89 .'''''|
00001270  27 a4 63 28 22 52 65 6d  6f 76 69 6e 67 20 63 75  |'.c("Removing cu|
00001280  73 74 6f 6d 65 72 22 29  27 3a 72 65 6d 65 6d 62  |stomer")':rememb|
00001290  65 72 6e 75 6d 3d 6e 75  6d 28 4e 29 3a 72 65 6d  |ernum=num(N):rem|
000012a0  65 6d 62 65 72 72 6e 61  6d 65 24 3d 72 6e 61 6d  |emberrname$=rnam|
000012b0  65 24 28 4e 29 3a 72 65  6d 65 6d 62 65 72 73 6e  |e$(N):remembersn|
000012c0  61 6d 65 24 3d 73 6e 61  6d 65 24 28 4e 29 3a 41  |ame$=sname$(N):A|
000012d0  24 3d bf 28 32 30 30 29  3a f1 27 27 27 27 a4 63  |$=.(200):.''''.c|
000012e0  28 22 53 74 61 67 65 20  23 20 31 20 43 6f 6d 70  |("Stage # 1 Comp|
000012f0  6c 65 74 65 64 22 29 27  3a e5 8d 44 54 46 0d 05  |leted")':..DTF..|
00001300  5a 0b e7 41 3d 37 38 20  e1 0d 05 64 09 e5 8d 54  |Z..A=78 ...d...T|
00001310  72 45 0d 05 6e 05 e1 0d  05 78 05 20 0d 05 82 9a  |rE..n....x. ....|
00001320  f1 27 27 27 27 27 a4 63  28 22 54 68 69 73 20 70  |.'''''.c("This p|
00001330  72 6f 63 65 73 73 20 74  61 6b 65 73 20 61 72 6f  |rocess takes aro|
00001340  75 6e 64 22 29 27 a4 63  28 22 74 68 69 72 74 79  |und")'.c("thirty|
00001350  20 73 65 63 6f 6e 64 73  2e 20 44 6f 20 4e 4f 54  | seconds. Do NOT|
00001360  20 74 6f 75 63 68 22 29  27 a4 63 28 22 74 68 65  | touch")'.c("the|
00001370  20 6b 65 79 62 6f 61 72  64 20 75 6e 74 69 6c 20  | keyboard until |
00001380  79 6f 75 20 61 72 65 20  61 64 76 69 73 65 64 22  |you are advised"|
00001390  29 27 a4 63 28 22 61 6c  6c 20 74 68 72 65 65 20  |)'.c("all three |
000013a0  73 74 61 67 65 73 20 61  72 65 20 63 6f 6d 70 6c  |stages are compl|
000013b0  65 74 65 22 29 3b 0d 05  8c db 6e 75 6d 28 31 29  |ete");....num(1)|
000013c0  3d 6e 75 6d 28 4e 29 3a  72 6e 61 6d 65 24 28 31  |=num(N):rname$(1|
000013d0  29 3d 72 6e 61 6d 65 24  28 4e 29 3a 69 6e 69 74  |)=rname$(N):init|
000013e0  24 28 31 29 3d 69 6e 69  74 24 28 4e 29 3a 73 6e  |$(1)=init$(N):sn|
000013f0  61 6d 65 24 28 31 29 3d  73 6e 61 6d 65 24 28 4e  |ame$(1)=sname$(N|
00001400  29 3a 74 69 74 6c 65 24  28 31 29 3d 74 69 74 6c  |):title$(1)=titl|
00001410  65 24 28 4e 29 3a 74 65  6c 6e 6f 28 31 29 3d 74  |e$(N):telno(1)=t|
00001420  65 6c 6e 6f 28 4e 29 3a  6f 72 31 24 28 31 29 3d  |elno(N):or1$(1)=|
00001430  6f 72 31 24 28 4e 29 3a  6f 72 32 24 28 31 29 3d  |or1$(N):or2$(1)=|
00001440  6f 72 32 24 28 4e 29 3a  6f 72 33 24 28 31 29 3d  |or2$(N):or3$(1)=|
00001450  6f 72 33 24 28 4e 29 3a  74 6f 64 61 79 73 62 69  |or3$(N):todaysbi|
00001460  6c 6c 28 31 29 3d 74 6f  64 61 79 73 62 69 6c 6c  |ll(1)=todaysbill|
00001470  28 4e 29 3a 6f 75 74 73  74 61 6e 64 69 6e 67 28  |(N):outstanding(|
00001480  31 29 3d 6f 75 74 73 74  61 6e 64 69 6e 67 28 4e  |1)=outstanding(N|
00001490  29 0d 05 96 19 62 6c 61  63 6b 6c 69 73 74 3d 8e  |)....blacklist=.|
000014a0  28 22 55 4e 50 41 49 44  22 29 0d 05 a0 08 64 61  |("UNPAID")....da|
000014b0  3d 31 0d 05 aa 05 f5 0d  05 b4 0b 64 61 3d 64 61  |=1.........da=da|
000014c0  2b 31 0d 05 be 86 e8 23  62 6c 61 63 6b 6c 69 73  |+1.....#blacklis|
000014d0  74 2c 6e 75 6d 28 64 61  29 2c 72 6e 61 6d 65 24  |t,num(da),rname$|
000014e0  28 64 61 29 2c 69 6e 69  74 24 28 64 61 29 2c 73  |(da),init$(da),s|
000014f0  6e 61 6d 65 24 28 64 61  29 2c 74 69 74 6c 65 24  |name$(da),title$|
00001500  28 64 61 29 2c 74 65 6c  6e 6f 28 64 61 29 2c 6f  |(da),telno(da),o|
00001510  72 31 24 28 64 61 29 2c  6f 72 32 24 28 64 61 29  |r1$(da),or2$(da)|
00001520  2c 6f 72 33 24 28 64 61  29 2c 74 6f 64 61 79 73  |,or3$(da),todays|
00001530  62 69 6c 6c 28 64 61 29  2c 6f 75 74 73 74 61 6e  |bill(da),outstan|
00001540  64 69 6e 67 28 64 61 29  0d 05 c8 11 fd 20 c5 23  |ding(da)..... .#|
00001550  62 6c 61 63 6b 6c 69 73  74 0d 05 d2 10 d9 20 23  |blacklist..... #|
00001560  62 6c 61 63 6b 6c 69 73  74 0d 05 dc 12 6e 75 6d  |blacklist....num|
00001570  28 64 61 2b 31 29 3d 2d  39 39 39 0d 05 e6 22 f4  |(da+1)=-999...".|
00001580  20 55 4e 50 41 49 44 20  69 73 20 63 6f 70 69 65  | UNPAID is copie|
00001590  64 20 69 6e 74 6f 20 6d  65 6d 6f 72 79 0d 05 f0  |d into memory...|
000015a0  1f f4 20 4e 65 77 20 68  6f 75 73 65 20 61 64 64  |.. New house add|
000015b0  65 64 20 74 6f 20 55 4e  50 41 49 44 0d 05 fa 0a  |ed to UNPAID....|
000015c0  2a 43 4c 4f 53 45 0d 06  04 18 73 61 76 65 69 67  |*CLOSE....saveig|
000015d0  65 6e 3d ae 28 22 55 4e  50 41 49 44 22 29 0d 06  |en=.("UNPAID")..|
000015e0  0e 17 e3 20 6e 75 6d 62  65 72 3d 31 20 b8 20 28  |... number=1 . (|
000015f0  64 61 2b 31 29 0d 06 18  b2 f1 20 23 73 61 76 65  |da+1)..... #save|
00001600  69 67 65 6e 2c 6e 75 6d  28 6e 75 6d 62 65 72 29  |igen,num(number)|
00001610  2c 72 6e 61 6d 65 24 28  6e 75 6d 62 65 72 29 2c  |,rname$(number),|
00001620  69 6e 69 74 24 28 6e 75  6d 62 65 72 29 2c 73 6e  |init$(number),sn|
00001630  61 6d 65 24 28 6e 75 6d  62 65 72 29 2c 74 69 74  |ame$(number),tit|
00001640  6c 65 24 28 6e 75 6d 62  65 72 29 2c 74 65 6c 6e  |le$(number),teln|
00001650  6f 28 6e 75 6d 62 65 72  29 2c 6f 72 31 24 28 6e  |o(number),or1$(n|
00001660  75 6d 62 65 72 29 2c 6f  72 32 24 28 6e 75 6d 62  |umber),or2$(numb|
00001670  65 72 29 2c 6f 72 33 24  28 6e 75 6d 62 65 72 29  |er),or3$(number)|
00001680  2c 74 6f 64 61 79 73 62  69 6c 6c 28 6e 75 6d 62  |,todaysbill(numb|
00001690  65 72 29 2c 6f 75 74 73  74 61 6e 64 69 6e 67 28  |er),outstanding(|
000016a0  6e 75 6d 62 65 72 29 0d  06 22 0b ed 6e 75 6d 62  |number).."..numb|
000016b0  65 72 0d 06 2c 0f d9 20  23 73 61 76 65 69 67 65  |er..,.. #saveige|
000016c0  6e 0d 06 36 06 20 20 0d  06 40 24 f1 27 27 27 27  |n..6.  ..@$.''''|
000016d0  27 a4 63 28 22 53 74 61  67 65 20 23 20 31 20 43  |'.c("Stage # 1 C|
000016e0  6f 6d 70 6c 65 74 65 64  22 29 27 0d 06 4a 48 72  |ompleted")'..JHr|
000016f0  65 6d 65 6d 62 65 72 6e  75 6d 3d 6e 75 6d 28 31  |emembernum=num(1|
00001700  29 3a 72 65 6d 65 6d 62  65 72 72 6e 61 6d 65 24  |):rememberrname$|
00001710  3d 72 6e 61 6d 65 24 28  31 29 3a 72 65 6d 65 6d  |=rname$(1):remem|
00001720  62 65 72 73 6e 61 6d 65  24 3d 73 6e 61 6d 65 24  |bersname$=sname$|
00001730  28 31 29 0d 06 54 11 72  75 6e 64 3d 8e 28 66 69  |(1)..T.rund=.(fi|
00001740  6c 65 24 29 0d 06 5e 09  6e 65 77 3d 30 0d 06 68  |le$)..^.new=0..h|
00001750  05 f5 0d 06 72 0d 6e 65  77 3d 6e 65 77 2b 31 0d  |....r.new=new+1.|
00001760  06 7c 8c e8 23 72 75 6e  64 2c 6e 75 6d 28 6e 65  |.|..#rund,num(ne|
00001770  77 29 2c 72 6e 61 6d 65  24 28 6e 65 77 29 2c 69  |w),rname$(new),i|
00001780  6e 69 74 24 28 6e 65 77  29 2c 73 6e 61 6d 65 24  |nit$(new),sname$|
00001790  28 6e 65 77 29 2c 74 69  74 6c 65 24 28 6e 65 77  |(new),title$(new|
000017a0  29 2c 74 65 6c 6e 6f 28  6e 65 77 29 2c 6f 72 31  |),telno(new),or1|
000017b0  24 28 6e 65 77 29 2c 6f  72 32 24 28 6e 65 77 29  |$(new),or2$(new)|
000017c0  2c 6f 72 33 24 28 6e 65  77 29 2c 74 6f 64 61 79  |,or3$(new),today|
000017d0  73 62 69 6c 6c 28 6e 65  77 29 2c 6f 75 74 73 74  |sbill(new),outst|
000017e0  61 6e 64 69 6e 67 28 6e  65 77 29 0d 06 86 0c fd  |anding(new).....|
000017f0  20 c5 23 72 75 6e 64 0d  06 90 0b d9 20 23 72 75  | .#rund..... #ru|
00001800  6e 64 0d 06 9a 06 20 20  0d 06 a4 16 e3 20 73 65  |nd....  ..... se|
00001810  61 72 63 68 20 3d 20 31  20 b8 20 6e 65 77 0d 06  |arch = 1 . new..|
00001820  ae 93 e7 20 72 65 6d 65  6d 62 65 72 6e 75 6d 3d  |... remembernum=|
00001830  6e 75 6d 28 73 65 61 72  63 68 29 20 80 20 72 65  |num(search) . re|
00001840  6d 65 6d 62 65 72 72 6e  61 6d 65 24 3d 72 6e 61  |memberrname$=rna|
00001850  6d 65 24 28 73 65 61 72  63 68 29 20 80 20 72 65  |me$(search) . re|
00001860  6d 65 6d 62 65 72 73 6e  61 6d 65 24 3d 73 6e 61  |membersname$=sna|
00001870  6d 65 24 28 73 65 61 72  63 68 29 20 8c 20 6e 75  |me$(search) . nu|
00001880  6d 28 73 65 61 72 63 68  29 3d 2d 38 38 38 3a 72  |m(search)=-888:r|
00001890  6e 61 6d 65 24 28 73 65  61 72 63 68 29 3d 22 54  |name$(search)="T|
000018a0  45 4d 50 4f 52 41 52 49  4c 59 20 45 4d 50 54 59  |EMPORARILY EMPTY|
000018b0  22 0d 06 b8 0c ed 20 73  65 61 72 63 68 0d 06 c2  |"..... search...|
000018c0  05 20 0d 06 cc 11 74 68  65 65 3d ae 28 66 69 6c  |. ....thee=.(fil|
000018d0  65 24 29 0d 06 d6 0d e3  73 3d 31 20 b8 20 34 30  |e$).....s=1 . 40|
000018e0  0d 06 e0 76 f1 23 74 68  65 65 2c 6e 75 6d 28 73  |...v.#thee,num(s|
000018f0  29 2c 72 6e 61 6d 65 24  28 73 29 2c 69 6e 69 74  |),rname$(s),init|
00001900  24 28 73 29 2c 73 6e 61  6d 65 24 28 73 29 2c 74  |$(s),sname$(s),t|
00001910  69 74 6c 65 24 28 73 29  2c 74 65 6c 6e 6f 28 73  |itle$(s),telno(s|
00001920  29 2c 6f 72 31 24 28 73  29 2c 6f 72 32 24 28 73  |),or1$(s),or2$(s|
00001930  29 2c 6f 72 33 24 28 73  29 2c 74 6f 64 61 79 73  |),or3$(s),todays|
00001940  62 69 6c 6c 28 73 29 2c  6f 75 74 73 74 61 6e 64  |bill(s),outstand|
00001950  69 6e 67 28 73 29 0d 06  ea 07 ed 20 73 0d 06 f4  |ing(s)..... s...|
00001960  0a d9 23 74 68 65 65 0d  06 fe 23 f1 27 27 27 27  |..#thee...#.''''|
00001970  a4 63 28 22 53 74 61 67  65 20 23 20 32 20 43 6f  |.c("Stage # 2 Co|
00001980  6d 70 6c 65 74 65 64 22  29 27 0d 07 08 0a 2a 43  |mpleted")'....*C|
00001990  4c 4f 53 45 0d 07 12 06  20 20 0d 07 1c 11 72 75  |LOSE....  ....ru|
000019a0  6e 64 3d 8e 28 66 69 6c  65 24 29 0d 07 26 09 6e  |nd=.(file$)..&.n|
000019b0  65 77 3d 30 0d 07 30 05  f5 0d 07 3a 0d 6e 65 77  |ew=0..0....:.new|
000019c0  3d 6e 65 77 2b 31 0d 07  44 8c e8 23 72 75 6e 64  |=new+1..D..#rund|
000019d0  2c 6e 75 6d 28 6e 65 77  29 2c 72 6e 61 6d 65 24  |,num(new),rname$|
000019e0  28 6e 65 77 29 2c 69 6e  69 74 24 28 6e 65 77 29  |(new),init$(new)|
000019f0  2c 73 6e 61 6d 65 24 28  6e 65 77 29 2c 74 69 74  |,sname$(new),tit|
00001a00  6c 65 24 28 6e 65 77 29  2c 74 65 6c 6e 6f 28 6e  |le$(new),telno(n|
00001a10  65 77 29 2c 6f 72 31 24  28 6e 65 77 29 2c 6f 72  |ew),or1$(new),or|
00001a20  32 24 28 6e 65 77 29 2c  6f 72 33 24 28 6e 65 77  |2$(new),or3$(new|
00001a30  29 2c 74 6f 64 61 79 73  62 69 6c 6c 28 6e 65 77  |),todaysbill(new|
00001a40  29 2c 6f 75 74 73 74 61  6e 64 69 6e 67 28 6e 65  |),outstanding(ne|
00001a50  77 29 0d 07 4e 41 e7 20  6e 75 6d 28 6e 65 77 29  |w)..NA. num(new)|
00001a60  3d 2d 38 38 38 20 80 20  72 6e 61 6d 65 24 28 6e  |=-888 . rname$(n|
00001a70  65 77 29 3d 22 54 45 4d  50 4f 52 41 52 49 4c 59  |ew)="TEMPORARILY|
00001a80  20 45 4d 50 54 59 22 20  8c 20 6e 65 77 3d 6e 65  | EMPTY" . new=ne|
00001a90  77 2d 31 0d 07 58 0c fd  20 c5 23 72 75 6e 64 0d  |w-1..X.. .#rund.|
00001aa0  07 62 0b d9 20 23 72 75  6e 64 0d 07 6c 05 20 0d  |.b.. #rund..l. .|
00001ab0  07 76 13 61 72 6f 75 6e  64 3d ae 28 66 69 6c 65  |.v.around=.(file|
00001ac0  24 29 0d 07 80 0b e3 61  3d 31 b8 34 30 0d 07 8a  |$).....a=1.40...|
00001ad0  78 f1 23 61 72 6f 75 6e  64 2c 6e 75 6d 28 61 29  |x.#around,num(a)|
00001ae0  2c 72 6e 61 6d 65 24 28  61 29 2c 69 6e 69 74 24  |,rname$(a),init$|
00001af0  28 61 29 2c 73 6e 61 6d  65 24 28 61 29 2c 74 69  |(a),sname$(a),ti|
00001b00  74 6c 65 24 28 61 29 2c  74 65 6c 6e 6f 28 61 29  |tle$(a),telno(a)|
00001b10  2c 6f 72 31 24 28 61 29  2c 6f 72 32 24 28 61 29  |,or1$(a),or2$(a)|
00001b20  2c 6f 72 33 24 28 61 29  2c 74 6f 64 61 79 73 62  |,or3$(a),todaysb|
00001b30  69 6c 6c 28 61 29 2c 6f  75 74 73 74 61 6e 64 69  |ill(a),outstandi|
00001b40  6e 67 28 61 29 0d 07 94  06 ed 61 0d 07 9e 05 20  |ng(a).....a.... |
00001b50  0d 07 a8 6e f1 a4 63 28  22 53 74 61 67 65 20 23  |...n..c("Stage #|
00001b60  20 33 20 43 6f 6d 70 6c  65 74 65 64 22 29 27 a4  | 3 Completed")'.|
00001b70  63 28 22 54 68 69 73 20  63 75 73 74 6f 6d 65 72  |c("This customer|
00001b80  27 73 20 70 61 70 65 72  73 20 68 61 76 65 20 62  |'s papers have b|
00001b90  65 65 6e 22 29 27 a4 63  28 22 73 74 6f 70 70 65  |een")'.c("stoppe|
00001ba0  64 2e 22 29 27 a4 63 28  22 50 72 65 73 73 20 53  |d.")'.c("Press S|
00001bb0  70 61 63 65 22 29 3b 3a  f5 fd a5 3d 33 32 0d 07  |pace");:...=32..|
00001bc0  b2 05 e1 0d 07 bc 0c dd  f2 67 65 74 6f 75 74 0d  |.........getout.|
00001bd0  07 c6 35 f2 63 6f 6d 77  69 6e 64 6f 77 3a f1 27  |..5.comwindow:.'|
00001be0  27 27 27 27 27 27 27 a4  63 28 22 4c 6f 61 64 69  |'''''''.c("Loadi|
00001bf0  6e 67 20 4d 61 69 6e 20  4d 65 6e 75 22 29 27 3a  |ng Main Menu")':|
00001c00  2a 44 49 52 0d 07 d0 0b  d7 22 4d 45 4e 55 22 0d  |*DIR....."MENU".|
00001c10  ff                                                |.|
00001c11