//---------------------------------------------------------------------
// example of importing a complicated structure with initial conditions
//---------------------------------------------------------------------
Main Module IMPORTSTR

	use TEXTIO
	Use EXPORTSTR
//	import B_type from EXPORTSTR	// this wont work

	Declare
		C_dyn		: B_type	
		C_static	: static B_Type	
	EndDeclare

    procedure T ( A : in ref B_type)
	out_string (TTY, A . stg)
	out_string (TTY, " . B_1 . A_1 = ")
	out_integer (TTY, A . B_1 . A_1)
	out_string (TTY, " . B_1 . A_2 = ")
	out_integer (TTY, A . B_1 . A_2)
	out_record (TTY) 
	out_string (TTY, " . B_2 [100] = ")
	out_integer(TTY, A . B_2 [100])
	out_string (TTY, " . B_2 [200] = ")
	out_integer(TTY, A . B_2 [200])
	out_record (TTY)
    endprocedure

    T (C_static)
    T (C_dyn)
EndModule