*
*  PROCEDURE TO Display all records to the screen
*

call html_header
call cgi_begin

 USE mail_lst
 if !file("mail_lst.dnx")
	index on lname to mail_lst
 endif

 GO TOP
  DO WHILE .NOT. EOF()

   ? TRIM(FNAME)+" "+LNAME+"<br>
   ? STREET+"<br>
   ? TRIM(CITY)+", "+STATE+". "+ZIP+"<p>"

   SKIP
  ENDDO
 CLOSE DATABASE