WSJT-X/pfxdump.f

      subroutine pfxdump(fname)
      character*(*) fname
      include 'pfx.f'

      open(11,file=fname,status='unknown')
      write(11,1001) pfx
 1001 format('Supported Add-on Prefixes:'/90('_')/(15(a5,1x)))
      write(11,1002) sfx
 1002 format(/'Supported Suffixes:'/44('_')/(11('/',a1,2x)))
      close(11)

      return
      end
1. New help screen lists available Add-on DXCC prefixes. 2. Initialization of PTT to OFF is fixed. 3. WSJT_Source_Code.tst updated. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@117 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2006-01-25 13:44:12 -05:00			`subroutine pfxdump(fname)`
			`character() fname`
			`include 'pfx.f'`

			`open(11,file=fname,status='unknown')`
			`write(11,1001) pfx`
			`1001 format('Supported Add-on Prefixes:'/90('_')/(15(a5,1x)))`
			`write(11,1002) sfx`
			`1002 format(/'Supported Suffixes:'/44('_')/(11('/',a1,2x)))`
			`close(11)`

			`return`
			`end`