Listing of file='ACPA070B' on disk='vmedia/701-2652C.wvd.zip'
# Sector 97, program filename = 'ACPA070B'
0010 REM ACPA070B, RELEASE 2.2, (09/10/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM K(10),N(10),B(10),F$(6)3,N$(4)8,M0$(1)21
0179 LOAD T"SORT4"10,179
3400 M9$=$PSTAT(#PART)
: IF STR(M9$,,9)="M"THEN M=SPACEK+2
: ELSE M=SPACEK-1
: F=0
: N$(1)=S$(1)
: F$()=M$()
: M0$()=F$(6)&F$()
: SELECT #0<F$(6)>
: B=4
: L$="ALL"
: K=2
: IF STR(M$(),57,1)="1"THEN Q8=1
: ELSE Q8=2
: IF STR(M$(),57,1)="1"THEN Q9=2
: ELSE Q9=1
: K=2
: K(1),K(2)=1
: B(Q8)=30+VAL(Q0$(4))
: N(Q8)=4
: B(Q9)=1
: N(Q9)=VAL(Q0$(4))
3485 N$(3)=S$(3)
: N$(4)=S$(4)
: P8$="T"
: M$=STR(M$(),50,7)&"C"
: FOR I=1TO 6
: SELECT #I<F$(I)>
: HEXPACKC$FROMSTR(F$(I),2,2)
: ADDC(C$,80)
: HEXUNPACKC$TO STR(F$(I),2,2)
: NEXT I
: C$="W"
9999 DEFFN'29"Q$= ";HEX(22);"ACPA070B";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX
(0D)