home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / grnhse.dir / 00007.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  1.0 KB  |  24 lines
  1. on initLocal
  2.   global markerlist, browsetrail, browseName, CR, bkMrkList, seeAlsoText, subHeaderText, letrIndexText, shMkrLst, filterStatus, searchList
  3.   set letrIndexText to ImportFile("Gindex.txt")
  4.   set seeAlsoText to "Air" & CR & "Atmosphere" & CR & "Carbon" & CR & "Energy" & CR & "Geothermal Power" & CR & "Nuclear Power" & CR & "Ozone" & CR & "Pollution" & CR & "Tides" & CR & "Water Power" & CR & "Wind Power"
  5.   set subHeaderText to "Green house gases" & CR & "Dealing with the problem"
  6.   set shMkrLst to "2" & CR & "3"
  7.   set browseName to "Greenhouse Effect"
  8.   put "  " 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.