Qbasic to print first ten odd numbers using Sub

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

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