home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 June / Personal_Computer_World_Jun_97.iso / dxrs / cdxpcw06.dxr / 00031_CDXmakeuppercase.ls < prev    next >
Encoding:
Text File  |  1997-03-24  |  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.