home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / bc-1.02-src.lha / src / amiga / bc-1.02 / Test / array.b next >
Encoding:
Text File  |  1991-12-17  |  192 b   |  15 lines
  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.  
  15.