Qbasic to print natural no. from 1 to 5 using Sub

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

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