home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / DXCCPRNT.PRG < prev    next >
Text File  |  1987-12-11  |  1KB  |  67 lines

  1. * DXCCPRINT VERSION 860417 THIS PROGRAM PRINTS A dxcc file
  2. *COPYRIGHT  (C) 1986    G3ZCZ
  3. IF pf ='Y'
  4.    SET PRINT ON
  5. ENDIF
  6.  
  7. STORE 99 TO linecount
  8. STORE  1 TO pagecount
  9. STORE  0 TO qsled
  10. STORE  0 TO worked
  11.  
  12. USE  &dxcc
  13.  
  14. DO WHILE .NOT.EOF()
  15.    IF linecount > 60
  16.       EJECT
  17.       ? 'DXCC    PRINTOUT as of ',DTOC(DATE ()),' FOR ',callsign,' PAGE',pagecount
  18.       IF choice = 'Q'
  19.          ?? ' QSL STATUS'
  20.       ENDIF
  21.       STORE pagecount + 1 TO pagecount
  22.       ?
  23.       ? ' PX   COUNTRY    CALL       DATE    TIME BND MODE STATUS'
  24.       ? '--------------------------------------------------------'
  25.       STORE 5 TO linecount
  26.    ENDIF
  27.  
  28.    IF dstate = ' ' .AND. choice <> 'P'
  29.    ELSE
  30.       IF dstate = 'W' .AND. choice = 'Q'
  31.       ELSE
  32.          ? px,country,dcall,ddate,dtime,dband,dmode
  33.          STORE linecount + 1 TO linecount
  34.       ENDIF
  35.    ENDIF
  36.    IF dstate = 'Q'
  37.       IF choice = 'Q'
  38.       ELSE
  39.          ?? dstate
  40.       ENDIF
  41.       STORE qsled + 1 TO qsled
  42.       STORE worked + 1 TO worked
  43.    ENDIF
  44.    IF dstate = 'W'
  45.       STORE worked + 1 TO worked
  46.    ENDIF
  47.    SKIP
  48. ENDDO
  49. ?
  50. ?
  51. ? worked,' WORKED     ',qsled,'QSL-D'
  52. ?
  53. IF pf = 'Y'
  54.   EJECT
  55.   SET PRINT OFF
  56. * ELSE
  57. *  WAIT
  58. ENDIF
  59. RELEASE choice,linecount,pagecount,worked,qsled
  60. RETURN
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.