home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 6 / Amoszine 6 (Disk 2 of 2).adf / extra_source.lha / OTHER_SOURCE / CAPS_NAME.Amos / CAPS_NAME.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  676 b   |  22 lines
  1. Procedure CAPS_NAME[NAMEWORK$]
  2.    '*** Format name - namely uppercases/lowercases name properly
  3.    NAMEWORK$=Upper$(Left$(NAMEWORK$,1))+Lower$(Mid$(NAMEWORK$,2))
  4.    M=Instr(NAMEWORK$,"/")
  5.    If M<>0
  6.       NAMEWORK$=Left$(NAMEWORK$,M)+Upper$(Mid$(NAMEWORK$,M+1,1))+Mid$(NAMEWORK$,M+2)
  7.    End If 
  8.    M=-1
  9.    Repeat 
  10.       M=Instr(NAMEWORK$," ",M+1)
  11.       If M<>0
  12.          NAMEWORK$=Left$(NAMEWORK$,M)+Upper$(Mid$(NAMEWORK$,M+1,1))+Mid$(NAMEWORK$,M+2)
  13.       End If 
  14.    Until M=0
  15.    M=-1
  16.    Repeat 
  17.       M=Instr(NAMEWORK$,"-",M+1)
  18.       If M<>0
  19.          NAMEWORK$=Left$(NAMEWORK$,M)+Upper$(Mid$(NAMEWORK$,M+1,1))+Mid$(NAMEWORK$,M+2)
  20.       End If 
  21.    Until M=0
  22. End Proc[NAMEWORK$]