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