; 既成の白紙カードに直接印刷する 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
