' Simple benchmark program - PvE.
' The higher the outcome, the better the performance.

DECLARE t TYPE double

t = 0

end = NOW + 10

WHILE NOW < end
    INCR t, 0.0001
WEND

PRINT "Result is: ", t