Print first ten no.using sub.

 Print first ten number using sub procedure.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES ()

A=1

FOR I=1 TO 10

PRINT"A

A=A+2

NEXT I

ENDSUB