10 FOR I=0 TO 255
20 FOR J=0 TO 7
30 K=VPEEK(I*8+J)
40 L=K OR (K\2)
50 VPOKE I*8+J,L
60 NEXT
70 NEXT
xxxxxxxxxx
​