home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
clipper
/
keyboard
/
caps
/
fcap2.prg
< prev
next >
Wrap
Text File
|
1986-03-12
|
961b
|
31 lines
*********************************************
* V E R S I O N 2 *
*********************************************
*
* Function.....: Firstcap() . . . Version 2
* Author.......: Dennis L. Dias
* Source ID....: NAN449
* Date.........: 12/14/85
*
* Syntax: FIRSTCAP( <expC> )
* Same syntax and output as version 1 except that the first word
* will always be capitalized..even if a special word is preceded by
* one or more leading word separators such as "...A Fine Madness..."
*
* Notes: This version calls an assembly language routine to do
* most of the work. The character string passed to the
* assembler module must first be converted to lower case.
* Execution speed is very fast..completely invisible.
*
FUNCTION FIRSTCAP
*
PARAMETERS fl_strg
PRIVATE fl_outstr
*
fl_outstr = LOWER(fl_strg)
CALL fcap with fl_outstr
RETURN(fl_outstr)
*
***************************