home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00014_makelowercase.ls < prev    next >
Encoding:
Text File  |  1997-06-27  |  430 b   |  11 lines
  1. on makelowercase checkthisword
  2.   repeat with g = 1 to the number of chars in checkthisword
  3.     if (charToNum(char g of checkthisword) > 64) and (charToNum(char g of checkthisword) < 91) then
  4.       set currentasciivalue to charToNum(char g of checkthisword)
  5.       set currentasciivalue to currentasciivalue + 32
  6.       put numToChar(currentasciivalue) into char g of checkthisword
  7.     end if
  8.   end repeat
  9.   return checkthisword
  10. end
  11.