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