>>844
font "Webdings",74 : b=""
*main
redraw 0
color 255,255,255:boxf
a = 51 + (c\4)
poke b,0,a
color : pos 300,200 : mes b
redraw 1
c++
await 100
goto *main