define class mytimeout as timer name = 'mytimeout' interval = 100000 nLastKey = -1 nMRow = -1 nMCol = -1 procedure timer with this if lastkey() = .nLastKey and ; mrow() = .nMRow and mcol() = .nMCol & Start to restart else .nLastKey = lastkey() .nMRow = mrow() .nMCol = mcol() endif endwith endproc enddefine