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

CLEAR ALL
CLEAR
SET TALK OFF
SET ESCAPE OFF
ERT = .F.
******************* TIMEKEEPER MAIN MENU SELECTIONS
******************* DISPLAY THE LOGO
?"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
?"Û ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÆÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵ Û"
?"Û º    º º  Û"
?"Û º    º º Ò ÉÍËÍ» ÉÍÍ͵ Û"
?"Û º  ÀÄÄÄ  º º º º º º º Û"
?"Û º   º º º º Ð º ÌÍ͵ Û"
?"Û º    º º º º º º Û"
?"Û ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ Ð Ð Ð Ð ÈÍÍ͵ Û"
?"Û Û"
?"Û Ò Ò Û"
?"Û º ɼ Û"
?"Û º ɼ ÉÍÍÍ͵ ÉÍÍÍ͵ ÉÍÍÍÍÍ» ÉÍÍÍ͵ ÉÍÍÍÍÍ» Û"
?"Û º º º º º º º º º Û"
?"Û Ì͹ ÌÍÍ͵ ÌÍÍ͵ ºÆÍÍÍͼ ÌÍÍ͵ ºÆÍÍÍ˼ Û"
?"Û º º º º º º º º Û"
?"Û º È» ÈÍÍÍ͵ ÈÍÍÍ͵ Ð ÈÍÍÍ͵ Ð Ð Û"
?"Û º È» Û"
?"Û Ð Ð ver. 1.1 Û"
?"Û Û"
?"Û MADE FOR T J K M July, 1985 Û"
?"Û By ã‰tp Û"
?"Û Û"
?"Û Û"
?"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
@ 22,78 SAY ""
WAIT "Û press any key to continue..." TO WT
DO WHILE .NOT. ERT
CLEAR
?"ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
?"º T J K M º"
?"º TIMEKEEPER & UTILITIES º"
?"º ver. 1.1 July, 1985  º"
?"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
*****  is by PETER SWEARENGEN
@ 6,30 say "Timecard Update"
@ 7,30 say "Performance report"
@ 8,30 say "Expenses"
@ 9,30 say "Projects"
@ 10,30 say "Supplies"
@ 11,30 say "Computer timesheet"
@ 12,30 say "----- end of month -----"
@ 13,35 say "CVS report"
@ 14,35 say "Work code summary"
@ 15,35 say "Expense summary"
@ 16,35 say "Project Cost History"
@ 17,40 say "Draft Invoice"
@ 18,40 say "Invoice Editor"
@ 19,45 say "Invoice/cost summary"
@ 20,50 say "New Month"
YY = 6
CM = .F.
DO WHILE .NOT. CM
@ YY, 5 SAY "------Selection------->"
@ 21, 0 say " Select with the plus or minus [+], [-] keys."
@ 22, 0 say " And then press [Space] to execute. Or press [Q] to quit."
WAIT "" TO CMD
CMD = UPPER(CMD)
IF CMD # "+" .AND. CMD # "-" .AND. CMD # " " .AND. CMD # "Q" THEN
LOOP
ENDIF
MV = 0
DO CASE
CASE CMD = "-"
MV = -1
IF YY = 13 THEN
MV = -2
ENDIF
CASE CMD = "+"
MV = 1
IF YY = 11 THEN
MV = 2
ENDIF
CASE CMD = " "
EXIT
CASE CMD = "Q"
QUIT
ENDCASE
@ YY,5 SAY " "
YY = YY + MV
IF YY > 20 THEN
YY = 6
ELSE
IF YY < 6 THEN
YY = 20
ENDIF
ENDIF
ENDDO
DO CASE
CASE YY = 6
DO TMK
CASE YY = 7
DO PERFM
CASE YY = 8
DO EXPNS
CASE YY = 9
DO PRJCT
CASE YY = 10
DO SUPPL
CASE YY = 11
DO COMPUTER
CASE YY =13
DO CVS
CASE YY = 14
DO WRKCD
CASE YY = 15
DO EXSUM
CASE YY = 16
DO COST
CASE YY = 17
DO INVOUT
CASE YY = 18
DO INVMAIN
CASE YY = 19
DO INVSUMM
CASE YY =20
DO ROLLOVER
ENDCASE
ENDDO
RETURN
Mistah Kurtz - he dead.

a penny for the old fellow.

We are the hollow men.
We are the stuffed men.
Leaning together,
Headpiece filled with straw...Alas!
Our tired voices when we whisper,
Are empty and meaningless
like wind in dry grass,
Or rat's feet over broken glass,
In our dry cellar.

Shape without form, Shade without colour,
Paralyzed force, Gesture without motion.
...................