home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / DATADEMO.B < prev    next >
Text File  |  1997-09-12  |  258b  |  19 lines
  1. * Shows the use of the DATA statement
  2.  
  3.  CONST Red=1
  4.  CONST Green=2
  5.  CONST Blue=3
  6.  
  7.  DIM A$ AS STRING*10
  8.  DIM X AS BYTE
  9.  DIM Y AS BYTE
  10.  DIM Z AS BYTE
  11.  
  12.  RESTORE Colors
  13.  READ X,Y,Z,A$
  14.  PRINT X,Y,Z,A$
  15.  
  16. Colors DATA Red,Green,Blue
  17.  DATA "colors"
  18.  
  19.