;[ansi.cal]	;Define ANSI Video environment for use by XCAL.
;		;This library requires ANSI video escape sequence support.
;		;Users of IBM-PCs & clones running DOS or MS-DOS MUST load
;		; ANSI.SYS before using this library.
;
;Define the special Reserved-Variables for XCAL.  If these variables are
;	defined, XCAL will use them where appropriate.  If not, XCAL will
;	treat these variables as defined to be zero length strings.
;
CalEPrefix='SaveCursor "\e[22;1H\e[K"'	;XCAL Error Message Command Prefix
CalESuffix='RestCursor'			;XCAL Error Message Command Suffix
CalExit='/S:Q/M:0 "\e[1;24r"'		;XCAL Exit (/Q) Command Prefix
;CalPrompt='/S:E "Cal>"'		;XCAL Prompt Command String
;CalOPrefix=""				;XCAL Output Command Prefix
;CalOSuffix=""				;XCAL Output Command Suffix

;Define some variables for ANSI video support.
Ansi='"\e<" /T:16 "\e[3;20r" "\e[1;1H\e[J" Cls ""'          ;Define environment
Cls='/S:S/ND "\e[3;1H\e[J" ModeLine "\e[3;1H" /S:R Logo ""' ;Cls-Clear screen
Logo='"\r\e[1;1H\e[1m\tXCAL\tThe Extensible Calculator\e[0m\t\t" /T:3 "\n"'
ModeLine='SaveCursor "\e[21;1H\e[7m{$CalVer}[ANSI]\e[0m" RestCursor'
Quit='/S:I/S:Q "\e[1;24r\e[23;1H\e[K\e[A\e[KExit from XCAL,  runtime " /T:32/Q'
Exit='/SQ Quit ""'  Ex='/SQ Quit ""'

;System dependent ANSI escape sequences
;RestCursor='"\e8"'		;Restore Cursor position for ANSI terminals
;SaveCursor='"\e7"'		;Save    Cursor position for ANSI terminals
RestCursor='"\e[u"'		;Restore Cursor position for IBM-PC ANSI.SYS
SaveCursor='"\e[s"'		;Save    Cursor position for IBM-PC ANSI.SYS

;Invoke ANSI environment
/C/M:19			;Set Command Mode & Window size=Scrolling Region
Ansi			;Clear screen, display Mode-Line, & prompt.
;**********************************************************************
;*******		   End of ansi.cal			*******
;**********************************************************************