27 procedure WriteToConsole(s: shortstring);

    27 procedure WriteToConsole(s: shortstring);

    28 procedure WriteLnToConsole(s: shortstring);

    28 procedure WriteLnToConsole(s: shortstring);

    29 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);

    29 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);

    30 procedure StopMessages(Message: Longword);

    30 procedure StopMessages(Message: Longword);

    31 function  GetLastConsoleLine: shortstring;

    31 function  GetLastConsoleLine: shortstring;

    32 

    33 

    33 procedure doPut(putX, putY: LongInt; fromAI: boolean);

    34 procedure doPut(putX, putY: LongInt; fromAI: boolean);

    34 

    35 

    35 implementation

    36 implementation

    36 {$J+}

    37 {$J+}