home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 04135.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  736 b   |  22 lines
  1. on setindex
  2.   global maplist, gsectlist, gsublist, gsubsublist, gindex, gindexoffset
  3.   set ref to line the frame of the text of cast 4137
  4.   set gsectlist to value(item 1 of ref)
  5.   set tprob to gsectlist mod 2
  6.   if tprob = 1 then
  7.     set lupref to "I" & line gsectlist of the text of field 1
  8.   else
  9.     set lupref to "p" & line gsectlist of the text of field 1
  10.   end if
  11.   put the text of cast lupref into field 2
  12.   set gsublist to value(item 2 of ref)
  13.   if tprob = 1 then
  14.     set lupref to "I" & line gsublist of the text of field 2
  15.   else
  16.     set lupref to "p" & line gsublist of the text of field 2
  17.   end if
  18.   set the foreColor of field 3 to 255
  19.   put the text of cast lupref into field 3
  20.   set gsubsublist to value(item 3 of ref)
  21. end
  22.