Listing of file='INVTMNMB' on disk='vmedia/701-2656B.wvd.zip'
# Sector 135, program filename = 'INVTMNMB'
0010 REM INVTMNMB, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM I,Q,M5$,O0,M$8,W,W3
: COM Q$(2)80,Q6$80,Q7$80
: COM Q3,Q4,Q5,Q6,Q7,Q8,Q9
: COM M2$4,M3$1,M(17)
4000 N=17
: W4=32
: I=38
: Q0=VAL(Q0$(2))
: W3=Q0+3
: W=INT((248-5-Q0)/(14+Q0))
: IF M$="SYS MENU"THEN M5$=" "
: M$="INVTMNMB"
: Q7$="GBS/MVP INVENTORY SYSTEM"
: STR(Q7$,47)="SYSTEM MENU"
4110 LOAD T"GBS MENU"10,4110
: 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
: Q6$=ALL("0")
: STR(M5$,7,1)=STR(Q6$,S+1,1)
: RETURN
7110 DEFFN'39
: IF M5$="INVT090A"THEN Q0=VAL(Q0$(4))
: RETURN
7280 DATA "INVT220A","MAINTAIN INVENTORY FILE","KFAMCODESUBDATE DENTRY INVFIL
E FINFILE PROFILE AUDIFILE"
: DATA 2,"INVTF01 312 FCSTF01 115 AUDIF01 303"
: DATA "INVT030A","ENTER INVENTORY TRANSACTIONS","KFAMCODESUBUTIL DENTRY I
NVFILE TRAUFILE"
7310 DATA 1,"INVTF01 312 AUDIF02 303"
: DATA "INVT040A","PRINT STOCK STATUS REPORT","KFAMCODESUBUTIL SUBDATE DENT
RY INVFILE PRNTAVAL"
: DATA 1,"INVTF01 212"
: DATA "INVT250A","PRINT INACTIVE/LOW STOCK REPORT","KFAMCODESUBDATE DENTRY
INVFILE FINFILE PRNTAVAL"
7350 DATA 1,"INVTF01 212"
: DATA "INVT210A","DISPLAY/PRINT INVENTORY","KFAMCODESUBDATE DENTRY INVFIL
E FINFILE PROFILE PRNTAVAL"
: DATA 2,"INVTF01 112 FCSTF01 114"
: DATA "INVT060A","PRINT PHYSICAL INVENTORY SHEETS","DENTRY PRNTAVAL"
7390 DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 INVTF02 004 PROGRAM 005 PROGR
AM 006"
: DATA "INVT070A","ENTER PHYSICAL COUNT","KFAMCODESUBUTIL DENTRY INVFILE T
RAUFILE"
: DATA 1,"INVTF01 312 AUDIF02 303 INVTF02 404"
7420 DATA "INVT080A","PRINT PHYSICAL INVENTORY REPORT","KFAMCODESUBUTIL DENTRY
INVFILE PRNTAVAL"
: DATA 1,"INVTF01 212 INVTF02 403"
: DATA "INVT290A","RECOMMEND PURCHASE ORDERS","KFAMCODESUBDATE DENTRY INVF
ILE FINFILE PRNTAVAL"
: DATA 2,"INVTF01 312 INVTF03 314"
7460 DATA "BOMS020A","MAINTAIN BILL OF MATERIALS FILES","KFAMCODESUBUTIL SUBDA
TE DENTRY INVFILE BOMFILE"
: DATA 3,"INVTF01 312 BOMSF01 315 BOMSF02 317"
: DATA "BOMS080A","ASSIGN LOW LEVEL CODES","KFAMCODESUBUTIL DENTRY INVFILE
BOMFILE"
7490 DATA 3,"INVTF01 312 BOMSF01 315 BOMSF02 317"
: DATA "BOMS050A","B.O.M. PARTS EXPLOSION ","KFAMCODESUBUTIL SUBDATE DENTRY
INVFILE BOMFILE PRNTAVAL"
: DATA 3,"INVTF01 112 BOMSF01 114 BOMSF02 116"
7520 DATA "BOMS040A","DISPLAY/PRINT WHERE USED FILE","KFAMCODESUBUTIL SUBDATE
DENTRY INVFILE BOMFILE PRNTAVAL"
: DATA 3,"INVTF01 112 BOMSF01 115 BOMSF02 117"
7540 DATA "BOMS010A","DISPLAY/PRINT MULTI-LEVEL IMPLOSION","KFAMCODESUBUTIL SU
BDATE DENTRY INVFILE BOMFILE PRNTAVAL"
: DATA 3,"INVTF01 112 BOMSF01 115 BOMSF02 117"
7560 DATA "BOMS060A","DISPLAY/PRINT SINGLE LEVEL EXPLOSION","KFAMCODESUBUTIL S
UBDATE DENTRY INVFILE BOMFILE PRNTAVAL"
: DATA 2,"INVTF01 112 BOMSF01 115"
: DATA "BOMS030A","GROSS REQUIREMENTS EXPLOSION","KFAMCODESUBUTIL SUBDATE D
ENTRY INVFILE BOMFILE PRNTAVAL"
7590 DATA 3,"INVTF01 112 BOMSF01 114"
: DATA "BOMS090A","COSTING FROM PARTS","KFAMCODESUBUTIL SUBDATE DENTRY INV
FILE BOMFILE PRNTAVAL"
: DATA 3,"INVTF01 312 BOMSF01 315 BOMSF02 317"
9998 DEFFN'29"DIM Z6$80: Q$=";HEX(22);"INVTMNMB";HEX(22);":SCRATCHTQ$:SAVET$()
Q$:Z6$=";HEX(22);"** WARNING !!! IF THIS MENU IS CHANGED THEN INVTMENB
MUST ALSO BE CHANGED";HEX(22);":PRINT HEX(030A0A0A0707070707);Z6$";HEX(0D
)