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


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

include	defs

# trmout - pick up name of output channel to users teletype

   subroutine trmout (name)
   character name (ARB)

   string tname TERMINAL_OUT

   call scopy (tname, 1, name, 1)
   return
   end