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

Module EXPORTSTR
	Export B_type
	Declare
		Struct_type is
			Structure
				A_1: 7 bit integer initially 4
				A_2: integer
			EndStructure
		blank_char is char initially $.
		stg_type is packed array [1..3] of blank_char

		array_type is packed array [1..400] of 4 bit integer
		B_type is
			Structure
			    stg	: stg_type initially  ("AB")
			    B_1	: struct_type initially struct_type ( A_1: 7, A_2: 9 )
			    B_2	: array_type initially array_type (
					[100] : 1,
					[200] : 2)
			EndStructure
	EndDeclare
EndModule