100 FOR I=0 TO 24
110 : Y=INT(I*127/24)
120 : FOR J=0 TO 39
130 :   X=INT(J*127/39)
140 :   HL = (X OR Y) AND NOT (X AND Y)
150 :   H = INT(HL / 8)
160 :   L = HL - 8 * H
170 :   POKE 2048+I*40+J,L*16+H
180 :   POKE 3072+I*40+J,160
190 : NEXT J
210 NEXT I
220 GETKEY K$