PROCEDURE Create( VAR msg: Message; from: MessageBox; text: ARRAY OF CHAR); PROCEDURE Extract(msg: Message; VAR header, text: ARRAY OF CHAR);