PROCEDURE TEMENUF
* temenuf:
do while .t.
do hpar
do eurov                                && ****EURO
** do bild
   prog=" "
***************************
*melinks
za00="                                        "
za01="    BESTATTUNGSVERWALTUNG - SCHUMACHER  "
za02="                                        "
za03="           Vestische Straáe 146         "
za04="             46117 Oberhausen           "
za05="                                        "

za06="    [   H A U P T A U S W A H L   ]       "
za07="                                          "
za08="      1  Verwalten der Daten              "
za09="      2  šbersichten / Statistiken        "
za10="      3  Korrespondenz                    "
za11="      4  Formulardruck                    "
za12="      5  Terminkalender                   "
za13="      6  Kassenbuch                       "
za14="      7  Programm/Datenpflege             "
za15="      8  Jahresabschluá                   "
za16="      9  Vorvertr„ge                      "
za17="      S  Sonstige Programme               "
za18="      P  Prflauf                         "
za19="      X  DM/EURO-Umschaltung              "
za20="                                        "
za21="                                        "
za22="                                        "
za23="                                        "
za24="                                        "

****************************************************************

zb00="                                        "
zb01="                                        "
zb02="                                        "
zb03="                                        "
zb04="                                        "
IF cLon ="L"
   zb05="    Sie arbeiten LOKAL                  "
ELSE
   zb05="    Sie arbeiten im Netzwerk            "
ENDIF
*****************************************************************
*            ausgabe links
*****************************************************************

do hpar
*use mwstdat
k1="N"
k2="BG"

k3="W"
k4="N"
k5="W"
k6="N"
xxx = "&k1/&k2,&k3/&k4,,,&k5/&k6"
set color to &xxx

@ 0,0 say za00
@ 1,0 say za01
@ 2,0 say za02
@ 3,0 say za03
@ 4,0 say za04
@ 5,0 say za05

do hpar
*use mwstdat
k1="N"  
k2="W"
*k3="W"
*k4="N"
*k5="W"
*k6="N"
xxx = "&k1/&k2,&k3/&k4,,,&k5/&k6"
set color to &xxx

@ 6,0  say za06
@ 7,0  say za07
@ 8,0  say za08
@ 9,0  say za09
@ 10,0 say za10
@ 11,0 say za11
@ 12,0 say za12
@ 13,0 say za13
@ 14,0 say za14
@ 15,0 say za15
@ 16,0 say za16
@ 17,0 say za17
@ 18,0 say za18
@ 19,0 say za19
@ 20,0 say za20
@ 21,0 say za21
@ 22,0 say za22
@ 23,0 say za23
@ 24,0 say za24

do hpar
*use mwstdat
k1="N"
k2="BG"

*k3="W"
*k4="N"
*k5="W"
*k6="N"
xxx = "&k1/&k2,&k3/&k4,,,&k5/&k6"
set color to &xxx

@ 0,40 say zb00
datum=dtoc(date())
zeile1="   "+cdow(date())
*zeile3="   "+substr(datum,1,2)+". "+cmonth(date())+" 19"+substr(datum,7,2)+"     "+time()
zeile3="   "+dtoc(date())+"     "+time()


@ 1,40 say zeile1+substr(zb01,1,40-len(zeile1))
@ 2,40 say zb02
@ 3,40 say zeile3+substr(zb03,1,40-len(zeile3))
@ 4,40 say zb04
@ 5,40 say zb05


//-----------------------------------------------------------------------
do while .T.
prog="  "
//do eurov                                && ****EURO

set color to "N/W"
@ 6,40 clear
set color to &cFarbe
aMenuItems := { "1  Verwalten Termine     ", ;
                "2  Drucken Termine von/bis     ", ;
                "3  L”schen Termine            ", ;
                "4  šbertragen T. ins n„chste Jahr ", ;
                "-                ", ;
                "T  Termine der n„chsten 14 Tage  ", ;
                ".  ", ;
                ".       ", ;
                ".   ", ;
                ".       ", ;
                ".     ", ;
                ".          ", ;
                "!, F10 oder ESC = Ende        "}

nTop := 6 ; nLeft := 42 ; nBottom := 22 ; nRight := 76
cMenuTitle := "   5  Terminkalender    "
cBoxChars := " " ; cMenuColor := "W/R,GR+/B"
// "W+/B,W+/R,R/GR+,,W+/W"

SET WRAP ON

 nChoice := BoxMenu( aMenuItems, nTop, nLeft, nBottom, nRight, cMenuTitle, ;
                       , cBoxChars, cMenuColor )

prog =  IIF(nChoice<13, ltrim(str(nChoice,2,0)), "!" )
if prog<>"  "
   exit
endif
enddo
//-----------------------------------------------------------------------

do hpar

   do case
      case prog="10"
                    prog=" "
      case prog="11"
                    prog=" "
      case prog="12"
                    prog=" "
      case prog="1"
                    do prterm
      case prog="2"
                    do drterm
      case prog="3"
                    do loeterm
      case prog="4"
                    do uebterm
      case prog="6".or.prog="t".or.prog="T"
                    do termine
      case prog="!".or.prog="0"
**                    clear
                     return
 endcase
enddo
RETURN