unix/boot/spp/rpp/ratlibr/concat.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

include	defs

# concat - concatenate two strings together

   subroutine concat (buf1, buf2, outstr)
   character buf1(ARB), buf2(ARB), outstr(ARB)

   integer i

   i = 1
   call stcopy (buf1, 1, outstr, i)
   call scopy (buf2, 1, outstr, i)

   return
   end