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

Annotation of /archive/chess/Chesspic.opl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 james 7 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