5 CLS
7 REM BY ERIC W. TILENIUS
8 REM PPN: 70346,16
10 X=RND(3)*239:Y=RND(3)*63:X1=RND(4)*239:Y1=RND(4)*63
12 M=RND(2):IF M<.5 THEN M=0 ELSE M=1
20 LINE(X,Y)-(X1,Y1),M,BF
21 IF M=0 THEN M=1 ELSE M=0
23 LINE(X,Y)-(X1,Y1),M,B
25 LINE(X,Y)-(X1,Y1),M
30 GOTO 10