RosettaCodeData/Task/Loops-For-with-a-specified-step/XBasic/loops-for-with-a-specified-step.basic

PROGRAM "forby"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  FOR i% = 0 TO 100 STEP 2
    PRINT FORMAT$("###", i%)
  NEXT i%
END FUNCTION
END PROGRAM