* 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)
   SELECT primary
   USE &logbook  INDEX &logbook

   SELECT SECONDARY
   USE &waz

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

   DO WHILE cflag
      ERASE
      @ 3,1 SAY ' '
      ACCEPT    'Which Zone (0 to terminate) ?'  TO zonen
      IF &zonen < wazm
         IF &zonen = 0
            STORE F TO cflag
         ELSE
            SELECT SECONDARY
            * 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 PRIMARY
               @ 12,1 SAY 'What is the call ? '
               @ 12,21 GET callcard
               READ
               FIND &callcard
               @ 14,1 SAY ' '
               IF # = 0
                  ? 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
                     SELECT SECONDARY
                     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 PRIMARY
   USE
   SELECT SECONDARY
   USE
ELSE
   ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
ENDIF
RELEASE qflag,callcard,df,zonen,cflag
  IF df = 'Y'
               STORE '         ' TO  callcard
               SELECT PRIMARY