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

*---> Program: Main.prg
*---> Author: Chris K. Kaufman
*---> Last Update: 18-Feb-91
*---> Purpose: Demonstrate use of procedures in Procs.prg
*---> Uses: Procs.prg, Menu.dbf, Menu.ndx, Sample.dbf, Sample.ndx

*---> initialize evironment
close all
set device to screen
set color to
set talk off
set echo off
set status off
set scoreboard off
set escape off
set procedure to procs
*---> load menus
select 9
use menu index menuscrn
*---> initialize menu selection
mainsel = 0
*---> main loop
do while .t.
set color to
do title with 'P R O C E D U R E D E M O N S T R A T I O N M E N U'
do menu with 'main menu ', mainsel
do case
case mainsel = 0
*---> menu
do menuinf
case mainsel = 1
*---> error message
do errmsginf
case mainsel = 2
*---> blank menu
do blmenuinf
case mainsel = 3
*---> title
do titleinf
case mainsel = 4
*---> clear window
do clrwininf
case mainsel = 5
*---> display instructions
do dinstinf
case mainsel = 6
*---> picklist
do plistinf
case mainsel = 7
*---> exit to dot prompt
set color to
clear
exit
case mainsel = 8
*---> quit to DOS
set color to
clear
quit
case mainsel = 9
*---> display help
do disphelp
otherwise
do errormsg with 'Invalid menu selection. Press any key to continue.'
endcase
enddo