home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00007.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  747 b   |  23 lines
  1. on enterFrame
  2.   jDoHide(2, "-", 21)
  3.   jDoHide(57, 58)
  4. end
  5.  
  6. on exitFrame
  7.   global y_colortexto, y_primeralinea, y_textlines, xcapi, y_linea, y_frame, yNumFich, opc1, opc2, yHayCap, yHayVid, yHayTest, xvideo
  8.   set y_textlines to 18
  9.   set pic_capi to "T" & xcapi
  10.   set pic_opc to "TC" & xcapi & y_linea & "B"
  11.   DoPupOn(25, 26)
  12.   set the member of sprite 25 to member pic_capi
  13.   set the member of sprite 26 to member pic_opc
  14.   DoShow(25, 26)
  15.   set y_frame to "C" & xcapi & y_linea
  16.   set yNumFich to GetPosFich(integer(xcapi), integer(y_linea))
  17.   set DataFich to GetDataFich(integer(xcapi), integer(y_linea))
  18.   set yHayCap to char 1 of DataFich = "X"
  19.   set yHayVid to char 2 of DataFich = "X"
  20.   set yHayTest to char 3 of DataFich = "X"
  21.   cursor(0)
  22. end
  23.