begin
  routine DIR String(integer Op, string(*)name S)
  end

  string (15) Fred

  DIR String(42, Fred)
  
endofprogram