home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc-hamd3 / logprint.prg < prev    next >
Encoding:
Text File  |  1985-09-28  |  1.8 KB  |  71 lines
  1. * LOGPRINT  THIS PROGRAM PRINTS A LOG IN DATE ORDER
  2. * COPYRIGHT Joe Kasser G3ZCZ 1985. VER 85/09/27-1
  3. * CALLED BY LOGBOOK
  4.  
  5. * STRUCTURE FOR FILE:  B:logbook.DBF
  6. * FLD       NAME      TYPE WIDTH   DEC
  7. * 001     DATE         C    008
  8. * 002     TIME         C    004
  9. * 003     BAND         C    003
  10. * 004     CALL         C    010
  11. * 005     RX           C    003
  12. * 006     TX           C    003
  13. * 007     MODE         C    004
  14. * 008     POWER        C    004
  15. * 009     QSLSENT      C    001
  16. * 010     QSLRX        C    001
  17. * 011     COMMENTS     C    010
  18.  
  19. STORE 99  TO linecount
  20. STORE  1  TO pagecount
  21. STORE  0  TO first
  22. STORE  1  TO qsonumber
  23. STORE ' ' TO page
  24. STORE ' ' TO firste
  25. ERASE
  26.  
  27. ACCEPT 'FIRST ENTRY  ' TO firste
  28. ACCEPT 'STARTING PAGE ' TO page
  29. STORE VAL(page) TO pagecount
  30. STORE VAL(firste) TO first
  31.  
  32. STORE ' ' TO df
  33. ACCEPT 'Do you want a hard copy (Y/N)? ' TO df
  34. IF df = 'Y'
  35.    SET PRINT ON
  36. ENDIF
  37.  
  38. use &LOGBOOK
  39.  
  40. GOTO first
  41. STORE first TO qsonumber
  42.  
  43. DO WHILE .NOT.EOF
  44.  
  45.    IF linecount > 60
  46.       EJECT
  47.       ? 'LOGBOOK PRINTOUT  ',callsign,'PAGE',pagecount
  48.       STORE pagecount + 1 TO pagecount
  49.       ?
  50.       ?
  51.       ?  'LINE NUMBER  DATE    TIME BND  CALL      RX  TX  MODE PWR '
  52.       ?? 'S R COMMENTS'
  53.       ?  '---------------------------------------------------------'
  54.       ?? '-------------------'
  55.       STORE 3 TO linecount
  56.    ENDIF
  57.    ? qsonumber,date,time,band,call,rx,tx,mode,power,qslsent,qslrx,comments
  58.    STORE linecount + 1 TO linecount
  59.    STORE qsonumber + 1 TO qsonumber
  60.  
  61.    SKIP
  62. ENDDO
  63.  
  64. EJECT
  65. SET PRINT OFF
  66. ?
  67. WAIT
  68. RELEASE df,firste,page,linecount,qsonumber,pagecount,first
  69.  
  70. RETURN
  71.