;//	文字コード変換 モジュール >>
#module
#deffunc sjis2jisc int
	mref _c,0
	c1=_c&0xff
	c2=_c>>8&0xff
	if c1>=0xe0 :c1-=0xc1: else: c1-=0x81
	c1=c1<<1
	if c2>=0x9f {
		c1+=0x22
		c2-=0x7e
	} else {
		c1+=0x21
		if c2>=0x80 :c2-=0x20: else: c2-=0x1f
	}
	mref _stat,64
	_stat=c2<<8+c1
return

#deffunc jis2kutenc int
	mref _c,0
	_c-=0x2020
	_stat=_c
return

#deffunc sjis2jis val

return

#global
;// <<

	s="航"
	wpeek c,s
	sjis2jisc c
	mes stat
	jis2kutenc stat
	mes stat
	mes stat&0xff
	mes stat>>8&0xff
	stop