1 /*
2  * (C) Maint Laboratory 2000-2004
3  * Author: Elohin Igor
4  * e-mail: maint@unona.ru
5  * fido  : 2:5070/222.52
6  * URL   : http://maint.unona.ru
7  */
8 /*
9  * �������� ��� �� ������ ������� ������ �� ����
10  */
11 #include <ctype.h>
isnum(char * s)12 int isnum(char *s)
13 {
14     register char *c;
15 
16     c = s;
17     while (*c) {
18 	if (!isdigit(*c)) return 0;
19 	c++;
20     }
21     return 1;
22 }
23