home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ags
/
report.prg
< prev
next >
Wrap
Text File
|
1988-05-03
|
748b
|
39 lines
* Program Report Menu
* RL Coppedge
* 14 Mar 88
* V 2.10
*
CLEAR
PUBLIC Ind,Name,Ch,Act
SET TALK OFF
SET HEADING OFF
SET MARGIN TO 10
DO WHILE .T.
CLEAR
?
SET COLOR TO B+
? Db_ttl + ' System'
SET COLOR TO W
? 'Report Menu'
? 'Choose from the following:'
? 'Dummy Menu'
?
?
WAIT 'Which one do you want (Q to quit) ' TO Choice
DO CASE
CASE Choice = '1'
CASE Choice = '2'
CASE Choice = '3'
CASE Choice = '4'
CASE Choice = '5'
CASE Choice = '6'
CASE Choice = '7'
CASE Choice = '8'
CASE Choice = '9'
CASE UPPER(Choice) = 'Q'
RELEASE ALL
EXIT
ENDCASE Choice
ENDDO
RETURN