10000 REM SORTIEREN MIT BAEUMEN
10010 REM
10020 REM HEAPSORT
10030 REM
10040 LG=INT(A/2)+1:RG=A
10050 IF RG<=1 THEN 10190
10060 IF LG<=1 THEN 10100
10070 REM AUFBAU DES HAUFENS
10080 LG=LG-1
10090 I=LG:GOTO 10140
10100 REM WEGNEHMEN DES MAXIMUMS
10110 S$=A$(1)=A$(1)=A$(RG):A$(RG)=S$
10120 RG=RG-1
10130 I=1
10140 X$=A$(I)
10150 P=0:REM FLAG FUER NICHT GEFUNDEN
10160 IF 2*I<=RG AND P=0 THEN 10200
10170 A$(I)=X$
10180 GOSUB 3000: GOTO 10050
10190 GOTO 10300: REM ENDE
10200 REM FELDVARIABLE A$(I) EINORDNEN
10210 J=2*I
10220 IF J<RG THEN IF A$(J)<A$(J+1)THEN J=J+1
10230 IF X$>=A$(J) THEN 10260
10240 A$(I)=A$(J)
10250 I=J:GOTO 10160
10260 P=1:REM FLAG FUER PLATZ GEFUNDEN
10270 GOTO 10160
10280 :
10290 :
10300 REM ENDE