1117 begin

  1117 begin

  1118 s:= s; // avoid compiler hint

  1118 s:= s; // avoid compiler hint

  1119 if not isExternalSource then

  1119 if not isExternalSource then

  1120     SendIPC(_S',');

  1120     SendIPC(_S',');

  1121 uStats.Skipped;

  1121 uStats.Skipped;

  1123 end;

  1124 end;

  1124 

  1125 

  1125 procedure chHogSay(var s: shortstring);

  1126 procedure chHogSay(var s: shortstring);

  1126 var Gear: PVisualGear;

  1127 var Gear: PVisualGear;

  1127     text: shortstring;

  1128     text: shortstring;