home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of the Best
/
_.img
/
02192
/
logbook.arc
/
DXCC5BGN.PRG
< prev
next >
Wrap
Text File
|
1987-12-11
|
498b
|
24 lines
*5BGEN GENERATES A NEW DXCC FILE
IF FILE(dxcc+'.DBF')
* FILE EXISTS
ELSE
USE dxcc
? 'CREATING NEW FILE AND COPYING DATA'
COPY TO &dxcc
USE &dxcc
DO WHILE .NOT. EOF()
? px,px1,country
REPLACE dcall WITH blank
REPLACE ddate WITH blank
REPLACE dtime WITH blank
REPLACE dband WITH blank
REPLACE dmode WITH blank
REPLACE dstate WITH blank
SKIP
ENDDO
?
? 'NEW BLANK DXCC FILE CREATED'
USE
ENDIF
RETURN