#COMPILE EXE "s45_basic_udt.exe"
' Sample: Basic user-defined TYPE
TYPE Person
    name AS STRING * 32
    age AS LONG
    height AS SINGLE
END TYPE
FUNCTION PBMAIN() AS LONG
    DIM p AS Person
    p.name = "Alice"
    p.age = 30
    p.height = 1.65
    PRINT "Name:"; p.name
    PRINT "Age:"; p.age
    PRINT "Height:"; p.height
    FUNCTION = 0
END FUNCTION
