/*Short WHO v1.0 by Brad Majors 10-13-93 */
Options Results;ChangeWhere "Who"
Ports = 1 /*Chage to number of ports you have */
Do List = 0 to Ports
Number1 = 2221494+(list*2);Getuser Number1;Number2 = Result
Number3 = 2621350+(4*list);Getuser Number3;Where = Result
LoadScratch number2
GetScratch 1;Handle = Result
GetScratch 4;City = Result
If number2 < 0 then do
 Transmit List"> -"
 Iterate
 End
Transmit List"> "Left(Handle,20) Left(City,18) Left(Where,22)
End
