Listing of file='INVTMENB' on disk='vmedia/701-2656B.wvd.zip'
# Sector 247, program filename = 'INVTMENB' 0010 REM INVTMENB, RELEASE 2.3, (12/29/80) 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,W4 : 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$="INVTMENB" : 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 "INVT020A","MAINTAIN INVENTORY FILE","KFAMCODESUBUTIL SUBDATE DENTRY INVFILE AUDIFILE" : DATA 1,"INVTF01 312 AUDIF01 303" : DATA "INVT030A","ENTER INVENTORY TRANSACTIONS","KFAMCODESUBUTIL DENTRY I NVFILE TRAUFILE" : DATA 1,"INVTF01 312 AUDIF02 303" 7320 DATA "INVT040A","PRINT STOCK STATUS REPORT","KFAMCODESUBUTIL SUBDATE DENT RY INVFILE PRNTAVAL" : DATA 1,"INVTF01 212" : DATA "INVT050A","PRINT INACTIVE/LOW STOCK REPORT","KFAMCODESUBUTIL SUBDAT E DENTRY INVFILE PRNTAVAL" : DATA 1,"INVTF01 212" 7360 DATA "INVT010A","DISPLAY/PRINT INVENTORY","KFAMCODESUBUTIL SUBDATE DENTRY INVFILE PRNTAVAL" : DATA 1,"INVTF01 112" : DATA "INVT060A","PRINT PHYSICAL INVENTORY SHEETS","DENTRY PRNTAVALSUBUTI L" 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 "INVT090A","RECOMMEND PURCHASE ORDERS","KFAMCODESUBUTIL SUBDATE DENT RY INVFILE 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 PRNTAVAL" 7490 DATA 3,"INVTF01 312 BOMSF01 314 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 IN VFILE BOMFILE PRNTAVAL" : DATA 3,"INVTF01 312 BOMSF01 314 BOMSF02 316" 9998 DEFFN'29"DIM Z6$80: Q$=";HEX(22);"INVTMENB";HEX(22);":SCRATCHTQ$:SAVET$() Q$:Z6$=";HEX(22);"** WARNING !!! IF THIS MENU IS CHANGED THEN INVTMNMB MUST ALSO BE CHANGED";HEX(22);":PRINT HEX(030A0A0A);Z6$";HEX(0D)