home *** CD-ROM | disk | FTP | other *** search
/ Curso de Informatica 10 / elPeriodico10.iso / menu.dir / Internal_25.ls < prev    next >
Encoding:
Text File  |  1997-12-15  |  473 b   |  26 lines
  1. on startMovie
  2.   global loop, valorTexte, opcio
  3.   puppetPalette("paleta1")
  4.   controlBotoExecutar()
  5.   updateStage()
  6.   set loop to 5
  7.   repeat with x = 30 to 31
  8.     set the visible of sprite x to 0
  9.   end repeat
  10.   set the visible of sprite 48 to 0
  11.   updateStage()
  12.   put valorTexte into field "texte"
  13.   case opcio of
  14.     1:
  15.       marcaDescripcio()
  16.     2:
  17.       marcaveure()
  18.     3:
  19.       marcainstalar()
  20.     4:
  21.       marcaDesinstalar()
  22.     5:
  23.       marcaImprimir()
  24.   end case
  25. end
  26.