10 DIM test$(1000, 1000)
   20 FOR s = 1 TO 1000 CYCLE
   30   FOR d = 0 TO 1000 CYCLE
   40     PRINT "size: ";  s;  " width: ";  d
   50     PROC fill(s, d)
   60     REPEAT
   70   REPEAT
   75 PRINT
   80 END
  500 DEF PROC fill(size, width)
  510 LOCAL x, y
  520 FOR x = 0 TO size - 1 CYCLE
  530   FOR y = 0 TO size-1 CYCLE
  540     test$(x, y) = SPACE$ (width)
  550     REPEAT
  560   PRINT ".";
  570   REPEAT
  580 PRINT
  590 ENDPROC
40
560
580