home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / PTESTFI.DXR / 00005.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  951 b   |  33 lines
  1. on exitFrame
  2.   global ztope, zvalor, ztopepagina, zpagina
  3.   DoHide(10, 11, 12)
  4.   jDoHide(50, "-", 54)
  5.   jDoHide(32, "-", 43)
  6.   jDoHide(60, "-", 71)
  7.   repeat with i = 1 to 2
  8.     if value(R.OpA.Get(zfichatest, i + zvalor)) = 1 then
  9.       DoShow(32 + (3 * (i - 1)))
  10.     end if
  11.     if value(R.OpB.Get(zfichatest, i + zvalor)) = 1 then
  12.       DoShow(33 + (3 * (i - 1)))
  13.     end if
  14.     if value(R.OpC.Get(zfichatest, i + zvalor)) = 1 then
  15.       DoShow(34 + (3 * (i - 1)))
  16.     end if
  17.   end repeat
  18.   if ((ztopepagina = 3) or (ztopepagina = 8)) and (zpagina = ztopepagina) then
  19.   else
  20.     repeat with i = 3 to 4
  21.       if value(R.OpA.Get(zfichatest, i + zvalor)) = 1 then
  22.         DoShow(32 + (3 * (i - 1)))
  23.       end if
  24.       if value(R.OpB.Get(zfichatest, i + zvalor)) = 1 then
  25.         DoShow(33 + (3 * (i - 1)))
  26.       end if
  27.       if value(R.OpC.Get(zfichatest, i + zvalor)) = 1 then
  28.         DoShow(34 + (3 * (i - 1)))
  29.       end if
  30.     end repeat
  31.   end if
  32. end
  33.