以下に一例を示します。 添付図の入力シートを参照してください。 ・自分の運用場所は移動/常置場所にかかわらず常にR1に% %で括って記入しておきます。 #Print 140, 395, "My QTH: !R1" ・相手が移動の場合にはコールサインに /1 の様に移動エリアを付加して記入し、その移動でのQTHはQTH欄に記入してあるという前提です。 ?Potbl; ポータブルの場合 #Print 140, 430, "Your QTH: !QT"
【以下は上記の方式による修正版です】 ; 既成の白紙カードに直接印刷する by JG1MOU ; 1枚のカードに同一局との5交信分を印字する。 ; ただし、JARL指定順かJARL指定逆順で印字すること。 ; 同一コールサインが連続していない場合は、印刷しない。 #MaxCall=5; 5回分 #FontName="MS ゴシック" #FontSize=13 #FontColor=0 #FontStyle=3 #Print 80, 80, "To Radio" #FontSize=14 #FontStyle=0 #Print 90, 150, "!cp"; To Radio #LineS 1, 0, 0 #LineX 50, 200, 270; To Radioにアンダーラインを引く #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 #Print 10, 235, "Confirming Our QSO" #FontName="MS ゴシック" #FontSize=12 #FontColor=0 #FontStyle=0 #Print 30, 300, "Callsign" #Print 320, 300, "Date" ? UTC! #Print 540, 300, "JST" ? UTC #Print 540, 300, "UTC" #Print 660, 300, "RST" #Print 760, 300, "MHz" #Print 865, 300, "2Way"
#FontSize=12 #Print 20, 350, "!cp" #Print 260, 350, "!Dd-!DJ-!DY"; 14-Apr-2004 #Print 520, 350, "!TH:!TM"; 時間 08:30 #Print 670, 350, "!HR"; RST #PrintC 730, 350, 120,"!FR"; 周波数帯 #PrintC 850, 350, 100,"!MD"; モード
;ここから ######################################## #FontSize=9 #Print 140, 395, "My QTH: !R1" ?Potbl; ポータブルの場合 #Print 140, 430, "Your QTH: !QT" ;ここまで ########################################
#FontName="MS 明朝" #FontSize=12 #FontColor=0 #FontStyle=2 #Print 20, 990, "Rig: !RG";リグ #Print 650, 990, " !Pw W";入力 ? Space! "!Hi" #Print 20, 1050, "Ant: !HimH !AN";アンテナ ? Space "!Hi" #Print 20, 1050, "Ant: !AN";アンテナ
#Print 180, 1300, "東広島市安芸津町三津" #Print 300, 1350, "木戸 孝一" #FontName="MS 明朝"
#FontSize=42 #FontStyle=0 #FontColor=8421504 #PrintL 190,1130,,"JG4IBI"; コールサイン全角で入力 #FontColor=16711680 #PrintL 180,1140,,"JG4IBI"; コールサインの影文字全角で入力
#LineS 1, 0, 16711680 #LineX 20, 290, 940 ;#LineX 20, 650, 940;######################################## #FontName="MS 明朝" #FontSize=12 #FontColor=0 #FontStyle=0
;-------2回〜5回目をループで印刷する ---------------------------- #Mov $$V=1 #Mov $$U=4 #Mov $$Y=470; 2回目の縦座標 #DoLoop; ループ始まり #Readk *992; 同じコールサインでなければ*992へ #Print 20, $$Y, "!cp" #Print 260, $$Y, "!Dd-!DJ-!DY"; 14-Apr-2004 #Print 520, $$Y, "!TH:!TM"; 時間 08:30 #Print 670, $$Y, "!HR"; RST #PrintC 730, $$Y, 120,"!FR"; 周波数帯 #PrintC 850, $$Y, 100,"!MD"; モード
;ここから ######################################## #FontSize=9 #Print 140, $$Y+45, "My QTH: !R1" ?Potbl; ポータブルの場合 #Print 140, $$Y+80, "Your QTH: !QT" #FontSize=12 ;ここまで ########################################
#Mov $$Y=$$Y+110 #Mov $$V=$$V+1 #Mov $$U=$$U-1 #EndLoop $$U; $$Uがゼロになったらループ終わり
*992 #Mov $$A=$$V; 数値を文字列に変換 #Print 180, $$Y, "--- End of QSO-DATA ---"
#Print 200, 1100, "JCC#3512 "; QSL No.印刷 ? Rcv!;QSLカードの送受 #Print 580, 1100, "GL:PM64JH"; QSL Pse ? Rcv! #Print 580, 950, " "; QSL Tnx #FontSize = 14 #PrintK $$X+ 21, $$Y+ 81, 164, "!$$A" #FontSize = 12 #FontStyle = 3 #PrintK $$X+ 69, $$Y+ 138, 75, "!$$B" *022
#LineS 1, 0, 255 ;交信証明の印 #LineC 713,1218, 858, 1363, 145,145 #FontName="MS 明朝" #FontSize=8 #FontColor=255 #FontStyle=1 #Print 730,1249, "ア" #Print 740,1236, "マ" #Print 753,1229, "チ" #Print 766,1225, "ュ" #Print 777,1222, "ア" #FontSize=6 #Print 789,1226, "無" #Print 809,1237, "線" #Print 822,1254, "局" #FontSize=7 #Print 729,1307, "交" #Print 755,1328, "信" #Print 786,1328, "証" #Print 815,1307, "明" #FontSize=6 #FontColor=25591 #Print 763,1252, "局" #Print 787,1252, "長" #Print 763,1306, "之" #Print 787,1306, "印" #FontSize=10 #FontColor=255 #FontStyle=1 #Print 727,1273, "JG4IBI"
【2017/02/17(Fri) 21:40:33 投稿者により修正されました。】
|