home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00031_CDXmakeuppercase.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  491 b   |  12 lines
  1. on CDXmakeuppercase
  2.   global CDXWordsearchdata
  3.   repeat with g = 1 to the number of chars in CDXWordsearchdata
  4.     put charToNum(char g of CDXWordsearchdata)
  5.     if (charToNum(char g of CDXWordsearchdata) > 96) and (charToNum(char g of CDXWordsearchdata) < 123) then
  6.       set currentasciivalue to charToNum(char g of CDXWordsearchdata)
  7.       set currentasciivalue to currentasciivalue - 32
  8.       put numToChar(currentasciivalue) into char g of CDXWordsearchdata
  9.     end if
  10.   end repeat
  11. end
  12.