10 cls:width32
20 a=&h21
30 for i=&h2000 to &h201f
40 vpoke i,a
50 a=a+&h10
55 if a>&hf1 then a=&h21
60 next
70 for i=32 to 255
80 locate imod16,i/16 :print chr$(i);
90 next
xxxxxxxxxx
​