home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / oasis.dir / 00007.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  840 b   |  24 lines
  1. on initLocal
  2.   global markerlist, browsetrail, browseName, CR, bkMrkList, seeAlsoText, subHeaderText, letrIndexText, shMkrLst, filterStatus, searchList
  3.   set letrIndexText to ImportFile("Oindex.txt")
  4.   set seeAlsoText to "Pop and Rock" & CR & "The Beatles" & CR & "The Sex Pistols"
  5.   set subHeaderText to EMPTY
  6.   set shMkrLst to "1" & CR & "2"
  7.   set browseName to "Oasis"
  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.