ESCDEF	PC-9800シリーズ
;----------------------------------------------------------------------
;
;	ＥＳＣファンクション定義(９８シリーズ用)
;	COPYRIGHT (C) 1993 FUJITSU/HORIANT
;
;	update	93/07/28	HORIANT
;		初期化でカーソル位置から後ろを消去するように変更
;
;----------------------------------------------------------------------
;
;	ESCシーケンス定義
;
;----------------------------------------------------------------------
\e[\d\;\d\{Hf\}	LOCATE %2,%1
\e[A	QLOCATE $X,$Y : LOCATE %X,%Y-1
\e[B	QLOCATE $X,$Y : LOCATE %X,%Y+1
\e[C	QLOCATE $X,$Y : LOCATE %X+1,%Y
\e[D	QLOCATE $X,$Y : LOCATE %X-1,%Y
\e[0A	QLOCATE $X,$Y : LOCATE %X,%Y-1
\e[0B	QLOCATE $X,$Y : LOCATE %X,%Y+1
\e[0C	QLOCATE $X,$Y : LOCATE %X+1,%Y
\e[0D	QLOCATE $X,$Y : LOCATE %X-1,%Y
\e[\dA	QLOCATE $X,$Y : LOCATE %X,%Y-%1
\e[\dB	QLOCATE $X,$Y : LOCATE %X,%Y+%1
\e[\dC	QLOCATE $X,$Y : LOCATE %X+%1,%Y
\e[\dD	QLOCATE $X,$Y : LOCATE %X-%1,%Y
\e[6n	NOP
\e[s	QLOCATE $H,$V : QCOLOR $W
\e[u	LOCATE  %H,%V : COLOR %W
\e[J	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX 1,%B+1,%C,%D : CLSBOX %A,%B,%C,%B
\e[0J	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX 1,%B+1,%C,%D : CLSBOX %A,%B,%C,%B
\e[1J	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX 1,1,%C,%B-1 : CLSBOX  1,%B,%A,%B
\e[2J	CLS
\e[K	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX %A,%B,%C,%B
\e[0K	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX %A,%B,%C,%B
\e[1K	QLOCATE $A,$B : CLSBOX  1,%B,%A,%B
\e[2K	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX  1,%B,%C,%B
\e[=\{0123\}h	CLS
\e[=\{0123\}l	CLS
\e[m		COLOR 7
\e[\s\[\D\;\]m	COLOR 7 : ANSICOLOR %1
;----------------------------------------------------------------------
;
;	ほぼ機種固有シーケンス
;
;----------------------------------------------------------------------
\e=\a\a		LOCATE %2,%1
\e[>5l		CSRTYPE 0
\e[>5h		CSRTYPE 1
\e*		CLS
\e[M	QLOCATE $A,$B : QWIDTH $C,$D : SCROLL 1,%B,%C,%D,0,1 : PUTC 0x0D
\e[0M	QLOCATE $A,$B : QWIDTH $C,$D : SCROLL 1,%B,%C,%D,0,1 : PUTC 0x0D
\e[\dM	QLOCATE $A,$B : QWIDTH $C,$D : SCROLL 1,%B,%C,%D,0,%1 : PUTC 0x0D
\e[L	QLOCATE $A,$B : QWIDTH $C,$D : SCROLL 1,%B,%C,%D,0,0-1 : PUTC 0x0D
\e[0L	QLOCATE $A,$B : QWIDTH $C,$D : SCROLL 1,%B,%C,%D,0,0-1 : PUTC 0x0D
\e[\dL	QLOCATE $A,$B : QWIDTH $C,$D : SCROLL 1,%B,%C,%D,0,0-%1 : PUTC 0x0D
\e(\{03\}	NOP
\e[>5\{lh\}	NOP
\e[>3\{lnh\}	NOP
\e[>1\{lh\}	NOP
\eD		MOVE 1,1
\eE		PUTC 0x0A
\eM		MOVE 0,1
\e)3		LET $K,0x100
\e)0		LET $K,0
\c\G		PUTC %1|%K
;----------------------------------------------------------------------
;
;	１バイトコード定義(優先度を下げないと一致する可能性大)
;
;----------------------------------------------------------------------
\x07		BEEP
\x0B		QLOCATE $X,$Y : LOCATE %X,%Y-1
\x0C		PUTC 0x1C
\x1A		CLS
\x1E		LOCATE 1,1
\x1C		NOP
\x1D		NOP
\x1F		NOP
\i\eINIT_98_1	LET $K,0 : LET $V,1 : LET $H,1 : LET $W,7
\i\eINIT_98_2	COLOR 7 : ANSIBACKCHAR 2
\i\eINIT_98_3	TABCLRALL : TABSET 1,9,17,25,33,41,49,57,65,73
\i\eINIT_98_4	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX 1,%B+1,%C,%D : CLSBOX %A,%B,%C,%B