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

CLEAR ALL
******************* PROGRAM TO UPDATE THE (CLIENT) FILE.
RPT = .T.
SET FORMAT TO PRJ
SET TALK OFF
SET PROCEDURE TO CLIENTDI
USE CLIENT INDEX CLIENT
DO WHILE RPT
CLEAR
?"ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
?"³ TIMEKEEPER PROJECT/CLIENT UPDATE ³"
?"³ 7/23/85 ver. 1.0 ³"
?"ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
?
@ 6,20 SAY "[E]DIT OLD RECORDS"
@ 7,20 SAY "[C]LOSE OLD PROJECT"
@ 8,20 SAY "[A]DD NEW PROJECT"
@ 9,20 SAY "[Q]UIT"
@ 11,10 SAY "Select a function by its key."
WAIT " COMMAND:" TO CM
CM = UPPER(CM)
DO CASE
CASE CM = "E"
ACCEPT "PROJECT NUMBER:" TO PJN
LOCATE FOR PROJECT = PJN
IF EOF() THEN
?"FILE NOT FOUND..."
LOOP
ELSE
EDIT
ENDIF
CASE CM = "C"
ACCEPT "PROJECT NUMBER:" TO PJN
LOCATE FOR PROJECT = PJN
IF EOF() THEN
?"FILE NOT FOUND..."
LOOP
ELSE
CLEAR
SET FORMAT TO
DO CLSDATE
SET FORMAT TO PRJ
ENDIF
CASE CM = "A"
APPEND
CASE CM = "Q"
RPT = .F.
ENDCASE
ENDDO
RETURN

This is the end, beautiful friend.
This is the end, my only friend, the end.
Of everything that stands, the end
No safety nor suprise, the end
I'll never look into your eyes... Again.

Can you picture what will be?
So limitless and free.
Desperately in need of some stranger's hand.
In a desperate land.

...Lost in a Roman wilderness of pain.
And all the children are insane.
All the cildren are insane...
Waiting for the summer rain, yeah!

...
...

Come on baby take a chance with us.
Come on baby take a chance with us...
Come on baby take a chance with us, and
Meet me at the back of the, blue bus tonight
Blue bus, alright!
Blue bus, tonight... Ooh yeah!
Come on babe!