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

REM basic

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


SCREEN 0
RANDOMIZE TIMER
SLEEP 1
{If INKEY$ = " " Then
}52 t = 0
a$ = "Ctr + Alt ... Ctr + POWER !!!"
2 n = 1 + INT(RND * 15)
For i = 1 To LEN(a$)
    For q = 1 To 600
If INKEY$  "{ Then 45
} Next q
  {n = 1 + INT(RND * 2)
}  {If n = 1 Then c = 0 Else c = 12
}COLOR n
LOCATE 23, i + 15
PRINT Mid$(a$, i, 1)
If INKEY$  "{ Then 45
}Next i
{t = t + 1
}a = a + 1
If a = 120 Then GoTo 45
{If t = 40 Then GoTo 23
}GoTo 2

23 {a$ = "Ctr + Alt ... Ctr + POWER !!!"
}87 n = 1 + INT(RND * 15)
For i = 1 To LEN(a$)
    For q = 1 To 400
 If INKEY$  "{ Then 45
} Next q
  n = 1 + INT(RND * 2)
  If n = 1 Then c = 0 Else c = 12
COLOR 1 + INT(RND * 15){n
}LOCATE 23, i + 15
PRINT Mid$(a$, i, 1)
If INKEY$  "{ Then 45
}Next i
{t = t + 1
}a = a + 1
If a = 120 Then GoTo 45
{If t = 80 Then GoTo 52
}GoTo 87
45 COLOR 9 + INT(RND * 7)
PRINT
COLOR 9 + INT(RND * 7): PRINT "░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░"
COLOR 9 + INT(RND * 7): PRINT "▒▒▓ ═╦═   ╔╗   ═╦═ ═╦═══╦ ═╦═    ═╦═══╦ ═╦═══╦═   ╔╗      ╔╗   ═╦════╦ ╔══╗ ▓▒░"
COLOR 9 + INT(RND * 7): PRINT "▓▒   ║   ╔╝╚╗   ║   ║      ║      ║      ║   ║    ║╚╗    ╔╝║    ║      ║  ║  ▒░"
COLOR 9 + INT(RND * 7): PRINT "█    ╚╗ ╔╝  ╚╗ ╔╝   ╠══╣   ║      ║      ║   ║   ╔╝ ╚╗  ╔╝ ╚╗   ╠══╣   ╚╗╔╝   ░"
COLOR 9 + INT(RND * 7): PRINT "▓▒    ║╔╝    ╚╗║    ║      ║   ╦  ║   ╦  ║   ║   ║   ╚╗╔╝   ║   ║       ╚╝   ▒░"
COLOR 9 + INT(RND * 7): PRINT "▒▒▓   ╚╝      ╚╝   ═╩═══╩ ═╩═══╝ ═╩═══╝ ═╩═══╩═ ═╩═   ╚╝   ═╩═ ═╩════╩  ╚╝  ▓▒░"
COLOR 9 + INT(RND * 7): PRINT "░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░▒▓█▓▒░{
}SLEEP 1
'End If