home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 May / 64er_Magazin_87-05_1987_Markt__Technik_de.d64 / swap-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  308b  |  10 lines
  1. 100 print "bitte warten. sortstrings werden erzeugt"
  2. 110 a=50:dim a$(a)
  3. 120 for i=1 to a:for ii=1 to 10:a$(i)=a$(i)+chr$(int(rnd(ti)*25)+65):next ii,i
  4. 130 for i=1 to a:print a$(i):next:t1=ti
  5. 140 for x=1 to a-1:for y=x+1 to a:if a$(x)<=a$(y) then 160
  6. 150 sys 49152,a$(x),a$(y)
  7. 160 next y,x
  8. 170 print:for i=1 to a:print a$(i):next
  9. 180 print "sortierzeit:"(ti-t1)/60"sec"
  10.