Draws a moire pattern in multiple color combinations.
Appears on
Capital Area Timex Sinclair User Groupโs Library Tape.
Gallery
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