home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / hamradio / logbook.arc / DXCCPXED.PRG < prev    next >
Text File  |  1986-06-25  |  1KB  |  62 lines
  1. *DXCCPXED EDITS px'S IN DXCC FILE
  2. * (c) COPYRIGHT Joe Kasser G3ZCZ 1986
  3. ERASE
  4. @ 2,12 SAY 'G3ZCZ DXCCFILE PREFIX EDITING MODULE VERSION 1.1'
  5. STORE '    ' TO epx
  6. STORE '    ' TO epx1
  7. STORE '    ' TO epx2
  8. STORE ' '  TO ptask
  9. USE &dxcc
  10. GOTO BOTTOM
  11. STORE # TO lastpx
  12.  
  13. DO WHILE ptask <> '*'
  14.    @ 8,1 SAY ' CURRENT DXCC FILE IS'
  15.    @ 8,25 SAY dxcc
  16.  
  17.    @ 10,1 SAY ' Prefix to be edited ?'
  18.    @ 10,25 GET epx
  19.    READ
  20.  
  21.    LOCATE FOR px = TRIM(epx)
  22.    IF # = lastpx
  23.       *ERROR OR LAST PREFIX
  24.       @ 12,35 SAY 'ERROR  ???'
  25.    ELSE
  26.       @ 12,35 SAY '           '
  27.    ENDIF
  28.    STORE px TO epx1
  29.    STORE px1 TO epx2
  30.    @ 12,1 SAY country
  31.    @ 12,20 GET epx1
  32.    @ 12,28 GET epx2
  33.  
  34.    @ 15,1 SAY 'QRU (C/U/*) / '
  35.    @ 15,11 GET ptask
  36.    READ
  37.  
  38.    IF ptask = 'U'
  39.       REPLACE px WITH epx1
  40.       REPLACE px1 WITH epx2
  41.    ENDIF
  42.  
  43.    IF ptask = 'C'
  44.       STORE '   '+ dxcc TO odxcc
  45.       @ 8,25 GET dxcc
  46.       READ
  47.       IF FILE(dxcc+'.DBF')
  48.          USE &dxcc
  49.          GOTO BOTTOM
  50.          STORE # TO lastpx
  51.       ELSE
  52.          @ 20,1 SAY  'ERROR, SELECTED DXCC FILE IS NOT ON THE DISK'
  53.          WAIT
  54.          @ 20,1 SAY  '                                             '
  55.          ? '          '
  56.          STORE odxcc TO dxcc
  57.       ENDIF
  58.    ENDIF
  59. ENDDO
  60. RELEASE odxcc,lastpx,epx,epx1,epx2,ptask
  61. RETURN
  62.