* DXCCPRINT VERSION 860417 THIS PROGRAM PRINTS A dxcc file
*COPYRIGHT  (C) 1986    G3ZCZ
IF pf ='Y'
   SET PRINT ON
ENDIF

STORE 99 TO linecount
STORE  1 TO pagecount
STORE  0 TO qsled
STORE  0 TO worked

USE  &dxcc

DO WHILE .NOT.EOF()
   IF linecount > 60
      EJECT
      ? 'DXCC    PRINTOUT as of ',DTOC(DATE ()),' FOR ',callsign,' PAGE',pagecount
      IF choice = 'Q'
         ?? ' QSL STATUS'
      ENDIF
      STORE pagecount + 1 TO pagecount
      ?
      ? ' PX   COUNTRY    CALL       DATE    TIME BND MODE STATUS'
      ? '--------------------------------------------------------'
      STORE 5 TO linecount
   ENDIF

   IF dstate = ' ' .AND. choice <> 'P'
   ELSE
      IF dstate = 'W' .AND. choice = 'Q'
      ELSE
         ? px,country,dcall,ddate,dtime,dband,dmode
         STORE linecount + 1 TO linecount
      ENDIF
   ENDIF
   IF dstate = 'Q'
      IF choice = 'Q'
      ELSE
         ?? dstate
      ENDIF
      STORE qsled + 1 TO qsled
      STORE worked + 1 TO worked
   ENDIF
   IF dstate = 'W'
      STORE worked + 1 TO worked
   ENDIF
   SKIP
ENDDO
?
?
? worked,' WORKED     ',qsled,'QSL-D'
?
IF pf = 'Y'
  EJECT
  SET PRINT OFF
* ELSE
*  WAIT
ENDIF
RELEASE choice,linecount,pagecount,worked,qsled
RETURN