Function GetNames
newstring = ''
top = Handle_Create()
Print, 'Enter a list of names.  ("Q" to stop.)'
While StrUpCase(newstring) NE "Q" Do Begin
   Read, newstring, Prompt='Enter string: '    
   If StrUpCase(newstring) NE "Q"  THEN $
   next = Handle_Create(top, Value=newstring) 
EndWhile
Return, top
END