//---------------------------------------------------------------------------
// test of parameter options
//---------------------------------------------------------------------------
%set V72_parameter_conventions=true
%define Parameter_Diagnostics
%Set Parameter_Diagnostics = false

main module PARAMETES
    use	TEXTIO

	out_string (TTY, "V72_Parameter_conventions = ")
%if V72_Parameter_conventions 
	out_string (TTY, "TRUE")
%otherwise
	out_string (TTY, "FALSE")
%endif
	out_record (TTY)

    declare
	I1  : static integer initially 1
	I2  : static integer initially 2
	I3  : static integer initially 3
	I4  : static integer initially 4
	I5  : static integer initially 5
	I6  : static integer initially 6
	I7  : static integer initially 7
	I8  : static integer initially 8
	I9  : static integer initially 9
	I10 : static integer initially 10
	I11 : static integer initially 11
	I12 : static integer initially 12
	I13 : static integer initially 13
	I14 : static integer initially 14
	I15 : static integer initially 15
	I16 : static integer initially 16
	I17  : static integer initially 17
	I18  : static integer initially 18
	I19  : static integer initially 19
	I20 : static integer initially 20
	I21 : static integer initially 21
	I22 : static integer initially 22
	I23 : static integer initially 23
	I24 : static integer initially 24
    enddeclare



