1 2 3 4 5 6 7 8 9 10 11 12
INTERFACE Cell; CONST Brand = "Cell"; TYPE T = RECORD X,Y,D:INTEGER := 0; END; END Cell.