;#Yoko ; 葉書横印刷の宣言 ; ======== 交信データ欄定義のサブルーティン =========== #SetXY -30, -25 ;印刷位置微調整 #Size 1000, 1480 ; 葉書サイズ横向き指定 #FontColor=0x00000000 ;■■■■■■■■■■■■■■■■■■■■■ ;----------- 基準 --------- #Mov $$X=50 #Mov $$Y=50 ;★★★ 交信データ欄表示色設定 ;#FillBox $$X+0, $$Y+0,900,800, 0x00FFFFFF ;データ項目欄全体の塗りつぶし　白 #FillBox $$X+0, $$Y+0,900,40, 0x00FFFFAA ;データ項目欄の塗りつぶし　水色 ;★★★ 交信データ欄枠組み #LineS 1,0,0x004F4F00 #LineR $$X+0, $$Y+0,$$X+900,$$Y+130 ;データ欄枠組 ;date #LineY $$X+250, $$Y+0, 130 ;縦罫線 ;time #LineY $$X+380, $$Y+0, 130 ;縦罫線 ;rs #LineY $$X+570, $$Y+0, 130 ;縦罫線 ;band #LineY $$X+760, $$Y+0, 130 ;縦罫線 ;mode #LineX $$X+0, $$Y+40, 900 ;★★★ データ欄見出し #FontSize=9 #FontStyle=0 #Mov $$Y=$$Y+7 #Print $$X+10, $$Y, "DATE" ;交信年月日 #Print $$X+260, $$Y, "TIME" ;交信開始時刻 #Mov $$D = "FT8,FT4,JT65,JT9" ;デジタルモード ? nData7 "!$$D" ;デジタルの場合 #Print $$X+390, $$Y,"dB" #Mov $$B="dB" #Goto *456 ? End ? nData7 "CW" ;電信の場合 #Print $$X+390, $$Y,"RST" #Mov $$B="RST" #Goto *456 ? End ? nData7 "DR" ;D-STAR DR Mode #Print $$X+390, $$Y,"MERIT" #Mov $$B="MERIT" #Goto *456 ? End #Print $$X+390, $$Y,"RS" ;FM SSB D-STAR DV Mode #Mov $$B="RS" *456 #Print $$X+580, $$Y, "BAND" ;運用帯/運用周波数　　　 #Print $$X+770, $$Y, "MODE" ;モード #Mov $$Y=$$Y-7 ;★★★ 通信データ欄の補助項目 #FontSize=8 #FontStyle=2 #FontColor=0x00000000 #Mov $$Y=$$Y+40 #PrintC $$X+0,$$Y,250, "Year/!DJ/Day" #PrintC $$X+400,$$Y,130, "Your/My" #PrintR $$X+750,$$Y, "MHz" #PrintR $$X+890,$$Y, "2Way" ? UTC! #PrintR $$X+370, $$Y, "(JST)" ? UTC #PrintR $$X+370, $$Y, "(UTC)" #Mov $$Y=$$Y-25 ;? End ;★★★ 交信データ #FontSize=12 #FontColor=0x00000000 #FontStyle=1 #Mov $$Y=$$Y+70 #PrintC $$X+0,$$Y,250, "!DY/!DM/!DD" ;年月日 #PrintC $$X+250,$$Y,130, "!TH:!TM" ;交信開始時刻 #PrintC $$X+380,$$Y,190, "!HR/!MR" ;信号強度等 #PrintC $$X+570,$$Y,190, "!F8" ;運用周波数帯 #PrintC $$X+760,$$Y,140, "!MD" ;電波形式 #Mov $$Y=$$Y-70 ;■■■■■■■■■■■■■■■■■■■■■ ;----------- shift1 --------- #Mov $$X=50 #Mov $$Y=200 ;★★★ 交信データ欄表示色設定 ;#FillBox $$X+0, $$Y+0,900,800, 0x00FFFFFF ;データ項目欄全体の塗りつぶし　白 #FillBox $$X+0, $$Y+0,900,40, 0x00FFFFAA ;データ項目欄の塗りつぶし　水色 ;★★★ 交信データ欄枠組み #LineS 1,0,0x004F4F00 #LineR $$X+0, $$Y+0,$$X+900,$$Y+130 ;データ欄枠組 ;date #LineY $$X+250, $$Y+0, 130 ;縦罫線 ;time #LineY $$X+380, $$Y+0, 130 ;縦罫線 ;rs #LineY $$X+570, $$Y+0, 130 ;縦罫線 ;band #LineY $$X+760, $$Y+0, 130 ;縦罫線 ;mode #LineX $$X+0, $$Y+40, 900 ;★★★ データ欄見出し #FontSize=9 #FontStyle=0 #Mov $$Y=$$Y+7 #Print $$X+10, $$Y, "DATE" ;交信年月日 #Print $$X+260, $$Y, "TIME" ;交信開始時刻 #Mov $$D = "FT8,FT4,JT65,JT9" ;デジタルモード ? nData7 "!$$D" ;デジタルの場合 #Print $$X+390, $$Y,"dB" #Mov $$B="dB" #Goto *456 ? End ? nData7 "CW" ;電信の場合 #Print $$X+390, $$Y,"RST" #Mov $$B="RST" #Goto *456 ? End ? nData7 "DR" ;D-STAR DR Mode #Print $$X+390, $$Y,"MERIT" #Mov $$B="MERIT" #Goto *456 ? End #Print $$X+390, $$Y,"RS" ;FM SSB D-STAR DV Mode #Mov $$B="RS" *456 #Print $$X+580, $$Y, "BAND" ;運用帯/運用周波数　　　 #Print $$X+770, $$Y, "MODE" ;モード #Mov $$Y=$$Y-7 ;★★★ 通信データ欄の補助項目 #FontSize=8 #FontStyle=2 #FontColor=0x00000000 #Mov $$Y=$$Y+40 #PrintC $$X+0,$$Y,250, "Year/!DJ/Day" #PrintC $$X+400,$$Y,130, "Your/My" #PrintR $$X+750,$$Y, "MHz" #PrintR $$X+890,$$Y, "2Way" ? UTC! #PrintR $$X+370, $$Y, "(JST)" ? UTC #PrintR $$X+370, $$Y, "(UTC)" #Mov $$Y=$$Y-25 ;? End ;★★★ 交信データ #FontSize=12 #FontColor=0x00000000 #FontStyle=1 #Mov $$Y=$$Y+70 #PrintC $$X+0,$$Y,250, "!DY/!DM/!DD" ;年月日 #PrintC $$X+250,$$Y,130, "!TH:!TM" ;交信開始時刻 #PrintC $$X+380,$$Y,190, "!HR/!MR" ;信号強度等 #PrintC $$X+570,$$Y,190, "!F8" ;運用周波数帯 #PrintC $$X+760,$$Y,140, "!MD" ;電波形式 #Mov $$Y=$$Y-70 ;■■■■■■■■■■■■■■■■■■■■■ ;----------- shift2 --------- #Mov $$X=50 #Mov $$Y=350 ;★★★ 交信データ欄表示色設定 ;#FillBox $$X+0, $$Y+0,900,800, 0x00FFFFFF ;データ項目欄全体の塗りつぶし　白 #FillBox $$X+0, $$Y+0,900,40, 0x00FFFFAA ;データ項目欄の塗りつぶし　水色 ;★★★ 交信データ欄枠組み #LineS 1,0,0x004F4F00 #LineR $$X+0, $$Y+0,$$X+900,$$Y+130 ;データ欄枠組 ;date #LineY $$X+250, $$Y+0, 130 ;縦罫線 ;time #LineY $$X+380, $$Y+0, 130 ;縦罫線 ;rs #LineY $$X+570, $$Y+0, 130 ;縦罫線 ;band #LineY $$X+760, $$Y+0, 130 ;縦罫線 ;mode #LineX $$X+0, $$Y+40, 900 ;★★★ データ欄見出し #FontSize=9 #FontStyle=0 #Mov $$Y=$$Y+7 #Print $$X+10, $$Y, "DATE" ;交信年月日 #Print $$X+260, $$Y, "TIME" ;交信開始時刻 #Mov $$D = "FT8,FT4,JT65,JT9" ;デジタルモード ? nData7 "!$$D" ;デジタルの場合 #Print $$X+390, $$Y,"dB" #Mov $$B="dB" #Goto *456 ? End ? nData7 "CW" ;電信の場合 #Print $$X+390, $$Y,"RST" #Mov $$B="RST" #Goto *456 ? End ? nData7 "DR" ;D-STAR DR Mode #Print $$X+390, $$Y,"MERIT" #Mov $$B="MERIT" #Goto *456 ? End #Print $$X+390, $$Y,"RS" ;FM SSB D-STAR DV Mode #Mov $$B="RS" *456 #Print $$X+580, $$Y, "BAND" ;運用帯/運用周波数　　　 #Print $$X+770, $$Y, "MODE" ;モード #Mov $$Y=$$Y-7 ;★★★ 通信データ欄の補助項目 #FontSize=8 #FontStyle=2 #FontColor=0x00000000 #Mov $$Y=$$Y+40 #PrintC $$X+0,$$Y,250, "Year/!DJ/Day" #PrintC $$X+400,$$Y,130, "Your/My" #PrintR $$X+750,$$Y, "MHz" #PrintR $$X+890,$$Y, "2Way" ? UTC! #PrintR $$X+370, $$Y, "(JST)" ? UTC #PrintR $$X+370, $$Y, "(UTC)" #Mov $$Y=$$Y-25 ;? End ;★★★ 交信データ #FontSize=12 #FontColor=0x00000000 #FontStyle=1 #Mov $$Y=$$Y+70 #PrintC $$X+0,$$Y,250, "!DY/!DM/!DD" ;年月日 #PrintC $$X+250,$$Y,130, "!TH:!TM" ;交信開始時刻 #PrintC $$X+380,$$Y,190, "!HR/!MR" ;信号強度等 #PrintC $$X+570,$$Y,190, "!F8" ;運用周波数帯 #PrintC $$X+760,$$Y,140, "!MD" ;電波形式 #Mov $$Y=$$Y-70 ;■■■■■■■■■■■■■■■■■■■■■ ;----------- shift3 --------- #Mov $$X=50 #Mov $$Y=500 ;★★★ 交信データ欄表示色設定 ;#FillBox $$X+0, $$Y+0,900,800, 0x00FFFFFF ;データ項目欄全体の塗りつぶし　白 #FillBox $$X+0, $$Y+0,900,40, 0x00FFFFAA ;データ項目欄の塗りつぶし　水色 ;★★★ 交信データ欄枠組み #LineS 1,0,0x004F4F00 #LineR $$X+0, $$Y+0,$$X+900,$$Y+130 ;データ欄枠組 ;date #LineY $$X+250, $$Y+0, 130 ;縦罫線 ;time #LineY $$X+380, $$Y+0, 130 ;縦罫線 ;rs #LineY $$X+570, $$Y+0, 130 ;縦罫線 ;band #LineY $$X+760, $$Y+0, 130 ;縦罫線 ;mode #LineX $$X+0, $$Y+40, 900 ;★★★ データ欄見出し #FontSize=9 #FontStyle=0 #Mov $$Y=$$Y+7 #Print $$X+10, $$Y, "DATE" ;交信年月日 #Print $$X+260, $$Y, "TIME" ;交信開始時刻 #Mov $$D = "FT8,FT4,JT65,JT9" ;デジタルモード ? nData7 "!$$D" ;デジタルの場合 #Print $$X+390, $$Y,"dB" #Mov $$B="dB" #Goto *456 ? End ? nData7 "CW" ;電信の場合 #Print $$X+390, $$Y,"RST" #Mov $$B="RST" #Goto *456 ? End ? nData7 "DR" ;D-STAR DR Mode #Print $$X+390, $$Y,"MERIT" #Mov $$B="MERIT" #Goto *456 ? End #Print $$X+390, $$Y,"RS" ;FM SSB D-STAR DV Mode #Mov $$B="RS" *456 #Print $$X+580, $$Y, "BAND" ;運用帯/運用周波数　　　 #Print $$X+770, $$Y, "MODE" ;モード #Mov $$Y=$$Y-7 ;★★★ 通信データ欄の補助項目 #FontSize=8 #FontStyle=2 #FontColor=0x00000000 #Mov $$Y=$$Y+40 #PrintC $$X+0,$$Y,250, "Year/!DJ/Day" #PrintC $$X+400,$$Y,130, "Your/My" #PrintR $$X+750,$$Y, "MHz" #PrintR $$X+890,$$Y, "2Way" ? UTC! #PrintR $$X+370, $$Y, "(JST)" ? UTC #PrintR $$X+370, $$Y, "(UTC)" #Mov $$Y=$$Y-25 ;? End ;★★★ 交信データ #FontSize=12 #FontColor=0x00000000 #FontStyle=1 #Mov $$Y=$$Y+70 #PrintC $$X+0,$$Y,250, "!DY/!DM/!DD" ;年月日 #PrintC $$X+250,$$Y,130, "!TH:!TM" ;交信開始時刻 #PrintC $$X+380,$$Y,190, "!HR/!MR" ;信号強度等 #PrintC $$X+570,$$Y,190, "!F8" ;運用周波数帯 #PrintC $$X+760,$$Y,140, "!MD" ;電波形式 #Mov $$Y=$$Y-70