main module Tables
%define print
%set print=true
%if print
    use	TEXTIO
%otherwise
    %set debug_print_ccode=true
%endif
declare
    AAA: static integer
    Symbol_kind is [Joe, reserved_symbol, pattern_symbol]
    SAM : static Symbol_kind initially reserved_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
	    Last : integer
	endstructure

    static_T	: static STE initially 
			STE (kind: reserved_symbol, symbol_type: 5,
			Last: 7)

enddeclare

%if print
procedure Print_it ()
	out_line (TTY, " ")
	out_integer (TTY, AAA)
	out_record (TTY)
endprocedure
%endif
	AAA := Static_T .symbol_type
%if print
	Print_it ()
%endif
	AAA := Static_T .Last
%if print
	Print_it ()
%endif
endmodule