home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / logsrch.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  85 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: LOGSRCH.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:07
  9. *:
  10. *:      Called by: LOGFUNCT.PRG                  
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:
  14. *:        Indexes: &LOGNDX
  15. *:
  16. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  17. *:*********************************************************************
  18. *LOCAL VARIABLES callflag,callheard,linecount
  19.  
  20. USE &logbook INDEX &logndx
  21. STORE .t. TO callflag
  22. STORE '          ' TO callheard
  23. *MAIN LOOP
  24. DO WHILE callflag
  25.    SET COLOR TO GR+/B,W+/RB,BG+
  26.    GOTO TOP
  27.    @ 24,1 SAY "Call/Prefix (* To terminate) ?"
  28.    STORE SUBSTR(callheard+ '          ',1,10) TO callheard
  29.    @ 24,33 GET callheard
  30.    READ
  31.    STORE TRIM(callheard) TO callheard
  32.    IF callheard = "*"
  33.       STORE .F. TO callflag
  34.       * Clear loop control for exit
  35.    ELSE
  36.       
  37.       STORE 1 TO linecount
  38.       CLEAR
  39.       ? "                Log entries for CALL PREFIX = "
  40.       SET COLOR TO W+/R,W+/RB,BG+
  41.       ?? callheard
  42.       *      ?
  43.       FIND &callheard
  44.       IF (EOF() .or. BOF())
  45.          @ 5,1 SAY callheard
  46.          @ 5,12 SAY "does not appear to be in the log"
  47.       ELSE
  48.          DO WHILE CALL = callheard .and. (.not.EOF())
  49.             IF linecount = 1
  50.                SET COLOR TO GR+/B,W+/RB,BG+
  51.                @ 3,1  SAY "    ENTRY  DATE    TIME    CALL   BAND  PWR MODE  RX  TX "
  52.                @ 3,58 SAY "S R  COMMENTS"
  53.                ?  "     ----------------------------------------------------"
  54.                ?? "--------------"
  55.             ENDIF
  56.             SET COLOR TO W+/R,W+/RB,BG+
  57.             
  58.             ? RECNO(),DATE,TIME,CALL,band,Power,mode,rx,tx,qslsent,qslrx,comments
  59.             
  60.             
  61.             STORE linecount + 1 TO linecount
  62.             IF linecount = 19
  63.                ?
  64.                SET COLOR TO GR+/B,W+/RB,BG+
  65.                WAIT
  66.                CLEAR
  67.                ? "                Log entries for CALL PREFIX = "
  68.                SET COLOR TO W+/R,W+/RB,BG+
  69.                ?? callheard
  70.                STORE 1 TO linecount
  71.             ENDIF
  72.             SKIP
  73.          ENDDO
  74.       ENDIF
  75.       ?
  76.       ?
  77.    ENDIF
  78.    GOTO TOP
  79. ENDDO
  80. SET COLOR TO GR+/B,W+/RB,BG+
  81. USE
  82. RELEASE callflag,callheard,linecount
  83. RETURN
  84. *: EOF: LOGSRCH.PRG
  85.