Output of file : EGALINES.BAS contained in archive : JWEGADEM.ZIP
defint a-z
dim a1(2500 ),a2(2500 ),b1(2500 ),b2(2500 )
SCREEN 1,1
COLOR 0,0
cnt=0
input "Enter number of iterations:",cnt
if cnt=0 then cnt=1000
stp = -1
print "redraw after ? lines:"
while stp < 0 or stp > 2501
input "(MAX=2500, 2501 for no redraw)",stp
wend
cls
GOSUB 5000 : ' get random seed and randomize
gosub 4000 : ' get first set of points
x1=xa:x2=xb:y1=ya:y2=yb:c=1:k=0:CN=0
print "spacebar to reblank screen : S to quit"
for p=1 to cnt
d=d+1
c=c+1
CN=CN+1
if c>3 then c=1
if d>15 then d=2
IF CN > 48 THEN CN=0:PALETTE 0,C0:C0=C0+1:IF C0 > 7 THEN C0=0
palette c,d
gosub 3000 'draw a set of lines using color c

ink\$=inkey\$
if ink\$=" " then cls:print "spacebar to reblank screen : S to quit"
if ink\$="s" then p=cnt+1
if ink\$="S" then p=cnt+1
next p
end
3000'print " ":' lprint "ITERATION #";p:' lprint " "
spd=40*rnd(1) : spd=200+(spd*100)
gosub 4000
'print xa;" ";ya;" ";xb;" ";yb;" target"
incr=20+(rnd(1)*80)
dx1=(xa-x1)/incr
dx2=(xb-x2)/incr
dy1=(ya-y1)/incr
dy2=(yb-y2)/incr
'print dx1;" ";dy1;" ";dx2;" ";dy2;" increment"
for i=1 to incr
x1=x1+dx1 :x2=x2+dx2:y1=y1+dy1:y2=y2+dy2
gosub 3500
line (x1,y1)-(x2,y2),c
'print x1;" ";y1;" ";x2;" ";y2;" in loop"
for ix=1 to spd:next ix
next i
return
3500 'store plotted points
k=k+1
if k > stp then k=1
kx=k+1
if kx > stp then kx=1
'print "k=";k;" kx=";kx
a1(k)=x1:a2(k)=x2:b1(k)=y1:b2(k)=y2
line (a1(kx), b1(kx)) - (a2(kx), b2(kx)),0
return
4000 ' generate random points
xa=(300*(RND(1)))+10
xb=(300*(RND(1)))+10
ya=(180*(RND(1)))+10
yb=(180*(RND(1)))+10
RETURN
5000 ' generate a random seed number
A1\$=MID\$(TIME\$,4,2):A2\$=MID\$(TIME\$,7,2):A3\$=MID\$(TIME\$,1,2)
V1 = (100 * VAL(A2\$)) + VAL(A1\$) - VAL(A3\$):RANDOMIZE V1:RETURN

### 3 Responses to “Category : Printer + Display GraphicsArchive   : JWEGADEM.ZIPFilename : EGALINES.BAS”

1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/