home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00003.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  470 b   |  24 lines
  1. on exitFrame
  2.   global xcapi, y_linea, y_frame, flagFichas, flagFichaslimit, yHayCap, yHayVid, yHayTest, MyCur, opc1, opc2, xvideo
  3.   DoHide(30, 31, 32)
  4.   set flagFichas to 0
  5.   if yHayVid then
  6.     DoShow(9)
  7.     DoHide(11)
  8.     set xvideo to "VVC" & xcapi & y_linea
  9.     jdocursor(9)
  10.   else
  11.     DoShow(11)
  12.   end if
  13.   if yHayTest then
  14.     DoShow(8)
  15.     jdocursor(8)
  16.   else
  17.     DoShow(12)
  18.     DoHide(8)
  19.   end if
  20.   repeat with i = opc1 to opc2
  21.     jdocursor(i)
  22.   end repeat
  23. end
  24.