home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 01750.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  377 b   |  17 lines
  1. on mouseUp
  2.   global grecent, marklist
  3.   sresp(45)
  4.   setoff(1)
  5.   puppetSprite(43, 0)
  6.   put grecent into field 5134
  7.   set lsize to count(marklist)
  8.   set markstring to EMPTY
  9.   repeat with index = 1 to lsize
  10.     put getAt(marklist, index) into line index of markstring
  11.   end repeat
  12.   put markstring into field 5135
  13.   set the visible of sprite 42 to 0
  14.   offbut()
  15.   go("recent")
  16. end
  17.