1: scale = 20
2: for (a=1; a<5000; a += 1) r=sqrt(a)
3: r
4: for (a=1; a<50000; a += 100) r=sqrt(a)
5: r
6: for (a=1; a<500000; a+=1000) r=sqrt(a)
7: r
8: for (a=1; a<5000000; a+=10000) r=sqrt(a)
9: r
10: quit
5761880 [rkeene@sledge /home/rkeene/devel/old/bc-dos/Test]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 1996-06-03 17:18:39