home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / normans.dir / 00007.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  1.1 KB  |  24 lines
  1. on initLocal
  2.   global markerlist, browsetrail, browseName, bkMrkList, CR, seeAlsoText, subHeaderText, letrIndexText, shMkrLst, filterStatus, searchList
  3.   set letrIndexText to ImportFile("Nindex.txt")
  4.   set seeAlsoText to "Anglo-Saxons" & CR & "Bayeux Tapestry" & CR & "Castles" & CR & "Crusades" & CR & "Domesday Book" & CR & "English Language" & CR & "Feudal System" & CR & "France's history" & CR & "Middle Ages" & CR & "Henry I" & CR & "William I"
  5.   put "  " into field 442
  6.   set subHeaderText to "Travel and conquests" & CR & "Norman rule in England" & CR & "Rebellions" & CR & "Castles" & CR & "Norman and English"
  7.   set shMkrLst to "3" & CR & "5" & CR & "5" & CR & "6" & CR & "7"
  8.   set markerlist to EMPTY
  9.   set browseName to "Normans"
  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.