Patterns 2

Source Code

   10 OVER 1: BORDER 4: INK 4: PAPER 0: CLS 
   20 GO SUB 70
   30 LET a=4
   40 LET i=INT (RND*7): IF i=a OR i=0 THEN GO TO 40
   50 LET a=i
   60 INK i: PAPER 9: BORDER i: CLS : GO SUB 100: GO SUB 70: GO TO 40
   70 FOR x=0 TO 255 STEP RND*2
   80 PLOT x,0: DRAW 255-x,175: PLOT 255-x,175: DRAW x-255,-175
   90 NEXT X: RETURN 
  100 FOR x=0 TO 255 STEP RND*2
  110 PLOT x,175: DRAW 255-x,-175: PLOT 255-x,0: DRAW x-255,175
  120 NEXT X: RETURN 
  130 OVER 1: RANDOMIZE 
  140 BORDER 0: PAPER 0: CLS 
  150 LET x=RND*128
  160 LET y=RND*88
  170 INK RND*7: BRIGHT INT (RND*2)
  180 PLOT x,y: PLOT 255-x,y: PLOT x,175-y: PLOT 255-x,175-y
  190 IF INKEY$="" THEN GO TO 150
  200 RUN 
  210 SAVE "PATTERNS 2" LINE 130