10 cls
20 for i=0 to 255
25 set(i,0):set(i,191):next
30 for i=0 to 191
35 set(0,i):set(255,i):next
