SET WINDOW 0,500,0,500
RANDOMIZE
OPTION BASE 0
DIM a(500,500)
FOR u=1 TO 499
   FOR v=1 TO 499
      LET r=RND
      IF r<0.5928 THEN
         PLOT LINES:u,v
      END IF
   NEXT v
NEXT u
LET b=1
FOR u=1 TO 499
   FOR v=1 TO 499
      ASK PIXEL VALUE (u,v) c
      IF c=1 THEN
         LET b=b+1
         IF b=255 THEN LET b=2
         SET AREA COLOR b
         flood u,v
      END IF
   NEXT v
NEXT u
END