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