Parent Directory
| 
Revision Log
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 |