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