80	map (getdev) string unam = 12
90	declare long pid,  word unam.len
100	call getdev("TTE0:",pid,unam by ref,unam.len)
110	print pid,left(unam,unam.len)