home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LOGSRCH.PRG < prev    next >
Text File  |  1987-11-20  |  1KB  |  51 lines
  1. *LOGSRCH VERSION 871120
  2. * CALLED FROM LOGBOOK
  3. *LOCAL VARIABLES callflag,callheard,linecount
  4.  
  5. USE &logbook INDEX &logndx
  6. STORE .T. TO callflag
  7.  
  8. *MAIN LOOP
  9. DO WHILE callflag
  10.    GOTO TOP
  11.    ACCEPT "Call/Prefix (* To terminate) ? " to callheard
  12.  
  13.    IF callheard = "*"
  14.       STORE .F. TO callflag
  15.       * Clear loop control for exit
  16.    ELSE
  17.       STORE 1 TO linecount
  18.       CLEAR
  19.       ? "Log entries for CALL PREFIX = ", callheard
  20.       ?
  21.       FIND &callheard
  22.       IF (EOF() .OR. BOF())
  23.          @ 5,1 SAY callheard
  24.          @ 5,12 say "does not appear to be in the log"
  25.          ELSE
  26.          DO WHILE CALL = callheard .AND. (.NOT.EOF())
  27.             IF linecount = 1
  28.                ?  "      ENTRY  CALL       DATE   TIME BND PWR  TX  RX  MDE  S R  "
  29.                ?? "COMMENTS"
  30.                ?  " ---------------------------------------------------------"
  31.                ?? "--------"
  32.             ENDIF
  33.             ? RECNO(),call,date,time,band,power,rx,tx,mode,qslsent,qslrx,comments
  34.             STORE linecount + 1 TO linecount
  35.             IF linecount = 20
  36.                ?
  37.                WAIT
  38.                STORE 1 TO linecount
  39.             ENDIF
  40.             SKIP
  41.          ENDDO
  42.       ENDIF
  43.       ?
  44.       ?
  45.    ENDIF
  46.    GOTO TOP
  47. ENDDO
  48. USE
  49. RELEASE callflag,callheard,linecount
  50. RETURN
  51.