dt = Open( "$sample_data/big class.jmp" );
New Window( "two graphs",
	V List Box(
		H List Box(
			dt << Graph Builder(
				Size( 512, 442 ),
				Show Control Panel( 0 ),
				Show Legend( 0 ),
				Variables( X( :age ), Y( :height ) ),
				Elements( Points( X, Y, Legend( 5 ) ) ),
				SendToReport(
					Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "" ), Image Export Display( Normal )} ),
					Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
					Dispatch( {}, "Y title", TextEditBox, {Set Text( "" )} ),
					Dispatch( {}, "age", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
					Dispatch( {}, "height", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
					Dispatch( {}, "graph title", TextEditBox, {Set Text( "Height" )} ),
					Dispatch( {}, "Graph Builder", FrameBox, {Background Color( 32 )} )
				)
			);
// identical but for height...weight in three places
			dt << Graph Builder(
				Size( 512, 442 ),
				Show Control Panel( 0 ),
				Show Legend( 0 ),
				Variables( X( :age ), Y( :weight ) ),
				Elements( Points( X, Y, Legend( 5 ) ) ),
				SendToReport(
					Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "" ), Image Export Display( Normal )} ),
					Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
					Dispatch( {}, "Y title", TextEditBox, {Set Text( "" )} ),
					Dispatch( {}, "age", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
					Dispatch( {}, "weight", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
					Dispatch( {}, "graph title", TextEditBox, {Set Text( "Weight" )} ),
					Dispatch( {}, "Graph Builder", FrameBox, {Background Color( 32 )} )
				)
			);
		),
		H Center Box( Text Box( "two graphs", <<setfontsize( 16 ), <<setfontstyle( "bold" ) ) )
	)
);

Make the graphs interactively in graph builder, then save the script and make a new window around it.
					
				
			
			
				
	Craige