Listing of file='SORT303A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 323, program filename = 'SORT303A' 0010 REM SORT303A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0400 DIM Y2$3,X1$2,R$2,Y3$3 0500 PRINT HEX(030A0A0A0A) : PRINT "PASS 3 - OUTPUT" : LOAD DA T#2,(S2$,S2$)500,599 0600 IF C$="X"THEN 6370 : SCRATCH T#3,O$ : DATA SAVE DC OPEN T$#3,O$,O$ : INIT(00)S0$ : INIT(FF)Y2$ : M0$=S7$ : Y3$=S8$ : C=0 : O=1 : Y0=P2 0800 GOSUB 6600 : IF S1$(Y0)<S0$THEN 6360 : S0$=S1$(Y0) : R$=R1$(Y0) 6010 GOSUB 6500 : C=C+1 6100 ADDC(Y3$,Y2$) : IF Y3$>HEX(000000)THEN 800 6120 IF O=1THEN 6300 6150 GOSUB 6500 : GOTO 6120 6300 DATA SAVE DC $#3,END : DATA SAVE DC CLOSE#3 : PRINT "INPUT RECORDS",R2 : PRINT "OUTPUT RECORDS",C : COM CLEAR M$ : IF M$=" "THEN 6340 : LOAD DC T#6,M$ 6340 STOP "END OF SORT" 6360 STOP "SEQUENCE ERROR" 6370 STOP "NO OUTPUT FILE" 6500 O=O+1 : IF O<=R0THEN 6540 6530 O=1 6540 RETURN 6600 Y0=Y0+1 : IF Y0<=P2THEN 6640 : DATA LOAD DA T#2,(M0$,X1$)M0$,S1$(),R1$() : Y0=1 6640 RETURN