Listing of file='SORT402B' on disk='vmedia/701-2425A.wvd.zip'
# Sector 170, program filename = 'SORT402B' 0010 REM SORT402B,08/09/77,COPYRIGHT WANG LABS.1976 0100 LOAD DC T#F(5),"SORT400C"15,100 0400 DIM Q$1 : E=20 : IF D$="D"THEN 7020 : X=0 : IF C$="Y"THEN 580 : X=P7 0580 GOSUB '217(N$(4),F(4),S2,X,4,P$(4),F$(4),0) : E=17 : IF Q$<>" "THEN 7020 : O9$(4)="O" : LIMITS T#F(4),N$(4),X2,X3,X : E=19 : IF P7>X3-X2+1THEN 7020 : X3=X3-2 : IF P8$="T"THEN 7005 : X3=X3-M8+1 7005 LOAD DC T#F(5),"SORT403A" 7018 DEFFN'31 : E=28 7020 LOAD DC T#F(5),"SORT490A"