{* Переливная надпись *}

REM basic

' Переливная надпись


SCREEN 7 {переливная надпись
}CLS
a$ = "MAXIM"
2 n = 1 + INT(RND * 15)
For i = 1 To LEN(a$)
    For q = 1 To 15000
    Next q
If INKEY$ = " { Then End
}{n = 1 + INT(RND * 2)
}{If n = 1 Then c = 0 Else c = 12
}COLOR n{1 + INT(RND * 15)
}LOCATE 10, i + 15
PRINT Mid$(a$, i, 1)
Next i
GoTo 2

End