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