DECLARE SUB  SERIES ( )
CLS
CALL SUB SERIES
END

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