home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00047.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  235 b   |  9 lines
  1. on mouseUp
  2.   global xcapi, y_linea, yNumFich
  3.   DoClick()
  4.   set aux to GetPosFich(integer(xcapi), integer(y_linea))
  5.   set xcapi to StrZero(GetNumCap(aux - 1), 2)
  6.   set y_linea to StrZero(GetNumFich(aux - 1), 2)
  7.   go(label("ficha"))
  8. end
  9.