#COMPILE EXE "s47_array_of_udt.exe"
' Sample: Array of TYPE
TYPE Student
    name AS STRING * 32
    score AS LONG
END TYPE
FUNCTION PBMAIN() AS LONG
    DIM students(2) AS Student, i AS LONG
    students(0).name = "Alice": students(0).score = 95
    students(1).name = "Bob": students(1).score = 87
    students(2).name = "Charlie": students(2).score = 92
    PRINT "Student Scores:"
    FOR i = 0 TO 2
    PRINT "  "; students(i).name; ":"; students(i).score
    NEXT i
    FUNCTION = 0
END FUNCTION
