home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / DXCC5B.PRG < prev    next >
Text File  |  1987-12-15  |  2KB  |  75 lines
  1. *DXCC5B  GENERATES A 5B DXCC QSLED LIST VERSION 860421/871210
  2. * BY JOE KASSER G3ZCZ (c) 1985
  3.  
  4. PUBLIC thisband, blank
  5.  
  6. STORE  logbook TO tlogbook
  7. IF FILE (tlogbook+'.DBF')
  8.    CLEAR
  9.    @ 5,1 SAY ' '
  10.    STORE ' ' TO pf
  11.    ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
  12.    STORE ' ' TO choice
  13.    IF pf = 'Y'
  14.       @ 8,1 SAY ' '
  15.       ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
  16.    ENDIF
  17. *   USE &logbook
  18.    blank = '          '
  19.    STORE '10' TO thisband
  20.    STORE thisband + 'DXCC' TO dxcc
  21.    ?
  22.    ? 'Now starting to process ', thisband
  23.    DO DXCC5BGN
  24.    DO DXCCMB
  25.    IF pf = 'Y'
  26.       DO DXCCPRNT
  27.    ENDIF
  28.  
  29.    STORE '15' TO thisband
  30.    STORE thisband + 'DXCC' TO dxcc
  31.    ?
  32.    ? 'Now starting to process ', thisband
  33.    DO DXCC5BGN
  34.    DO DXCCMB
  35.    IF pf = 'Y'
  36.       DO DXCCPRNT
  37.    ENDIF
  38.  
  39.    STORE '20' TO thisband
  40.    STORE thisband + 'DXCC' TO dxcc
  41.    ?
  42.    ? 'Now starting to process ', thisband
  43.    DO DXCC5BGN
  44.    DO DXCCMB
  45.    IF pf = 'Y'
  46.       DO DXCCPRNT
  47.    ENDIF
  48.  
  49.    STORE '40' TO thisband
  50.    STORE thisband + 'DXCC' TO dxcc
  51.    ?
  52.    ? 'Now starting to process ', thisband
  53.    DO DXCC5BGN
  54.    DO DXCCMB
  55.    IF pf = 'Y'
  56.       DO DXCCPRNT
  57.    ENDIF
  58.  
  59.    STORE '80' TO thisband
  60.    STORE thisband + 'DXCC' TO dxcc
  61.    ?
  62.    ? 'Now starting to process ', thisband
  63.    DO DXCC5BGN
  64.    DO DXCCMB
  65.    IF pf = 'Y'
  66.       DO DXCCPRNT
  67.    ENDIF
  68.  
  69.    RELEASE pf
  70. ELSE
  71.    ? 'ERROR, LOGBOOK IS NOT ON DEFAULT DRIVE'
  72. ENDIF
  73. RELEASE tlogbook, thisband, blank
  74. RETURN
  75.