sub PUTSTRING(s$, x%, y%)
' ⎺⎺⎺⎺⎺⎺⎺⎺⎺
for c = 1 to len(s$)
   sc$ = MID$(s$, c, 1)
this$ = _GETCHR$(ASC(sc$))
for yi = 0 to 7
for xi = 0 to 7
IF MID$(this$, (xi + yi*8) + 1, 1) = "X" THEN PSET (x% + xi + (c-1)*8, y% + yi)
next xi
next yi
next c
end sub

screen _newimage(1280, 480, 0 )

_LETCHR$(0 , _
    "X......." + _
    "XX......" + _
    "XXX....." + _
    "XXXX...." + _
    "XXXXX..." + _
    "XXXXXX.." + _
    "XXXXXXX." + _
    "XXXXXXXX")
    
_LETCHR$(1 , _
    ".......X" + _
    "......XX" + _
    ".....XXX" + _
    "....XXXX" + _
    "...XXXXX" + _
    "..XXXXXX" + _
    ".XXXXXXX" + _
    "XXXXXXXX")
    
_LETCHR$(2 , _
    "XXXXXXXX" + _
    ".XXXXXXX" + _
    "..XXXXXX" + _
    "...XXXXX" + _
    "....XXXX" + _
    ".....XXX" + _
    "......XX" + _
    ".......X")
    
_LETCHR$(3 , _
    "XXXXXXXX" + _
    "XXXXXXX." + _
    "XXXXXX.." + _
    "XXXXX..." + _
    "XXXX...." + _
    "XXX....." + _
    "XX......" + _
    "X.......")
    
again:
    v = int(rnd*4)
    color int(rnd*15) + 1
    putstring( chr$(v), int(rnd*1280), int(rnd*480) )
    _delay 0.00125
    goto again