Listing of file='DSM203AA' on disk='vmedia/701-2048D.wvd.zip'
# Sector 725, program filename = 'DSM203AA' 0010 REM DSM203AA,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0400 DIM C1$3,X1$2,R$2,C2$3 0500 PRINT HEX(030A0A0A0A) : PRINT "PASS 3 - OUTPUT" : LOAD DA T#2,(D2$,D2$)500,599 0591 DIM S1$(3)40,R1$(3)3 0600 SCRATCH T#3,O$ : DATA SAVE DC OPEN T$#3,O$,O$ : INIT(00)S0$ : INIT(FF)C1$ : M0$=F3$ : C2$=L3$ : C=0 : O=1 : K3=D2 0800 GOSUB 6600 : IF S1$(K3)<S0$THEN 6360 : S0$=S1$(K3) : R$=R1$(K3) 6010 GOSUB 6500 : C=C+1 : ADDC(C2$,C1$) : IF C2$>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 : COM CLEAR I2 : LOAD DC T#0,"START055" 6340 STOP "END OF SORT" 6360 STOP "SEQUENCE ERROR" 6500 O=O+1 : IF O<=R0THEN 6540 6530 O=1 6540 RETURN 6600 K3=K3+1 : IF K3<=D2THEN 6640 : DATA LOAD DA T#2,(M0$,X1$)M0$,S1$(),R1$() : K3=1 6640 RETURN