image of READY prompt

Wang2200.org

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)