home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00406.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  568 b   |  17 lines
  1. on GoDatabaseMed name
  2.   global gMakerNum, gWhichMov, lastClick, gDataPath, goto, cursorcast
  3.   if cursorcast = 0 then
  4.     cursor(4)
  5.     set gWhichMov to the movieName
  6.     set names to ["BANTING", "BARNARD", "EHRLICH", "SPOCK", "SANGER", "MONTAGNIER", "STEPTOE", "CRICK", "PINCUS", "FLEMING"]
  7.     set nums to [8, 10, 52, 166, 158, 124, 169, 39, 146, 58]
  8.     set num to getPos(names, lastClick)
  9.     set gMakerNum to getAt(nums, num)
  10.     GetPaths()
  11.     set goto to marker(0)
  12.     GoMovie(gDataPath & "BODY.DIR", "database")
  13.     abort()
  14.   end if
  15.   set lastClick to name
  16. end
  17.