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