467 

   467 

   468 procedure chAddTrigger(var s: shortstring);

   468 procedure chAddTrigger(var s: shortstring);

   469 var t: LongWord;

   469 var t: LongWord;

   470 begin

   470 begin

   471 val(s, t);

   471 val(s, t);