HP Pascal/iX Reference Manual (31502-90022)

3- 20
Permissible Operators
assignment (entire :=
record)
field selection .
Standard Procedures
read
readdir
write
writedir
Example
TYPE
word_type = (int, ch);
word = RECORD { variant part only with tag }
CASE word_tag: word_type OF
int: (number: integer);
ch : (chars : PACKED ARRAY [1..2] of char);
END;
polys = (circle, square, rectangle, triangle);
polygon = RECORD { fixed part and tagless variant part }
poly_color: (red, yellow, blue);
CASE polys OF
circle: (radius: integer);
square: (side: integer);
rectangle: (length, width: integer);
triangle: (base, height: integer);
END;