1     rem ::::::::::::::::::::::
2     poke &3805,&10,&46,&D7,&D6,&24,&28,&03,&EB,&D1,&10,&60,&BA,&84,&1B,&79,&80,&45
3     poke &3816,&02,000,&79,&A7,&96
10    for I=0 to 15
20    call &3805
30    for J=0 to 15
40    A=I+16*J
50    if A=8 or A=10 or (A>12 and A<16) let A=32
60    poke &3817,A
70    call &3816
80    next J
90    call &A920
100   next I