home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / tools.dir / 00017.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  731 b   |  20 lines
  1. on mouseUp
  2.   set tempList to the text of field "wholeList"
  3.   set tempList1 to EMPTY
  4.   set tempList2 to EMPTY
  5.   set tempList3 to EMPTY
  6.   repeat with n = 1 to the number of lines in tempList
  7.     put item 1 of line n of tempList & RETURN after tempList1
  8.     delete item 1 of line n of tempList
  9.   end repeat
  10.   repeat with n = 1 to the number of lines in tempList
  11.     set tLc to the number of items in line n of tempList
  12.     put item 1 to tLc / 2 of line n of tempList & RETURN after tempList2
  13.     put item (tLc / 2) + 1 to tLc of line n of tempList & RETURN after tempList3
  14.   end repeat
  15.   set the text of field "list1" to tempList1
  16.   set the text of field "list2" to tempList2
  17.   set the text of field "list3" to tempList3
  18.   beep()
  19. end
  20.