自局が異なる移動の場合の５QSO定義ファイル ハムログ

; 既成の白紙カードに直接印刷する  by JG1MOU
; １枚のカードに同一局との複数のデータを印字する
; ただし、JARL指定順かJARL指定逆順で印字すること

印字補正　Ｘ-0　Ｙ-0にする事

#SetXY -30, -50
#FontName="ＭＳ ゴシック"
#FontSize=13
#FontColor=0
#FontStyle=3
#Print 10, 80, "To Radio"
#FontName="ＭＳ ゴシック"
#FontSize=10
#FontStyle=0
#Print 10, 160, "!CP" ; To Radio
#LineS 1, 0, 0
#LineX 10, 200, 270 ; To Radioにｱﾝﾀﾞｰﾗｲﾝを引く
#LineS 2, 0, 255  ; JARL転送枠
#LineR 395, 112, 465, 205
#LineR 485, 112, 555, 205
#LineR 575, 112, 645, 205
#LineR 665, 112, 735, 205
#LineR 755, 112, 825, 205
#LineR 845, 112, 915, 205
#FontSize = 20
#Print 394, 125, "!C1" ; JARL転送枠１文字目
#Print 484, 125, "!C2"
#Print 574, 125, "!C3"
#Print 664, 125, "!C4"
#Print 754, 125, "!C5"
#Print 844, 125, "!C6"

#FontSize=15
#FontColor=0
#FontStyle=3
? QslM
#Print 300,10, "Via"　

#FontName="ＭＳ 明朝"
#FontSize=10
#FontColor=0
#FontStyle=2
? Potbl                          ;ポータブルの否か
#Print 180,210, "移動地!cp!QT"   ;コールサイン／エリヤ  移動地

#LineS 1, 0, 0,
#LineR 920, 730, 23,295

?RmStr "%via"
#Print360, 245, "!R1"

#Print 10, 245, "Confirming Our QSO"
#FontName="ＭＳ ゴシック"
#FontSize=11
#FontColor=0
#FontStyle=2
#Print 150, 300, "Date"
#Print 350, 300, "Time"
#Print 500, 300, "RST"
#Print 650, 300, "MHz"
#Print 800, 300, "Mode"

#FontName="Century Oldstyle Bold"
#FontSize=8
#Print  30, 337, "Year"
#Print 150, 337,  "Month"
#Print 280, 337, "Day"
? UTC!
#Print 365,335,"JST"
? UTC
#Print 365,335,"UTC"
#Print 800,335,"2Way"

#FontName="ＭＳ 明朝"
#FontSize=8
#FontColor=0
#FontStyle=2
#Print  30, 370, "'!Dy"  ; 年  '99
#Print 150, 370, "!DJ"  ; 月  Apr.
#Print 280, 370, "!Dd"  ; 日  14
#Print 365, 370, "!TH:!TM" ; 時間  08:30
#Print 505, 370, "!HR"  ; RST
?RmStr "%via"
#FontSize=8
#Print 650, 370, "!FR"  ; 周波数帯 
#FontSize=8
#Print 800, 370, "!Md"  ; ﾓｰﾄﾞ

? Data13"%"
#Print 60, 400, "JR3QHQ!R1"移動の場合、リマークス1の移動地が印刷される
? Data13!"%"
#Print 60, 400, "JR3QHQ OSAKA IKEDA JCC-2506 GL;PM74RT"固定の場合これが印刷される

#FontName="ＭＳ 明朝"
#FontSize=11
#FontColor=0
#FontStyle=2
#Print  20, 739, "Rmks: TNX FB QSO CU AGN 73!"  ;備考

? Rcv!    ;ＱＳＬカードの送受    
#Print 740, 739, "QSL PSE"  ; QSL Pse
? Rcv
#Print 740, 739, "QSL TNX"  ; QSL Tnx

#FontName="ＭＳ Ｐゴシック"
#FontSize=8
#FontColor=89038897
#FontStyle=2

#FontName="ＭＳ 明朝"
#FontSize=8
#FontColor=0
#FontStyle=2
---------------------------------------------------------
#Readj *992 ; 同じコールサインでなければ*992へ

#FontName="ＭＳ 明朝"
#FontSize=8
#FontColor=0
#FontStyle=2
#Print  30, 435, "'!Dy"  ; 年  '99
#Print 150, 435, "!DJ"  ; 月  Apr.
#Print 280, 435, "!Dd"  ; 日  14
#Print 365, 435, "!TH:!TM" ; 時間  08:30
#Print 505, 435, "!HR"  ; RST
?RmStr "%via"
#FontSize=8
#Print 650, 435, "!FR"  ; 周波数帯 
#FontSize=8
#Print 800, 435, "!Md"  ; ﾓｰﾄﾞ

? Data13"%"
#Print 60, 465, "JR3QHQ!R1"
? Data13!"%"
#Print 60, 465, "JR3QHQ OSAKA IKEDA JCC-2506 GL;PM74RT"

#Goto *993

*992
#Print  300, 450, "--- End of QSO-DATA(1) ---"
#Exit

*993
#Readj *992
#Print  30, 505, "'!Dy"  ; 年  '99
#Print 150, 505, "!DJ"  ; 月  Apr.
#Print 280, 505, "!Dd"  ; 日  14
#Print 365, 505, "!TH:!TM" ; 時間  08:30
#Print 505, 505, "!HR"  ; RST
?RmStr "%via"
#FontSize=8
#Print 650, 505, "!FR"  ; 周波数帯 
#FontSize=8
#Print 800, 505, "!Md"  ; ﾓｰﾄﾞ

? Data13"%"
#Print 60, 535, "JR3QHQ!R1"
? Data13!"%"
#Print 60, 535, "JR3QHQ OSAKA IKEDA JCC-2506 GL;PM74RT"

#Goto *993

*992
#Print  300, 515, "--- End of QSO-DATA(2) ---"
#Exit

*993
#Readj *992
#Print  30, 575, "'!Dy"  ; 年  '99
#Print 150, 575, "!DJ"  ; 月  Apr.
#Print 280, 575, "!Dd"  ; 日  14
#Print 365, 575, "!TH:!TM" ; 時間  08:30
#Print 505, 575, "!HR"  ; RST
?RmStr "%via"
#FontSize=8
#Print 650, 575, "!FR"  ; 周波数帯 
#FontSize=8
#Print 800, 575, "!Md"  ; ﾓｰﾄﾞ

? Data13"%"
#Print 60, 605, "JR3QHQ!R1"
? Data13!"%"
#Print 60, 605, "JR3QHQ OSAKA IKEDA JCC-2506 GL;PM74RT"

#Goto *993

*992
#Print  300, 585, "--- End of QSO-DATA(3) ---"
#Exit

*993
#Readj *992
#Print  30, 645, "'!Dy"  ; 年  '99
#Print 150, 645, "!DJ"  ; 月  Apr.
#Print 280, 645, "!Dd"  ; 日  14
#Print 365, 645, "!TH:!TM" ; 時間  08:30
#Print 505, 645, "!HR"  ; RST
?RmStr "%via"
#FontSize=8
#Print 650, 645, "!FR"  ; 周波数帯 
#FontSize=8
#Print 800, 645, "!Md"  ; ﾓｰﾄﾞ

? Data13"%"
#Print 60, 675, "JR3QHQ!R1"
? Data13!"%"
#Print 60, 675, "JR3QHQ OSAKA IKEDA JCC-2506 GL;PM74RT"

#Goto *993

*992
#Print  300, 655, "--- End of QSO-DATA(4) ---"
*993