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