main module Tables
%define print
%set print=false
%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:
		    Pete : integer
		    Joe  : integer
		    Tom  : integer
	    endselect
	    Last : integer
	endstructure

    static_T	: static STE initially 
			STE (kind: pattern_symbol, 
			Pete :8, Joe : 9, Tom : 10,
			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
	AAA := Static_T .Pete
%if print
	Print_it ()
%endif
	AAA := Static_T .Joe
%if print
	Print_it ()
%endif
	AAA := Static_T .Tom
%if print
	Print_it ()
%endif
endmodule