1: scale = 5
2: for (a=1; a<500; a++) r=sqrt(a)
3: r
4: scale = 10
5: for (a=1; a<500; a++) r=sqrt(a)
6: r
7: scale = 25
8: for (a=1; a<500; a++) r=sqrt(a)
9: r
10: scale = 40
11: for (a=1; a<500; a++) r=sqrt(a)
12: r
13: quit
5762782 [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: 1995-03-30 07:29:36