home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / hamradio / logbook.arc / DXCCPRNT.PRG < prev    next >
Text File  |  1986-05-14  |  2KB  |  66 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 ',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 '
  24.       ?? 'STATUS'
  25.       ? '-------------------------------------------------'
  26.       ?? '-------'
  27.       STORE 5 TO linecount
  28.    ENDIF
  29.  
  30.    IF dstate = ' ' .AND. choice <> 'P'
  31.    ELSE
  32.       IF dstate = 'W' .AND. choice = 'Q'
  33.       ELSE
  34.          ? px,country,dcall,ddate,dtime,dband,dmode
  35.          STORE linecount + 1 TO linecount
  36.       ENDIF
  37.    ENDIF
  38.    IF dstate = 'Q'
  39.       IF choice = 'Q'
  40.       ELSE
  41.          ?? dstate
  42.       ENDIF
  43.       STORE qsled + 1 TO qsled
  44.       STORE worked + 1 TO worked
  45.    ENDIF
  46.    IF dstate = 'W'
  47.       STORE worked + 1 TO worked
  48.    ENDIF
  49.    SKIP
  50. ENDDO
  51. ?
  52. ?
  53. ? worked,' WORKED     ',qsled,'QSL-D'
  54. ?
  55. EJECT
  56. SET PRINT OFF
  57.  
  58. RELEASE choice,linecount,pagecount,worked,qsled
  59.  
  60. RETURN
  61.  
  62.  
  63.  
  64.  
  65.  
  66.    82/09/12083810 SSB Q J2      DJIBOUTI  J20DU     82/10/24131610 SSB Q J3      GRENADA                                  J5      GINEAU BSSJ5WAD     85/09/09205020 SSB W J6  VP2LST LUCIA                                 J7  VP2DDOMINICA  J73PD     81/