stmes(code) int code ; { register char *mesp ; mesp = " : err reg " ; l2x(code,&mesp[11]) ; putlin(mesp) ; }