/[james]/archive/chess/Chesspic.opl
ViewVC logotype

Contents of /archive/chess/Chesspic.opl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 7 - (show annotations) (download)
Tue Jan 28 15:20:48 2003 UTC (21 years, 10 months ago) by james
File size: 177 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26