tbscreen.use

PASCAL 源程序转 C 语言源程序

const
	bw40 = 0;
	c40 = 1;
	bw80 = 2;
	c80 = 3;

	black = 0;
	blue = 1;
	green = 2;
	cyan = 3;
	red = 4;
	magenta = 5;
	brown = 6;
	lightgray = 7;
	darkgray = 8;
	lightblue = 9;
	lightgreen = 10;
	lightcyan = 11;
	lightred = 12;
	lightmagenta = 13;
	yellow = 14;
	white = 15;

	blink = 16;

procedure graphbackground (c : integer);
procedure graphcolormode;
procedure graphmode;
procedure hires;
procedure hirescolor (c : integer);
procedure palette (p : integer);
procedure textbackground (c : integer);
procedure textcolor (c : integer);
procedure textmode (m : integer);

end: