blob: 448a1aadd9cb740e9c56fafb7e508b938e6294ba (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#-h- gnbtok 237 local 12/01/80 15:54:09
# gnbtok - get nonblank token
include defs
character function gnbtok (token, toksiz)
character token (MAXTOK)
integer toksiz
include COMMON_BLOCKS
character gettok
call skpblk
repeat {
gnbtok = gettok (token, toksiz)
} until (gnbtok != BLANK)
return
end
|
