; 横長の電子QSL。 by JF2RJP #Size 640,408 #Mov $$C="GL:PM85HF" #Mov $$H="ZONE 25" #Mov $$E=" Naoto Matsuoka" #Mov $$G="OP: " #Mov $$D="FT8,FT4,JT65" ;#Alpha 0,0,300,145,15 ; 0,0,300,145,15富士山の下の方を半透明に ;#Jpg 0,0,640,0,"各務ヶ原.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\トンボ.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\どくだみ.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\やけい.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\とんぼ.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\ふんすい.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\ふんすい2.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\茶室.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\やけい4.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\やけい5.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\やけい6.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\やけい3.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\やけい2.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\わのうち.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\こてまり.JPG" ;#Jpg 0,0,640,0,"C:\MailQSL\Mシャック.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\Mシャック2.jpg" ;#Jpg 0,0,640,0,"C:\MailQSL\はな1.JPG" ? Qsl1 "2" #Jpg 0,0,640,0,"C:\MailQSL\IMG_3725.JPG" ? Qsl1 "3" #Jpg 0,0,640,0,"C:\MailQSL\IMG_3747.JPG" ? Qsl1 "4" #Jpg 0,0,640,0,"C:\MailQSL\IMG_3850.JPG" ? Qsl1 "E" #Jpg 0,0,640,0,"C:\MailQSL\IMG_3874.JPG" ? Qsl1 "J" #Jpg 0,0,640,0,"C:\MailQSL\IMG_3857.JPG" #FontName="Meiryo UI" #FontSize=28 #FontStyle=3 ;#FontColor=0x00000000 ;黒 #FontColor=0x00FFFFFF  ;白 #Mov $$X=470 ;     コールサインの左端 #Mov $$Y=260 ;      コールサインの上端4 260 #Print $$X+2,$$Y,"!Ca" ; 自局コールサイン #FontSize=14 #Mov $$F="/2" ;自局が移動時3エリアなら/3 ? RmStr "!$$F " #Print $$X+136,$$Y+20,"/2"   #FontSize=28 ;#FontColor=0x00FF00FF #FontColor=0x000000FF #Print $$X,$$Y-4,"!Ca" #FontSize=14 #Mov $$F="/2"      ? RmStr "!$$F " #Print $$X+134,$$Y+18,"/2" #FontSize=10 #FontStyle=1 ;#FontColor=0x00000080    ;小豆色 #FontColor=0x00FFFFFF ;GLとZONEの色 白 #Print $$X+60,$$Y+46,"!$$C" ; GL #Print $$X+80,$$Y+61,"!$$H" ;ZONE #FontName="Embassy JS" #FontSize=14 #FontColor=0x0000FFFF ;オペレータ名の色 #Print $$X+20,$$Y+76,"!$$E" ; オペレータ名 #FontStyle=1 #FontName="MS Pゴシック" #Print $$X-10,$$Y+80,"!$$G" ;OP #FontSize=10 #FontColor=0x0080FFFF #Print$$X+70,$$Y+105, "No:!No" +8 ? Rcv! #Print$$X+85,$$Y+120, "QSL:Pse" ? Rcv #Print $$X+85,$$Y+120, "QSL:Tnx" ? End #FontStyle=1 #FontSize=10 ;データの文字サイズ #FontName="MS Pゴシック" ;#FontColor=0x00FFFFCA    ;To Radioの文字色水色 #FontColor=0x0000FFFF    ;黄色 ;#FontColor=0x00FF0000    ;青色 ;#FontColor=0x000000FF    ;赤色 ;#FontColor=0x00FFFFFF ;白 ;#FontColor=0x00000080    ;小豆色 ;#FontColor=0x00FFFFCA  データの色 :#FontColor=0x00008000 ;緑 #FontStyle=1 #FontSize=10 #Mov $$Y = 20 ; データ欄の縦座標 20 280 #Mov $$X = 4 ; データ欄の横座標 20 #Print $$X,$$Y, "To Radio: " #FontSize=12 ;#FontColor=0x0080FFFF ;白色 ;#FontColor=0x00000080    ;小豆色 ;#FontColor=0x000000FF ;赤 #FontColor=0x00FFFFCA :水色 データ色 #Print -1000,$$Y-1, "!cp " ;相手のコールサインだけ違う文字 #FontSize=10 ;#FontColor=0x00FFFFCA :水色 データ色 ;#FontColor=0x00FF0000    ;青色 #FontColor=0x00FFFFFF ;白 ;#FontColor=0x00000080    ;小豆色 ;#FontColor=0x000000FF ;赤 ;#Print -1000,$$Y, "!QT" ;相手のQTH #Print $$X,$$Y-15, "Confirming Our QSO" #Mov $$Y = $$Y+15 ? RmStr "/2" #Print $$X,$$Y+3, "From:!Ca!R1" ; Remarks1の%移動地% ? RmStr "/2" #Print $$X,$$Y+105, "From:!Ca" ; Remarks2の%移動地% ? RmStr "/2" #Print $$X,$$Y+120, "!R2" ? RmStr! "/2" #Print $$X,$$Y+3, "From:!Ca!LC" ; メイン画面から ? UTC #Mov $$A = "Date&Time:!DY/!DM/!DD !TH:!TMUTC" ? UTC! #Mov $$A = "Date&Time:!DY/!DM/!DD !TH:!TMJST" #Mov $$K = "Freq:!Fr 2Way:!MD" ? nData7 "!$$D" #Mov $$K = "!$$K dB:!HR" ; デジタル #Goto *456 ? End ? nData7 "CW,RTTY" #Mov $$K = "!$$K RST:!HR" #Goto *456 ? End #Mov $$K = "!$$K RS:!HR" ; フォーン *456 #Mov $$Y = $$Y+20 #Print $$X,$$Y-2, "!$$A" #Print $$X,$$Y+10, "!$$K" ;#Print $$X,$$Y+10, "Freq:!Fr 2Way:!MD" ? Space! "!RG" ; リグの設定あり #Mov $$Y = $$Y+20 #Print $$X,$$Y+5, "Rig:!RG" ? End ? Space! "!AN" ;アンテナの設定あり #Mov $$Y = $$Y+20 #Print $$X,$$Y,"Ant:!AN !HimH" #Mov $$Y = $$Y+10 #Print $$X,$$Y+5," Power:!PwW" ? End #FontColor=0x00FFFFCA #Mov $$Y = $$Y+20 ;#FontColor=0x000000FF ;赤Remarksの色 #FontColor=0x0000FFFF ;黄色 ;#FontColor=0x00FF0000    ;青色 #Print $$X,$$Y, "Remarks:!Co" ;#FontColor=0x0080FFFF #FontColor=0x00FFFF80 ;#FontColor=0x00000000 #Mov $$Y = 120 ; コメント欄の縦座標 20 #Mov $$X = 4 ; コメント欄の横座標 20 #Print $$X,$$Y+250, "藩-岐阜県247,248,249 PK-166脇野白山公園" #Print $$X,$$Y+270, "福19-9,美濃松山 QRA松岡が代用に使えます" ;#Print $$X+350,$$Y+270, "JE2NLE作テーブル モービルシャック" #Jpg 90,280,80,80,"C:\MailQSL\0000058_2M.jpg" ;280 130 ;======= 交信証明の印 ============== #Mov $$X=6 ; 印章の左端 536 6 #Mov $$Y=-170 ; 印章の上端 300 150 #LineS 3, 0, 255 #Ellipse $$X, $$Y,98,0 ; 148 #FontName="MS 明朝" #FontSize=12 #FontColor=255 #FontStyle=1 #LineS 1, 0, 255 #Ellipse $$X+19, $$Y+21,60,0 ;84 #LineS 5, 0, 0xFFFFFF #LineS 1, 0, 255 #LineX $$X+2,$$Y+41, 94 ;142 #LineX $$X+2,$$Y+60, 94 ;142 #PrintL $$X+ 5, $$Y+ 40, 72,"ア" #PrintL $$X+ 8, $$Y+ 28, 54, "マ" #PrintL $$X+ 16, $$Y+ 16, 36, "チ" #PrintL $$X+ 27, $$Y+ 10, 18, "ュ" #Print $$X+ 41, $$Y+ 5, "ア" #PrintL $$X+57, $$Y+ 5,340, "無" #PrintL $$X+75, $$Y+12,315, "線" #PrintL $$X+88, $$Y+25,290, "局" #PrintL $$X+18, $$Y+61,310, "交" #PrintL $$X+30, $$Y+74,335, "信" #PrintL $$X+44, $$Y+82, 25, "証" #PrintL $$X+66, $$Y+76, 45, "明" #Print $$X+34, $$Y+25, "局" #Print $$X+50, $$Y+25, "長" #Print $$X+34, $$Y+62, "之" #Print $$X+50, $$Y+62, "印" #FontName="MS ゴシック" #FontSize=15 ;#FontColor=255 #FontColor=0x00FFFFFF #FontStyle=1 #Print $$X+13, $$Y+42, "!Ca" ;======= 交信証明の印 ============== #Mov $$X=6 ; 印章の左端 536 6 556 #Mov $$Y=280 ; 印章の上端 300 150 280 320 130 #LineS 5, 0, 255 #LineC $$X, $$Y, $$X+74, $$Y+80, 20, 20 #LineX $$X, $$Y+25, 73 #LineX $$X, $$Y+43, 73 #LineX $$X, $$Y+62, 73 #FontName="MS ゴシック" #FontSize=8 #FontColor=255 ;#FontColor=0x00FFFFFF #Print $$X+6,$$Y+3,"アマチュア" #Print $$X+22,$$Y+13,"無線局" #FontSize=10 #Print $$X+6,$$Y+28,"局長之印" #Print $$X+6,$$Y+64,"交信証明" #FontSize=12 ;#FontColor=255 #FontColor=0x00FFFFFF #Print $$X+10,$$Y+44,"!Ca" ; 自局コールサイン