/* $VER:Mail-Lister_1.1 (c) 1994 by Active Developement M6005
*/

option result
CLS = ''

call open cfg, ('s:mail.cfg'), 'R'
	line = readln(cfg)
	parse var line dire
call close(cfg)

string = 'list >t:test 'dire' lformat "%s*n%l"'
address command string
	say CLS
	say ''
	say 'Mail-Lister v1.1 (c) 1994 by Active Development M6005'
call open file, ('t:test'), 'R'
	do until eof(file)
	call readln file ; mail=result
	call readln file ; liam=result

if mail = "" then call exit

	mai = COMPRESS(mail, '.mail')
	a = right(mai,4)
	liam = liam / 4
	b = right(liam,2)
	say 'User ID :'||a||'  Has '||b||' Messages Waiting for him/her'
end


EXIT:
say ''
call close file
	srint = 'delete t:test QUIET' 
	address command srint 
exit

EXIT_IT:
exit