#Yoko ; 葉書横印刷の宣言 ; ======== 転送枠・交信データ欄定義のルーティン =========== #SetXY 0, -25 ;印刷位置微調整 #Size 1480, 1000 ; 葉書サイズ横向き指定 #FontColor=0x00000000 ;----------------------- JARL転送枠 ------------------ #LineS 2, 0, 255 #LineR 85, 98, 175, 165, #LineR 85, 188, 175, 255, #LineR 85, 278, 175, 345, #LineR 85, 368, 175, 435, #LineR 85, 458, 175, 525, #LineR 85, 548, 175, 615, ;---------　転送枠へコールサイン入力 ------ #FontName="@ＭＳ ゴシック" #FontSize=20 #FontColor=0x00000000 #FontStyle=0 #Print 95, 547, "!C1" ; JARL転送枠１文字目 #Print 95, 457, "!C2" #Print 95, 367, "!C3" #Print 95, 277, "!C4" #Print 95, 187, "!C5" #Print 95, 97, "!C6" ;----------- データ項目欄の塗りつぶし ------- ;#FontName="ＭＳ 明朝" ;#FontName="IPAゴシック" #FillBox 260,200,1101,70,0x0080FFFF;　青 ;----------- データ欄枠組 ---------------------- #LineS 2,0,0x00959595 #LineR 260, 200, 1360, 400 #LineX 260, 270, 1101 #LineY 390, 270, 127 #LineY 520, 270, 127 #LineY 650, 200, 197 #LineY 810, 200, 197 #LineY 985, 200, 197 #LineY 1200, 200, 197 ;---------------------------------------------------- ;#FontName="ＭＳ 明朝" #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=12 #FontColor=0x00000000 ;#FontColor=0x00717171 #FontStyle=0 ;------------------- データ欄見出し ----------------- #Mov $$D = "FT8,FT4,JT65,JT9" ; デジタルモード #PrintC 260, 215,388, "DATE" ; 年月日 #PrintC 650, 215,160, "TIME" ; 交信開始時刻 ? nData7 "!$$D" ;デジタルの場合 #PrintC 795, 215, 200,"dB" #Mov $$B="dB" #Goto *456 ? End ? nData7 "CW" #PrintC 795, 215, 200,"RST" #Mov $$B="RST" #Goto *456 ? End ? nData7 "DV" ; DV ;D-STAR DV Mode #PrintC 795, 215, 200,"RS" #Mov $$B="RS" #Goto *456 ? End ? nData7 "DR" ; DR ;D-STAR DR Mode #PrintC 795, 215, 200,"MERIT" #Mov $$B="MERIT" #Goto *456 ? End #PrintC 795, 215, 200,"RS" ;FM SSB #Mov $$B="RS" *456 #PrintC 980,215,225, "BAND/Freq" ; 運用周波数帯 #PrintC 1200,215,160, "MODE" ; 電波形式 ;------------------------ 交信データ見出し ---------------- ;#FontName="ＭＳ 明朝" #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=10 ;#FontColor=0x00959595 #FontColor=0x00000000 ;#FontColor=0x00717171 #FontStyle=2 #Print 287, 280, "Year" #Print 425, 280, "!DJ" #Print 550, 280, "Day" #PrintC 795, 280,200, "Your/My" #Print 1130,280, "MHz" #Print 1270,280,"2Way" ? UTC! #Print 665, 280, "JST" ? UTC #Print 665, 280, "UTC" ;------------------------- 交信データ ----------------- #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=14 #FontColor=0x00000000 #FontStyle=0 #PrintC 260, 340,130, "!DY" ; 西暦 #PrintC 390, 340,130, "!Dm" ; 月 #PrintC 520, 340,130, "!Dd" ; 日 #PrintC 650, 340,160, "!TH:!TM" ; 交信開始時刻 #PrintC 795, 340,210, "!HR/!MR" ; 信号強度等 ;#PrintC 980,340,225, "!FR" ; 運用周波数帯 #PrintC 980,340,225, "!F8" ; 運用周波数帯 #PrintC 1200,340,160, "!MD" ; 電波形式 ;★★★★★★★★★★ #Mov $$X=290 #Mov $$Y=450 ;----------- データ項目欄の塗りつぶし ------- ;#FontName="ＭＳ 明朝" ;#FontName="IPAゴシック" #FontColor=0x0080FFFF #FillBox $$X, $$Y,1101,70,0x0080FFFF;　青 ;#FillBox $$X, $$Y, $$X+841, $$Y-370,0x0080FFFF;　青 ;----------- データ欄枠組 ---------------------- #LineS 2,0,0x00959595 #LineR $$X, $$Y,$$X+1101,$$Y+197 #LineX $$X, $$Y+70, 1101 #LineY $$X+130, $$Y+70,127 #LineY $$X+260, $$Y+70,127 #LineY $$X+390, $$Y, 197 #LineY $$X+550, $$Y, 197 #LineY $$X+725, $$Y, 197 #LineY $$X+940, $$Y, 197 ;---------------------------------------------------- ;#FontName="ＭＳ 明朝" #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=12 #FontColor=0x00000000 ;#FontColor=0x00717171 #FontStyle=0 ;------------------- データ欄見出し ----------------- #Mov $$D = "FT8,FT4,JT65,JT9" ; デジタルモード #PrintC $$X, $$Y+15,388, "DATE" ; 年月日 #PrintC $$X+390, $$Y+15,160, "TIME" ; 交信開始時刻 ? nData7 "!$$D" ;デジタルの場合 #PrintC $$X+535, $$Y+15, 200,"dB" #Mov $$B="dB" #Goto *456 ? End ? nData7 "CW" #PrintC $$X+535, $$Y+15, 200,"RST" #Mov $$B="RST" #Goto *456 ? End ? nData7 "DV" ; DV ;D-STAR DV Mode #PrintC $$X+535, $$Y+15, 200"RS" #Mov $$B="RS" #Goto *456 ? End ? nData7 "DR" ; DR ;D-STAR DR Mode #PrintC $$X+535, $$Y+15, 200,"MERIT" #Mov $$B="MERIT" #Goto *456 ? End #PrintC $$X+535, $$Y+15, 200,"RS" ;FM SSB #Mov $$B="RS" *456 #PrintC $$X+720,$$Y+15,225, "BAND/Freq" ; 運用周波数帯 #PrintC $$X+940,$$Y+15,160, "MODE" ; 電波形式 ;------------------------ 交信データ見出し ---------------- ;#FontName="ＭＳ 明朝" #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=10 ;#FontColor=0x00959595 #FontColor=0x00000000 ;#FontColor=0x00717171 #FontStyle=2 #Print $$X+27, $$Y+80, "Year" #Print $$X+165, $$Y+80, "!DJ" #Print $$X+290, $$Y+80, "Day" #PrintC $$X+535, $$Y+80,200, "Your/My" #Print $$X+870,$$Y+80, "MHz" #Print $$X+1010,$$Y+80,"2Way" ? UTC! #Print $$X+405, $$Y+80, "JST" ? UTC #Print $$X+405, $$Y+80, "UTC" ;------------------------- 交信データ ----------------- #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=14 #FontColor=0x00000000 #FontStyle=0 #PrintC $$X, $$Y+140,130, "!DY" ; 西暦 #PrintC $$X+130, $$Y+140,130, "!Dm" ; 月 #PrintC $$X+260, $$Y+140,130, "!Dd" ; 日 #PrintC $$X+390, $$Y+140,160, "!TH:!TM" ; 交信開始時刻 #PrintC $$X+535, $$Y+140,210, "!HR/!MR" ; 信号強度等 ;#PrintC $$X+720,$$Y+140,225, "!FR" ; 運用周波数帯 #PrintC $$X+720,$$Y+140,225, "!F8" ; 運用周波数帯 #PrintC $$X+940,$$Y+140,160, "!MD" ; 電波形式 #End ;★★★★★★★★★★ #Mov $$X=350 #Mov $$Y=750 ;----------- データ項目欄の塗りつぶし ------- ;#FontName="ＭＳ 明朝" ;#FontName="IPAゴシック" #FontColor=0x0080FFFF #FillBox $$X, $$Y,1101,70,0x0080FFFF;　青 ;#FillBox $$X, $$Y, $$X+841, $$Y-370,0x0080FFFF;　青 ;----------- データ欄枠組 ---------------------- #LineS 2,0,0x00959595 #LineR $$X, $$Y,$$X+1101,$$Y+197 #LineX $$X, $$Y+70, 1101 #LineY $$X+130, $$Y+70,127 #LineY $$X+260, $$Y+70,127 #LineY $$X+390, $$Y, 197 #LineY $$X+550, $$Y, 197 #LineY $$X+725, $$Y, 197 #LineY $$X+940, $$Y, 197 ;---------------------------------------------------- ;#FontName="ＭＳ 明朝" #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=12 #FontColor=0x00000000 ;#FontColor=0x00717171 #FontStyle=0 ;------------------- データ欄見出し ----------------- #Mov $$D = "FT8,FT4,JT65,JT9" ; デジタルモード #PrintC $$X, $$Y+15,388, "DATE" ; 年月日 #PrintC $$X+390, $$Y+15,160, "TIME" ; 交信開始時刻 ? nData7 "!$$D" ;デジタルの場合 #PrintC $$X+535, $$Y+15, 200,"dB" #Mov $$B="dB" #Goto *456 ? End ? nData7 "CW" #PrintC $$X+535, $$Y+15, 200,"RST" #Mov $$B="RST" #Goto *456 ? End ? nData7 "DV" ; DV ;D-STAR DV Mode #PrintC $$X+535, $$Y+15, 200"RS" #Mov $$B="RS" #Goto *456 ? End ? nData7 "DR" ; DR ;D-STAR DR Mode #PrintC $$X+535, $$Y+15, 200,"MERIT" #Mov $$B="MERIT" #Goto *456 ? End #PrintC $$X+535, $$Y+15, 200,"RS" ;FM SSB #Mov $$B="RS" *456 #PrintC $$X+720,$$Y+15,225, "BAND/Freq" ; 運用周波数帯 #PrintC $$X+940,$$Y+15,160, "MODE" ; 電波形式 ;------------------------ 交信データ見出し ---------------- ;#FontName="ＭＳ 明朝" #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=10 ;#FontColor=0x00959595 #FontColor=0x00000000 ;#FontColor=0x00717171 #FontStyle=2 #Print $$X+27, $$Y+80, "Year" #Print $$X+165, $$Y+80, "!DJ" #Print $$X+290, $$Y+80, "Day" #PrintC $$X+535, $$Y+80,200, "Your/My" #Print $$X+870,$$Y+80, "MHz" #Print $$X+1010,$$Y+80,"2Way" ? UTC! #Print $$X+405, $$Y+80, "JST" ? UTC #Print $$X+405, $$Y+80, "UTC" ;------------------------- 交信データ ----------------- #FontName="ＭＳ ゴシック" ;#FontName="IPAゴシック" #FontSize=14 #FontColor=0x00000000 #FontStyle=0 #PrintC $$X, $$Y+140,130, "!DY" ; 西暦 #PrintC $$X+130, $$Y+140,130, "!Dm" ; 月 #PrintC $$X+260, $$Y+140,130, "!Dd" ; 日 #PrintC $$X+390, $$Y+140,160, "!TH:!TM" ; 交信開始時刻 #PrintC $$X+535, $$Y+140,210, "!HR/!MR" ; 信号強度等 ;#PrintC $$X+720,$$Y+140,225, "!FR" ; 運用周波数帯 #PrintC $$X+720,$$Y+140,225, "!F8" ; 運用周波数帯 #PrintC $$X+940,$$Y+140,160, "!MD" ; 電波形式 #End #Exit