************************************File: HAUPTMEN

CLEAR

set exclusive on

SET wrap on

SET safety off

SET deleted on

SET status off

SET scoreboard off

SET confirm on

SET date german

SET cursor off

SET procedure to fipspro

PUBLIC wahl

PUBLIC schirm

PUBLIC datum

PUBLIC titel,firma

PUBLIC farbe1

titel="ZUBEHÖR"

firma="Fa. Schuller"

datum=date()

IF iscolor()

farbe1="w/b"

ELSE

farbe1="w/n"

ENDIF

IF iscolor()

SET color to w/r

ELSE

SET color to n/w

ENDIF

@ 0,0 SAY space(80)

do zentrier with 0,80,firma

@ 0,0 SAY " "+titel

IF iscolor()

showtime(0,71,.f.,"w/r")

ELSE

showtime(0,71,.f.,"n/w")

ENDIF

setcolor(farbe1)

cls(.t.)

@ 1,0 to 22,79 double

DO zentrier with 24,80,"* * * * G u t e n T a g ! * * * *"

DO WHILE .t.

set color to

loesch(24)

wahl=2

*ernahme Betrachten Drucken Ende

@ 24, 0 PROMPT "Uebernahme"

@ 24,13 PROMPT "Fahrzeug"

@ 24,25 PROMPT "Lister"

@ 24,67 PROMPT "Drucken"

@ 24,76 PROMPT "Ende"

MENU TO wahl

setcolor(farbe1)

SAVE screen to schirm

DO CASE

CASE wahl=5

exit

CASE wahl=1

DO ueber

CASE wahl=2

Do Suche

CASE wahl=3

DO Lister

case WAHL=4

exit

ENDCASE

ENDDO

close all

SET color to

CLEAR

DO zentrier with 23,80,"Ende der Arbeit!"

QUIT

RETURN

******** Ende des Hauptprogrammes *********