archive/chess/Chesspic.opl

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

1	PROC m:
2	LOCAL x%,y%
3	gCREATE(0,0,24,24,1)
4	x%=3
5	y%=0
6	DO
7	gAT x%,y%
8	gFILL 3,3,0
9	x%=x%+6
10	IF x%>24 :x%=x%-27 :y%=y%+3 :ENDIF
11	UNTIL y%>24
12	gSAVEBIT "Chess.PIC"
13	GET
14	ENDP
15