home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00390.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  1.3 KB  |  53 lines
  1. on checkFrameType theFrame
  2.   if (string(theFrame) = EMPTY) or (string(theFrame) = "0") then
  3.     return "empty"
  4.   end if
  5.   if charToNum(char 1 of string(theFrame)) > 57 then
  6.     return "label"
  7.   else
  8.     return "number"
  9.   end if
  10. end
  11.  
  12. on convertToList therange
  13.   set theList to EMPTY
  14.   repeat while therange <> EMPTY
  15.     set pointer to offset(";", therange)
  16.     if pointer <> 0 then
  17.       set temp to char 1 to pointer - 1 of therange
  18.       delete char 1 to pointer of therange
  19.     else
  20.       set temp to therange
  21.       set therange to EMPTY
  22.     end if
  23.     set rangePointer to offset("-", temp)
  24.     if rangePointer = 0 then
  25.       put temp & "," after theList
  26.       next repeat
  27.     end if
  28.     set first to value(char 1 to rangePointer - 1 of temp)
  29.     delete char 1 to rangePointer of temp
  30.     set last to value(temp)
  31.     delete char the number of chars in theList of theList
  32.     repeat with n = first to last
  33.       set theList to theList & "," & n
  34.     end repeat
  35.     put "," after theList
  36.   end repeat
  37.   if char 1 of theList = "," then
  38.     delete char 1 of theList
  39.   end if
  40.   delete char the number of chars in theList of theList
  41.   return theList
  42. end
  43.  
  44. on capitalise aChar
  45.   if charToNum(aChar) < 91 then
  46.     return aChar
  47.   else
  48.     set keyPtr to charToNum(aChar) - 32
  49.     set aChar to numToChar(keyPtr)
  50.     return aChar
  51.   end if
  52. end
  53.