Graphics 640,480,16,2
SetBuffer BackBuffer()
Repeat
Cls
TextTyper(100,100,"Hallo Welt",250)
Flip
Until KeyHit(1) : End
Global ctext$
Global tt_time=MilliSecs()
Function TextTyper(x,y,txt$,speed)
If MilliSecs()-tt_time>speed
tt_time=MilliSecs()
lang=Len(ctext$)+1
If lang>Len(txt$) : ctext$="" : lang=1 : EndIf
ctext$=Left(txt$,lang)
EndIf
Text x,y,ctext$,0,0
End Function
|