home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 93 / 64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_B.d64 / quicksort-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  230b  |  13 lines
  1. 5 ifa=0thena=1:load"quicksort m 1",8,1
  2. 10 dim a(20):print chr$(147)
  3. 12 print"unsortiert..."
  4. 20 fori=1to20
  5. 30 a(i)=int(rnd(1)*9999)+1:print a(i)
  6. 40 next
  7. 50 sys(49164),a(1),a(20)
  8. 52 poke214,1:poke211,20:sys58640
  9. 53 print"sortiert..."
  10. 60 fori=1to20
  11. 70 printtab(20)a(i)
  12. 80 next
  13.