cool c64 screen hack

[unbibium]


5 rem display something cool on the c64
10 poke 53281,14:print"{lblu}{clr}":poke 53281,6
20 poke 53272,88:sc=8192:ff=255
30 for ch=0 to ff
40 b=1:for r=0 to 7
50 poke sc,(ch and b)>0 and ff
60 sc=sc+1:b=b*2
70 next r,ch
80 geta$:if a$=""then 80
90 poke 53272,21