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

******** Programer : M. Mak / NYC 1987 ************
****************** All Rights Reseved ************
clear
close all
set status on
set exact off
DO WHILE .T.
close all
clear
@1,18 to 3,55
@2,20 say "M A I L I N G M E N U "+ dtoc(date())
@4,10 to 18,60 double
@ 5,2 say " "
@6,15 say "[A] - Add Record [L] - List Records"
@7,15 say " "
@8,15 say "[B] - Browse Records [P] - Print Labels"
@9,15 say " "
@10,15 say "[D] - Delete Record [S] - Search Records"
@11,15 say " "
@12,15 say "[E] - Edit Records [H] - Help (Assist)"
@13,15 say " "
@14,15 say "[I] - Index File [Q] - QDOS"
@15,15 say " "
@16,15 say "[R] - Run DOS Program [X] - Exit "
answer = " "
do while .NOT. answer$"AaBbDdEeHhIiLlQqPpRrSsXx"
@ 19,5 say " "
wait " Please Input Your Choice : " to answer
enddo
@ 20,10 say " Please Stand By........ "
DO CASE
case upper(answer)="A"
do aprec
use address index lnamedex
clear
@10,15 say "Please Stand By ........"
reindex
case upper(answer)="B"
do browrec
case upper(answer)="D"
do delrec
clear
@10,15 say "Please Stand By ........."
use address index lnamedex
reindex
case upper(answer)="E"
do editfile
clear
pack
@10,15 say "Please Stand By ........"
use address index lnamedex
reindex
case upper(answer)="H"
assist
case upper(answer)="I"
clear
@10,15 say "Please Stand By ........"
use address index lnamedex
reindex
case upper(answer)="L"
do listrec
case upper(answer)="P"
do label
case upper(answer)="R"
clear
@ 10,10 say " "
accept " File name : " to runfile
clear
@10,10 say " Please Stand by ......."
run &runfile
clear
case upper(answer)="Q"
clear
@10,15 say "Please Stand by........."
run QDOS
case upper(answer)="S"
do schrec
case upper(answer)="X"
clear
return
ENDCASE
clear
enddo
return