home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LOGDATE.PRG < prev    next >
Text File  |  1987-12-10  |  644b  |  34 lines
  1. * LOGDATE  VER 860502 COPYRIGHT (c) JOE KASSER G3ZCZ 1986
  2. USE &logbook
  3.  
  4. ACCEPT 'WHAT DATE DO YOU WANT TO SEE ? ' TO sdate
  5. CLEAR
  6. GOTO TOP
  7. ? 'STANDBY WHILE I LOCATE THE PAGE WITH THE ENTRIES FOR ',sdate
  8. ?
  9. LOCATE FOR date = sdate
  10. IF EOF() .or. bof()
  11.    ?
  12.    ? 'no QSOs in the log for ',sdate
  13.  
  14. ELSE
  15.    STORE 0  TO lcount
  16.    ? 'QSOs FOR ',sdate
  17.    ?
  18.    DO WHILE sdate = date   .AND. .NOT. EOF()
  19.       DISP
  20.       STORE lcount + 1 TO lcount
  21.       IF lcount > 20
  22.          WAIT
  23.          ? 'QSOs FOR ',sdate
  24.         ?
  25.          STORE 0 TO lcount
  26.       ENDIF
  27.       SKIP
  28.    ENDDO
  29. ENDIF
  30. WAIT
  31. RELEASE sdate,lcount
  32. USE
  33. RETURN
  34.