home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 01e / let12.zip / YOURNAME.LET < prev   
Text File  |  1987-09-17  |  345b  |  6 lines
  1. Fname=(proper (trim (ask "What is your first name? " 60)))
  2. Lname=(proper (trim (ask "What is you last name? " 60)))
  3. Title=(replace (mid (proper (trim (ask "Which title, such as Mr., Ms., Miss, Mrs., or Dr., do you prefer? " 60)) ".") 1 4) ".." ".")
  4. MayI=(upper (mid (trim (ask (concat "May I call you " Fname "? ") 60)) 1 1))
  5. T=(plus 1 T)
  6.