home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00067.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  1.2 KB  |  16 lines
  1. on enterFrame
  2.   global xhelp, xtransi, xmusica, xcapi, y_linea, y_frame, aux, y_datos, y_opc
  3.   DoHide(20, 21)
  4.   resetFields()
  5.   set aux to GetPosFich(xcapi, y_linea)
  6.   set xcapi to StrZero(GetNumCap(aux), 2)
  7.   set y_linea to StrZero(GetNumFich(aux), 2)
  8.   cursor(4)
  9.   if xtransi then
  10.   else
  11.     go("dos")
  12.   end if
  13.   set y_datos to [[1, 1, "xox"], [1, 2, "xxx"], [1, 3, "xxx"], [1, 4, "xxx"], [2, 1, "xxx"], [2, 2, "xxx"], [2, 3, "xxx"], [2, 4, "xxx"], [2, 5, "xxx"], [2, 6, "xxx"], [3, 1, "xxx"], [3, 2, "xxx"], [3, 3, "xxx"], [3, 4, "xxx"], [3, 5, "xox"], [3, 6, "xxx"], [4, 1, "xxx"], [4, 2, "xxx"], [4, 3, "xxx"], [4, 4, "xxx"], [4, 5, "xox"], [4, 6, "xxx"], [4, 7, "xxx"], [4, 8, "xxx"], [5, 1, "xxx"], [5, 2, "xxx"], [5, 3, "xxx"], [5, 4, "xxx"], [6, 1, "xxx"], [6, 2, "xxx"], [6, 3, "xxx"], [6, 4, "xxx"], [6, 5, "xxx"], [7, 1, "xxx"], [7, 2, "xxx"], [7, 3, "xxx"], [7, 4, "xox"], [8, 1, "xxx"], [8, 2, "xxx"], [8, 3, "xxx"], [8, 4, "xox"], [8, 5, "xxx"], [9, 1, "xxx"], [9, 2, "xxx"], [9, 3, "xxx"], [9, 4, "xxx"], [9, 5, "xxx"], [9, 6, "xxx"], [9, 7, "xxx"], [9, 8, "xxx"], [10, 1, "xoo"], [10, 2, "xoo"], [10, 3, "xoo"], [10, 4, "xoo"], [10, 5, "xoo"], [10, 6, "xoo"], [10, 7, "xoo"]]
  14.   set y_opc to [4, 6, 6, 8, 4, 5, 4, 5, 8, 7]
  15. end
  16.