5761219 [rkeene@sledge /home/rkeene/devel/old/bc-dos/Test]$ cat -n array.b
   1: "This tests arrays!
   2: "
   3: define p(x,y) {
   4:   auto i;
   5:   for (i=x; i<y; i++) a[i];
   6: }
   7: 
   8: for (i=0; i<10; i++) a[i] = i;
   9: j = p(0,10);
  10: 
  11: for (i=1000; i<1030; i++) a[i] = i;
  12: j = p(1000,1030);
  13: j = p(0,10);
  14:
5761220 [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:03