home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / article.dir / 00016.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  726 b   |  22 lines
  1. on exitFrame
  2.   global theArticle
  3.   set the text of field "locate" to " "
  4.   setDispHead1("locate")
  5.   put "A,Air" into line 1 of TheLoc
  6.   put "L,Land" into line 2 of TheLoc
  7.   put "W,Water" into line 3 of TheLoc
  8.   put "N,Animals" into line 4 of TheLoc
  9.   put "P,People" into line 5 of TheLoc
  10.   put "E,Energy" into line 6 of TheLoc
  11.   put "R,Responses" into line 7 of TheLoc
  12.   put "D,The Future" into line 8 of TheLoc
  13.   repeat with n = 1 to the number of lines in TheLoc
  14.     if char 2 of theArticle = item 1 of line n of TheLoc then
  15.       set tempSec to item 2 of line n of TheLoc
  16.       exit repeat
  17.     end if
  18.   end repeat
  19.   set tempSec to "Article taken from the subject" && tempSec
  20.   set the text of field "locate" to tempSec
  21. end
  22.