Listing of file='INVT110C' on disk='vmedia/701-2616C.wvd.zip'
# Sector 1005, program filename = 'INVT110C' 0010 REM INVT110C, RELEASE 1-0, (04/03/79), THIS PROGRAM IS A COPYRIGHT PRODUC T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED, SALES PROJ/L.O.S. SORT SPECIAL INPUT 0020 REM DATE WRITTEN = 09/07/78 0030 REM SYSTEM NAME = GBS/MVP INVENTORY SYSTEM 0040 REM PROGRAM NAME = SALES PROJECTION/LEVEL OF SERV 0050 REM MODULE FUNCTION = SPECIAL INPUT PROCEDURE TO DELETE 0060 REM - RECORDS WITH KEYS OUTSIDE LIMITS 0070 REM ************************************************** 1000 %THIS LINE MUST BE # 1000 2490 REM SET F8$=SORT KEY 2500 IF K6=4 OR K6=6 THEN F8$=STR(A0$,B6(2),B6(3)) 2510 IF K6=5 THEN F8$=STR(A2$,B6(2),B6(3)) 2520 IF K6=7 THEN F8$=STR(A1$,B6(2),B6(3)) 2530 REM TEST IF SORT KEY IS WITHIN LIMITS 2540 IF F8$<F6$ OR F8$>F7$ THEN 2400 9999 DEFFN'29"Q$=";HEX(22);"INVT110C";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)