home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
disk_20.zip
/
NUDBMSX.ZIP
/
MAINMENU.PRG
< prev
next >
Wrap
Text File
|
1985-11-12
|
1KB
|
46 lines
***** Program: MAINMENU.PRG *****
* The Main Program, Display Main Menu
set talk off
set echo off
store ' ' to choice
do while .t.
clear
?" *********************************"
?" *** MAIN MENU ***"
?" *********************************"
?
?
?" Task Code Task"
?
?" [A] ACCOUNT Maintenance"
?
?" [B] Prepare BILLING"
?
?" [C] COST Maintenance"
?
?" [I] INVENTORY Control"
?
?" [P] PERSONNEL File Maintenance"
?
?" [Q] QUIT"
?
?
Wait " Enter your choice (type in task code)" to choice
do case
case upper(choice) = "A"
do acctmenu
case upper(choice) = "B"
do billing
case upper(choice) = "C"
do costmenu
case upper(choice) = "I"
do invnmenu
case upper(choice) = "P"
do emplmenu
case upper(choice) = "Q"
return
otherwise
loop
endcase
enddo