Listing of file='INVT060E' on disk='vmedia/701-2616C.wvd.zip'
# Sector 353, program filename = 'INVT060E'
0010 REM INVT060E, RELEASE 2.0, (06/01/79)
0011 REM ---------------------------------------------------------------------
--
0012 REM SYSTEM & MODULE = GBS/MVP INVENTORY SYSTEM, SORT INVENTORY
0013 REM PROGRAM FUNCTION = SPECIAL INPUT PROCEDURE TO SELECT RECORDS BY CYC
LE
0014 REM DATE WRITTEN = 05/09/79 HM
0015 REM LAST REVISION = 08/12/79 MK
0016 REM ---------------------------------------------------------------------
--
1000 %SPECIAL INPUT PROCEDURE
2500 IF STR(M$(),31,1) <> STR(A2$(),26+Q0,1) THEN 2400