new

10 for j=0 to 255
20 poke 28672+j,j
30 next
40 print@256," ";

run
