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

PRINT
PRINT "１〜ｎの自然数をアットランダムに並べます。"
PRINT
INPUT PROMPT "ｎ＝？ ":n
PRINT
DIM A(n),B(n),C(n),D(n)
FOR i=1 TO n
   LET A(i)=i
NEXT i
FOR i=1 TO n
   LET B(i)=INT(RND*100000)
NEXT i
FOR i=1 TO n
   LET C(i)=B(i)
NEXT i

CALL sort(B,n)

FOR i=1 TO n
   LET Z=1
   DO WHILE B(i)<>C(Z)
      LET Z=Z+1
   LOOP
   LET D(i)=Z
NEXT i
 
PRINT
FOR i=1 TO n
   PRINT A(i);
NEXT i
PRINT
PRINT
PRINT "  アットランダムに数値を与える ";
FOR i=1 TO n
   PRINT C(i);
NEXT i
PRINT
PRINT
PRINT "  小さい順に並び替える         ";
FOR i=1 TO n
   PRINT B(i);
NEXT i
PRINT
PRINT
FOR i=1 TO n
   PRINT D(i);
NEXT i
PRINT
END