image of READY prompt

Wang2200.org

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