home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of the Best
/
_.img
/
02192
/
logbook.arc
/
WAZENTER.PRG
< prev
Wrap
Text File
|
1987-12-24
|
3KB
|
94 lines
* 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