home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / logdate.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  66 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: LOGDATE.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 05/04/90     13:42
  9. *:
  10. *:      Called by: LOGFUNCT.PRG                  
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:
  14. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  15. *:*********************************************************************
  16. * LOGDATE  VER 860502 COPYRIGHT (c) JOE KASSER G3ZCZ 1986
  17. USE &logbook
  18. GOTO BOTTOM
  19. STORE DATE TO sdate
  20. GOTO TOP
  21. @ 24,1 SAY "WHAT DATE DO YOU WANT TO SEE ?"
  22. @ 24,32  GET sdate
  23. READ
  24. CLEAR
  25. @ 10,10 SAY 'STANDBY WHILE I LOCATE THE PAGE WITH THE ENTRIES FOR '
  26. @ 12,30 SAY sdate
  27. ?
  28. LOCATE FOR DATE = sdate
  29. IF EOF() .or. BOF()
  30.    SET COLOR TO W+/R,W+/RB,BG+
  31.    @ 14, 20 SAY 'SORRY: no QSOs in the log for '
  32.    @ 16, 30 SAY sdate
  33.    SET COLOR TO GR+/B,W+/RB,BG+
  34.    @ 20, 1 SAY ''
  35. ELSE
  36.    CLEAR
  37.    STORE 0  TO lcount
  38.    SET COLOR TO GR+/B,W+/RB,BG+
  39.    ? '                          QSOs FOR ',sdate
  40.    SET COLOR TO W+/R,W+/RB,BG+
  41.    @ 2,5  SAY "ENTRY  DATE    TIME    CALL   BAND  PWR MODE  RX  TX "
  42.    @ 2,58 SAY "S R  COMMENTS"
  43.    SET COLOR TO GR+/B,W+/RB,BG+
  44.    DO WHILE sdate = DATE   .and. .not. EOF()
  45.       ? RECNO(),DATE,TIME,CALL,band,Power,mode,rx,tx,qslsent,qslrx,comments
  46.       STORE lcount + 1 TO lcount
  47.       IF lcount > 20
  48.          WAIT
  49.          CLEAR
  50.          SET COLOR TO GR+/B,W+/RB,BG+
  51.          STORE 0  TO lcount
  52.          ? '                          QSOs FOR ',sdate
  53.          SET COLOR TO W+/R,W+/RB,BG+
  54.          @ 2,5  SAY "ENTRY  DATE    TIME    CALL   BAND  PWR MODE  RX  TX "
  55.          @ 2,58 SAY "S R  COMMENTS"
  56.          SET COLOR TO GR+/B,W+/RB,BG+
  57.       ENDIF
  58.       SKIP
  59.    ENDDO
  60. ENDIF
  61. WAIT
  62. RELEASE sdate,lcount
  63. USE
  64. RETURN
  65. *: EOF: LOGDATE.PRG
  66.