home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / nucpwr.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 markerlist to EMPTY
  4.   set letrIndexText to ImportFile("Nindex.txt")
  5.   set seeAlsoText to "Atoms" & CR & "Electricity" & CR & "Energy" & CR & "Pollution" & CR & "Radiation" & CR & "Turbines" & CR & "Bohr, Neils" & CR & "Fermi, Enrico"
  6.   set subHeaderText to "Fission" & CR & "Reactors" & CR & "Nuclear waste" & CR & "Safety and risks" & CR & "The future"
  7.   set shMkrLst to "2" & CR & "2" & CR & "3" & CR & "4" & CR & "5"
  8.   set browseName to "Nuclear Power"
  9.   put "  " into field 442
  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.