image of READY prompt

Wang2200.org

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)