home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00978_greenBorder1.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  1.3 KB  |  43 lines
  1. on mouseUp
  2.   global theTopic, theTopicLine, artNumTemp
  3.   set listTemp to EMPTY
  4.   cursor(4)
  5.   set the castNum of sprite the clickOn to 979
  6.   set the text of field 973 to EMPTY
  7.   setHeadline("sectionlist")
  8.   set the castNum of sprite 34 to 973
  9.   set the locH of sprite 34 to 354
  10.   set the locV of sprite 34 to 96
  11.   set the castNum of sprite 21 to 910
  12.   spriteBox(21, 0, 0, 650, 490)
  13.   set the text of field 972 to " "
  14.   set the locH of sprite 25 to 354
  15.   set the locV of sprite 25 to 80
  16.   set the width of sprite 25 to 250
  17.   updateStage()
  18.   setDelimOn()
  19.   set count to 0
  20.   set preListTemp to field string(theTopic & theTopicLine)
  21.   repeat with n = 2 to the number of lines in preListTemp
  22.     if char 1 of line n of preListTemp = "E" then
  23.       set count to count + 1
  24.     end if
  25.     if the number of items in line n of preListTemp = 1 then
  26.       put line n of preListTemp & RETURN after listTemp
  27.       next repeat
  28.     end if
  29.     put item 2 of line n of preListTemp & RETURN after listTemp
  30.   end repeat
  31.   set the text of field 973 to listTemp
  32.   setDelimOff()
  33.   if count = 1 then
  34.     set artNumTemp to " " & count && "article"
  35.   else
  36.     set artNumTemp to " " & count && "articles"
  37.   end if
  38.   set the text of field 972 to string(artNumTemp)
  39.   cursor(-1)
  40.   setFieldTopic("numList")
  41.   setHeadline("sectionList")
  42. end
  43.