home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / butrfly.dir / 00002.ls next >
Encoding:
Text File  |  1996-07-24  |  958 b   |  24 lines
  1. on initLocal
  2.   global markerlist, CR, seeAlsoText, subHeaderText, letrIndexText, shMkrLst, browseName, bkMrkList, filterStatus, searchList
  3.   set letrIndexText to ImportFile("Bindex.txt")
  4.   set seeAlsoText to "Caterpillars" & CR & "Insects" & CR & "Metamorphosis" & CR & "Migration" & CR & "Moths"
  5.   set subHeaderText to "Mating, eggs and caterpillars" & CR & "Long-distance flights" & CR & "Endangered species"
  6.   set shMkrLst to "1" & CR & "3" & CR & "4"
  7.   set browseName to "Butterflies"
  8.   put EMPTY into field 442
  9.   set markerlist to EMPTY
  10.   set theList to the labelList
  11.   repeat with n = 1 to the number of lines in theList
  12.     if char 1 of line n of theList = "p" then
  13.       put marker(line n of theList) into line n of markerlist
  14.     end if
  15.   end repeat
  16.   if bkMrkList contains browseName then
  17.     set the locH of sprite 4 to 320
  18.   else
  19.     set the locH of sprite 4 to 1000
  20.   end if
  21.   set filterStatus to "11111111111"
  22.   set searchList to field 428
  23. end
  24.