
<DEFINE FROB ()
	<SET FOO <OPEN-DATA-FILE "MADMAN;TV FILE">>
	<DATA-RESERVE <+ ,1STCAT ,NCAT 5> .FOO>
	<SET BAR <AFIND 1>>
	<DATA-APRINT .FOO ,LUSERS .BAR <ALIST .BAR 1>>
	<DATA-PRINTW ,HIQLOC .FOO 1>
	<DATA-PRINTW ,HIQNUM .FOO 1>
	<DATA-PRINTW ,HIMAIL .FOO ,LOMAIL>
	<AGIVE .BAR>>