image of READY prompt

Wang2200.org

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)