ring r= 32003,(x,y),dp;
  char(r);
LIB "tst.lib";tst_status(1);$