home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / dxccman.prg < prev    next >
Text File  |  1990-05-04  |  3KB  |  116 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: DXCCMAN.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 04/27/90     13:27
  9. *:
  10. *:      Called by: DXCC.PRG                      
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:               : &DXCC          
  14. *:
  15. *:        Indexes: &LOGNDX
  16. *:
  17. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  18. *:*********************************************************************
  19. * DXCCMAN MANUAL POINTER TO DXCC UPDATE 860429 COPYRIGHT (c) G3ZCZ 1986
  20. IF FILE (logbook+'.DBF')
  21.    SELECT 1
  22.    USE &logbook  INDEX &logndx
  23.    
  24.    SELECT 2
  25.    USE &dxcc
  26.    
  27.    STORE .t.   TO cflag
  28.    STORE ' ' TO dxccn
  29.    STORE ' ' TO df
  30.    STORE '         ' TO callcard
  31.    
  32.    DO WHILE cflag
  33.       CLEAR
  34.       @ 3,1 SAY ' '
  35.       ACCEPT    'Which DXCC prefix (* to terminate) ? '  TO dxccn
  36.       IF  dxccn = '*'
  37.          STORE .F. TO cflag
  38.       ELSE
  39.          SELECT 2
  40.          * GO DIRECTLY TO RECORD
  41.          GOTO TOP
  42.          LOCATE FOR px = dxccn
  43.          IF (EOF())
  44.             @ 8,1 SAY ' '
  45.             ? dxccn,' DOES NOT EXIST'
  46.          ELSE
  47.             IF dcall = ' '
  48.                ?   dxccn,' is not worked'
  49.             ELSE
  50.                DISP
  51.             ENDIF
  52.             @ 10,1 SAY 'Do you want to update the entry (Y/N) ?'
  53.             @ 10,40 GET df
  54.             READ
  55.             IF df = 'Y'
  56.                STORE '         ' TO  callcard
  57.                SELECT 1
  58.                @ 12,1 SAY 'What is the call ? '
  59.                @ 12,21 GET callcard
  60.                READ
  61.                FIND &callcard
  62.                @ 14,1 SAY ' '
  63.                IF (EOF() .or. BOF())
  64.                   ? callcard,' is not in log'
  65.                ELSE
  66.                   STORE .t. TO qflag
  67.                   DO WHILE CALL = callcard .and. qflag
  68.                      @ 20,1 SAY ' '
  69.                      DISP
  70.                      @ 22,2 SAY ' '
  71.                      ACCEPT 'This one (Y/N) ?' TO df
  72.                      IF df = 'Y'
  73.                         STORE .F. TO qflag
  74.                      ENDIF
  75.                      SKIP
  76.                   ENDDO
  77.                   IF qflag
  78.                      * DON'T update entry
  79.                   ELSE
  80.                      SKIP -1
  81.                      STORE CALL TO CALL
  82.                      STORE DATE TO DATE
  83.                      STORE TIME TO TIME
  84.                      STORE band TO band
  85.                      STORE mode TO mode
  86.                      STORE qslrx TO qslrx
  87.                      SELECT 2
  88.                      REPLACE dcall WITH CALL
  89.                      REPLACE ddate WITH DATE
  90.                      REPLACE dtime WITH TIME
  91.                      REPLACE dband WITH band
  92.                      REPLACE dmode WITH mode
  93.                      IF qslrx = 'R'
  94.                         REPLACE dstate WITH 'Q'
  95.                      ELSE
  96.                         IF qslrx = '-'
  97.                            REPLACE dstate WITH 'W'
  98.                         ENDIF
  99.                      ENDIF
  100.                   ENDIF
  101.                ENDIF
  102.             ENDIF
  103.          ENDIF
  104.       ENDIF
  105.    ENDDO
  106. ELSE
  107.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  108.    WAIT
  109. ENDIF
  110. SELECT 1
  111. USE
  112. SELECT 2
  113. USE
  114. RELEASE qflag,callcard,df,dxccn,cflag
  115. *: EOF: DXCCMAN.PRG
  116.