Wavey Words

[bplus]

Out?

maybe this is spiral

Code: (Select All)

_Title "Spiral Words 2, press escape to quit..." 'bplus mod 2025-10-08
Screen _NewImage(640, 400, 32): _ScreenMove 300, 150
_PrintMode _KeepBackground
p$ = "H.e.l.l.o...Q.B.6.4.P.E...W.o.r.l.d.!...H.e.l.l.o...Q.B.6.4.P.E...W.o.r.l.d.!.."
For i = 1 To 2
    p$ = p$ + p$
Next
da = .01
Do
    For y = 0 To 400
        Line (0, y)-(640, y), _RGB32(255 - 300 * y / 400, 255 - 300 * y / 400, 255 - 255 * y / 400)
    Next
    For j = 1 To 8
        Color _RGB32(255 - 32 * j, 255 - 32 * j, 255 - 12 * j)
        For l = 1 To Len(p$)
            _PrintString (l * 8 - j * 16, 124 - 64 * Sin(l / 3 + a) + j * 16), Mid$(p$, l, 1)
        Next
    Next
    _Display: _Limit 200: a = a + da
Loop Until _KeyDown(27)