home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / colours.bas < prev    next >
BASIC Source File  |  1988-05-22  |  161b  |  9 lines

  1. 5     n% = 20
  2. 10    for x% = 0 to 7
  3. 20    for y% = 0 to 3
  4. 30    pena x%*4 + y%
  5. 40    a% = x%*n%
  6. 50    b% = y%*n%
  7. 60    box(a%,b%;a%+n%,b%+n%),1
  8. 70    next y%,x%
  9.