begin
  routine fred(integer i)
  end

integer i
integername pointer

  fred(23)
  fred(i)
  fred(pointer)
  
endofprogram