home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / butrfly.dir / 00053.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  181 b   |  10 lines
  1. on capitalise aChar
  2.   if charToNum(aChar) < 91 then
  3.     return aChar
  4.   else
  5.     set keyPtr to charToNum(aChar) - 32
  6.     set aChar to numToChar(keyPtr)
  7.     return aChar
  8.   end if
  9. end
  10.