home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / bc-102.zip / bc-1.02 / Test / array.b next >
Text File  |  1991-12-16  |  192b  |  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.