Listing of file='INVT110B' on disk='vmedia/701-2616C.wvd.zip'
# Sector 1011, program filename = 'INVT110B' 0010 REM INVT110B, 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 SETUP 0011 REM DATE WRITTEN = 01/30/79 0012 REM SYSTEM NAME = GBS/MVP INVENTORY SYSTEM 0013 REM MODULE NAME = SALES PROJECTION/LEVEL OF SERV 0014 REM MODULE FUNCTION = SETS UP SORT OF INVENTORY FILE 0015 REM ************************************************** 0017 REM COM VARIABLES IN PARAMETER FILE 0018 COM A6$1,A9$1,B6(3),B6$19,F6$Q0,F7$Q0,F8$Q0,I5,I6,I6$1,I8,K6 0020 DIM K(2),B(2),N(2),N$(4)8,F$(6)3,P$(4)16,A$(4)62,M0$(1)21 0022 REM EXTRACT OPTIONS INFO FROM M$() 0030 $UNPACK(F= HEX(0008A001A0016001A013A00CA00CA00C60016001A00160016001)) M$()<50,> TO A6$,A9$,B6(),B6$,F6$,F7$,F8$,I5,I6,I6$,I8,K6 0179 LOAD DC T#0,"SORT4"10,3200 3400 M=SPACEK+1 3405 F$()=M$() 3407 M0$()=F$(6)&F$() 3410 SELECT #0<F$(6)> 3415 F=5 3420 N$()=S$() 3435 J=1 3445 B=1 3480 L$="ALL" 3495 K=2 3500 K(1)=B6(1) 3502 B(1)=B6(2) 3504 N(1)=B6(3) 3506 K(2)=1 3508 B(2)=1 3510 N(2)=Q0 3575 P8$="T" 3595 G$=STR(M$(),50,7)&"C" 3600 M4=200 3605 M$=STR(M$(),50,7)&"D" 3612 FOR I=1 TO 6 3614 SELECT #I<F$(I)> 3616 HEXPACKC$FROM STR(F$(I),2,2) 3618 ADDC(C$,80) 3620 HEXUNPACKC$TO STR(F$(I),2,2) 3622 NEXT I 3624 C$="W" 9999 DEFFN'29"Q$=";HEX(22);"INVT110B";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)