* WAZENTER PUTS DATA IN WAZ DATABASE VERSION 851203
* SAME AS OBLASTEN.PRG BUT FOR 40 ZONES
* BY JOE KASSER G3ZCZ (c) 1985

IF FILE (logbook + '.DBF')
   SELECT A
   USE &logbook  INDEX &logndx

   SELECT B
   USE &waz

   STORE .T. TO cflag
   STORE 0 TO zonen
   STORE ' ' TO df
   STORE '         ' TO callcard

   DO WHILE cflag
      CLEAR
      @ 3,1 SAY ' '
      ACCEPT 'Which Zone (0 to terminate) ? '  TO zonen
      IF &zonen < wazm
         IF &zonen = 0
            STORE .F. TO cflag
         ELSE
            SELECT B
            * GO DIRECTLY TO RECORD
            GOTO &zonen
            @ 8,1 SAY ' '
            IF dcall = ' '
               ? 'Zone ',&zonen,' is not worked'
            ELSE
               DISP
            ENDIF
            @ 10,1 SAY 'Do you want to update the entry (Y/N) ? '
            @ 10,40 GET df
            READ
            IF df = 'Y'
               STORE '         ' TO  callcard
               SELECT A
               @ 12,1 SAY 'What is the call ? '
               @ 12,21 GET callcard
               READ
               FIND &callcard
               @ 14,1 SAY ' '
               IF (EOF() .OR. BOF())
                  ? callcard,' is not in log'
               ELSE
                  STORE .T. TO qflag
                  DO WHILE call = callcard .AND. qflag
                     @ 20,1 SAY ' '
                     DISP
                     @ 22,2 SAY ' '
                     ACCEPT 'This one (Y/N) ? ' TO df
                     IF df = 'Y'
                        STORE .F. TO qflag
                     ENDIF
                     SKIP
                  ENDDO
                  IF qflag
                     * DON'T update entry
                  ELSE
                     SKIP -1
                     STORE call TO call
                     STORE date TO date
                     STORE time TO time
                     STORE band TO band
                     STORE mode TO mode
                     STORE qslrx TO qslrx
                     SELECT B
                     REPLACE dcall WITH call
                     REPLACE ddate WITH date
                     REPLACE dtime WITH time
                     REPLACE dband WITH band
                     REPLACE dmode WITH mode
                     REPLACE dstate WITH qslrx
                  ENDIF
               ENDIF
            ENDIF
         ENDIF
      ELSE
         ? 'ERROR, THERE ARE ONLY 40 ZONES'
         WAIT
      ENDIF
   ENDDO
   SELECT A
   USE
   SELECT B
   USE
ELSE
   ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
ENDIF
RELEASE qflag, callcard, df, zonen, cflag, call, date, time, band, mode, qslrx
RETURN