home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / COLORED.BLOCKS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  152b  |  10 lines
  1. 10  GR : COLOR= 1
  2. 20  FOR X = 0 TO 39
  3. 30  FOR Y = 0 TO 39
  4. 40  PLOT X,Y
  5. 50 C = C +1
  6. 60  COLOR= C
  7. 70  IF C >15  THEN C = 0
  8. 80  NEXT Y
  9. 90  NEXT X
  10. 100  END