home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / ags / lightbar.prg < prev    next >
Encoding:
Text File  |  1988-01-27  |  419 b   |  12 lines
  1. * choice and key should be public variables
  2. parameter choice, row,  col,  rows,  cols,;
  3.           total,  sep,  width,  backgrnd,  color
  4. menubar = chr(choice) + ' ' + chr(row+1) + chr(col+1) + ;
  5.           chr(rows) + chr(cols) + chr(total) + chr(sep) +; 
  6.           chr(width) + chr(backgrnd) + chr(color)
  7. call menubar with menubar
  8. choice = asc(substr(menubar,1,1))
  9. key    = asc(substr(menubar,2,1))
  10. return
  11.  
  12.