home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
do1beta.zip
/
DBFTEST.DO
< prev
next >
Wrap
Text File
|
1991-08-25
|
399b
|
14 lines
/*
create a menu of all the last names within a range
of records in the dbf file
NOTE - you must run the CRDEMO.DO file before running this program
*/
d = new(Dbffile,"patient");
setFilter(d,#(recno(d) >= 8L) & (recno(d) <= 15L));
a = sort(asCollection(d,#trim(lname)));
m = new(Menu,80,3,3,5,31,3,a," Last Name ");
c = choice(m,1);
remove(m);
? "your menu choice was ",c;
close(d);