home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / refpcw08.dxr / 00067.ls < prev    next >
Encoding:
Text File  |  1997-05-16  |  471 b   |  13 lines
  1. on makeuppercase
  2.   global searchdata
  3.   repeat with g = 1 to the number of chars in searchdata
  4.     put charToNum(char g of searchdata)
  5.     if (charToNum(char g of searchdata) > 97) and (charToNum(char g of searchdata) < 122) then
  6.       set currentasciivalue to charToNum(char g of searchdata)
  7.       set currentasciivalue to currentasciivalue - 32
  8.       put numToChar(currentasciivalue) into char g of searchdata
  9.     end if
  10.   end repeat
  11.   put "new word: " & searchdata
  12. end
  13.