{ERRORMSG.INC}
PROCEDURE Error_Msg (M2, M4 : String80; Line : Integer);

    {This procedure outputs a message for errors

    Author     : L. L. Smith; 2827 Klusner Ave.; Parma, OH 44134
    Application: CP/M-80, CP/M-86, MS-DOS, PC-DOS}

    Const
        M1      : string[9]  = 'Error in ';
        M3      : string[27] = ' value(s), please re-enter ';
    var
        Err_Msg : string[75];
    Begin
        Err_Msg := M1 + M2 + M3 + M4;
        GotoXY(05,Line);
        Write(Err_Msg);
        Delay(2048);
    End; (* Error_Msg *)