128 

   128 

   129 procedure chScript(var s: shortstring);

   129 procedure chScript(var s: shortstring);

   130 begin

   130 begin

   131 if s[1]='"' then Delete(s, 1, 1);

   131 if s[1]='"' then Delete(s, 1, 1);

   132 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   132 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   133 ScriptLoad(s)

   134 ScriptLoad(s)

   134 end;

   135 end;

   135 

   136 

   136 procedure chSetHat(var s: shortstring);

   137 procedure chSetHat(var s: shortstring);

   137 begin

   138 begin