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

**************************************************** SMENU.PRG
* Menu for Sales portion of the Inventory System.
* Called from Inventory System Main Menu.

*------- Set up loop for presenting menu.
SChoice = 0
DO WHILE SChoice # 4

CLEAR
@ 2,1 SAY "Sales System Menu"
@ 2,60 SAY DTOC(T_Date) + " " + TIME()
@ 3,0 SAY ULine
?
?
TEXT
1. Enter point-of-sale routine

2. Print sales reports

3. Edit sales data


4. Return to Main Menu
ENDTEXT

@ 24,1 SAY "Enter choice (1-4) " GET SChoice PICT "9"
READ

*------- Branch to appropriate program.
DO CASE
CASE SChoice = 1
DO Pos
CASE SChoice = 2
DO SalReps
CASE SChoice = 3
DO SalEdit
ENDCASE

ENDDO (while SChoice # 4)

*------- When done, return to Main Menu.
RETURN