home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d969
/
ace.lha
/
ACE
/
ACE-2.0.lha
/
PRGS.lha
/
BenchMarks
/
lines.b
< prev
next >
Wrap
Text File
|
1994-01-10
|
356b
|
24 lines
'..time how long it takes to draw 10,000 random lines.
screen 1,640,200,2,2
palette 0,0,0,0
palette 1,1,1,1
palette 2,0,1,0
color 2
time0=timer
for i%=1 to 10000
line (int(rnd*640!),int(rnd*200!))-(int(rnd*640!),int(rnd*200!))
next
time1=timer
locate 2,1
color 1,0
print "Time elapsed:";time1-time0;"seconds."
while inkey$="":wend
screen close 1