home *** CD-ROM | disk | FTP | other *** search
/ Curso de Informatica 1 / elPeriodico1.iso / menu.dir / Internal_118.ls < prev    next >
Encoding:
Text File  |  1997-08-14  |  369 b   |  17 lines
  1. on mouseUp
  2.   global curs
  3.   marcaImprimir()
  4.   set the visible of sprite 48 to 0
  5.   case curs of
  6.     1:
  7.       printFrom(label("ca1"), label("ca1"), 100)
  8.     2:
  9.       printFrom(label("ca2"), label("ca2"), 100)
  10.     3:
  11.       printFrom(label("ca3"), label("ca3"), 100)
  12.     4:
  13.       printFrom(label("ca4"), label("ca4"), 100)
  14.   end case
  15.   set the visible of sprite 48 to 1
  16. end
  17.