1 a=56334:pokea,0:poke1,51:fori=0to2047:poke8192+i,peek(53248+i):next
2 poke1,55:pokea,1:fori=0to23:poke8408+i,0:next:fori=0to4:readv
3 poke8409+i,vand15:poke8417+i,v:poke8425+i,vand240:next:poke53272,24
4 fori=0to11:w=iand3:v=w+(i-w)*(w+1)/4:gosub5:next:v=1:gosub5:gosub5:end
5 c$=" ":m=19-v:gosub6:print"[";:c$="\":m=2*v:gosub6:print"]":m=0
6 ifm>0thenfork=1tom:printc$;:next
7 return:data102,195,255,195,102