Draws a moire pattern in multiple color combinations.
Content
Source Code
10 REM network
20 LET z=1
30 LET ink=INT (RND*5)+1
40 LET paper=INT (RND*5)+1
50 IF ink=paper THEN GO TO 30
55 PAPER paper: INK ink: CLS
60 FOR a=1 TO 2
70 FOR x=0 TO 254 STEP 2
80 PLOT 128,88: DRAW (-127*z)+(x*z),z*-87
90 NEXT x
100 FOR y=0 TO 175 STEP 2
110 PLOT 128,88: DRAW 127*z,z*-87+(y*z)
120 NEXT y
130 LET z=-z
140 NEXT a: PAUSE 100: GO TO 20
9990 SAVE "NETWORK" LINE 10