home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / VECDEMO.B < prev    next >
Text File  |  1997-09-11  |  338b  |  17 lines
  1. * This shows the use of vectors
  2.  
  3.  DIM A$ AS STRING*26
  4.  DIM X(26) AS BYTE VECTOR
  5.  DIM I AS LONG
  6.  
  7.  HEXOUT=INTEL\ set Intel hex output mode (0xxxh)
  8.  A$="abcdefghijklmnopqrstuvwxyz"
  9.  SETVEC X=ADDR(A$)
  10.  FOR I=1 TO 26
  11.         PRINT HEX$(X(I));" ";
  12.         IF MOD(I,13)=0 THEN
  13.                 PRINT
  14.         END IF
  15.  NEXT I
  16.  PRINT
  17.