SET ESCAPE ON

ON ESCAPE CANCEL

lotmr=CREATEOBJECT("_tmrRT")
lotmr.Enabled=.T.

READ EVENTS


DEFINE CLASS _tmrRT AS Timer
  Name='_tmrRT'
  Enabled=.F.
  Interval=250

  cText="Běží liška k táboru nese pytel zázvoru. Ježek za ní pospíchá, že jí pytel rozpíchá. Běž zajíčku, běž za ní pober jí to koření. Liška se mu schovala, ještě se mu vysmála." 
  nIndex=1
    
  
  
  PROCEDURE Timer
    @ 1,1  SAY PADR(SUBSTR(This.cText,This.nIndex,50),100)
    This.nIndex=This.nIndex+1
    IF This.nIndex=LEN(This.cText)
       This.nIndex=1
       This.Enabled=.F.
       CLEAR EVENTS
    ENDIF
  ENDPROC 
ENDDEFINE