SUB FloydTriangle (fila)
    DIM numColum(fila)
    FOR colum = 1 TO fila
        numColum(colum) = LEN(STR$(colum + fila * (fila - 1) / 2))
    NEXT colum

    PRINT "output for "; STR$(fila): PRINT
    thisNum = 1
    FOR r = 1 TO fila
        FOR colum = 1 TO r
            PRINT RIGHT$("  " + STR$(thisNum), numColum(colum)); " ";
            thisNum = thisNum + 1
        NEXT colum
        PRINT
    NEXT
END SUB

FloydTriangle (5)
PRINT
FloydTriangle (14)