Listing of file='GBS1220B' on disk='vmedia/701-2661A.wvd.zip'
# Sector 597, program filename = 'GBS1220B'
0010 REM GBS1220B, RELEASE 1-0, (03/22/79), THIS PROGRAM IS A COPYRIGHT PROD
UCT OF WANG LABORATORIES. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED.
SORT SET-UP, CLEAR INVENTORY MASTER FILE.
0170 DIM K(10),B(10),N(10),N$(4)8,F$(6)3,M0$(1)21
: LOAD DC T#0,"SORT4"10,3200
3400 M9$=$PSTAT(#PART)
: IF STR(M9$,,9)="M"THEN M=SPACEK+1
: ELSE M=SPACEK-1
: F$()=M$()
: M0$()=F$(6)&F$()
: SELECT #0<F$(6)>
: F=5
: N$()=S$()
: J=1
: B=1
: L$="ALL"
: K=1
: K(1)=4
: B(1)=48
: N(1)=10
: S9=2
: P8$="T"
: M$=STR(M$(),100,7)&"C"
: FOR I=1TO 6
: SELECT #I<F$(I)>
: HEXPACKC$FROMSTR(F$(I),2,2)
: ADD(C$,80)
: HEXUNPACKC$TO STR(F$(I),2,2)
: NEXT I
3540 C$="W"
9999 DEFFN'29"Q$=";HEX(22);"GBS1220B";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)