image of READY prompt

Wang2200.org

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)