{* Надпись с затиранием *}

REM basic

' Надпись с затиранием


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

For i = 1 To LEN(a$) Step 1
    For q = 1 To 15000
    Next q
If INKEY$ = " { Then End
}
{If n = 1 Then c = 0 Else c = 12
}COLOR 0{1 + INT(RND * 15)
}LOCATE 10, i + 15
PRINT Mid$(a$, i, 1)
Next i
SLEEP 1
GoTo 32

End