Wap to print first ten numbers

Wap to print first ten numbers

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I = 1 TO 10 STEP 2
PRINT I
NEXT I
END SUB