HSPTV!掲示板

;バブルソート
kazu=10 ;データ数
dim data,kazu

randomize
for k,0,kazu ;データに、乱数でデータを入力する
   data(k)=rnd(kazu)
next

repeat
flg=0
for k,0,kazu-1
   if data(k)>data(k+1) {
      w=data(k)
      data(k)=data(k+1)
      data(k+1)=w
      flg=1
   }
next
if flg=0 :break
loop

;表示
for k,0,kazu
   mes kazu(k)
next
stop

そういうのはWikiに書き込んでください。