program circle_2 i_dummy=pgopen('/xwin') call pgenv(0.0,10.0,0.0,10.0,1,0) call pgsfs(2) call pgcirc(5.0,5.0,1.0) call pgsfs(1) call pgcirc(2.5,2.5,1.0) call pgsfs(3) call pgcirc(7.5,7.5,1.0) call pgclos end