|
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$
|