home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / PBC22B.ZIP / PBC$BAS.ZIP / NAMECAS2.BAS < prev    next >
BASIC Source File  |  1993-01-01  |  959b  |  29 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1993  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.    DECLARE SUB NameCase00 (St$)
  8.  
  9. SUB NameCase (St$)
  10.    NameCase00 St$
  11.    IF RIGHT$(St$, 3) = " Ii" OR RIGHT$(St$, 4) = " Iii" OR RIGHT$(St$, 3) = " Iv" THEN
  12.       place% = INSTR(St$, " ")
  13.       place% = INSTR(place% + 1, St$, " ")
  14.       IF place% THEN
  15.          tmp% = LEN(St$)
  16.          DO
  17.             MID$(St$, tmp%, 1) = UCASE$(MID$(St$, tmp%, 1))
  18.             tmp% = tmp% - 1
  19.          LOOP UNTIL MID$(St$, tmp%, 1) = " "
  20.       END IF
  21.    END IF
  22. END SUB
  23.  
  24. FUNCTION NameCase2$ (St$)
  25.    tmp$ = St$
  26.    NameCase tmp$
  27.    NameCase2$ = tmp$
  28. END FUNCTION
  29.