0 'DESIGN.BA Unknown
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 W=4:D=10:K=2: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
3 Y=RND(1)*H:Y1=RND(1)*H:DIMA(D,4):I=1:E=2:CLS:LINE(0,0)-(L,H),1,B:PRINT CHR$(2)
4 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)
5 A(I,1)=X:A(I,2)=Y:A(I,3)=X1:A(I,4)=Y1:I=I+1:IFI>DTHENI=1
6 E=E+1:IFE>DTHENE=1
7 IFX+XI<1ORX+XI>LTHENXI=-1*SGN (XI)*((RND(1)*W)+K)
8 IFX1+XJ<1ORX1+XJ>LTHENXJ=-1*SGN (XJ)*((RND(1)*W)+K)
9 IFY+YI<1ORY+YI>HTHENYI=-1*SGN (YI)*((RND(1)*W)+K)
10 IFY1+YJ<1ORY1+YJ>HTHENYJ=-1*SGN(YJ)*((RND(1)*W)+K)
11 X=X+XI:Y=Y+YI:X1=X1+XJ:Y1=Y1+YJ:GOTO4