Draws patterns.
Content
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