home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / awardprn.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  75 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: AWARDPRN.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 12/09/87     22:52
  9. *:
  10. *:      Called by: AWARD.PRG                     
  11. *:
  12. *:           Uses: &AWARD         
  13. *:
  14. *:        Indexes: &AWARD
  15. *:
  16. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  17. *:*********************************************************************
  18. * AWARDPRNT VERSION 871209 THIS PROGRAM PRINTS A award file
  19. *COPYRIGHT  (C) 1986    G3ZCZ
  20. IF pf ='Y'
  21.    SET PRINT ON
  22. ENDIF
  23.  
  24. STORE 99 TO linecount
  25. STORE  1 TO pagecount
  26. STORE  0 TO qsled
  27. STORE  0 TO worked
  28.  
  29. USE  &award INDEX &award
  30.  
  31. DO WHILE .not.EOF()
  32.    IF linecount > 60
  33.       EJECT
  34.       ? award,' PRINTOUT as of ',DTOC(DATE ()),' FOR ',callsign,' PAGE',pagecount
  35.       IF choice = 'Q'
  36.          ?? ' QSL STATUS'
  37.       ENDIF
  38.       STORE pagecount + 1 TO pagecount
  39.       ?
  40.       ? ' PX         CALL       DATE    TIME BND MODE STATUS'
  41.       ? '---------------------------------------------------'
  42.       STORE 5 TO linecount
  43.    ENDIF
  44.    
  45.    IF dstate = ' ' .and. choice <> 'P'
  46.    ELSE
  47.       IF dstate = 'W' .and. choice = 'Q'
  48.       ELSE
  49.          ? pc,dcall,ddate,dtime,dband,dmode,dstate
  50.          STORE linecount + 1 TO linecount
  51.       ENDIF
  52.    ENDIF
  53.    IF dstate = 'R'
  54.       STORE qsled + 1 TO qsled
  55.       STORE worked + 1 TO worked
  56.    ENDIF
  57.    IF dstate = 'W'
  58.       STORE worked + 1 TO worked
  59.    ENDIF
  60.    SKIP
  61. ENDDO
  62. ?
  63. ?
  64. ? worked,' WORKED     ',qsled,'QSL-D'
  65. ?
  66. IF pf = 'Y'
  67.    EJECT
  68.    SET PRINT OFF
  69. ELSE
  70.    WAIT
  71. ENDIF
  72. RELEASE choice,linecount,pagecount,worked,qsled
  73. RETURN
  74. *: EOF: AWARDPRN.PRG
  75.