home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / WAZENTER.PRG < prev   
Text File  |  1987-12-24  |  3KB  |  94 lines
  1. * WAZENTER PUTS DATA IN WAZ DATABASE VERSION 851203
  2. * SAME AS OBLASTEN.PRG BUT FOR 40 ZONES
  3. * BY JOE KASSER G3ZCZ (c) 1985
  4.  
  5. IF FILE (logbook + '.DBF')
  6.    SELECT A
  7.    USE &logbook  INDEX &logndx
  8.  
  9.    SELECT B
  10.    USE &waz
  11.  
  12.    STORE .T. TO cflag
  13.    STORE 0 TO zonen
  14.    STORE ' ' TO df
  15.    STORE '         ' TO callcard
  16.  
  17.    DO WHILE cflag
  18.       CLEAR
  19.       @ 3,1 SAY ' '
  20.       ACCEPT 'Which Zone (0 to terminate) ? '  TO zonen
  21.       IF &zonen < wazm
  22.          IF &zonen = 0
  23.             STORE .F. TO cflag
  24.          ELSE
  25.             SELECT B
  26.             * GO DIRECTLY TO RECORD
  27.             GOTO &zonen
  28.             @ 8,1 SAY ' '
  29.             IF dcall = ' '
  30.                ? 'Zone ',&zonen,' 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.                      REPLACE dstate WITH qslrx
  76.                   ENDIF
  77.                ENDIF
  78.             ENDIF
  79.          ENDIF
  80.       ELSE
  81.          ? 'ERROR, THERE ARE ONLY 40 ZONES'
  82.          WAIT
  83.       ENDIF
  84.    ENDDO
  85.    SELECT A
  86.    USE
  87.    SELECT B
  88.    USE
  89. ELSE
  90.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  91. ENDIF
  92. RELEASE qflag, callcard, df, zonen, cflag, call, date, time, band, mode, qslrx
  93. RETURN
  94.