LIB "tst.lib"; tst_init();
LIB "template.lib";
mdouble(0);
mdouble(-1);
tst_status(1);$