blob: 497e34d9f6d4dc717eca264982d1ad30092d4d0e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
include defs
# putstr - output character string in specified field
subroutine putstr (str, w, fd)
character str (ARB)
integer w
filedes fd
character length
integer i, len
len = length (str)
for (i = len + 1; i <= w; i = i + 1)
call putch (BLANK, fd)
for (i = 1; i <= len; i = i + 1)
call putch (str (i), fd)
for (i = (-w) - len; i > 0; i = i - 1)
call putch (BLANK, fd)
return
end
|
