100 DEFINT A-Z
110 C=15*8:'Y*8
120 SCREEN 12
130 COLOR 255,0,0
140 FOR J=-32 TO 31
150 X=128+J*256/64
160 LINE(X+2,0)-(X+2,211),C+(J AND 7)
170 LINE(X+3,0)-(X+3,211),C+(J AND 58)/8
180 NEXT J
190 FOR K=-32 TO 31
200 Y=106+K*212/64
210 LINE(0,Y)-(0,Y+3),C+(K AND 7)
220 LINE(1,Y)-(1,Y+3),C+(K AND 56)/8
230 NEXT K
240 FOR X=4 TO 255 STEP 4
250 COPY(0,0)-(1,211)TO(X,0)
260 NEXT X
270 GOTO 270