ischezn.BAS

Прокладка ЛВС

Качественная прокладка ЛВС и СКС в офисах.

www.ecolan.ru

{* Исчезновение по буквам *}

REM basic

' Исчезновение по буквам


SCREEN 9{исчез. по буквам
}
CLS
WIDTH 40
14 sr = 2: st = 2
x$ = "VICTORY"
For i = 1 To LEN(x$)
COLOR 13
LOCATE sr, st
PRINT Mid$(x$, i, 1)
st = st + 1
For t = 1 To 100000: Next t
Next i
st = st - 1
For i = LEN(x$) To 1 Step -1
COLOR 0
LOCATE sr, st
st = st - 1
PRINT Mid$(x$, i, 1)
For t = 1 To 100000: Next t
Next i
GoTo 14
End