{ Old file: tbs0346b.pp } { } unit tb0292; interface { this uses system.word } procedure p(w:word); implementation uses ub0292; { this uses tbs0346a.word } procedure p(w:word); begin end; end.