Program MKMsgCvt;
{$IFDEF WINDOWS}
{$M 16384, 8196}
{$ELSE}
{$M 16384, 0, 655360}
{$ENDIF}

{$I MKB.Def}

{$X+}

{$IFDEF WINDOWS}
Uses MKWCrt,
{$ELSE}
  {$IFDEF OPRO}
  Uses OpCrt,
  {$ELSE}
  Uses Crt,
  {$ENDIF}
{$ENDIF}
MKMsgAbs, MKOpen, MKDos, MKString, MKFile, MKGlobT, MKAvatar;

Var
  MsgIn: AbsMsgPtr;                    {pointer to input message object}
  MsgOut: AbsMsgPtr;                   {pointer to output message object}
  TmpStr: String;                      {temporary storage}
  InAreaId: String;                    {Input msgareaid string}
  OutAreaId: String;                   {Output msgareaid string}
  TmpAddr: AddrType;                   {temporary address storage}
  PriorWrap: Boolean;                  {prior text line was wrapped}
  Ta: Byte;

Const
  StLen = 78;                          {wrap strings at 78 characters}

{$I MKMCvt.Inc}

Begin
Ta := TextAttr;
If ParamCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then
  Begin
  WritelCount < 2 Then                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
