image of READY prompt

Wang2200.org

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)