; 既成の白紙カードに直接印刷する BY JG1IOK midified by JP1LRT ; 交信周波数帯は430MHz BANDまで対応。衛星通信には対応していません。 ; BAND を波長表記にしたいマニアックな方向け。ただし、細かい周波数 ; まで記録している方のみ対応です。 #FontName="MS ゴシック" #FontSize=13 #FontColor=0 #FontStyle=3 #Print? 80, 80, "To Radio" #FontName="HAM 明朝 Light" #FontSize=14 #FontColor=0 #FontStyle=0 #Print 90, 150, "!cp" ; To Radio #LineS 1,0,0 #LineX 50, 200, 270 ; To Radioにアンダーラインを引く #FontName="MS ゴシック" #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転送枠1文字目 #Print 484, 125, "!C2" #Print 574, 125, "!C3" #Print 664, 125, "!C4" #Print 754, 125, "!C5" #Print 844, 125, "!C6" #FontName="MS 明朝" #FontSize=10 #FontColor=0 #FontStyle=2 ? Potbl ;ポータブルの否か ?UTC! #Print 180,210, "移動地!cp!QT" ;コールサイン/エリヤ 移動地 ;?UTC ;#Print 180,210, "You were at :!QT" ;DX向けに相手の移動地を入れたい時に ? End #Print 10, 250, "Confirming Our QSO" ? QslM ;QSLマネージャー経由の時はVIAを付ける #FontName="MS 明朝" #FontSize=17 #FontColor=0x000000FF #FontStyle=1 #Print 390, 50, "Via" ? End #FontName="MS ゴシック" #FontSize=11 #FontColor=0 #FontStyle=0 #LineS 1, 0,0 #LineR 8, 290, 930, 450 #LineX 8, 350, 920 #Print 140, 300, "DATE" #Print 385, 300, "TIME" ? Data7 "CW" #Print 560, 300, "RST" ;CW RTTY PSK31はRST ? Data7 "RTTY" #Print 560, 300, "RST" ? Data7 "PSK31" #Print 560, 300, "RST" ? Data7 "SSTV" #Print 560, 300, "RSV" ;SSTVはRSV #FontSize=08 ? Data7 "JT65" #Print 530, 300, "SNR(dB)" ;JT65 ? Data7 "FT8" #Print 530, 300, "SNR(dB)" ;FT8 ? Data7 "T10" #Print 530, 300, "SNR(dB)" ;T10 ? Data7 "JT9" #Print 530, 300, "SNR(dB)" ;JT9 ? Data7 "MSK144" #Print 530, 300, "SNR(dB)" ;MSK144 ? Data7 "QRA64" #Print 530, 300, "SNR(dB)" ;QRA64 ? Data7 "FT4" #Print 530, 300, "SNR(dB)" ;FT4 ? Data7 "FST4" #Print 530, 300, "SNR(dB)" ;FST4 ? Data7 "Q65" #Print 530, 300, "SNR(dB)" ;Q65 #FontSize=11 ? Data7 "SSB" #Print 560, 300, "RS" ? Data7 "AM" #Print 560, 300, "RS" ? Data7 "FM" #Print 560, 300, "RS" ? End #Print 680, 300, "BAND" #Print 810, 300, "MODE" #LineS 1, 0,0 #LineY 115, 350, 100 #LineY 245, 350, 100 #LineS 1, 0,0 #LineY 340, 290, 160 #LineY 520, 290, 160 #LineY 650, 290, 160 #LineY 790, 290, 160 #FontName="MS ゴシック" ; FONTとそのサイズを変えました。 #FontSize=8 #Print 30, 360, "Year" #Print 133, 360, "Month" #Print 260, 360, "Day" #Print 800, 360, "2Way" #FontName="MS 明朝" #FontSize=8 #FontColor=0 #FontStyle=0 ? UTC! #Print 370,360,"JST" ;時間は JST か UTC かだけにした。 ? UTC #Print 370,360,"UTC" #FontSize=12 #Print 20, 390, "!DY" ; 年 2016   西暦を4桁にした。 ; ===== 5月以外の月は、ピリオドを付けて印刷 ========== ? Data2 "/05/" #Print 150,390,"May" ? Data2! "/05/" #Print 140,390,"!DJ." ; Jan.など #Print 265, 390, "!Dd" ; 日 14 #Print 370, 390, "!TH:!TM" ; 時間 08:30 #PrintC 500, 390, 130,"!HR" ; RST ? Data6 "1.9" #PrintC 650, 390, 140,"160m" ; 周波数帯 ? Data6 "1.8" #PrintC 650, 390, 140,"160m" ; 周波数帯 ? Data6 "3.5" #PrintC 650, 390, 140,"80m" ; 周波数帯 ? Data6 "3.6" #PrintC 650, 390, 140,"80m" ; 周波数帯 ? Data6 "3.7" #PrintC 650, 390, 140,"75m" ; 周波数帯 ? Data6 "3.8" #PrintC 650, 390, 140,"75m" ; 周波数帯 ? Data6 "7." #PrintC 650, 390, 140,"40m" ; 周波数帯 ? Data6 "10." #PrintC 650, 390, 140,"30m" ; 周波数帯 ? Data6 "14." #PrintC 650, 390, 140,"20m" ; 周波数帯 ? Data6 "18." #PrintC 650, 390, 140,"17m" ; 周波数帯 ? Data6 "21." #PrintC 650, 390, 140,"15m" ; 周波数帯 ? Data6 "24." #PrintC 650, 390, 140,"12m" ; 周波数帯 ? Data6 "28." #PrintC 650, 390, 140,"10m" ; 周波数帯 ? Data6 "29." #PrintC 650, 390, 140,"10m" ; 周波数帯 ? Data6 "50." #PrintC 650, 390, 140,"6m" ; 周波数帯 ? Data6 "51." #PrintC 650, 390, 140,"6m" ; 周波数帯 ? Data6 "52." #PrintC 650, 390, 140,"6m" ; 周波数帯 ? Data6 "144." #PrintC 650, 390, 140,"2m" ; 周波数帯 ? Data6 "145." #PrintC 650, 390, 140,"2m" ; 周波数帯 ? Data6 "430." #PrintC 650, 390, 140,"70cm" ; 周波数帯 ? Data6 "431." #PrintC 650, 390, 140,"70cm" ; 周波数帯 ? Data6 "432." #PrintC 650, 390, 140,"70cm" ; 周波数帯 ? Data6 "433." #PrintC 650, 390, 140,"70cm" ; 周波数帯 ? Data6 "438." #PrintC 650, 390, 140,"70cm" ; 周波数帯 ? End #PrintC 790, 390, 140,"!MD" ; モード #LineS 1, 0,0 #FontName="MS 明朝" #FontSize=11 #FontColor=0 #FontStyle=2 #Print 20, 460, "Rig: !RG" ;リグ #Print 560, 460, "OUTPUT !Pw W" ;出力 #Print 20, 510, "Ant: !AN !HimH" ;アンテナと高さ #Print 20, 564, "Rmks: !Co" ;QSL印刷画面で コメント(C)に入れた内容を    ;印字します。コンテスト名など。 ? UTC! #Print 20, 625, "FBなQSO有難うございました!!" ;日本語でリマークス ? UTC #Print 20, 625, "TNX FB QSO. HPE CU AGN. 73." ;英語でリマークス #Print 200, 690, "QSL#:!NO" ; QSL No.印刷 ? Rcv! ;QSLカードの送受 #Print 700, 690, "PSE QSL" ; QSL Pse ? Rcv #Print 700, 690, "QSL TNX" ; QSL Tnx #FontName="MS 明朝" #FontSize=42 #FontColor=8421504 #FontStyle=3 #Print 20, 810, "コールサイン" ; 自分のコールサイン全角で入力 #FontColor=16711680 #FontStyle=3 #Print 10, 800, "コールサイン" ; 自分のコールサインの影文字全角で入力 #FontName="MS ゴシック" #FontSize=14 #FontColor=0 #FontStyle=0 ? UTC! #Print 100, 1000, "あなたの住所" ; 住所を日本語で ? UTC #Print 100, 1060, "あなたの住所" ; 住所を英語で ? UTC! #Print 300, 1060, "あなたの名前" ; 氏名を日本語で ? UTC #Print 100, 1000, "あなたの名前" ; 氏名を英語で ;#Print 360, 1120, "TEL ***-***-***" ; 電話  これは外したほうが良いかもしれません。 ? UTC! #Print 50, 740, "JCC#**** GL:****** 貴方の市区町村名" ; JCC# JCG# QTH 日本語で ? UTC #Print 50, 740, "JCC#**** GL:****** 貴方の市区町村名" ; JCC# JCG# QTH 英語で #FontStyle=0 #FontName="MS ゴシック" #FontSize=12 #FontColor=255 #FontStyle=0 #Print 60, 1200, "By Turbo HAMLOG/Win !Vr" ;ビットマップの取り入れ ;交信証明印22mm 2012/01/30 by JN1DNV 改2014/10/03 #Mov $$A = "JN1DNV" ; 自局コールサイン(ここを書き換える) #Mov $$B = "JUN" ; 自局のハンドルネーム(ここを書き換える) #Mov $$X = 700 ; 印章の左端(ここを書き換える) #Mov $$Y = 1100 ; 印章の上端(ここを書き換える) #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