1: scale = 20
2: a=2/3
3: for (i=0; i<1000; i++) {
4: for (j=1; j<100; j++) b=a/j
5: }
6: b
7: quit
8:
5762836 [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:27