/*
**  getconflist.thor - demonstrates the GETCONFLIST function
**
**	Will return 10 if THOR was not able to optain the bbs list (which is
**	highly unlikely) or if the bbsname was unknown.  Returns 0 on success.
**
**	Template:
**
**	BBSNAME/A,STEM/A
**
**	STEM is the stem variable THOR will but the result into, and it must be
**	supplied or this command will fail.  The stem variable must be in 
**	uppercase.
**	THOR will return the number of conferences found on the BBS in the stem 
**	variable <stem>.COUNT.
**
*/

address "THOR.01"

GETCONFLIST bbs '"Ultima Thule BBS"' stem CONFLIST

if(rc ~= 0) then exit

i = CONFLIST.COUNT

n = 1

DO while i > 0 & n <= i
	say CONFLIST.n
	n = n + 1
END

exit