home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 77 / Tiger_Disk_077_20xx_Tiger-Crew-Disk_de_Side_B.d64 / sortierprogramm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  574b  |  25 lines
  1. 1 d=53280:poked,.:poked+1,.
  2. 2 print"[147][155]        alphabetisches sortieren        ":dima$(1000)
  3. 3 print"die begriffe bitte !"
  4. 4 print"(ende mit '^'!)"
  5. 5 z=1
  6. 6 printz;": ";:poke19,64:inputa$(z):print
  7. 7 ifa$(z)="^"thena$(z)="":z=z-1:goto10
  8. 8 ifz>999then10
  9. 9 z=z+1:goto6
  10. 10 poke19,0:print"[147]":print
  11. 11 fori=1toz-1
  12. 12 j=i+1
  13. 13 fork=itoz
  14. 14 ifa$(k)>a$(j)then16
  15. 15 j=k
  16. 16 nextk
  17. 17 w$=a$(j)
  18. 18 a$(j)=a$(i)
  19. 19 a$(i)=w$
  20. 20 printa$(i):x=x+1:ifx/23=int(x/23)thenpoke198,0:wait198,1:poke198,0:print"[147]"
  21. 21 nexti:printa$(z)
  22. 22 poke198,0:wait198,1:poke198,0:print"                drucken ?        "
  23. 23 geta$:ifa$<>"j"anda$<>"n"then23
  24. 24 ifa$="j"thenopen4,4:cmd4:fori=1toz:printa$(i):next:print#4:close4
  25.