home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
OL.LZH
/
PROCS.LZH
/
TITLE.ICN
< prev
next >
Wrap
Text File
|
1991-09-05
|
865b
|
41 lines
############################################################################
#
# Name: title.icn
#
# Title: Produce title portion of name
#
# Author: Ralph E. Griswold
#
# Date: September 2, 1991
#
############################################################################
#
# This procedure produces the "title" of a name, as "Mr." from
# "Mr. John Doe".
#
# The processs is imperfect.
#
############################################################################
#
# Links: titleset
#
############################################################################
link titleset
procedure title(name)
local result
static titles
initial titles := titleset()
result := ""
name ? {
while result ||:= =!titles || " " do
tab(many(' \t'))
return result ? tab(-1 | 0)
}
end