image of READY prompt

Wang2200.org

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