home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / hamradio / logbook.arc / OBLASTEN.PRG < prev    next >
Encoding:
Text File  |  1985-12-03  |  2.4 KB  |  84 lines
  1. * OBLASTENTER VERSION 851114 PUTS DATA IN OBLAST DATABASE
  2. IF FILE (logbook)
  3.    SELECT primary
  4.    USE &logbook  INDEX &logbook
  5.  
  6.    SELECT SECONDARY
  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.       ERASE
  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 SECONDARY
  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,40 GET df
  33.             READ
  34.             IF df = 'Y'
  35.                STORE '         ' TO  callcard
  36.                SELECT PRIMARY
  37.                @ 12,1 SAY 'What is the call ? '
  38.                @ 12,21 GET callcard
  39.                READ
  40.                FIND &callcard
  41.                @ 14,1 SAY ' '
  42.                IF # = 0
  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.                      SELECT SECONDARY
  61.                      REPLACE dcall WITH call
  62.                      REPLACE ddate WITH date
  63.                      REPLACE dtime WITH time
  64.                      REPLACE dband WITH band
  65.                      REPLACE dmode WITH mode
  66.                      REPLACE dstate WITH qslrx
  67.                   ENDIF
  68.                ENDIF
  69.             ENDIF
  70.          ENDIF
  71.       ELSE
  72.          ? 'ERROR, LARGEST NUMBER IS ',oblastm - 1
  73.          WAIT
  74.       ENDIF
  75.    ENDDO
  76.    SELECT PRIMARY
  77.    USE
  78.    SELECT SECONDARY
  79.    USE
  80. ELSE
  81.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  82. ENDIF
  83. RELEASE qflag,callcard,df,oblastn,cflag
  84.