home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / logprint.prg < prev    next >
Text File  |  1990-05-04  |  3KB  |  108 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: LOGPRINT.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 04/27/90     15:45
  9. *:
  10. *:      Called by: LOGFUNCT.PRG                  
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:
  14. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  15. *:*********************************************************************
  16. * LOGPRINT  THIS PROGRAM PRINTS A LOG IN DATE ORDER
  17. * COPYRIGHT Joe Kasser G3ZCZ 1985. VER 87/11/20-1
  18. * CALLED BY LOGBOOK
  19.  
  20. * STRUCTURE FOR FILE:  B:logbook.DBF
  21.  
  22. * FLD       NAME      TYPE WIDTH   DEC
  23. * 001     DATE         C    008
  24. * 002     TIME         C    004
  25. * 003     BAND         C    003
  26. * 004     CALL         C    010
  27. * 005     RX           C    003
  28. * 006     TX           C    003
  29. * 007     MODE         C    004
  30. * 008     POWER        C    004
  31. * 009     QSLSENT      C    001
  32. * 010     QSLRX        C    001
  33. * 011     COMMENTS     C    010
  34.  
  35. STORE 99  TO linecount
  36. STORE  1  TO pagecount
  37. STORE  0  TO first
  38. STORE  1  TO qsonumber
  39. STORE ' ' TO page
  40. STORE ' ' TO firste
  41. STORE 0   TO pnumber
  42.  
  43. CLEAR
  44.  
  45. USE &logbook
  46. GOTO BOTTOM
  47. IF (EOF() .or. BOF())
  48.    ? 'LOGBOOK IS BLANK'
  49. ELSE
  50.    ACCEPT 'FIRST ENTRY (Number of entry to be displayed ) ? ' TO firste
  51.    ACCEPT 'STARTING PAGE ? ' TO page
  52.    STORE VAL(page) TO pagecount
  53.    STORE VAL(firste) TO first
  54.    ACCEPT 'Offset From Previous Log (If none, enter 0) ? ' TO pnumber
  55.    STORE first - VAL(pnumber) TO first
  56.    IF first < 1
  57.       ? 'entry - offset is negative'
  58.    ELSE
  59.       * rem at BOTTOM
  60.       IF RECNO() < first
  61.          STORE RECNO() TO first
  62.          ? 'Numbering Error'
  63.       ENDIF
  64.       STORE ' ' TO df
  65.       ACCEPT 'Do you want a hard copy (Y/N) ? ' TO df
  66.       df = UPPER(df)
  67.       IF df = 'Y'
  68.          SET PRINT ON
  69.       ENDIF
  70.       
  71.       GOTO first
  72.       STORE first + VAL(pnumber) TO qsonumber
  73.       qsonumber = INT(qsonumber)
  74.       pagecount = INT(pagecount)
  75.       DO WHILE .not.EOF()
  76.          
  77.          IF linecount > 57
  78.             IF df = 'Y'
  79.                EJECT
  80.             ENDIF
  81.             ? 'LOGBOOK PRINTOUT  ',callsign,'PAGE',pagecount
  82.             STORE pagecount + 1 TO pagecount
  83.             ?
  84.             ?
  85.             ?  'LINE NUMBER  DATE    TIME BND  CALL      '
  86.             ?? 'RX  TX  MODE PWR S R COMMENTS'
  87.             ?  '----------------------------------'
  88.             ?? '------------------------------------------'
  89.             STORE 3 TO linecount
  90.          ENDIF
  91.          ? qsonumber,DATE,TIME,band,CALL,rx,tx,mode,Power,qslsent,qslrx,comments
  92.          STORE linecount + 1 TO linecount
  93.          STORE qsonumber + 1 TO qsonumber
  94.          SKIP
  95.       ENDDO
  96.    ENDIF
  97.    IF df = 'Y'
  98.       EJECT
  99.       SET PRINT OFF
  100.    ENDIF
  101.    ?
  102.    RELEASE pnumber,df,firste,page,linecount,qsonumber,pagecount,first
  103. ENDIF
  104. WAIT
  105. USE
  106. RETURN
  107. *: EOF: LOGPRINT.PRG
  108.