' #DIM ALL variable enforcement test
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL counter AS LONG
    LOCAL sName AS STRING
    LOCAL rate AS DOUBLE
    LOCAL flag AS LONG

    counter = 0
    sName = "DIM ALL test"
    rate = 9.99
    flag = 1

    PRINT "counter:"; counter
    PRINT "sName:"; sName
    PRINT "rate:"; rate
    PRINT "flag:"; flag

    counter = counter + 1
    PRINT "counter after increment:"; counter

    PRINT "#DIM ALL enforcement test complete."

    FUNCTION = 0
END FUNCTION
