/*)LIBRARY */ /* * P$FATLER - Fatal error CTEX-style */ extern fatler(); p$fatler(msg) char *msg; { int mlen; mlen = strlen(msg); call(fatler, 2, msg, &mlen); }