Print natural no. Using sub.

Print natural number from 1 to 5 using sub procedure.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I=1 TO 5
PRINT I
NEXT I
END SUB