home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 5 / boot-disc-1997-01.iso / media / demos.dir / 00036_Script_36 < prev    next >
Text File  |  1996-11-05  |  447b  |  17 lines
  1. on mouseDown
  2.   puppetsound 2,0
  3.   puppetsound 2,"blooip"
  4.   
  5.   global cards,dbase
  6.   if the pausedflag of cards then
  7.     set curline=the mouseline
  8.     if curline>0 then
  9.       set name=line curline of field "description"
  10.       set rec=getrecord(dbase,name)
  11.       select cards,(the image of rec)
  12.     end if
  13.   else
  14.     put listtotext(getrecords(dbase),return) into field "description"
  15.     set the pausedflag of cards to true
  16.   end if
  17. end