88 lines
2.8 KiB
C
88 lines
2.8 KiB
C
/* SCREEN.H
|
||
|
||
VT52 Macro Includes
|
||
|
||
Copyright (c) Borland International 1990
|
||
All Rights Reserved.
|
||
*/
|
||
|
||
|
||
#if !defined( __VT52 )
|
||
#define __VT52
|
||
|
||
#if !defined( __TOS )
|
||
#include <tos.h> /* tos.h already included ? */
|
||
#endif
|
||
|
||
/**** Strings ***********************************************************/
|
||
|
||
#define NEXT_LINE "\r\n"
|
||
#define CUR_UP "\33A"
|
||
#define CUR_DOWN "\33B"
|
||
#define CUR_RIGHT "\33C"
|
||
#define CUR_LEFT "\33D"
|
||
#define CLEAR_HOME "\33E"
|
||
#define CUR_HOME "\33H"
|
||
#define SCROLL_UP "\33I"
|
||
#define CLEAR_DOWN "\33J"
|
||
#define CLEAR_EOL "\33K"
|
||
#define INS_LINE "\33L"
|
||
#define DEL_LINE "\33M"
|
||
#define GOTO_POS "\33Y"
|
||
#define INK "\33b"
|
||
#define PAPER "\33c"
|
||
#define CLEAR_UP "\33d"
|
||
#define CUR_ON "\33e"
|
||
#define CUR_OFF "\33f"
|
||
#define SAVE_POS "\33j"
|
||
#define LOAD_POS "\33k"
|
||
#define CLEAR_LINE "\33l"
|
||
#define CLEAR_SOL "\33o"
|
||
#define REV_ON "\33p"
|
||
#define REV_OFF "\33q"
|
||
#define WRAP_ON "\33v"
|
||
#define WRAP_OFF "\33w"
|
||
|
||
/**** Functionmacros ****************************************************/
|
||
|
||
#define Bell() Cconout('\a')
|
||
#define Tab() Cconout('\t')
|
||
#define Return() Cconout('\r')
|
||
#define Line_feed() Cconout('\n')
|
||
#define Next_line() Cconws(NEXT_LINE)
|
||
#define Cur_up() Cconws(CUR_UP)
|
||
#define Cur_down() Cconws(CUR_DOWN)
|
||
#define Cur_right() Cconws(CUR_RIGHT)
|
||
#define Cur_left() Cconws(CUR_LEFT)
|
||
#define Clear_home() Cconws(CLEAR_HOME)
|
||
#define Cur_home() Cconws(CUR_HOME)
|
||
#define Scroll_up() Cconws(SCROLL_UP)
|
||
#define Clear_down() Cconws(CLEAR_DOWN)
|
||
#define Clear_eol() Cconws(CLEAR_EOL)
|
||
#define Ins_line() Cconws(INS_LINE)
|
||
#define Del_line() Cconws(DEL_LINE)
|
||
#define Goto_pos(x,y) (Cconws(GOTO_POS), Cconout(' ' + x), Cconout(' ' + y))
|
||
#define Ink(c) (Cconws(INK), Cconout(c))
|
||
#define Paper(c) (Cconws(PAPER), Cconout(c))
|
||
#define Clear_up() Cconws(CLEAR_UP)
|
||
#define Cur_on() Cursconf(1, 0)
|
||
#define Cur_off() Cursconf(0, 0)
|
||
|
||
#define Blink_on() Cursconf(2, 0)
|
||
#define Blink_off() Cursconf(3, 0)
|
||
#define Set_blink(rate) Cursconf(4, rate)
|
||
#define Get_blink() Cursconf(5, 0)
|
||
|
||
#define Save_pos() Cconws(SAVE_POS)
|
||
#define Load_pos() Cconws(LOAD_POS)
|
||
#define Clear_line() Cconws(CLEAR_LINE)
|
||
#define Clear_sol() Cconws(CLEAR_SOL)
|
||
#define Rev_on() Cconws(REV_ON)
|
||
#define Rev_off() Cconws(REV_OFF)
|
||
#define Wrap_on() Cconws(WRAP_ON)
|
||
#define Wrap_off() Cconws(WRAP_OFF)
|
||
|
||
#endif
|
||
|
||
/************************************************************************/
|
||
|