externalroutine fred(real x,y)
real z

if x>0 and y>0 then start
   z=sqrt(x+y)
else
   monitor
finish
end
endoffile