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

*--------------------------------------------------------------
*
* System Name: Beer Cans Inventory System
*
* Program Name: LISTDOC.PRG
*
* Programmer: Eric L. Poole
* Date: 18 February 1988
*
* Purpose: To display a menu of choices to list the Data
* Element Dictionary, User Guide, and all dBASE
* III Plus programs associated with the system
* to the Screen, or to the Printer for
* documentation purposes.
*
*--------------------------------------------------------------

do while .t.

set scoreboard off
set color to b/w
clear

choice = 1

set color to b/r
@ 6,18 to 15,59 double
set color to b/w
@ 4,18 say " SYSTEM DOCUMENTATION MENU "

set color to w+/
@ 7,19 say " "
@ 8,19 say " Choices are: "
set color to bg+/
@ 9,19 say " "
@ 10,19 say " 1. List Data Element Dictionary "
@ 11,19 say " 2. List User Guide "
@ 12,19 say " 3. List DBASE III Plus Programs "
@ 13,19 say " 4. Return to Main Menu "
@ 14,19 say " "

set color to b/w
@ 17,19 say " Enter your choice: " get choice picture "9" 
range 1,4
read

if choice = 4
return
endif

do case

case choice = 1
do listdoc1.prg
case choice = 2
do listdoc2.prg
case choice = 3
do listdoc3.prg

endcase

enddo (while .t.)