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