PROGRAM "forby"

DECLARE FUNCTION Entry()

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