0 REM LINES.100 by Don Zeikel [75775,1430]
10 FORI=1TO250:NEXT:FORI=1TOINT(((VAL(RIGHT$(TIME$,2))))*((VAL(MID$(TIME$,4,2)))/2)*(VAL(MID$(DATE$,4,2)))/100):I3=RND(1):NEXT
15 DIMA(52),B(52),C(52),D(52)
20 CLS
30 FORJ=2TO52:FORI=1TO2:X(I)=INT(RND(1)*239)+1:Y(I)=INT(RND(1)*63)+1:NEXT
40 LINE(X(1),Y(1))-(X(2),Y(2)):A(J-1)=X(1):B(J-1)=X(2):C(J-1)=Y(1):D(J-1)=Y(2)
45 LINE(A(J),C(J))-(B(J),D(J)),0
50 NEXT:LINE(A(1),C(1))-(B(1),D(1)),0:GOTO30