blob: bac0616189b78ea4542f6c7128831c15a6cfb272 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#-h- alldig 306 local 12/01/80 15:53:45
# alldig - return YES if str is all digits
include defs
integer function alldig (str)
character str (ARB)
integer i
alldig = NO
if (str (1) == EOS)
return
for (i = 1; str (i) != EOS; i = i + 1)
if (!IS_DIGIT(str (i)))
return
alldig = YES
return
end
|
