Listing 2

/*********************** define the form ***************************/

/* define a form */
CUG_dfmp = fm_def( 0, 0, 21,80, LNORMAL, BDR_NULLP );

/* define boxes around form items ****/
bg_boxdef( 0,0,21,80,LNORMAL,BDR_SPACEP,CUG_dfmp);
bg_boxdef( 5,14,11,52,LNORMAL,BDR_DLNP,CUG_dfmp);

/*********** define background text */
bg_txtdef( 1, 28, "C USER'S GROUP UI2 DEMO", LNORMAL, CUG_dfmp);
bg_txtdef( 2, 28, "                       ", LNORMAL, CUG_dfmp);
bg_boxdef( 5,14,11,52,LNORMAL,BDR_DLNP, CUG_dfmp);
bg_txtdef( 7, 19, "Name     :   [                         ]", LNORMAL,
         CUG_dfmp);
bg_txtdef( 8, 19, "Address  :   [                         ]", LNORMAL,
         CUG_dfmp);
bg_txtdef( 9, 19, "City     :   [                         ]", LNORMAL,
         CUG_dfmp);
bg_txtdef( 10, 19, "State   :    [ ]     Zip :  [     -   ]", LNORMAL,
         CUG_dfmp);
bg_txtdef( 12, 19, "Phone   :    [             ]", LNORMAL, CUG_dfmp);
bg_txtdef( 13, 19, "Fax     :    [             ]", LNORMAL, CUG_dfmp);

sfm_help( "*DATA HELP" , CUG_dfmp  );  /* define form help keyword */


/******* define form data fields *********/
CUG_fld1 = fld_def( 7,33, NULLP , FADJACENT , "!!!!!!!!!!!!!!!!!!!!!!!!!",
    F_STRING , (PTR) name, CUG_dfmp );
CUG_fld2 = fld_def( 8,33, NULLP , FADJACENT , "XXXXXXXXXXXXXXXXXXXXXXXXX" ,
    F_STRING , (PTR) address, CUG_dfmp );
CUG_fld3 = fld_def( 9,33, NULLP , FADJACENT , "XXXXXXXXXXXXXXXXXXXXXXXXX",
    F_STRING , (PTR) city, CUG_dfmp );
CUG_fld4 = fld_def( 10,33, NULLP , FADJACENT , "!!", F_STRING ,
    (PTR) state, CUG_dfmp );
CUG_fld5 = fld_def( 10,48, NULLP , FADJACENT , "UUUUU-UUUU", F_STRING ,
    (PTR) zip, CUG_dfmp );
CUG_fld6 = fld_def( 12,33, NULLP , FADJACENT , "(UUU)UUU-UUUU", F_STRING ,
    (PTR) phone, CUG_dfmp );
CUG_fld7 = fld_def( 13,33, NULLP , FADJACENT , "(UUU)UUU-UUUU", F_STRING ,
    (PTR) fax, CUG_dfmp );