> うわ! すごいですね。全体が見てみたいものです。> 上には上がいると実感しました。hi> ご活用いただき有難うございます。ご要望にお応えして。。。hi
; ------- ADIF出力用の定義ファイル by JG1MOU -----------
; 印刷イメージは機能しない。試し印刷も機能しない。
; #ADIF命令では、次のようにフォルダ指定が可能
; #Adif="D:\Adif_Out.adi"
; #Adif ←フォルダ指定が無ければHamlogフォルダに出力
; -------------------------------------------------------
;
; ★Remarks1の記述について
; 使用する変数は次の通り
; $E ポータブル表示(コールサインの前)
; $P ポータブル表示(コールサインの後)
; $J 運用場所の市郡区ナンバーのヘッダ(JCC/JCG/AJA)
; $Z 運用場所の市郡区ナンバー
; $G 運用場所のグリッドスクエア
; $W 都道府県番号
; $Y 運用場所の都道府県・市郡町村名(日本語)
; $X 運用場所の都道府県・市郡町村名(英語)
; 《例》$E=$$P=$$J=JCC$$Z=1906$$G=PM85rl$$W=19$$Y=岐阜県中津川市$$X=Nakatsug
awa city,GIFU$
;
; ★Remarks2の記述について
; 使用する変数は次の通り
; $M ADIFのPROP_MODE(衛星通信:SAT・レピータ経由:RPT)
; $A 衛星のオスカーナンバーまたはレピータのコールサイン
; $B コンテスト等の名称
; $C IOTA番号・SOTA番号
; $S SWLナンバー
; $T SWLナンバーのポータブル表示
; ///// 各種設定 /////
#Adif = "C:\Ham\!nW.adi" ; 日付をファイル名にして出力する(D:\2019-01-26.a
di)
;#Adif "!nW.adi"
#Mov $$N = "JK2XXK";本定義ファイルの対象とするコールサイン
; ///// QSO_DATE・TIME_ON・CALL・BAND /////
#Jst2Utc
#Mov $$A = "
!DY!DM!DD!TH!TMt;!cp!Bt"
; ///// MODE・SUBMODE /////
#Mov $$B = "!MD"
? nData7 "GMSK"
#Mov $$B = "PKT"
? nData7 "C4FM,DMR,DSTAR"
#Mov $$B = "DIGITALVOICE!MD"
? nData7 "FT4,JS8,Q65"
#Mov $$B = "MFSK!MD"
? nData7 "JT65A,JT65B,JT65B2,JT65C,JT65C2"
#Mov $$B = "JT65!MD"
? nData7 "PSK31,PSK63,PSK125"
#Mov $$B = "PSK!MD"
? nData7 "QRA64A,QRA64B,QRA64C,QRA64D,QRA64E"
#Mov $$B = "QRA64!MD"
; ///// STATION_CALLSIGN /////
#Mov $$C = "!R1$E!$$N!R1$P"
; ///// MY_CQ_ZONE・MY_ITU_ZONE・MY_DXCC /////
#Mov $$O = "!R1$Z"; 市郡区ナンバーを変数へ
#Mov $$D = "2545339&qu
ot;
? $$O "10007"; 小笠原(南鳥島は未対応)
#Mov $$D = "2745192&qu
ot;
;? $$O "10007"; 南鳥島
;#Mov $$D = "2790177&q
uot;
; ///// MY_STATE・MY_CNTY・MY_GRIDSQUARE /////
#Mov $$E = "!R1$W!R1$ZAf>!R1$G"
; ///// SAT_NAME /////
#Mov $$P = "!R2$A"; 衛星名を変数へ
? $$P "ISS"
#Mov $$P = "ARISS"
? $$P "UVSQ-SAT"
#Mov $$P = "UVSQ"
? $$P "TEVEL-1"
#Mov $$P = "TEVEL1"
? $$P "TEVEL-2"
#Mov $$P = "TEVEL2"
? $$P "TEVEL-3"
#Mov $$P = "TEVEL3"
? $$P "TEVEL-4"
#Mov $$P = "TEVEL4"
? $$P "TEVEL-5"
#Mov $$P = "TEVEL5"
? $$P "TEVEL-6"
#Mov $$P = "TEVEL6"
? $$P "TEVEL-7"
#Mov $$P = "TEVEL7"
? $$P "TEVEL-8"
#Mov $$P = "TEVEL8"
? $$P "INSPIRE-Sat7"
#Mov $$P = "INSPR7"
? $$P "SONATE-2"
#Mov $$P = "SONATE"
; ///// PROP_MODE・SAT_NAME・BAND_RX /////
#Mov $$Q = "!R2$M"; 伝搬モードを変数へ
#Mov $$F = ""
? $$Q "SAT"; 伝搬モードがサテライト通信
#Mov $$F = "!$$Q!$$P
!Br"
? $$Q "RPT"; 伝搬モードがレピータ
#Mov $$F = "!$$Q"
? $$Q "EME"; 伝搬モードが月面反射通信
#Mov $$F = "!$$Q"
; ///// 出力する /////
#Print 0,0,"!$$A!$$B!$$C!$$D!$$E!$$F"
; ///// End of File /////