Merry Marquee

[James D Jarvis]

A simple Marquee effect to display a horizontally scrolling seasonal message.

Code: (Select All)

'merry marquee
_Title "Merry Marquee"
Screen _NewImage(800, 288, 256)
msg = _NewImage(800, 288, 256)
_Dest msg
Color 8, 0
A$ = "        Have A MERRY CHRISTMAS and a HaPpY NeW YeAr !!!             "
Print A$
_Source msg
_Dest 0
Color 15, 0
pmax = Int((_Width) / 8)
prows = Len(A$) * 8
If prows < pmax Then
    maxp = prows
Else
    maxp = (prows + 1) - pmax
End If

For pstart = 0 To maxp
    _Limit 20
    Cls
    For y = 0 To 16
        x = 1
        Color 15, 0
        If Int(Rnd * 20) < 5 Then _PrintString (Int(Rnd * _Width), Int(Rnd * _Height)), "*"
        Do
            If Point(pstart - 1 + x, y) <> 0 Then
                Color Int(1 + Rnd * 8)
                Locate y + 2, x + 1
                Print Chr$(219)
            End If
            x = x + 1
        Loop Until x = pmax - 8
    Next y
    _Display
Next pstart