//----------------------------------------------------------------------
// Example of exporting a complicated structure with initial conditions
//---------------------------------------------------------------------

Module EXPORTER
    Export Big_Structure_Type
    Declare
	// make sure substructures with indentical field names work

	Substruct_1_type is
		Structure
			A_1: 7 bit integer initially 4
			A_2: integer
		EndStructure
	Substruct_2_type is
		Structure
			A_1: 7 bit integer //initially 4
			A_2: integer
		EndStructure

	blank_char is char initially $_

	string_type is packed array [1..3] of blank_char
	array_type is packed array [1..400] of 4 bit integer

	Big_structure_type is
	    Structure
		String	: string_type initially  ("AB")
		B_1	: substruct_1_type 
			initially substruct_1_type ( A_1: 1, A_2: 2 )
		B_2	: substruct_2_type 
			initially substruct_2_type ( A_1: 3, A_2: 4 )
		Array_1	: array_type 
			initially array_type ([100] : 1, [200] : 2)
	    EndStructure
    EndDeclare
EndModule