10 PRINT CHR$(11)
20 CS=12328+1024
30 FOR Y=0 TO 23
40 FOR X=0 TO 15
50 POKE CS+40*Y+X+16,X
60 NEXT
70 NEXT
80 GOTO 80