blob: 74695f930985896aedaeae998b5f5793bf28ae76 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#-h- addchr 254 local 12/01/80 15:53:44
# addchr - put c in buf (bp) if it fits, increment bp
include defs
subroutine addchr (c, buf, bp, maxsiz)
integer bp, maxsiz
character c, buf (ARB)
if (bp > maxsiz)
call baderr ("buffer overflow.")
buf (bp) = c
bp = bp + 1
return
end
|
