home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc_ham1 / dxccprin.prg < prev    next >
Encoding:
Text File  |  1985-10-03  |  1.5 KB  |  67 lines
  1. * DXCCPRINT VERSION 851004 THIS PROGRAM PRINTS A dxcc file
  2. * COPYRIGHT  (c) Joe Kasser G3ZCZ 1985
  3. * called by logbook
  4. ERASE
  5. STORE ' ' TO choice
  6. @ 5,1 SAY ' '
  7. ACCEPT 'Whole thing, worked/QSL-d, or just QSL-d (T,W,Q)  ' TO choice
  8. @ 10,1 SAY ' '
  9.  
  10. STORE ' ' TO df
  11. ACCEPT 'DO you want hard copy (Y/N) ?' TO df
  12. IF df = 'Y'
  13.    SET PRINT ON
  14. ENDIF
  15.  
  16. STORE 99 TO linecount
  17. STORE  1 TO pagecount
  18. STORE  0 TO qsled
  19. STORE  0 TO worked
  20.  
  21. USE  B:dxcc
  22.  
  23. DO WHILE .NOT.EOF
  24.    IF linecount > 60
  25.       EJECT
  26.       ? 'DXCC    PRINTOUT',callsign,' PAGE',pagecount
  27.       IF choice = 'Q'
  28.          ?? ' QSL STATUS'
  29.       ENDIF
  30.       STORE pagecount + 1 TO pagecount
  31.       ?
  32.       ? ' PX   COUNTRY    CALL       DATE    TIME BND MODE STATUS'
  33.       ? '--------------------------------------------------------'
  34.       STORE 5 TO linecount
  35.    ENDIF
  36.  
  37.    IF dstate = ' ' .AND. choice <> 'T'
  38.    ELSE
  39.       IF dstate = 'W' .AND. choice = 'Q'
  40.       ELSE
  41.          ? px,country,dcall,ddate,dtime,dband,dmode
  42.          STORE linecount + 1 TO linecount
  43.       ENDIF
  44.    ENDIF
  45.    IF dstate = 'Q'
  46.       IF choice = 'Q'
  47.       ELSE
  48.          ?? dstate
  49.       ENDIF
  50.       STORE qsled + 1 TO qsled
  51.       STORE worked + 1 TO worked
  52.    ENDIF
  53.    IF dstate = 'W'
  54.       STORE worked + 1 TO worked
  55.    ENDIF
  56.    SKIP
  57. ENDDO
  58. ?
  59. ?
  60. ? worked,' WORKED     ',qsled,'QSL-D'
  61. ?
  62. EJECT
  63. SET PRINT OFF
  64. WAIT
  65. RELEASE df,linecount,pagecount,worked,qsled
  66. RETURN
  67.