' All Types — Declare and print every PBXA64 numeric type
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL b AS BYTE
    LOCAL w AS WORD
    LOCAL dw AS DWORD
    LOCAL l AS LONG
    LOCAL q AS QUAD
    LOCAL s AS SINGLE
    LOCAL d AS DOUBLE
    LOCAL e AS DOUBLE
    LOCAL c AS DOUBLE

    b = 255
    w = 65535
    dw = 4294967295
    l = -12345
    q = 9999999999
    s = 3.14159
    d = 2.718281828459045
    e = 1.234567890123456789
    c = 1234.5678

    PRINT "BYTE     = " + STR$(b)
    PRINT "WORD     = " + STR$(w)
    PRINT "DWORD    = " + STR$(dw)
    PRINT "LONG     = " + STR$(l)
    PRINT "QUAD     = " + STR$(q)
    PRINT "SINGLE   = " + STR$(s)
    PRINT "DOUBLE   = " + STR$(d)
    PRINT "DOUBLE = " + STR$(e)
    PRINT "DOUBLE = " + STR$(c)

    FUNCTION = 0
END FUNCTION
