home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / dance.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("Dindex.txt")
  4.   set seeAlsoText to "African Music" & CR & "Ballet" & CR & "Drums" & CR & "Folk Dance" & CR & "Indian Music" & CR & "Initiation Ceremonies" & CR & "Jazz" & CR & "Musicals" & CR & "Graham, Martha" & CR & "Astair, Fred" & CR & "Kelly, Gene"
  5.   put "  " into field 442
  6.   set subHeaderText to "Indian Dance" & CR & "African dance" & CR & "Contemporary dance" & CR & "Tap dancing" & CR & "Social dance" & CR & "Choreography"
  7.   set shMkrLst to "2" & CR & "3" & CR & "3" & CR & "4" & CR & "5" & CR & "6"
  8.   set markerlist to EMPTY
  9.   set browseName to "Dance"
  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.