Listing of file='GENL040B' on disk='vmedia/701-2653B.wvd.zip'
# Sector 337, program filename = 'GENL040B' 0010 REM GENL040B, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT ED 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$()=M$() : M0$()=F$(6)&F$() : SELECT #0<F$(6)> : F=0 : N$(1)=S$(1) : B=4 : L$="ALL" : K=3 : K(1),K(2),K(3)=1 : B(1)=3 : N(1)=VAL(Q0$(5)) : B(2)=5+VAL(Q0$(5)) : N(2)=2 : B(3)=1 : N(3)=2 : N$(3)=S$(3) : N$(4)=S$(4) : P8$="T" : M$=STR(M$(),92,7)&"C" 3510 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$="Y" 9999 DEFFN'29"Q6$=";HEX(22);"GENL040B";HEX(22);":SCRATCHTQ6$:SAVET()Q6$";HEX(0 D)