RosettaCodeData/Task/Loops-For/XBasic/loops-for.basic

PROGRAM "for"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  FOR i% = 1 TO 5
    FOR j% = 1 TO i%
      PRINT "*";
    NEXT j%
    PRINT
  NEXT i%
END FUNCTION
END PROGRAM