PRINT
INPUT PROMPT "自然数？　":N
PRINT N;"に１を足します。"
PRINT N;"から１を引きします。"
PRINT
PRINT N;"＋ 1 ＝ ";TASU1(N)
LET M = N
CALL HIKU1(N)
PRINT M;"− 1 ＝ ";N  
END

EXTERNAL FUNCTION TASU1(X)
LET TASU1 = X+1
END FUNCTION

EXTERNAL SUB HIKU1(X)
LET X = X-1
END SUB