' Nested TYPE definitions
#COMPILE EXE
#DIM ALL

TYPE Employee
    id AS LONG
    firstName AS STRING
    lastName AS STRING
    street AS STRING
    city AS STRING
    zip AS STRING
    hourlyRate AS DOUBLE
    annualSalary AS DOUBLE
END TYPE

FUNCTION PBMAIN() AS LONG
    LOCAL emp AS Employee
    emp.id = 101
    emp.firstName = "Alice"
    emp.lastName = "Smith"

    PRINT "Employee ID:" + STR$(emp.id)
    PRINT "First: " + TRIM$(emp.firstName)
    PRINT "Last: " + TRIM$(emp.lastName)

    PRINT "Nested TYPE operations complete."
    FUNCTION = 0
END FUNCTION
