10  COM Z0$[45],Z1$[45],H
20  H=0
30  REM***MASTER CONTROL PROGRAM FOR THE MAIL SYSTEM..
40  REM *** Subprograms are M1 & M2. ***
50  REM***Required files are  master address file and add file.***
55  REM *** written by bob anderson, 7/81 ***
60  FILES *,*
100  PRINT "master contol for mail system"
110  PRINT LIN(5);"Menu"
120  PRINT "----"
130  PRINT "1.= New Address        2.= File Change"
140  PRINT "3.= Delete address     4.= Instructions"
150  PRINT "5.= Sort by ZIP        6.= Search"
160  PRINT "7.= Count Entries      8.= Lable Output"
170  PRINT "9.= Form Output       10.= End Program"
180  PRINT 
190  PRINT "            0 = Menu"
200  IF H=1 THEN 250
210  PRINT "Input Name of Master Address File: (aprox. 5 entries per rec.) >";
220  Z0$=""
230  LINPUT Z0$
231  Z0$=UOS$(Z0$)
232  ASSIGN Z0$,1,R
233  IF R=0 THEN 237
234  PRINT Z0$;"does not exist or is not available. Check spelling.'7"
235  ASSIGN *,1
236  GOTO 210
237  ASSIGN *,1
240  Z1$=""
241  PRINT "input the name of the Add file: (1 rec. per entry) >";
242  LINPUT Z1$
243  Z1$=UOS$(Z1$)
244  ASSIGN Z1$,1,R
245  IF R=0 THEN 249
246  PRINT Z1$;"does not exist or is not available. Check spelling.'7"
247  ASSIGN *,1
248  GOTO 240
249  ASSIGN *,1
250  PRINT LIN(2);"Command > ";
260  INPUT X
270  IF X<0 OR X>10 THEN 110
280  GOTO X OF 300,320,340,360,450,470,490,510,530,610
290  STOP 
300  CHAIN R,"M1.A000",540
310  GOSUB 570
320  CHAIN R,"M1.A000",4330
330  GOSUB 570
340  CHAIN R,"M1.A000",5290
350  GOSUB 570
360  PRINT "This system will create,search, count, delete,sort by ZIP,"
370  PRINT "an address file which it will then print out in 2-up lable "
380  PRINT "format with or without a telephone # and a cust. code."
390  PRINT "The print out can be selected by ZIP or by cust. code and is "
400  PRINT "maintained in zip code order.  The system is self prompting and"
401  PRINT "Both a Master address file and an add file must be maintained "
402  PRINT "at all times. The master holds aprox. 5 entries per record,"
403  PRINT "and the add holds 1 per record in direct access. Sorting"
404  PRINT "requires an overhead of aprox. 2 times the master file in space."
410  PRINT "further instructions are available at the beginning of each function."
420  PRINT "follow the prompts carefully."
430  PRINT LIN(2)
440  GOTO 100
450  CHAIN R,"M1.A000",6560
460  GOSUB 570
470  CHAIN R,"M1.A000",7880
480  GOSUB 570
490  CHAIN R,"M1.A000",8830
500  GOSUB 570
510  CHAIN R,"M2.A000",7000
520  GOSUB 570
530  CHAIN R,"M2.A000",1000
540  GOSUB 570
550  STOP 
560  PRINT "MASTER FILE CURRENTLY NOT AVAILABLE. TRY LATER"'7". R= "R
565  GOTO 610
570  REM***Subroutines***
580  PRINT "Chain failed: Error # "R;
590  GOTO 110
600  RETURN 
610  END 
