PRINT
PRINT "バブルソートします。"
RANDOMIZE
INPUT PROMPT "乱数表を用いて何個の自然数を用意しますか？ ":n
PRINT
DIM a(n)
FOR i=1 TO n
   LET  a(i)=INT(RND*1000)
NEXT i

FOR i=1 TO n
   PRINT a(i);
NEXT i
PRINT
PRINT

CALL sort(a,n)

PRINT "並び替えた後 ："
PRINT
FOR i=1 TO n
   PRINT a(i);
NEXT i
PRINT
END


EXTERNAL SUB sort(a(),m)
FOR i=1 TO m-1
   FOR j=i+1 TO m
      IF a(i)>a(j) THEN
         LET t=a(j) 
         LET a(j)=a(i)
         LET a(i)=t
      END IF
   NEXT j
NEXT i
END SUB