PROC m:
LOCAL x%,y%
gCREATE(0,0,24,24,1)
x%=3
y%=0
DO
gAT x%,y%
gFILL 3,3,0
x%=x%+6
IF x%>24 :x%=x%-27 :y%=y%+3 :ENDIF
UNTIL y%>24
gSAVEBIT "Chess.PIC"
GET
ENDP