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$=UPS$(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$=UPS$(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