home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9208a.d64 / sort (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  564b  |  23 lines
  1. 14090 REM EINFACHE SORTIERROUTINE
  2. 14091 REM ZUNAECHST ZAEHLERSTAND AUF 0
  3. 15000 F = 0
  4. 15005 REM HIER BEGINNT DIE SORTIERSCHLEIFE
  5. 15010 FOR A = 0 TO 9
  6. 15015 :  REM TEXT IN RICHTIGER REIHENFOLGE?
  7. 15020 :  IF A$(A) < A$(A+1) THEN 15070
  8. 15025 :  REM WENN NICHT, DANN TAUSCHEN
  9. 15030 :  B$ = A$(A)
  10. 15040 :  A$(A) = A$(A+1)
  11. 15050 :  A$(A+1) = B$
  12. 15055 :  REM WENN GETAUSCHT, DANN FEHLER MERKEN
  13. 15060 :  F = 1
  14. 15065 :  REM NAECHSTES WORT TESTEN
  15. 15070 NEXT A
  16. 15075 REM WENN KEIN FEHLER AUFTRAT, FERTIG
  17. 15080 IF F = 0 THEN 15110
  18. 15085 REM SONST ZUNAECHST FEHLER LOESCHEN
  19. 15090 F = 0
  20. 15095 REM DANN NOCHMAL SCHLEIFE DURCHLAUFEN
  21. 15100 GOTO 15010
  22. 15110 RETURN
  23.