129 end;

   129 end;

   130 

   130 

   131 procedure chCurU_m(var s: shortstring);

   131 procedure chCurU_m(var s: shortstring);

   132 begin

   132 begin

   133 s:= s; // avoid compiler hint

   133 s:= s; // avoid compiler hint

   135 end;

   136 end;

   136 

   137 

   137 procedure chCurD_p(var s: shortstring);

   138 procedure chCurD_p(var s: shortstring);

   138 begin

   139 begin

   139 s:= s; // avoid compiler hint

   140 s:= s; // avoid compiler hint

   141 end;

   142 end;

   142 

   143 

   143 procedure chCurD_m(var s: shortstring);

   144 procedure chCurD_m(var s: shortstring);

   144 begin

   145 begin

   145 s:= s; // avoid compiler hint

   146 s:= s; // avoid compiler hint

   147 end;

   149 end;

   148 

   150 

   149 procedure chCurL_p(var s: shortstring);

   151 procedure chCurL_p(var s: shortstring);

   150 begin

   152 begin

   151 s:= s; // avoid compiler hint

   153 s:= s; // avoid compiler hint

   153 end;

   155 end;

   154 

   156 

   155 procedure chCurL_m(var s: shortstring);

   157 procedure chCurL_m(var s: shortstring);

   156 begin

   158 begin

   157 s:= s; // avoid compiler hint

   159 s:= s; // avoid compiler hint

   159 end;

   162 end;

   160 

   163 

   161 procedure chCurR_p(var s: shortstring);

   164 procedure chCurR_p(var s: shortstring);

   162 begin

   165 begin

   163 s:= s; // avoid compiler hint

   166 s:= s; // avoid compiler hint

   165 end;

   168 end;

   166 

   169 

   167 procedure chCurR_m(var s: shortstring);

   170 procedure chCurR_m(var s: shortstring);

   168 begin

   171 begin

   169 s:= s; // avoid compiler hint

   172 s:= s; // avoid compiler hint

   171 end;

   175 end;

   172 

   176 

   173 procedure chLeft_p(var s: shortstring);

   177 procedure chLeft_p(var s: shortstring);

   174 begin

   178 begin

   175 s:= s; // avoid compiler hint

   179 s:= s; // avoid compiler hint