#Yoko ; 既成の白紙QSLカードに直接印刷する・by JG1IOK modified by JP1LRT #Size 1400, 920 #LineS 2, 0, 255 ; JARL転送枠 #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="@MS ゴシック" #FontSize=20 #FontColor=0 #FontStyle=1 #Print 95, 550, "!C1" ; JARL転送枠1文字目 #Print 95, 460, "!C2" #Print 95, 370, "!C3" #Print 95, 280, "!C4" #Print 95, 190, "!C5" #Print 95, 100, "!C6" #FontName="monaco" #FontSize=10 #FontColor=0 #Print 200, 100, "To Radio" #Print 700, 100, "Confirming Our QSO" #LineX 355, 140, 250, #FontColor=0 #FontName=""monaco" #FontSize=14 #FontColor=1 #FontStyle=0 #Print 375,85, "!cp" ; To Radio ? Potbl #Print 550,145, "!cp!QT" ; ポータブルの場合 #LineR 300, 200, 1320, 400  ; 枠組  #LineX 300, 270, 1018 #LineY 400, 270, 127 #LineY 550, 270, 127 #LineY 650, 200, 197 #LineY 840, 200, 197 #LineY 995, 200, 197 #LineY 1160, 200, 197 #FontName=""monaco" #FontSize=12 #FontColor=0 #FontStyle=1 #Print 430, 215, "DATE"    ; 年月日 #Print 700, 215, "TIME" ; 時間 ? Data7 "CW" #Print 885, 215, "RST" ; CW RTTY PSK31はRST ? Data7 "RTTY" #Print 885, 215, "RST" ? Data7 "PSK31" #Print 885, 215, "RST" ? Data7 "SSTV" #Print 885, 215, "RSV" ; SSTVはRSV ? Data7 "JT65" #Print 880, 215, "SNR" ;JT65 ? Data7 "FT8" #Print 880, 215, "SNR" ;FT8 ? Data7 "JT9" #Print 880, 215, "SNR" ;JT9 ? Data7 "T10" #Print 880, 215, "SNR" ;T10 ? Data7 "FT4" #Print 880, 215, "SNR" ;FT4 ? Data7 "FST4" #Print 880, 215, "SNR" ;FST4 ? Data7 "MSK144" #Print 880, 215, "SNR" ;MSK144 ? Data7 "QRA64" #Print 880, 215, "SNR" ;QRA64 ? Data7 "Q65" #Print 880, 215, "SNR" ;Q65 ? Data7 "SSB" #Print 885, 215, "RS" ? Data7 "AM" #Print 885, 215, "RS" ? Data7 "FM" #Print 885, 215, "RS" ? End #FontName=""monaco" #FontSize=10 #FontColor=0 #FontStyle=1 ? Data7 "JT65" #Print 935, 280, "dB" ;JT65 ? Data7 "FT8" #Print 935, 280, "dB" ;FT8 ? Data7 "JT9" #Print 935, 280, "dB" ;JT9 ? Data7 "MSK144" #Print 935, 280, "dB" ;MSK144 ? Data7 "QRA64" #Print 935, 280, "dB" ;QRA64 ? Data7 "T10" #Print 935, 280, "dB" ;T10 ? Data7 "FT4" #Print 935, 280, "dB" ;FT4 ? Data7 "FST4" #Print 935, 280, "dB" ;FST4 ? End #FontName="monaco" #FontSize=11 #FontColor=0 #FontStyle=1 #Print 1025, 215, "BAND"   ; 運用帯    #Print 1180, 215, "MODE" ; モード #FontName=""monaco" #FontSize=10 #FontColor=0 #FontStyle=1 #Print 305, 280, "Year" #Print 430, 280, "Month" #Print 565, 280, "Day" #Print 675, 280, "" #Print 1075,280, "MHz" #Print 1215,280, "2Way" ? UTC! #Print 740, 280, "JST" ; JSTの場合 ? UTC #Print 740, 280, "UTC" ; UTCの場合 #FontName="monaco" #FontSize=11 #FontColor=0 #FontStyle=1 #Print 310, 340, "!DY" ; 2020 ; ===== 5月以外の月は、ピリオドを付けて印刷 ========== ? Data2 "/05/" #Print 450,340,"May" ? Data2! "/05/" #Print 440,340,"!DJ." ; Jan.など #Print 580, 340, "!Dd" ; 11 #Print 680, 340, "!TH:!TM" ; 08:30 #Print 885, 340, "!HR" ; 599 #PrintC 995,340,160, "!FR" ; 1200 #PrintC 1160,340,160, "!MD" ; SSB #FontName="monaco" #FontSize="12" #FontColor="0" #FontStyle="1" #Print 250,400, "QSL No:!NO" ; QSL NO:印刷 #Print 250, 450, "RIG: !RG" ; RIG #Print 750, 450, "OUTPUT !PwW" ;出力 #Print 250, 500, "ANT:!AN !Hi" ; ANT #FontName="MS ゴシック" #FontSize="12" #FontColor=0x00000000 #FontStyle=1 ? UTC! #Print 250, 550, "FB QSOありがとうございました!!" ;日本語でリマークス ? End #FontName=""monaco" #FontSize="12" #FontColor="0" #FontStyle="1" ? UTC #Print 250, 550, "RMKS:TNX FB QSO 73!Co" ; RMKS ? End ? Rcv! #Print 900,400, "QSL Pse" ? Rcv #Print 1100,400, "QSL Tnx" #FontName="Stencil" ;#FontName="MS ゴシック" #FontSize="45" #FontColor=0x00FF0000 #Print 580, 555, "CALL SIGN" #FontName="Monaco" #FontSize="12" #FontColor="4" ? UTC  ; DX宛は英語で #Print 220, 700, "QTH:1-1-1 ichiban-cho" #Print 220, 750, "Chiyodaku Tokyo 110-0001 JAPAN" #Print 220, 800, "OP:Yoshio Tanaka" ? End #FontName="MS ゴシック" #FontSize="12" #FontColor="4" ? UTC!  ; JA宛は日本語で #Print 220, 700, "〒110-0001" #Print 220, 750, "東京都千代田区一番町1-1-1" #Print 220, 800, "田中 芳男" ? End #FontName=""monaco" #FontSize="14" #FontColor="0x00400080" #Print 240, 850, "GL:PM95TT JCC#100101 " #FontName="MS 明朝" #FontSize="15" #FontColor="255" #FontStyle="1" ? QslM #PrintL 30, 715, 90,"Via" ;交信証明印22mm 2012/01/30 by JN1DNV 改2014/10/03 #Mov $$A = "JA1QRZ" ; 自局コールサイン(ここを書き換える) #Mov $$B = "YOS" ; 自局のハンドルネーム(ここを書き換える) #Mov $$X = 1125 ; 印章の左端(ここを書き換える) #Mov $$Y = 685 ; 印章の上端(ここを書き換える) #LineS 3, 0, 255 #Ellipse $$X, $$Y, 222 #FontName = "MS 明朝" #FontSize = 9 #FontColor = 255 #FontStyle = 1 ? DXST #Goto *021 ? DXST! #LineS 1, 0, 255 #Ellipse $$X+ 48, $$Y+ 48, 126 #LineS 12, 0, 0xFFFFFF #LineY $$X+ 48, $$Y+ 84, 54 #LineY $$X+ 171, $$Y+ 84, 54 #LineS 1, 0, 255 #LineC $$X+ 15, $$Y+ 87, $$X+ 207, $$Y+ 135, 15, 15 #PrintL $$X+ 9, $$Y+ 84, 72,"ア" #PrintL $$X+ 15, $$Y+ 60, 54, "マ" #PrintL $$X+ 39, $$Y+ 33, 32, "チ" #PrintL $$X+ 63, $$Y+ 18, 18, "ュ" #Print $$X+ 93, $$Y+ 6, "ア" #PrintL $$X+ 132, $$Y+ 6, 340, "無" #PrintL $$X+171, $$Y+ 21, 315, "線" #PrintL $$X+198, $$Y+ 48, 290, "局" ?RmStr! "SWL" #PrintL $$X+ 42, $$Y+ 144, 315, "交" ?RmStr "SWL" #PrintL $$X+ 42, $$Y+ 144, 315, "受" #PrintL $$X+ 72, $$Y+ 174, 345, "信" #PrintL $$X+ 114, $$Y+ 183, 15, "証" #PrintL $$X+ 153, $$Y+ 171, 45, "明" #PrintK $$X+ 78, $$Y+ 54, 66, "局長" #PrintK $$X+ 78, $$Y+ 135, 66, "之印" #FontSize = 13 #PrintK $$X+ 18, $$Y+ 86, 184, "!$$A" #GOTO *022 *021、 #LineS 1, 0, 255 #LineC $$X+ 15, $$Y+ 87, $$X+ 207, $$Y+ 135, 15, 15 #PrintL $$X+ 12, $$Y+ 48, 48, "V" #PrintL $$X+ 42, $$Y+ 21, 32, "E" #PrintL $$X+ 72, $$Y+ 6, 16, "R" #Print $$X+ 102, $$Y+ 0, "I" #PrintL $$X+ 132, $$Y+ 3, 344, "F" #PrintL $$X+ 162, $$Y+ 15, 328, "I" #PrintL $$X+ 192, $$Y+ 36, 312, "ED" #PrintL $$X+ 45, $$Y+ 64, 48, " " #PrintL $$X+ 69, $$Y+ 42, 24, "b" #Print $$X+ 102, $$Y+ 39, " " #PrintL $$X+ 132, $$Y+ 36, 336, "y" #PrintL $$X+ 165, $$Y+ 45, 312, " " #PrintL $$X+ 36, $$Y+ 142, 312, "F" #PrintL $$X+ 54, $$Y+ 168, 328, "B" #PrintL $$X+ 78, $$Y+ 180, 344, "" #Print $$X+ 102, $$Y+ 186, "D" #PrintL $$X+ 126, $$Y+ 180, 16, "X" #PrintL $$X+ 150, $$Y+ 168, 32, "7" #PrintL $$X+ 174, $$Y+ 147, 48, "3" #FontSize = 14 #PrintK $$X+ 23, $$Y+ 86, 164, "!$$A" #FontSize = 12 #PrintK $$X+ 69, $$Y+ 138, 75, "!$$B" *022; END OF FILE