*:*********************************************************************
*:
*:        Program: LOGDATE.PRG
*:
*:         System: PC-HAM Logbook
*:         Author: Joe Kasser G3ZCZ
*:      Copyright (c) 1990, Joe Kasser
*:  Last modified: 05/04/90     13:42
*:
*:      Called by: LOGFUNCT.PRG                  
*:
*:           Uses: &LOGBOOK.DBF   
*:
*:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
*:*********************************************************************
* LOGDATE  VER 860502 COPYRIGHT (c) JOE KASSER G3ZCZ 1986
USE &logbook
GOTO BOTTOM
STORE DATE TO sdate
GOTO TOP
@ 24,1 SAY "WHAT DATE DO YOU WANT TO SEE ?"
@ 24,32  GET sdate
READ
CLEAR
@ 10,10 SAY 'STANDBY WHILE I LOCATE THE PAGE WITH THE ENTRIES FOR '
@ 12,30 SAY sdate
?
LOCATE FOR DATE = sdate
IF EOF() .or. BOF()
   SET COLOR TO W+/R,W+/RB,BG+
   @ 14, 20 SAY 'SORRY: no QSOs in the log for '
   @ 16, 30 SAY sdate
   SET COLOR TO GR+/B,W+/RB,BG+
   @ 20, 1 SAY ''
ELSE
   CLEAR
   STORE 0  TO lcount
   SET COLOR TO GR+/B,W+/RB,BG+
   ? '                          QSOs FOR ',sdate
   SET COLOR TO W+/R,W+/RB,BG+
   @ 2,5  SAY "ENTRY  DATE    TIME    CALL   BAND  PWR MODE  RX  TX "
   @ 2,58 SAY "S R  COMMENTS"
   SET COLOR TO GR+/B,W+/RB,BG+
   DO WHILE sdate = DATE   .and. .not. EOF()
      ? RECNO(),DATE,TIME,CALL,band,Power,mode,rx,tx,qslsent,qslrx,comments
      STORE lcount + 1 TO lcount
      IF lcount > 20
         WAIT
         CLEAR
         SET COLOR TO GR+/B,W+/RB,BG+
         STORE 0  TO lcount
         ? '                          QSOs FOR ',sdate
         SET COLOR TO W+/R,W+/RB,BG+
         @ 2,5  SAY "ENTRY  DATE    TIME    CALL   BAND  PWR MODE  RX  TX "
         @ 2,58 SAY "S R  COMMENTS"
         SET COLOR TO GR+/B,W+/RB,BG+
      ENDIF
      SKIP
   ENDDO
ENDIF
WAIT
RELEASE sdate,lcount
USE
RETURN
*: EOF: LOGDATE.PRG