;jis2sjis.as jis=$2422 s=jis str s,16 mes "JIS=$"+s if jis>$5EFF { a=$4000 } else { a=0 } b=jis & $1FF if b<$100 { c=$7E } else { if b<$160 { c=$1F } else { c=$20 } } sjis=jis+$7000-((jis & $FE00)>>1)+c+a s=sjis str s,16 mes "ƒVƒtƒgJIS=$"+s poke s,0,sjis>>8 poke s,1,sjis & $FF poke s,2,0 mes s stop