' CONST Declarations — Named constant values
#COMPILE EXE
#DIM ALL

CONST PI = 3.14159
CONST E = 2.71828
CONST MAX_ROWS = 50
CONST MAX_COLS = 80
CONST GREETING = "Hello from CONST"

FUNCTION PBMAIN() AS LONG
    LOCAL area AS SINGLE
    LOCAL radius AS LONG

    radius = 5
    area = PI * radius * radius

    PRINT "PI = "; PI
    PRINT "E = "; E
    PRINT "MAX_ROWS = "; MAX_ROWS
    PRINT "MAX_COLS = "; MAX_COLS
    PRINT GREETING
    PRINT "Area of circle r="; radius; " = "; area

    FUNCTION = 0
END FUNCTION
