' This program is a little demo to see how
' efficient the application is compared
' to other similar languages

DIM i AS INTEGER
DIM p AS INTEGER

DIM test AS FLOAT

i = 0
p = 0

WHILE i < 5000000
    IF p == 100000 THEN
        PRINT i
        p = 0
    END IF

    ' The meat of the application
    test = (3 * 4.5) / 12 + (34 * 78.999) / 12.3444
    test = (3 * 4.5) / 12 + (34 * 78.999) / 12.3444
    test = (3 * 4.5) / 12 + (34 * 78.999) / 12.3444

    i = i + 1
    p = p + 1
END WHILE

PRINT "All done!"