blob: 3badc3e9a5d5258f9473563442b97fa6d855d3ea (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#-h- skpblk 247 local 12/01/80 15:55:04
# skpblk - skip blanks and tabs in current input file
include defs
subroutine skpblk
include COMMON_BLOCKS
character c
character ngetch
for (c = ngetch (c); c == BLANK | c == TAB; c = ngetch (c))
;
call putbak (c)
return
end
|
