0 'GRAFIX.BA - AUTHOR UNKNOWN              CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
1 'TRS MODEL100 - *GRAPHIX*
2 W=4 '           STEP
3 D=10 '          NUMBER OF BARS
4 K=2 '           ADD TO RND(W)
5 L=238:H=62:FORX=1TO4:Z=RND(W):NEXT:XI=RND(1)*W:XJ=RND(1)*W:YI=RND(1)*W:YJ=RND(1)*W:X=RND(1)*L:X1=RND(1)*L:Y=RND(1)*H:Y1=RND(1)*H:DIM A(D,4):I=1:E=2:CLS:LINE(0,0)-(L,H),1,B:PRINT CHR$(2)
6 LINE(A(E,1),A(E,2))-(A(E,3),A(E,4)),0:LINE(X,Y)-(X1,Y1):LINE(L-A(E,1),A(E,2))-(L-A(E,3),A(E,4)),0:LINE(L-X,Y)-(L-X1,Y1):A(I,1)=X:A(I,2)=Y:A(I,3)=X1:A(I,4)=Y1:I=I+1:IF I>D THEN I=1
7 E=E+1:IF E>D THEN E=1
8 IF X+XI<1 OR X+XI>L THEN XI=-1*SGN(XI)*((RND(1)*W)+K)
9 IF X1+XJ<1 OR X1+XJ>L THEN XJ=-1*SGN(XJ)*((RND(1)*W)+K)
10 IF Y+YI<1 OR Y+YI>H THEN YI=-1*SGN(YI)*((RND(1)*W)+K)
11 IF Y1+YJ<1 OR Y1+YJ>H THEN YJ=-1*SGN(YJ)*((RND(1)*W)+K)
12 X=X+XI:Y=Y+YI:X1=X1+XJ:Y1=Y1+YJ:GOTO6