home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / PTESTFI.DXR / 00008.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  371 b   |  15 lines
  1. on mouseUp
  2.   global zfichatest, zvalor
  3.   R.OpA.Set(zfichatest, 1 + zvalor, "1")
  4.   R.OpB.Set(zfichatest, 1 + zvalor, "0")
  5.   R.OpC.Set(zfichatest, 1 + zvalor, "0")
  6.   if Question.Sol.Get(zfichatest, 1 + zvalor) = "A" then
  7.     R.Sol.Set(zfichatest, 1 + zvalor, "1")
  8.   else
  9.     R.Sol.Set(zfichatest, 1 + zvalor, "0")
  10.   end if
  11.   DoShow(32)
  12.   DoHide(33, 34)
  13.   updateStage()
  14. end
  15.