1700 REM interference
1705 BORDER 0: INK 7: PAPER 0: BRIGHT 1: CLS : OVER 1
1710 LET dx=8*2^(1+INT (RND *3)): LET x1=256/dx: LET c=5+INT (RND *2): FOR g=0 TO 1: INK c: IF G THEN INK 8-C
1720 FOR k=0 TO x1-1: FOR n=0 TO 1: FOR x=0 TO dx-1: PLOT dx*k,175*n: DRAW x,175-350*n: PLOT dx*(k+1)-1,175*N: DRAW -x,175-350*N: NEXT x: NEXT n: NEXT k
1730 NEXT g: GO TO 1700
