/* * $Id$ */ PROCEDURE Main() USE test NEW REPORT FORM test USE RETURN