home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / BUFDEMO.B < prev    next >
Text File  |  1997-09-11  |  342b  |  20 lines
  1. * This shows the use of memory buffers
  2.  
  3.  DIM A$ AS STRING*26
  4.  DIM B$ AS STRING*26 VECTOR
  5.  
  6.  BUFFER Buf=26
  7.  IF BUFSIZ(Buf)<26 THEN
  8.         PRINT "Failure opening buffer"
  9.         END
  10.  END IF
  11.  INIT Buf,02ah\ fill with '*'
  12.  A$="abcdefghijklmnopqrstuvwxyz"
  13.  SETVEC B$=BUFADR(Buf)
  14.  PRINT B$
  15.  B$=A$
  16.  MAKEUPPER B$
  17.  A$=B$
  18.  PRINT A$
  19.  
  20.