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


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

include	defs

# termin - pick up name of input channel to users teletype

   subroutine termin (name)
   character name (ARB)

   string tname TERMINAL_IN

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