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