2018-02-08 21:28:33 -05:00
|
|
|
subroutine ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym,iaptype)
|
|
|
|
|
parameter(NAPM=4,KK=87)
|
|
|
|
|
character*12 mycall12,hiscall12
|
|
|
|
|
character*22 msg,msgsent
|
|
|
|
|
character*6 mycall,hiscall
|
|
|
|
|
character*6 mygrid6,hisgrid6
|
|
|
|
|
character*4 hisgrid
|
|
|
|
|
logical bcontest
|
|
|
|
|
integer apsym(KK)
|
|
|
|
|
integer*1 msgbits(KK)
|
|
|
|
|
integer itone(KK)
|
|
|
|
|
|
2018-08-10 03:58:50 -04:00
|
|
|
! mycall=mycall12(1:6)
|
|
|
|
|
! hiscall=hiscall12(1:6)
|
|
|
|
|
! hisgrid=hisgrid6(1:4)
|
|
|
|
|
! if(len_trim(hiscall).eq.0) then
|
|
|
|
|
! iaptype=1
|
|
|
|
|
! hiscall="K9AN"
|
|
|
|
|
! else
|
|
|
|
|
! iaptype=2
|
|
|
|
|
! endif
|
|
|
|
|
! hisgrid=hisgrid6(1:4)
|
|
|
|
|
!! if(len_trim(hisgrid).eq.0) hisgrid="EN50"
|
|
|
|
|
! if(index(hisgrid," ").eq.0) hisgrid="EN50"
|
2018-08-11 18:05:36 -04:00
|
|
|
msg='tZQpZP-slh4+' ! HELLO WORLD
|
2018-02-08 21:28:33 -05:00
|
|
|
i3bit=0 ! ### TEMPORARY ??? ###
|
|
|
|
|
call genft8(msg,mygrid6,bcontest,i3bit,msgsent,msgbits,itone)
|
|
|
|
|
apsym=2*msgbits-1
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine ft8apset
|
