home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LOGCALL.PRG < prev    next >
Text File  |  1987-12-15  |  2KB  |  66 lines
  1. * LOGCALL THIS PROGRAM PRINTS A LOG IN CALL ORDER   VER 871120
  2. * copyright Joe Kasser G3ZCZ 1984, 1987
  3. * program to print logbook
  4. * called from LOGBOOK
  5.  
  6. * STRUCTURE FOR FILE:  B:LOG     .DBF
  7. * FLD       NAME      TYPE WIDTH   DEC
  8. * 001     DATE         C    008
  9. * 002     TIME         C    004
  10. * 003     BAND         C    003
  11. * 004     CALL         C    010
  12. * 005     RX           C    003
  13. * 006     TX           C    003
  14. * 007     MODE         C    004
  15. * 008     POWER        C    004
  16. * 009     QSLSENT      C    001
  17. * 010     QSLRX        C    001
  18. * 011     COMMENTS     C    010
  19.  
  20. STORE ' ' TO df
  21. ACCEPT 'Do you want hard copy (Y/N) ?' TO df
  22. df = UPPER(df)
  23. IF df = 'Y'
  24.    SET PRINT ON
  25. ENDIF
  26.  
  27. STORE 60 TO linecount
  28. STORE 1 TO pagecount
  29. linecount = INT(linecount)
  30. pagecount = INT(pagecount)
  31.  
  32. USE &logbook
  33. GOTO BOTTOM
  34. STORE date TO tdate
  35. SET INDEX TO &logndx
  36. GOTO TOP
  37. DO WHILE .NOT. EOF()
  38.    IF linecount > 55
  39.       if df = 'Y'
  40.          EJECT
  41.       endif
  42.       ? 'INDEXED LOGBOOK PRINTOUT  '
  43.       ?? callsign,'   as of ',TDATE,'   PAGE ',pagecount
  44.       STORE pagecount + 1 to pagecount
  45.       ?
  46.       ?
  47.       ? ' CALL        DATE   TIME BND RX  TX  MODE PWR  S R  COMMENTS'
  48.       ? '--------------------------------------------------------------------'
  49.       STORE 3 to linecount
  50.    ENDIF
  51.    * now print entries
  52.    ? call,date,time,band,rx,tx,mode,power,qslsent,qslrx,comments
  53.    STORE linecount + 1 to linecount
  54.    SKIP
  55. ENDDO
  56. USE
  57. IF df = 'Y'
  58.    EJECT
  59.    SET PRINT OFF
  60. ELSE
  61.    ?
  62.    WAIT
  63. ENDIF
  64. RELEASE df,linecount,pagecount,tdate
  65. RETURN
  66.