home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / DXCCMAN.PRG < prev    next >
Text File  |  1987-12-24  |  3KB  |  97 lines
  1. * DXCCMAN MANUAL POINTER TO DXCC UPDATE 860429 COPYRIGHT (c) G3ZCZ 1986
  2. IF FILE (logbook+'.DBF')
  3.    SELECT A
  4.    USE &logbook  INDEX &logndx
  5.  
  6.    SELECT B
  7.    USE &dxcc
  8.  
  9.    STORE .T.   TO cflag
  10.    STORE ' ' TO dxccn
  11.    STORE ' ' TO df
  12.    STORE '         ' TO callcard
  13.  
  14.    DO WHILE cflag
  15.       CLEAR
  16.       @ 3,1 SAY ' '
  17.       ACCEPT    'Which DXCC prefix (* to terminate) ? '  TO dxccn
  18.    IF  dxccn = '*'
  19.       STORE .F. TO cflag
  20.    ELSE
  21.       SELECT B
  22.       * GO DIRECTLY TO RECORD
  23.       GOTO TOP
  24.       LOCATE FOR px = dxccn
  25.       IF (EOF())
  26.          @ 8,1 SAY ' '
  27.          ? dxccn,' DOES NOT EXIST'
  28.       ELSE
  29.          IF dcall = ' '
  30.             ?   dxccn,' is not worked'
  31.          ELSE
  32.             DISP
  33.          ENDIF
  34.          @ 10,1 SAY 'Do you want to update the entry (Y/N) ?'
  35.          @ 10,40 GET df
  36.          READ
  37.          IF df = 'Y'
  38.             STORE '         ' TO  callcard
  39.             SELECT A
  40.             @ 12,1 SAY 'What is the call ? '
  41.             @ 12,21 GET callcard
  42.             READ
  43.             FIND &callcard
  44.             @ 14,1 SAY ' '
  45.             IF (EOF() .OR. BOF())
  46.                ? callcard,' is not in log'
  47.             ELSE
  48.                STORE .T. TO qflag
  49.                DO WHILE call = callcard .AND. qflag
  50.                   @ 20,1 SAY ' '
  51.                   DISP
  52.                   @ 22,2 SAY ' '
  53.                   ACCEPT 'This one (Y/N) ?' TO df
  54.                   IF df = 'Y'
  55.                      STORE .F. TO qflag
  56.                   ENDIF
  57.                   SKIP
  58.                 ENDDO
  59.                 IF qflag
  60.                    * DON'T update entry
  61.                 ELSE
  62.                    SKIP -1
  63.                    STORE call TO call
  64.                    STORE date TO date
  65.                    STORE time TO time
  66.                    STORE band TO band
  67.                    STORE mode TO mode
  68.                    STORE qslrx TO qslrx
  69.                    SELECT B
  70.                    REPLACE dcall WITH call
  71.                    REPLACE ddate WITH date
  72.                    REPLACE dtime WITH time
  73.                    REPLACE dband WITH band
  74.                    REPLACE dmode WITH mode
  75.                    IF qslrx = 'R'
  76.                       REPLACE dstate WITH 'Q'
  77.                    ELSE
  78.                       IF qslrx = '-'
  79.                          REPLACE dstate WITH 'W'
  80.                       ENDIF
  81.                    ENDIF
  82.                 ENDIF
  83.              ENDIF
  84.           ENDIF
  85.        ENDIF
  86.     ENDIF
  87.     ENDDO
  88.  ELSE
  89.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  90.    WAIT
  91. ENDIF
  92. SELECT A
  93. USE
  94. SELECT B
  95. USE
  96. RELEASE qflag,callcard,df,dxccn,cflag
  97.