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(),n)
LET m=n
FOR i=1 TO n
   LET k=1
   DO WHILE a(k)<a(m)
      LET k=k+1
   LOOP
   IF k=m THEN 
      LET m=m-1
      GOTO 10
   END IF
   LET t=a(m)
   FOR s=m TO k+1 STEP -1
      LET a(s)=a(s-1)
   NEXT s
   LET a(k)=t
10 NEXT i
END SUB