Listing of file='UTILMENU' on disk='vmedia/701-2652C.wvd.zip'
# Sector 415, program filename = 'UTILMENU' 0010 REM UTILMENU, RELEASE 2.2, (09/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 COM I,Q,M5$,M0,M$8,O0 : COM Q$(2)80,Q6$80,Q7$80 : COM Q3,Q4,Q5,Q6,Q7,Q8,Q9 : COM M2$4,M3$1,M(17) 4000 DIM A6$(8)124 : N=9 : I=37 : Q9=37+VAL(Q0$(1)) : M0=INT(249/Q9) : Q9=49+VAL(Q0$(2)) : O0=INT((248-4)/Q9) : Q0=VAL(Q0$(1))-1 : IF M$="SYS MENU"THEN M5$=" " : M$="UTILMENU" : Q7$="GBS/MVP UTILITIES MENU" : STR(Q7$,47)="SYSTEM MENU" 4100 LOAD T"GBS MENU"10,4100 : ERRORPRINT HEX(03);"GBS Menu is not available." : END 7010 DEFFN'32 : Q6$="SYS MENU" : COM CLEAR I : LOAD TQ6$ : ERRORPRINT HEX(03);"System menu is not available." : END 7060 DEFFN'38 : RETURN 7110 DEFFN'39 : Q6$="A/RCONT" : LOAD TQ6$199,199BEG 7140 : ERRORGOSUB '33 7140 V7$="GBS1F010" : GOSUB '97 : MAT SEARCHA6$(),=STR(V7$,,7)TO Q6$STEP 11 : Q9=INT((VAL(Q6$,2)+10)/11) : Q6$="A/R Control file" : Q7$="(Filename is not in company control file)." : IF Q9=0THEN GOSUB '33 : Q7$=" " : SELECT #1<STR(A6$(Q9),9,3)> : DATA LOAD DC OPEN T#1,STR(A6$(Q9),,8) : ERRORGOSUB '33 7240 SELECT @PARTS0$ : M2$=HEX(A0015206) : GOSUB '46(1,0,1) : DATA SAVE DC CLOSE#1 : GOSUB '98 : RETURN 7440 DATA "AUDI010A","PRINT MAINTENANCE AUDIT REPORT","SUBUTIL SUBDATE DENTRY AUDIFILEPRNTAVAL" : DATA 1,"AUDIF01 401" : DATA "AUDI020A","DISPLAY/PRINT TRANSACTIONS","SUBUTIL SUBDATE DENTRY TRA UFILEPRNTAVAL" : DATA 1,"AUDIF02 401" 7480 DATA "ACCT020A","BUILD ACCOUNTS RECEIVABLE FILE","KFAMCODESUBUTIL SUBDATE DENTRY CUSFILE OPNFILE A/RCONT" : DATA 2,"INVCF01 312 ACCTF01 313 GBS1F01 304" : DATA "UTIL010A","RESET ACCESS TABLES","DENTRY" : DATA 0," " 7520 DATA "BACK010A","RESTORE DATA FROM BACKUP DISK","PRNTAVALDENTRY SUBUTIL" : DATA 0," " : DATA "BACK010A","COPY DATA TO BACKUP DISK","PRNTAVALDENTRY SUBUTIL" : DATA 0," " : DATA "UTIL020A","DELETE INCOMPLETE INVOICES, ORDERS","KFAMCODESUBUTIL DEN TRY" 7570 DATA 2,"ORENF01 411 INVCF02 412" : DATA "UTIL030A","RESET ALLOCATED (BACKORDERED) AMOUNTS","KFAMCODESUBUTIL DENTRY INVFILE ORDFILE" : DATA 3,"INVTF01 411 ORENF01 412" : DATA "GBS1010A","DISPLAY/PRINT CONTROL FILE","SUBUTIL SUBDATE DENTRY A/R CONT PRNTAVAL" 7610 DATA 1,"GBS1F01 101" 9998 DEFFN'29"Q$=";HEX(22);"UTILMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)