program plot1 integer pgopen if(pgopen('/xwin')<=0)stop call pgenv(0.0,2.0,0.0,2.0,1,0) call pgcirc(1.0,1.0,0.5) call pgclos end