procedure PRINT_THEM 
    param 
	P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12 : in val integer
	P13, P14, P15, P16, P17, P18, P19, P20, P21, P22, P23, P24 : in val integer
    endparam

	out_integer 	(TTY, P1, 	"Normal_IN_REF_NoInit =<HT>")
	out_integer	(TTY, I1,	"<HT>I1 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P2, 	"Normal_INOUT_REF_NoInit =")
	out_integer	(TTY, I2,	"<HT>I2 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P3, 	"Normal_OUT_REF_NoInit =<HT>")
	out_integer	(TTY, I3,	"<HT>I3 =<HT> ")
	out_record	(TTY)
	//-----------
	out_integer	(TTY, P4,	"Normal_IN_VAL_NoInit =<HT>")
	out_integer	(TTY, I4,	"<HT>I4 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P5,	"Normal_INOUT_VAL_NoInit =")
	out_integer	(TTY, I5,	"<HT>I5 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P6,	"Normal_OUT_VAL_NoInit =<HT>")	//6
	out_integer	(TTY, I6,	"<HT>I6 =<HT> ")
	out_record	(TTY)
	//----------
%if Parameter_Diagnostics 
	out_integer	(TTY, P7,	"Normal_IN_REF_Init =<HT>")	// 7
%otherwise
	out_string	(TTY, "Normal_IN_REF_Init =<HT>ILLEGAL")		// 7
%endif
	out_integer	(TTY, I7,	"<HT>I7 =<HT> ")
	out_record	(TTY)

%if Parameter_Diagnostics 
	out_integer	(TTY, P8, 	"Normal_INOUT_REF_Init =<HT>")	// 8
%otherwise
	out_string	(TTY, "Normal_INOUT_REF_Init =<HT>ILLEGAL")
%endif
	out_integer	(TTY, I8,	"<HT>I8 =<HT> ")
	out_record	(TTY)

%if Parameter_Diagnostics 
	out_integer	(TTY, P9,	"Normal_OUT_REF_Init =<HT>")
%otherwise
	out_string	(TTY, "Normal_OUT_REF_Init =<HT>ILLEGAL")
%endif
	out_integer	(TTY, I9,	"<HT>I9 =<HT> ")
	out_record	(TTY)
	//----------
%if Parameter_Diagnostics 
	out_integer	(TTY,	P10,	"Normal_IN_VAL_Init =<HT>")	// 10
%otherwise
	out_string	(TTY,	"Normal_IN_VAL_Init =<HT>ILLEGAL")	// 10
%endif
	out_integer	(TTY, I10,	"<HT>I10 =<HT> ")
	out_record	(TTY)

%if Parameter_Diagnostics
	out_integer	(TTY,	P11, "Normal_INOUT_VAL_Init =<HT>")		// 11
%otherwise
	out_string	(TTY,	"Normal_INOUT_VAL_Init =<HT>ILLEGAL")	// 11
%endif
	out_integer	(TTY, I11,	"<HT>I11 =<HT> ")
	out_record	(TTY)

	out_integer	(TTY, P12,	"Normal_OUT_VAL_Init =<HT>")
	out_integer	(TTY, I12,	"<HT>I12 =<HT> ")
	out_record	(TTY)

	//----------Optionals---------------------------------

	out_integer	(TTY, P13,	"Op_IN_REF_NoInit =<HT>")
	out_integer	(TTY, I13,	"<HT>I13 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P14,	"Op_INOUT_REF_NoInit =<HT>")
	out_integer	(TTY, I14,	"<HT>I14 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P15,	"Op_OUT_REF_NoInit =<HT>")
	out_integer	(TTY, I15,	"<HT>I15 =<HT> ")
	out_record	(TTY)
	//-----------
	out_integer	(TTY, P16,	"Op_IN_VAL_NoInit =<HT>")
	out_integer	(TTY, I16,	"<HT>I16 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P17,	"Op_INOUT_VAL_NoInit =<HT>")
	out_integer	(TTY, I17,	"<HT>I17 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P18,	"Op_OUT_VAL_NoInit =<HT>")	// 18
	out_integer	(TTY, I18,	"<HT>I18 =<HT> ")
	out_record	(TTY)
	//---------
	out_integer	(TTY, P19,	"Op_IN_REF_Init =<HT>")
	out_integer	(TTY, I19,	"<HT>I19 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P20,	"Op_INOUT_REF_Init =<HT>")
	out_integer	(TTY, I20,	"<HT>I20 =<HT> ")
	out_record	(TTY)

%if Parameter_Diagnostics
	out_integer	(TTY, P21,	"Op_OUT_REF_Init =<HT>")
%otherwise
	out_string	(TTY, "Op_OUT_REF_Init =<HT>ILLEGAL")
%endif
	out_integer	(TTY, I21,	"<HT>I21 =<HT> ")
	out_record	(TTY)
	//----------
	out_integer	(TTY, P22,	"Op_IN_VAL_Init =<HT>")
	out_integer	(TTY, I22,	"<HT>I22 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P23,	"Op_INOUT_VAL_Init =<HT>")
	out_integer	(TTY, I23,	"<HT>I23 =<HT> ")
	out_record	(TTY)
	out_integer	(TTY, P24,	"Op_OUT_VAL_Init =<HT>")
	out_integer	(TTY, I24,	"<HT>I24 =<HT> ")
	out_record	(TTY)
endprocedure




  procedure LEVEL_1				
    param						
	Math_Flag : boolean    
    //----------Non optionals-------------------------
	Normal_IN_REF_NoInit	: IN 	REF Integer			//1
	Normal_INOUT_REF_NoInit	: INOUT	REF Integer			//2
	Normal_OUT_REF_NoInit	: OUT	REF Integer			//3
        //-----------	
	Normal_IN_VAL_NoInit	: IN 	VAL Integer			//4
	Normal_INOUT_VAL_NoInit	: INOUT	VAL Integer			//5
	Normal_OUT_VAL_NoInit	: OUT	VAL Integer			//6
        //----------
%if Parameter_Diagnostics
	Normal_IN_REF_Init	: IN 	REF Integer	initially -7
	Normal_INOUT_REF_Init	: INOUT	REF Integer	initially -8
	Normal_OUT_REF_Init	: OUT	REF Integer	initially -9
%endif
        //----------
%if Parameter_Diagnostics
	Normal_IN_VAL_Init	: IN 	VAL Integer	initially -10	//10
	Normal_INOUT_VAL_Init	: INOUT	VAL Integer	initially -11	//11
%endif
	Normal_OUT_VAL_Init	: OUT	VAL Integer	initially -12	//12

        //----------Optionals---------------------------------

	Op_IN_REF_NoInit	: Optional	IN 	REF Integer 	//13
	Op_INOUT_REF_NoInit	: Optional	INOUT	REF Integer 	//14
	Op_OUT_REF_NoInit	: Optional	OUT	REF Integer 	//15
        //-----------	
 	Op_IN_VAL_NoInit	: Optional	IN 	VAL Integer 	//16
	Op_INOUT_VAL_NoInit	: Optional	INOUT	VAL Integer 	//17
	Op_OUT_VAL_NoInit	: Optional	OUT	VAL Integer 	//18
        //---------
	Op_IN_REF_Init		: Optional	IN 	REF Integer	initially -19
	Op_INOUT_REF_Init	: Optional	INOUT	REF Integer	initially -20
%if Parameter_Diagnostics
	Op_OUT_REF_Init		: Optional	OUT	REF Integer	initially -21
%endif
        //----------
	Op_IN_VAL_Init		: Optional	IN 	VAL Integer	initially -22
	Op_INOUT_VAL_Init	: Optional	INOUT	VAL Integer	initially -23
	Op_OUT_VAL_Init		: Optional	OUT	VAL Integer	initially -24
        //----------
    endparam



	tty_line ("	")
	tty_line ("--------At start of procedure: (initial conditions are -)")


	PRINT_THEM	(
		Normal_IN_REF_NoInit,
		Normal_INOUT_REF_NoInit,
		Normal_OUT_REF_NoInit,
		//--------
		Normal_IN_VAL_NoInit,
		Normal_INOUT_VAL_NoInit,
		Normal_OUT_VAL_NoInit,
		//--------
%if Parameter_Diagnostics
		Normal_IN_REF_Init,	
		Normal_INOUT_REF_Init,	
		Normal_OUT_REF_Init,
%otherwise
		0,	//	Normal_IN_REF_Init 	- ILLEGAL
		0,	//
		0,	//
%endif

		//----------
%if Parameter_Diagnostics
		Normal_IN_VAL_Init, 
		Normal_INOUT_VAL_Init,
%otherwise
		0,	//	Normal_IN_VAL_Init 	- ILLEGAL
		0,	//	Normal_INOUT_VAL_Init 	- ILLEGAL
%endif

		Normal_OUT_VAL_Init,
		//----------Optionals---------------------------------

		Op_IN_REF_NoInit,
		Op_INOUT_REF_NoInit,
		Op_OUT_REF_NoInit,
		//-----------
		Op_IN_VAL_NoInit,
		Op_INOUT_VAL_NoInit,
		Op_OUT_VAL_NoInit,
		//---------
		Op_IN_REF_Init,
		Op_INOUT_REF_Init,
%if Parameter_Diagnostics
		Op_OUT_REF_Init,
%otherwise
		0,		//- CANT READ
%endif
		//----------
		Op_IN_VAL_Init,
		Op_INOUT_VAL_Init,
		Op_OUT_VAL_Init)


	//--- put new values into variables
    if Math_Flag do

	//----------Non optionals-------------------------
	///Normal_IN_REF_NoInit		*= +100		Read only
	Normal_INOUT_REF_NoInit		*= +100
	Normal_OUT_REF_NoInit		:= I3 +100
	//-----------
	Normal_IN_VAL_NoInit		*= +100
	Normal_INOUT_VAL_NoInit		*= +100
	Normal_OUT_VAL_NoInit		:= I6 +100
	//----------
	///Normal_IN_REF_Init		*= +100		Read only
%if Parameter_Diagnostics 
	Normal_INOUT_REF_Init		*= +100
	Normal_OUT_REF_Init		:= I9 +100
%endif
	//----------
%if Parameter_Diagnostics
	Normal_IN_VAL_Init		*= +100
	Normal_INOUT_VAL_Init		*= +100
%endif
	Normal_OUT_VAL_Init		:= I12 + 100

	//----------Optionals---------------------------------

	////Op_IN_REF_NoInit	*= +100			Read Only
	Op_INOUT_REF_NoInit	*= +100
	Op_OUT_REF_NoInit	:= I15 +100
	//-----------
	Op_IN_VAL_NoInit	*= +100
	Op_INOUT_VAL_NoInit	*= +100
	Op_OUT_VAL_NoInit	:= I18 +100
	//---------
	///Op_IN_REF_Init	*= +100			Read only
	Op_INOUT_REF_Init	*= +100
%if Parameter_Diagnostics 
	Op_OUT_REF_Init		:= I21 + 100
%endif
	//----------
	Op_IN_VAL_Init		*= +100
	Op_INOUT_VAL_Init	*= +100
	Op_OUT_VAL_Init		:= I24 +100
	//----------


	tty_line (" ")
	tty_line ("--WITHIN PROCEDURE ------ after adding 100 to out values:")


	PRINT_THEM	(
		Normal_IN_REF_NoInit,
		Normal_INOUT_REF_NoInit,
		Normal_OUT_REF_NoInit,
		//--------
		Normal_IN_VAL_NoInit,
		Normal_INOUT_VAL_NoInit,
		Normal_OUT_VAL_NoInit,
		//--------
%if Parameter_Diagnostics
		Normal_IN_REF_Init,	
		Normal_INOUT_REF_Init,	
		Normal_OUT_REF_Init,
%otherwise
		0,	//	Normal_IN_REF_Init 	- ILLEGAL
		0,	//
		0,	//
%endif

		//----------
%if Parameter_Diagnostics
		Normal_IN_VAL_Init, 
		Normal_INOUT_VAL_Init,
%otherwise
		0,	//	Normal_IN_VAL_Init 	- ILLEGAL
		0,	//	Normal_INOUT_VAL_Init 	- ILLEGAL
%endif

		Normal_OUT_VAL_Init,
		//----------Optionals---------------------------------

		Op_IN_REF_NoInit,
		Op_INOUT_REF_NoInit,
		Op_OUT_REF_NoInit,
		//-----------
		Op_IN_VAL_NoInit,
		Op_INOUT_VAL_NoInit,
		Op_OUT_VAL_NoInit,
		//---------
		Op_IN_REF_Init,
		Op_INOUT_REF_Init,
%if Parameter_Diagnostics
		Op_OUT_REF_Init,
%otherwise
		0,		//- CANT READ
%endif
		//----------
		Op_IN_VAL_Init,
		Op_INOUT_VAL_Init,
		Op_OUT_VAL_Init)

      endif

    endprocedure



    Procedure RESET_VALUES ()
	I1 := 1
	I2 := 2
	I3 := 3
	I4 := 4
	I5 := 5
	I6 := 6
	I7 := 7
	I8 := 8
	I9 := 9
	I10:= 10
	I11:= 11
	I12:= 12
	I13:= 13
	I14:= 14
	I15:= 15
	I16:= 16
	I17:= 17
	I18:= 18
	I19:= 19
	I20:= 20
	I21:= 21
	I22:= 22
	I23:= 23
	I24:= 24
    endprocedure


	tty_line (" ")
	tty_line ("----- TEST SUPPLYING ALL OPTIONAL VALUES, DOING MATH------")

	RESET_VALUES ()
	LEVEL_1	(true,
		I1, I2, I3, I4, I5, I6,
%if Parameter_Diagnostics
 		I7,
		I8,  I9,
		I10, I11,
%endif 
		I12, I13, I14, I15, I16, I17,I18, 
		I19, I20 
%if Parameter_Diagnostics
		,I21
%endif
		, I22, I23, I24  
		)
	tty_line	("  ")
	tty_line	("--------------After return from Procedure")

	PRINT_THEM 	(

		I1, I2, I3, I4, I5, I6, I7, I8, I9, 
		I10, I11, 
		I12, I13, I14, I15, I16, I17, 
		I18, I19, I20, I21, I22, I23, I24)  

	tty_line (" ")
	tty_line ("----- TEST WITHOUT SUPPLYING OPTIONAL VALUES ------")

	RESET_VALUES ()

	LEVEL_1	(true,
		I1, I2, I3, I4, I5, I6,
%if Parameter_Diagnostics
 		I7,
		I8,  I9,
		I10, I11,
%endif 
		I12)

	tty_line	("  ")
	tty_line	("--------------After return from Procedure")

	PRINT_THEM 	(

		I1, I2, I3, I4, I5, I6, I7, I8, I9, 
		I10, I11, 
		I12, I13, I14, I15, I16, I17, 
		I18, I19, I20, I21, I22, I23, I24)  




	tty_line (" ")
	tty_line ("----- TEST SUPPLYING ALL OPTIONAL VALUES, NO MATH------")


	RESET_VALUES ()
	LEVEL_1	(false,
		I1, I2, I3, I4, I5, I6,
%if Parameter_Diagnostics
 		I7,
		I8,  I9,
		I10, I11,
%endif 
		I12, I13, I14, I15, I16, I17,I18, 
		I19, I20 
%if Parameter_Diagnostics
		,I21
%endif
		, I22, I23, I24  
		)
	tty_line	("  ")
	tty_line	("--------------After return from Procedure")

	PRINT_THEM 	(

		I1, I2, I3, I4, I5, I6, I7, I8, I9, 
		I10, I11, 
		I12, I13, I14, I15, I16, I17, 
		I18, I19, I20, I21, I22, I23, I24)  

	tty_line (" ")
	tty_line ("----- TEST WITHOUT SUPPLYING OPTIONAL VALUES ------")

	RESET_VALUES ()

	LEVEL_1	(false,
		I1, I2, I3, I4, I5, I6,
%if Parameter_Diagnostics
 		I7,
		I8,  I9,
		I10, I11,
%endif 
		I12)

	tty_line	("  ")
	tty_line	("--------------After return from Procedure")

	PRINT_THEM 	(

		I1, I2, I3, I4, I5, I6, I7, I8, I9, 
		I10, I11, 
		I12, I13, I14, I15, I16, I17, 
		I18, I19, I20, I21, I22, I23, I24)  


endmodule