home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 August / 64er_Magazin_92-08_1992_Markt__Technik_de_Side_A.d64 / sort (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.