Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : ADVANCED.ZIP
Filename : IMENU.PRG

**************************************************** IMENU.PRG
* Main menu for the Inventory System.
*
SET STATUS OFF
CLEAR ALL
SET TALK OFF
SET BELL OFF
SET SAFETY OFF
SET HEADING OFF
CLEAR

*------- Create underline variable, ULine.
ULine = REPLICATE("_",80)

*------- Create memory variable for today's date.
T_Date = DATE()
@ 17,5 SAY "*** To change date, type new date and press RETURN ***"
@ 15,5 say "Today's date = " GET T_Date PICT "99/99/99"
READ

*------- Set up loop for presenting Main Menu.
IChoice = 0
DO WHILE IChoice # 4
CLEAR

@ 2,1 SAY "Inventory System Main Menu"
@ 2,60 SAY DTOC(T_Date) + " " + TIME()
@ 3,0 SAY ULine
?
?
TEXT
1. Manage master inventory

2. Record sales

3. Record new stock


4. Exit
ENDTEXT

*------- Wait for answer.
@ 24,1 SAY "Enter choice: " GET IChoice PICT "9" RANGE 1,4
READ

DO CASE
CASE IChoice = 1
DO MMenu
CASE IChoice = 2
DO SMenu
CASE IChoice = 3
DO NMenu
ENDCASE

ENDDO (while IChoice # 4)

*------- When done, exit dBASE.
CLEAR
*QUIT