PRINT NATURAL NOS. FROM 1 TO 5(SUB)

DECLARE SUB SERIES( )
CLS
CALL SERIES
END

SUB SERIES ( )
FOR I= 1 TO 5
NEXT I
END SUB