' Fixed arrays as TYPE fields and SIZEOF
#COMPILE EXE
#DIM ALL

TYPE Matrix
    rows AS LONG
    cols AS LONG
    data0 AS LONG
END TYPE

TYPE Buffer
    id AS LONG
    bytes0 AS LONG
END TYPE

FUNCTION PBMAIN() AS LONG
    LOCAL m AS Matrix
    LOCAL b AS Buffer

    m.rows = 10
    m.cols = 10
    m.data0 = 42
    b.id = 255
    b.bytes0 = 128

    PRINT "Matrix rows:" + STR$(m.rows)
    PRINT "Matrix cols:" + STR$(m.cols)

    PRINT "TYPE array field operations complete."
    FUNCTION = 0
END FUNCTION
