new; library pgraph; cls; graphset;

@** set global control variables for all graphs ***@
_pmcolor = 0|0|0|0|0|0|0|0|15;
_plwidth = 8;
_pframe = { 0, 1};
_pltype = 6;
_pcolor = { 12, 10, 1, 11, 7};
_pgrid = { 2, 0};
_ptitlht = 0.2;
_plegctl = { 2 5 1 1 };

data1 = rndu(20, 4);
data2 = rndu(20, 4);
data3 = rndu(20, 4);
xser = seqa(1, 1, 20);

let string myTitle = {“Figure 1″, “Figure 2″, “Figure 3″, “Figure 4″ };
_plegstr = “Data100Data200Data3″;
begwind;
window(2,2,0);
for ii(1,4,1);
setwind(ii);
title(myTitle[ii]);
xy(xser,data1[.,ii]~data2[.,ii]~data3[.,ii]);

endfor;
endwind;

sleep(0.3);

after you draw your first graph.

Since you are using version 12 you have the new graphics available. They are MUCH easier to use and MUCH nicer to look at. If you have any graphics code that you would like converted to use the new graphics, post it here and we will help generously with that process.

The current version of 12 is 12.1.9 and it has many new features and bug fixes since 12.0.3. If you have a license for 12 you can download it for free.