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