*:*********************************************************************
*:
*:        Program: DXCC5B.PRG
*:
*:         System: PC-HAM Logbook
*:         Author: Joe Kasser G3ZCZ
*:      Copyright (c) 1990, Joe Kasser
*:  Last modified: 04/27/90     13:55
*:
*:      Called by: DXCC.PRG                      
*:
*:          Calls: DXCC5BGN.PRG
*:               : DXCCMB.PRG
*:               : DXCCPRNT.PRG
*:
*:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
*:*********************************************************************
*DXCC5B  GENERATES A 5B DXCC QSLED LIST VERSION 860421/871210
* BY JOE KASSER G3ZCZ (c) 1985

* PUBLIC thisband, BLANK

STORE  logbook TO tlogbook
IF FILE (tlogbook+'.DBF')
   CLEAR
   @ 5,1 SAY ' '
   STORE ' ' TO pf
   ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
   STORE ' ' TO choice
   IF pf = 'Y'
      @ 8,1 SAY ' '
      ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
   ENDIF
   *   USE &logbook
   BLANK = '          '
   STORE '10' TO thisband
   STORE thisband + 'DXCC' TO dxcc
   ?
   ? 'Now starting to process ', thisband
   DO dxcc5bgn
   DO dxccmb
   IF pf = 'Y'
      DO dxccprnt
   ENDIF
   
   STORE '15' TO thisband
   STORE thisband + 'DXCC' TO dxcc
   ?
   ? 'Now starting to process ', thisband
   DO dxcc5bgn
   DO dxccmb
   IF pf = 'Y'
      DO dxccprnt
   ENDIF
   
   STORE '20' TO thisband
   STORE thisband + 'DXCC' TO dxcc
   ?
   ? 'Now starting to process ', thisband
   DO dxcc5bgn
   DO dxccmb
   IF pf = 'Y'
      DO dxccprnt
   ENDIF
   
   STORE '40' TO thisband
   STORE thisband + 'DXCC' TO dxcc
   ?
   ? 'Now starting to process ', thisband
   DO dxcc5bgn
   DO dxccmb
   IF pf = 'Y'
      DO dxccprnt
   ENDIF
   
   STORE '80' TO thisband
   STORE thisband + 'DXCC' TO dxcc
   ?
   ? 'Now starting to process ', thisband
   DO dxcc5bgn
   DO dxccmb
   IF pf = 'Y'
      DO dxccprnt
   ENDIF
   
   RELEASE pf
ELSE
   ? 'ERROR, LOGBOOK IS NOT ON DEFAULT DRIVE'
ENDIF
RELEASE tlogbook, thisband, BLANK
RETURN
*: EOF: DXCC5B.PRG