текст то выведу,а как сделать так чтоб он исчез?
Function alert(path$)
f=OpenFile(path$)
While Not Eof(f)
a = LoadFont("courier",25,1,1,0)
SetFont a
Color 0,0,0
Rect 0,600,1024,768
Color 255,0,0
Text 0,605,ReadLine$(f)
FreeFont a
time = time+1
If time>100
dialog = False
time = 0
EndIf
Wend
CloseFile(f)
End Function
-этот код не работает!исправте!