main module outref

use	TEXTIO

	procedure o
	    param
		a:	out ref packed array[1..?n] of char initially "AB"
		b:	out ref packed array[1..8] of char initially "12345678"
		c:	out ref packed array[1..10] of char initially "abcdefghij"
		d:	out ref integer initially 3
	    endparam

	endprocedure

	declare
		s1:	packed array[1..6] of char
		s2:	packed array[1..8] of char
		s3:	packed array[1..10] of char
		i:	integer
	enddeclare

	o(s1,s2,s3,i)

	out_line (tty, s1)
	out_line (tty, s2)
	out_line (tty, s3)
	out_integer (tty, i, ret: true)

endmodule