home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
ace_basic
/
ace
/
prgs
/
benchmarks
/
lines.b
< prev
next >
Wrap
Text File
|
1977-12-31
|
419b
|
29 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
window 1,,(0,0)-(640,200),0,1
randomize timer
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
color 1,0
locate 2,1
print "Time elapsed:";time1-time0;"seconds."
while inkey$="":wend
window close 1
screen close 1