home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / DXCC5BGN.PRG < prev    next >
Text File  |  1987-12-11  |  498b  |  24 lines

  1. *5BGEN GENERATES A NEW DXCC FILE
  2. IF FILE(dxcc+'.DBF')
  3.    * FILE EXISTS
  4. ELSE
  5.    USE dxcc
  6.    ? 'CREATING NEW FILE AND COPYING DATA'
  7.    COPY TO &dxcc
  8.    USE &dxcc
  9.    DO WHILE .NOT. EOF()
  10.       ? px,px1,country
  11.       REPLACE dcall WITH blank
  12.       REPLACE ddate WITH blank
  13.       REPLACE dtime WITH blank
  14.       REPLACE dband WITH blank
  15.       REPLACE dmode WITH blank
  16.       REPLACE dstate WITH blank
  17.       SKIP
  18.    ENDDO
  19.    ?
  20.    ? 'NEW BLANK DXCC FILE CREATED'
  21.    USE
  22. ENDIF
  23. RETURN
  24.