begstr.BAS

{* Бегущая строка *}

REM basic

' Бегущая строка



SCREEN 9{бегущая строка
}empty$ = String$(79, 32)
t$ = "begushaya stroka"
tec$ = empty$ + t$
l = LEN(tec$)
COLOR 15, 1
For i = 1 To l
tec$ = Mid$(tec$, 2, l - i) + empty$
LOCATE 12, 1
PRINT Mid$(tec$, 1, 79)
For j = 1 To 50000
Next j
Next i