71 procedure chConfirm(var s: shortstring);

    71 procedure chConfirm(var s: shortstring);

    72 begin

    72 begin

    73     s:= s; // avoid compiler hint

    73     s:= s; // avoid compiler hint

    74     if GameState = gsConfirm then

    74     if GameState = gsConfirm then

    75         begin

    75         begin

    76         SendIPC(_S'Q');

    78         SendIPC(_S'Q');

    77         GameState:= gsExit

    79         GameState:= gsExit

    78         end

    80         end

    79 end;

    81 end;

    80 

    82 

    81 procedure chHalt (var s: shortstring);

    83 procedure chHalt (var s: shortstring);

    82 begin

    84 begin

    83     s:= s; // avoid compiler hint

    85     s:= s; // avoid compiler hint

    84     SendIPC(_S'H');

    88     SendIPC(_S'H');

    85     GameState:= gsExit

    89     GameState:= gsExit

    86 end;

    90 end;

    87 

    91 

    88 procedure chCheckProto(var s: shortstring);

    92 procedure chCheckProto(var s: shortstring);