ESCDEF	‚c‚n‚r^‚u
;----------------------------------------------------------------------
;
;	‚d‚r‚bƒtƒ@ƒ“ƒNƒVƒ‡ƒ“’θ‹`(‚c‚n‚r/‚u—p)
;	COPYRIGHT (C) 1993 FUJITSU/HORIANT
;
;----------------------------------------------------------------------
;
;	ESCƒV[ƒPƒ“ƒX’θ‹`
;
;----------------------------------------------------------------------
\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
\e[u	LOCATE  %H,%V
\e[2J	CLS
\e[K	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX %A,%B,%C,%B
\e[=\D\{hl\}	NOP
\e[m		COLOR 7
\e[\s\[\D\;\]m	COLOR 7 : ANSICOLOR %1
;----------------------------------------------------------------------
;
;	‚PƒoƒCƒgƒR[ƒh’θ‹`(—Dζ“x‚π‰Ί‚°‚Θ‚’‚Ζˆκ’v‚·‚ι‰Β”\«‘ε)
;
;----------------------------------------------------------------------
\x07		BEEP
\i\eINIT_DOSV1	LET $H,1 : LET $V,1 : COLOR 7
\i\eINIT_DOSV2	QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX 1,%B+1,%C,%D : CLSBOX %A,%B,%C,%B