10    scnclr
15    for i%=0 to 31
16    pena i%
20    box(1+i%,1+i% ; 80+i%,99+i%),1
30    next i%