DEF VAR x AS CHAR                NO-UNDO.
DEF VAR i AS INTEGER             NO-UNDO.

FUNCTION proper RETURNS CHAR (INPUT parm1 AS CHAR) FORWARD.


FOR EACH tour NO-LOCK:
  x = tour.fullname.
  DO i = 1 TO LENGTH(x):
    SUBSTRING(x,i,1) = IF i = 1 OR (i > 1 AND SUBSTRING(x,i - 1,1) = " ")
                         THEN CAPS(SUBSTRING(x,i,1))
                       ELSE LC(SUBSTRING(x,i,1)).
  END.

  DISPLAY x FORMAT "x(30)" NO-LABELS.
END.


FOR EACH tour NO-LOCK:
  DISPLAY proper(tour.fullname) FORMAT "x(30)" NO-LABELS.
END.


FUNCTION proper RETURNS CHAR.
  DEF VAR i AS INTEGER NO-UNDO.

  DO i = 1 TO LENGTH(parm1):
    SUBSTRING(parm1,i,1) = IF i = 1 OR (i > 1 AND SUBSTRING(parm1,i - 1,1) = " ")
                             THEN CAPS(SUBSTRING(parm1,i,1))
                           ELSE LC(SUBSTRING(parm1,i,1)).
  END.

  RETURN parm1.  
END FUNCTION.