PRINT
PRINT "自然数を２分割します。"
PRINT
INPUT PROMPT "１００以下の自然数？ ":S
PRINT
LET Q=INT(S/2)+1
DIM A(2,50)
DIM T(2,Q)
CALL BUN2(S,T)
FOR i=1 TO 2
   FOR j=1 TO Q
      PRINT USING "####":T(i,j);
   NEXT j
   PRINT
NEXT i
PRINT
FOR i=1 TO Q
   PRINT USING "####":T(1,i)+T(2,i);
NEXT i
PRINT
PRINT 
END

EXTERNAL SUB BUN2(N,A(,))      ! ２分割します。ただし、100以下の自然数について
LET M=INT(N/2)+1
FOR i=1 TO M
   LET A(1,i)=i-1
   LET A(2,i)=N-i+1
NEXT i
END SUB