home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / ASCII._ / FORM.1 < prev    next >
Encoding:
Text File  |  1994-01-13  |  384 b   |  17 lines
  1. Arg window
  2.  
  3. ascii=0
  4.  
  5. DO row = 1 to 15 by 1
  6.   DO column = 1 to 17 by 1
  7.     /* Set cell value  Value Set */
  8.     CALL VpSetItemValue window,1000,d2c(ascii),row,column
  9.     ascii=ascii+1
  10.   END
  11. END
  12.  
  13. /* Set item foreground color  Value Set */
  14. CALL VpItem window,1000,'FORECOLOR','BLACK'
  15. /* Set item background color  Value Set */
  16. CALL VpItem window,1000,'BACKCOLOR','WHITE'
  17.