home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / mac / files / CAD.DiR / 05134_recent.ls < prev    next >
Encoding:
Text File  |  1995-12-08  |  533 b   |  25 lines
  1. on mouseUp
  2.   global gframe
  3.   set gframe to EMPTY
  4.   cursor(4)
  5.   set tcard to the mouseLine
  6.   set tline to line tcard of the text of field 5134
  7.   if tline = EMPTY then
  8.     cursor(0)
  9.     exit
  10.   end if
  11.   hilite line tcard of field 5134
  12.   if the last word in tline = "P" then
  13.     set tline to stripend(tline) & " (P1)"
  14.     set frameref to tline
  15.   else
  16.     set frameref to tline & " (1)"
  17.   end if
  18.   set frameref to frametonum(frameref)
  19.   if frameref < 845 then
  20.     set the visible of sprite 42 to 1
  21.   end if
  22.   go(frameref)
  23.   cursor(0)
  24. end
  25.