image of READY prompt

Wang2200.org

Listing of file='SORT301A' on disk='vmedia/701-2047D.wvd.zip'

# Sector 288, program filename = 'SORT301A'
0010 REM SORT301A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
3100 DIM S7$(36)2,S8$(36)3,S4$(255)2
   : DIM N2$2,R8$3,Y2$3,X1$2,Y$1
3140 PRINT HEX(030A0A0A0A)
   : PRINT "PASS 1 - INTERNAL SORT"
   : LOAD DA T#2,(S1$,S1$)3140,3199
3165 DIM S6$(02)2,X3$(005)2,S5$(03)1
   : DIM S0$(005)20,S$(02,005)20,S1$(005)20
   : DIM S$20
3200 IF G$=" "THEN 4390
3210 LOAD DC T#6,G$3200,3210
3270 GOTO 4390
3310 INIT(FF)S5$()
   : P=0
3340 S7$=N2$
   : INIT(00)S8$,R8$
3370 P=P+1
   : IF P>P4THEN 3800
   : C=0
3410 C=C+1
   : IF C>P9THEN 3710
3430 R4=R4+1
   : IF R4>R2THEN 4280
3440 Q=Q+1
   : IF Q<=R0THEN 3450
   : Q=1
   : GOSUB 3650
3450 X=0
3500 ADDC(S8$,Y2$)
3600 GOTO 3410
3650 X=0
3690 RETURN
3710 MAT SORTS0$()TO X3$(),S4$()
3760 S5$(P)=HEX(01)
   : IF I=0THEN 3370
3800 MAT MERGES$()TO S5$(),S6$(),S4$()
3830 G=1
3875 R=P2
3900 O=O+R
   : IF O<=P2THEN 4000
   : ADDC(N2$,N3$)
3950 X=0
3970 O=1
   : ADDC(R8$,R9$)
   : IF R8$>=S8$THEN 4050
4000 G=G+R
   : IF G>255THEN 3800
   : IF S4$(G)=HEX(0000)THEN 3800
   : GOTO 3875
4050 S9=S9+1
   : IF I=1THEN 4160
   : S4=S4+1
   : IF S4<=36THEN 4110
   : GOSUB 4510
4110 S7$(S4)=S7$
   : S8$(S4)=S8$
   : GOTO 3310
4160 GOSUB 4510
   : COM CLEAR Z
   : IF R1$="R"THEN 4250
   : LOAD DC T#0,"SORT302A"
4250 LOAD DC T#0,"SORT302B"
4280 I=1
   : R2=R4-1
   : IF R4>1THEN 4310
   : STOP "NO RECORDS"
4310 INIT(FF)S0$(C)
   : IF C=P9THEN 3710
   : R=C*K
   : G=(P9-C)*K
   : MAT COPY S0$()<R,G>TO S0$()<R+1,G>
   : GOTO 3710
4390 I,S9,R4=0
   : O=1
   : S4=1
   : IF F=2THEN 4450
   : GOSUB 3650
   : Q=R1-1
4450 Y2$=HEX(000001)
   : N0$=M0$
   : N2$=M2$
   : GOTO 3310
4510 DATA SAVE DA T$#2,(N0$,N0$)S7$(),S8$()
   : S4=1
   : RETURN