home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00112.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  452 b   |  17 lines
  1. on stringToScore longName
  2.   global scoreData, statusWindow
  3.   set startField to the number of cast "scoreData.1"
  4.   set endField to startField + 39
  5.   set scoreData to []
  6.   repeat with curField = startField to endField
  7.     if the text of field curField = EMPTY then
  8.       exit
  9.     end if
  10.     set tempLst to []
  11.     set tempLst to value(the text of field curField)
  12.     repeat with frm in tempLst
  13.       append(scoreData, frm)
  14.     end repeat
  15.   end repeat
  16. end
  17.