;-----  CW code for Internet -----  


%270
;"(1-12) "

\+++++++
;"(1-4) "

 
@A 　P81/8 R0 W0 Q0 ;バージョン4.0ではこちらを使用する
;楽器の種類"

#A1
;演奏者  JE5QAQ"

v120
;"(1-14) 音の強さを指定"

o5
;"(1-2) オクターブの指定"

;----- [ ${wa} 枠内に通信文挿入 、後で下記の不要 ${} と文頭の；印を削除する] ---------
 
${J}${A}${9}${E}${P}${U}┃_┃┃_┃${D}${E}${J}${E}${5}${Q}${A}${Q}  ${ko}${nn}${ni}${ti}${wa}┃__┃┃__┃${ha}${zi}${me}${te}${ko}${no}${de}${nn}${si}${nn}${de}${no}${hu}${a}${i}${ru}${wo}${tu}
${ku}${tu}${te}${i}${ma}${su}${ga}┃__┃┃__┃${u}${ma}${ku}${de}${ki}${a}${ga}${ru}${de}${si}${yo}${u}${ka}${?} 




;---- [ モールス通信文終了 ] ----------------------------------------------------

*STOP "";強制停止させる。

;マクロ定義コード

$a{r4/r/r8//r4/r┃_┃};         'ア'
$i{r8//r4┃_┃};                'イ'   
$u{r8//r//r4┃_┃};             'ウ'
$e{r4/r8//r4/r/r┃_┃};         'エ'
$o{r8//r4/r8//r//r┃__┃};      'オ'

$ka{r8//r4/r8//r┃__┃};         'カ'
$ki{r4/r8//r4/r8//r┃___┃};     'キ'
$ku{r8//r//r//r4┃_┃};          'ク'
$ke{r4/r8//r4/r┃_┃};           'ケ'
$ko{r4/r/r/r┃_┃};              'コ'

$sa{r4/r8//r4/r8//r4/┃_┃};     'サ' 
$si{r4/r/r8//r4/r16┃___┃};     'シ'
$su{r4/r/r/r8//r4┃_┃};         'ス'
$se{r8//r4/r/r/r8//┃_┃};       'セ'
$so{r4/r/r/r16┃___┃};          'ソ' 

$ta{r4/r16┃___┃};              'タ'
$ti{r8//r//r4/r16┃___┃};       'チ'
$tu{r8//r4/r/r16┃___┃};        'ツ'
$te{r8//r4/r8//r4/r┃_┃};       'テ'
$to{r8//r//r4/r8//r┃__┃};      'ト'

$na{r8//r4/r16┃___┃};          'ナ'
$ni{r4/r8//r4/r16┃___┃};       'ニ'
$nu{r8//r//r//r┃__┃};          'ヌ'
$ne{r4/r/r8//r4┃_┃};           'ネ'
$no{r8//r//r4/r┃_┃};           'ノ'

$ha{r4/r8//r//r16┃___┃};       'ハ'
$hi{r4/r/r8//r//r4┃_┃};        'ヒ' 
$hu{r4/r/r8//r16┃___┃};        'フ'
$he{r16┃___┃};                 'ヘ'
$ho{r4/r8//r┃__┃};             'ホ'

$ma{r4/r8//r//r4┃_┃};          'マ'
$mi{r8//r//r4/r8//r4┃_┃};      'ミ'
$mu{r4┃_┃};                    'ム'
$me{r4/r8//r//r//r4┃_┃};       'メ'
$mo{r4/r8//r//r4/r16┃___┃};    'モ'

$ya{r8//r4/r┃_┃};              'ヤ'
$yu{r4/r8//r//r4/r┃_┃};        'ユ'
$yo{r4/r┃_┃};                  'ヨ'

$ra{r8//r//r┃__┃};             'ラ'
$ri{r4/r/r16┃___┃};            'リ'
$ru{r4/r8//r4/r/r8//┃_┃};    'ル'
$re{r4/r/r┃_┃};                'レ'
$ro{r8//r4/r8//r4┃_┃};         'ロ'

$wa{r4/r8//r4┃_┃};             'ワ'
$wo{r8//r4/r/r/┃_┃};           'ヲ'
$nn{r8//r4/r8//r4/r16┃___┃};   'ン'

$ga{r8//r4/r8//r┃__┃r8//r┃_┃};         'ガ'
$gi{r4/r8//r4/r8//r┃___┃r8//r┃_┃};     'ギ'
$gu{r8//r//r//r4┃_┃r8//r┃_┃};          'グ'
$ge{r4/r8//r4/r┃_┃r8//r┃_┃};           'ゲ'
$go{r4/r/r/r┃_┃r8//r┃_┃};              'ゴ'

$za{r4/r8//r4/r8//r4/┃_┃r8//r┃_┃};     'ザ' 
$zi{r4/r/r8//r4/r16┃___┃r8//r┃_┃};     'ジ'
$zu{r4/r/r/r8//r4┃_┃r8//r┃_┃};         'ズ'
$ze{r8//r4/r/r/r8//┃_┃r8//r┃_┃};       'ゼ'
$zo{r4/r/r/r16┃___┃r8//r┃_┃};          'ゾ' 

$da{r4/r16┃___┃r8//r┃_┃};              'ダ'
$di{r8//r//r4/r16┃___┃r8//r┃_┃};       'ヂ'
$du{r8//r4/r/r16┃___┃r8//r┃_┃};        'ヅ'
$de{r8//r4/r8//r4/r┃_┃r8//r┃_┃};       'デ'
$do{r8//r//r4/r8//r┃__┃r8//r┃_┃};      'ド'

$ba{r4/r8//r//r16┃___┃r8//r┃_┃};       'バ'
$bi{r4/r/r8//r//r4┃_┃r8//r┃_┃};        'ビ' 
$bu{r4/r/r8//r16┃___┃r8//r┃_┃};        'ブ'
$be{r16┃___┃r8//r┃_┃};                 'ベ'
$bo{r4/r8//r┃__┃r8//r┃_┃};             'ボ'

$pa{r4/r8//r//r16┃___┃r8//r//r4/r/r16┃___┃};       'パ'
$pi{r4/r/r8//r//r4┃_┃r8//r//r4/r/r16┃___┃};        'ピ' 
$pu{r4/r/r8//r16┃___┃r8//r//r4/r/r16┃___┃};        'プ'
$pe{r16┃___┃r8//r//r4/r/r16┃___┃};                 'ペ'
$po{r4/r8//r┃__┃r8//r//r4/r/r16┃___┃};             'ポ'

$tt{r8//r┃_┃                   };        '"'
$pp{r8//r//r4/r/r16┃___┃       };     '゜''ﾟ'

$1{r8//r4/r/r/r┃_┃};           '１'
$2{r8//r//r4/r/r┃_┃};          '２'
$3{r8//r//r//r4/r┃_┃};         '３'
$4{r8//r//r//r//r4┃_┃};        '４'
$5{r8//r//r//r//r┃__┃};        '５'
$6{r4/r8//r//r//r┃__┃};        '６'
$7{r4/r/r8//r//r┃__┃};         '７'
$8{r4/r/r/r8//r┃__┃};          '８'
$9{r4/r/r/r/r16┃___┃};         '９'
$0{r4/r/r/r/r┃_┃};             '０'

$-{r8//r4/r/r8//r4┃_┃};       'ー'
┃___┃┃___┃;　
$,{r8//r4/r8//r4/r8//r4┃_┃}; '、'
┃___┃┃___┃;　
$ar{r8//r4/r8//r4/r16┃___┃};    'AR'
$va{r8//r//r//r4/r8//r4┃_┃};    'VA'      
┃___┃┃___┃;　
$({r4/r8//r4/r/r8//r4┃_┃};     '（' 
┃___┃┃___┃;　 
$){r8//r4/r8//r//r4/r16┃___┃}; '）'
 ┃___┃┃___┃;　 
$hr{r4/r8//r//r4/r/r┃_┃};       'ﾎﾚ   
┃___┃┃___┃;　 
$dn{r8//r4/r8//r4/r8//r┃__┃};    ’」’
┃___┃┃___┃;　
$rt{r8//r//r//r4/r16┃___┃};     'ﾗﾀ   
┃___┃┃___┃;　
$?{r8//r//r4/r/r8//r16┃___┃};  '？'
$/{r4/r8//r//r4/r16┃___┃};     '／'
$hh{r8//r//r//r//r//r//r//r┃__┃}; 'HH'
$as{r8//r4/r8//r//r┃__┃};       'AS'   

$A{r8//r4┃_┃};                 'Ａ'
$B{r4/r8//r//r┃__┃};           'Ｂ'
$C{r4/r8//r4/r16┃___┃};        'Ｃ'
$D{r4/r8//r┃__┃};              'Ｄ'
$E{r16┃___┃};                  'Ｅ' 

$F{r8//r//r4/r16┃___┃};        'Ｆ' 
$G{r4/r/r16┃___┃};             'Ｇ' 
$H{r8//r//r//r┃__┃};           'Ｈ' 
$I{r8//r┃_┃};                  'Ｉ' 
$J{r8//r4/r/r/┃_┃};            'Ｊ'

$K{r4/r8//r4┃_┃};              'Ｋ' 
$L{r8//r4/r8//r┃__┃};          'Ｌ'
$M{r4/r┃_┃};                   'Ｍ' 
$N{r4/r16┃___┃};               'Ｎ' 
$O{r4/r/r┃_┃};                 'Ｏ' 

$P{r8//r4/r/r16┃___┃};         'Ｐ'
$Q{r4/r/r8//r4┃_┃};            'Ｑ' 
$R{r8//r4/r16┃___┃};           'Ｒ' 
$S{r8//r//r┃__┃};              'Ｓ' 
$T{r4┃_┃};                     'Ｔ' 

$U{r8//r//r4┃_┃};              'Ｕ'
$V{r8//r//r//r4┃_┃};           'Ｖ' 
$W{r8//r4/r┃_┃};               'Ｗ' 
$X{r4/r8//r//r4┃_┃};           'Ｘ'
$Y{r4/r8//r4/r┃_┃};            'Ｙ' 
$Z{r4/r/r8//r16┃___┃};         'Ｚ' 

┃_┃┃_┃;　　　　　　　　　４分音符の後の文間休符
┃__┃┃__┃;　　　　　　　　８分音符の後の文間休符
┃___┃┃___┃;　　　　　　１６分音符の後の文間休符