14090 REM EINFACHE SORTIERROUTINE
14091 REM ZUNAECHST ZAEHLERSTAND AUF 0
15000 F = 0
15005 REM HIER BEGINNT DIE SORTIERSCHLEIFE
15010 FOR A = 0 TO 9
15015 :  REM TEXT IN RICHTIGER REIHENFOLGE?
15020 :  IF A$(A) < A$(A+1) THEN 15070
15025 :  REM WENN NICHT, DANN TAUSCHEN
15030 :  B$ = A$(A)
15040 :  A$(A) = A$(A+1)
15050 :  A$(A+1) = B$
15055 :  REM WENN GETAUSCHT, DANN FEHLER MERKEN
15060 :  F = 1
15065 :  REM NAECHSTES WORT TESTEN
15070 NEXT A
15075 REM WENN KEIN FEHLER AUFTRAT, FERTIG
15080 IF F = 0 THEN 15110
15085 REM SONST ZUNAECHST FEHLER LOESCHEN
15090 F = 0
15095 REM DANN NOCHMAL SCHLEIFE DURCHLAUFEN
15100 GOTO 15010
15110 RETURN