main module Tables
%set debug_print_ccode=true
    use	TEXTIO
declare
    AAA: static integer
    BBB : static integer
    Symbol_kind is [Joe, reserved_symbol, pattern_symbol]

    STE is structure		
	    kind: Symbol_kind
	    select kind from
		case reserved_symbol:
		    symbol_type: 8 bit integer
		case pattern_symbol:
		    JJ : array [1..2] of integer
	    endselect
	endstructure

    STT is array [1..2] of STE		// symbol table type
    ST: static STT initially table STT (
	STE (kind: reserved_symbol, symbol_type: 3),
	STE (kind: reserved_symbol, symbol_type: 5))

enddeclare

	out_line (TTY, " ")
	AAA := ST [1] .symbol_type
	out_integer (TTY, AAA)
	out_record (TTY)
	BBB := ST [2] .symbol_type
	out_integer (TTY, BBB)
	out_record (TTY)
endmodule