MODULE	plotbatch

	EXPORT	plot_raw_data

    	use 	adbucket

	FUNCTION	plot_raw_data
	PARAM
		data_file_name	: IN REF PACKED ARRAY[ 1..?size ] OF CHAR
    		id_string 	: optional packed array [1..28] of char initially 
    					"YOUR MESSAGE HERE.          "
    				//	"1234567890123456789012345678"
    		out_device 	: optional integer initially 2
	ENDPARAM
	RETURNS	return_status : longword INITIALLY 1

	DECLARE
		bucket		: ARRAY[ 0..511, 0..100 ] OF 32 BIT INTEGER
		xscale		: PACKED ARRAY[ 1..32 ] OF CHAR
		yscale		: PACKED ARRAY[ 1..32 ] OF CHAR

		xfrom		: REAL
		yfrom		: REAL
		ivec		: 32 BIT INTEGER INITIALLY 5000
	ENDDECLARE



		return_status := bucket_data( data_file_name, bucket, xscale, yscale )


		IF return_status <> 1
		DO	RETURN
		ENDIF

///

	ENDFUNCTION	{ plot_raw_data }


ENDMODULE