home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / grp / design.ba < prev    next >
Text File  |  2006-10-19  |  769b  |  13 lines
  1. 0 'DESIGN.BA Unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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
  4. 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)
  5. 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)
  6. 5 A(I,1)=X:A(I,2)=Y:A(I,3)=X1:A(I,4)=Y1:I=I+1:IFI>DTHENI=1
  7. 6 E=E+1:IFE>DTHENE=1
  8. 7 IFX+XI<1ORX+XI>LTHENXI=-1*SGN (XI)*((RND(1)*W)+K)
  9. 8 IFX1+XJ<1ORX1+XJ>LTHENXJ=-1*SGN (XJ)*((RND(1)*W)+K)
  10. 9 IFY+YI<1ORY+YI>HTHENYI=-1*SGN (YI)*((RND(1)*W)+K)
  11. 10 IFY1+YJ<1ORY1+YJ>HTHENYJ=-1*SGN(YJ)*((RND(1)*W)+K)
  12. 11 X=X+XI:Y=Y+YI:X1=X1+XJ:Y1=Y1+YJ:GOTO4
  13.