Listing of file='SORT430A' on disk='vmedia/701-2425A.wvd.zip'
# Sector 317, program filename = 'SORT430A' 0010 REM SORT430A,08/09/77,COPYRIGHT WANG LABS.1976 0400 DIM J$(1)2,O9$3,N1$4,N$2 0500 PRINT HEX(010A0A0A0A) : PRINT "PASS 3 -- OUTPUT";TAB(80) : LOAD DA T#F(3),(N7$,N7$)500,599 0540 DIM O1$(005)20,O$(008)62 0600 INIT(00)L$ : INIT(00)O9$ : X2$=P5$ : P=P2 : N1$=HEX(A002A002) 0800 P=P+1 : IF P<=P2THEN 850 : DATA LOAD DA T#F(3),(X2$,X1$)O$() : P=1 0850 K$=O1$(P) : IF K$<L$THEN 6100 : L$=K$ 1300 ADDC(O9$,01) : IF O9$<P6$THEN 800 1600 E=99 : GOTO 7020 3000 O=O+I : IF O>BTHEN 3100 : RETURN 3100 IF X2>X3THEN 6200 6100 E=18 : GOTO 7020 6200 E=19 : GOTO 7020 7018 DEFFN'31 : E=28 7020 LOAD DC T#F(5),"SORT490A"