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