image of READY prompt

Wang2200.org

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 $