externalroutine fred(integer i)
  integer k
  k = i
  if k=i start
  finish
end
endoffile