Listing of file='INVFILE ' on disk='vmedia/701-2616C.wvd.zip'
# Sector 838, program filename = 'INVFILE' 0010 REM INVFILE, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0020 REM ---------------------------------------------------------------- 0030 REM SYSTEM & MODULE = GBS/MVP INVENTORY SYSTEM, INVENTORY PUT/GET 0040 REM PROGRAM FUNCTION = DECLARE VARIABLES FOR INVENTORY MASTER FILE 0050 REM DATE WRITTEN = 08/05/78 0060 REM LAST REVISION = 04/16/79 0070 REM ---------------------------------------------------------------- 0170 COM F1$Q2,F$12,F2$24,F3$2,H0,G2$Q4,G3$12,I5$6 0172 COM E,E1,E2,E3,E4,E5,F,F1,H,H2,F3,H1,H3,H4,H(5),H5,C3,E0,F5,H5$1,D3(2 ),H4$1,B4,B5,H1(5) 0174 COM L3$66 0198 REM 0199 L3$=HEX(A0)&BIN(Q2)&HEX(A00CA018A0026003A0)&BIN(Q4)&HEX(A00CA00650045 00450045004600360036203620350045004520552055205520562036404600250045004A0 015004A001600360036002) 0200 GOSUB '99 9998 DEFFN'29"Q$=";HEX(22);"INVFILE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D)