home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / pbclon20 / pbc_bas / namecas2.bas < prev    next >
Encoding:
BASIC Source File  |  1992-10-07  |  959 b   |  29 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1992  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.