#COMPILE EXE "s52_type_cast.exe"
' Sample: Working with different numeric types
FUNCTION PBMAIN() AS LONG
    DIM i AS INTEGER, l AS LONG, s AS SINGLE, d AS DOUBLE
    i = 123
    l = 456789
    s = 3.14
    d = 2.718281828
    PRINT "INTEGER:"; i
    PRINT "LONG:"; l
    PRINT "SINGLE:"; s
    PRINT "DOUBLE:"; d
    PRINT "Types mixed: i+l+s+d ="; i+l+s+d
    FUNCTION = 0
END FUNCTION
