Piramide di asterischi in QB64

Questo codice genera una piramide di asterischi usando un ciclo for in QB64:

DIM asterisks AS INTEGER

asterisks = 1

FOR i = 1 TO 20
    FOR j = 20 TO i STEP -1
        PRINT " ";
    NEXT j
    FOR k = 1 TO asterisks
        PRINT "*";
    NEXT k
    asterisks = asterisks + 2
    PRINT
NEXT i

END