Listing of file='SACMENU' on disk='vmedia/701-2003.wvd.zip'
# Sector 280, program filename = 'SACMENU' 0001 REM MENU 0005 PRINT HEX(01) 0007 STOP 0010 DIM A9$64 0020 GOTO 300 0030 REM 0040 DEFFN'00 0050 GOSUB '33("CUST. SALES ANALYSIS POSTING") 0060 LOAD DC F"SAC110AA"10,8499 0070 REM 0080 DEFFN'01 0090 GOSUB '33("CUST. SALES ANALYSIS REPORT") 0100 LOAD DC F"SAC120AA"10,8499 0110 REM 0120 DEFFN'02 0130 Z=1 0140 GOSUB '33("CUST. SALES ANALYSIS MAINTENANCE (EOY)") 0150 LOAD DC F"SAC102AA"10,8499 0160 REM 0170 DEFFN'03 0180 GOSUB '33("CUST. SALES ANALYSIS INITIALIZATION") 0190 LOAD DC F"SAC101AA"10,8499 0200 REM 0210 DEFFN'04 0220 Z=0 0230 GOSUB '33("CUST. SALES ANALYSIS MAINTENANCE") 0240 LOAD DC F"SAC102AA"10,8499 0250 REM 0260 DEFFN'05 0270 GOSUB '33("CUST. SALES ANALYSIS M/F INQUIRY/LIST") 0280 LOAD DC F"SAC103AA"10,8499 0290 REM 0300 SELECT #1 310 0310 SELECT #2 B10 0320 SELECT #3 350 0330 SELECT PRINT 005(64) 0340 REM 0350 PRINT HEX(03) 0360 PRINT ,"CUSTOMER SALES ANALYSIS SYSTEM" 0370 PRINT 0380 PRINT " KEY APPROPRIATE FUNCTION KEY TO INITIATE DESIRED PROGRAM" 0390 PRINT "-------------------------------------------------------------" 0400 PRINT ,"PROGRAM FILES ON THIS VOLUME" 0410 PRINT "FN KEY PROGRAM NAME FN KEY PROGRAM NAME" 0420 PRINT "-------------------------------------------------------------" 0430 PRINT " 00 CUSTOMER POSTING 04 CUSTOMER FILE MAINTENANCE" 0440 PRINT " 01 CUSTOMER REPORT 05 CUSTOMER FILE INQUIRY/LIST" 0450 PRINT " 02 END OF YEAR PROCESSING 14 INITIALIZE VOLUME" 0460 PRINT " 03 CUSTOMER FILE INIT. 15 PROGRAM NOT ON THIS VOLUME" 0470 STOP 0480 REM 0490 DEFFN'15 0500 PRINT HEX(03) 0510 STOP "NO MORE PROGRAMS" 0520 REM INITIALIZE VOLUME 0530 REM 0540 DEFFN'14 0550 PRINT HEX(03) 0560 GOSUB '248(10,15,0) 0570 PRINT "W2200 VOLUME INITIALIZATION SUBROUTINE" 0580 REM 0590 PRINT HEX(01) 0600 PRINT "MOUNT SCRATCH VOLUME TO BE LABELLED IN LOGICAL UNIT 2" 0610 PRINT "KEY RETURN(EXEC) TO RESUME" 0620 INPUT Q6$ 0630 IF Q6$="END" THEN 710 0640 GOSUB '248(0,0,3) 0650 SCRATCH DISK T#2, LS=1, END =1023 0660 DATA SAVE DC OPEN T#2,990,"SCRATCH" 0670 DATA SAVE DC #2,"HDR","SCRATCH",0,0,1 0680 DATA SAVE DC CLOSE#2 0690 GOTO 590 0700 REM 0710 PRINT HEX(03) 0720 GOTO 350 0730 DEFFN'33(A9$) 0740 SELECT PRINT 005(64) 0750 PRINT HEX(03) 0760 PRINT HEX(0A0A0A0A0A) 0770 PRINT " * * * * * * * * * * * * * * * * * * * * * * * * * * " 0780 PRINT " *";TAB(55);"*" 0790 PRINT " *";TAB(24);"SYSTEM NOW LOADING";TAB(55);"*" 0800 PRINT " * ";TAB(13+(38-LEN(A9$))/2);A9$;TAB(55);"*" 0810 PRINT " *";TAB(55);"*" 0820 PRINT " * * * * * * * * * * * * * * * * * * * * * * * * * *" 0830 RETURN 0840 REM $