home *** CD-ROM | disk | FTP | other *** search
- *5BGEN GENERATES A NEW DXCC FILE
- IF FILE(dxcc)
- * FILE EXISTS
- ELSE
- USE dxcc
- ? 'CREATING ',thisband,'METER 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