Listing of file='SORT411A' on disk='vmedia/701-2425A.wvd.zip'
# Sector 176, program filename = 'SORT411A' 0010 REM SORT411A,08/09/77,COPYRIGHT WANG LABS.1976 0600 DIM V9$2,T9$2,T0$(4)60,T4$3,T7$30 2300 V9$=T2$(1) : GOSUB 3672 : T=VAL(T$)-T5 2400 T=T+T5 : IF T>V1THEN 3568 : $UNPACK(F=V4$)T0$()<T>TO T7$,T4$ : IF T7$>HEX(FF)THEN 3568 2410 Q=VAL(STR(T4$,3)) : IF T7$>=E$THEN 4280 : P2$=T4$ : ADDC(P2$,M4$) 3568 T3=1 3572 T3=T3+1 : IF T3>T0THEN 4280 : V9$=T2$(T3) : GOSUB 3672 : T=VAL(STR(T$,T3)) : T=T+T5 : IF T>V1THEN 3572 : $UNPACK(F=V4$)T0$()<T>TO T7$,T4$ : IF T7$>HEX(FF)THEN 3572 3616 BIN(STR(T$,T3))=T : IF T3=1THEN 2410 : V9$=T4$ : GOSUB 3672 : $UNPACK(F=V4$)T0$()TO T7$,T4$ : T3=T3-1 : T=1 : T2$(T3)=T9$ : GOTO 3616 3672 ADDC(V9$,V0$) : DATA LOAD DA T#F(2),(V9$,V9$)T9$,T0$() : RETURN