home *** CD-ROM | disk | FTP | other *** search
/ Human & Space in Asia / ARIF_ASCI.ISO / pc / arif.dir / 00356.ls < prev    next >
Encoding:
Text File  |  1996-09-25  |  202 b   |  11 lines
  1. on ThereisText FotName
  2.   global Textlist
  3.   set Maxcnt to count(Textlist)
  4.   repeat with cnt = 1 to Maxcnt
  5.     if getAt(Textlist, cnt) = FotName then
  6.       return 1
  7.     end if
  8.   end repeat
  9.   return 0
  10. end
  11.