*******************************************************************************
*
*	New System Admin - This routine takes the data structure for an input
*		form, and prints it on the screen.
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	07/23/92 9064  WLC Added ",1" for printing of defaults so that UVEXPORT
*		  	   can use the defaults record for multiple values.
*	10/18/91 8834  DPB Addded code to paint wrapped data properly.
*   05/13/91 8345  DTM changed print to tprints
*   03/13/91 7673  DTM Modified for performance sake
*	11/05/90 7393  DPB Routine first created and admin'd.
*******************************************************************************

SUBROUTINE PUT.FORM.B(size, form, defaults, prompt, flag)

blank=STR(" ",LEN(prompt))
FOR I = 1 TO size
    IF form<I> = "" THEN CONTINUE
    IF flag = 1 THEN
        TPRINT form<I,1>:form<I,3>:form<I,2>:prompt:
        TPRINT defaults<I,1>[1,form<I,6>]:STR(" ",form<I,6>-LEN(defaults<I,1>)):
        END
    ELSE
       TPRINT form<I,1>:STR(" ",LEN(form<I,3>)):form<I,2>:blank:
       TPRINT STR(" ",form<I,6>):
       END
NEXT I

RETURN