home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 July / 64er_Magazin_95-07_1995_Markt__Technik_de_Side_A.d64 / quicktester (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  532 b   |  33 lines
  1. 2 ifpeek(2051)<>3thenpoke2051,3:load"quicksort.obj",8,1
  2. 5 rem bitte zeile 2 genauso eingeben
  3. 10 input "anzahl=  100[157][157][157][157][157]";a
  4. 20 dim a$(a)
  5. 23 rem
  6. 25 rem  jedes element mit 3 zeichen
  7. 28 rem
  8. 30 for i = 1 to a
  9. 35 : for j = 0 to 2
  10. 40 :   a$(i) = a$(i)+chr$(rnd(1)*26+65)
  11. 50 : next j
  12. 55 next i
  13. 56 rem
  14. 57 rem       elememte ausgeben
  15. 58 rem
  16. 60 for i = 1 to a
  17. 63 : print a$(i);" ";
  18. 65 next i
  19. 66 print
  20. 67 rem
  21. 68 rem       elemente sortieren
  22. 69 rem
  23. 70 ti$ = "000000"
  24. 74 sys 52000
  25. 76 t = ti
  26. 77 rem
  27. 78 rem       elemente ausgeben
  28. 79 rem
  29. 80 for i= 1 to a
  30. 85 : print a$(i);" ";
  31. 90 next i
  32. 95 print t/60
  33.