home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 35 / Commodore_Disc_35_19xx_-_de.d64 / select-sort.txt (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  471b  |  16 lines
  1. 100 dim e$(10),a$(10)
  2. 110 data "ram","monitor","floppy","disc","rom","computer","tasten","joystick","drucker","basic"
  3. 120 fori=1to10:reade$(i):next
  4. 130 d=10
  5. 140 fori=1tod:a$(i)=e$(i):next
  6. 150 at=ti:gosub210:at=ti-at
  7. 160 fori=1tod:printe$(i),a$(i):next
  8. 170 print:printat:end
  9. 180 rem ------------------------------
  10. 190 rem selekt-sort text
  11. 200 rem ------------------------------
  12. 210 forj=2tod:vw$=a$(j-1):a=j-1:fori=jtod
  13. 220 ifa$(i)<vw$thenvw$=a$(i):a=i
  14. 230 nexti:a$(a)=a$(j-1):a$(j-1)=vw$:nextj:return
  15. 240 rem ------------------------------
  16.