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