===== hex.def =====

*M

59 ^V ^[F03] "16進数入力"
	(s==2)?.;{sx-,"d:"#m,"cd\"#m,"cd vl"#m "versa"#m,.}
	&m("16進数入力：　　　　スペース、カーソルキー等で終了")
:V	ax-,&i($16)			;BIOS で１文字入力
	(ax==$1a00)?{c-,>O}		;^@ 入力
	c=ax&$FF,
	(c)??>Q				;その他の特殊キーは無視
	(c<$20)?>O			;普通の制御文字
	(c=='@'||'G'<=c&&c<='Z')?{c-='@',>O}
	('g'<=c&&c<='z')?{c-=$60,>O}	;１６進文字以外の英字
	&u(c) c=r,
	('A'<=c&&c<='F')?{c+=10-'A',>A};１６進文字
	c-='0',
	(c<0||9<c)?>Q
:A	(7<c&&c<10||13<c)?n=3,?n+,	;先頭が 8,9,E,F なら４桁入力する
	x-,
:L	x=x*16+c,
	&m("16進数入力：%04x 　　　　スペース、カーソルキー等で終了",x)
	;&m("%04x",x)		;入力中の文字コード
	ax-,&i($16) c=ax&$FF,		;BIOS で１文字入力
	&u(c) c=r,
	('A'<=c&&c<='F')?{c+=10-'A',>B}
	c-='0',
	(c<0||9<c)?>Q
:B	(n--)?>L
	c+=x*16,
:O	&o(c)				;入力文字出力
	&m("16進数入力：%04x 　　　　スペース、カーソルキー等で終了",c)
	;&m("%04x",c)
	>V			;繰り返し
:Q	&m("") .			;メッセージを消して終了

*