home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / ARRDEMO.B next >
Text File  |  1997-09-11  |  228b  |  15 lines
  1. * This shows the use of arrays
  2.  
  3.  DIM X(4) AS BYTE
  4.  DIM Y(2,2) AS BYTE VECTOR
  5.  DIM I AS LONG
  6.  
  7.  SETVEC Y=ADDR(X)
  8.  FOR I=1 TO 4
  9.         X(I)=I*2
  10.  NEXT I
  11.  FOR I=1 TO 2
  12.         PRINT Y(I,1)
  13.         PRINT Y(I,2)
  14.  NEXT I
  15.