RosettaCodeData/Task/Loops-For/BASIC/loops-for-7.basic

#APPTYPE CONSOLE
FOR dim i = 1 TO 5
    FOR dim j = 1 TO i
        PRINT "*";
    NEXT j
    PRINT
NEXT i
Pause