DEF SEG = &HB800
CLS
FOR c% = 0 TO 255
    POKE 3200 + c% * 2, c%
NEXT c%
SYSTEM