external  integer  fred
external  routine  bert(integer  i)
  fred = i
end 


external  routine  shiela(integer  k)
own  integer  local = 42
  k = local
  local = local + 1
end 

begin 
  bert(22)
  shiela(fred)
end  of  programme