10 'Шахматная доска!
20 INPUT "Координаты X,Y";X,Y:X=X-XMOD8:Y=Y-YMOD8
21 IF X=0 THEN X=8
22 U=Y/8*32+X/8
25 COLOR 1,15,1:SCREEN 2
30 FOR T=0 TO 3:FOR I1=0 TO 1:FOR I2=0 TO 1:FOR F=U TO U+12 STEP 4:FOR K=0 TO 1
40 VPOKE BASE(10)+(F+(64+2)*K)+I2+32*I1+128*T,VPEEK (BASE(10)):NEXT K,F,I2,I1,T
50 LINE(0,0)-(8,192),1,BF:LINE(X,Y)-STEP(128,128),1,B:A$=INPUT$(1)