1 (***************************************************************)
\r
2 unit Bold : procedure;
\r
4 write( chr(27), "[1m")
\r
7 unit Blink : procedure;
\r
9 write( chr(27), "[5m")
\r
12 unit Reverse : procedure;
\r
14 write( chr(27), "[7m")
\r
17 unit Normal : procedure;
\r
19 write( chr(27), "[0m")
\r
22 unit Underscore : procedure;
\r
24 write( chr(27), "[4m")
\r
29 unit inchar : IIuwgraph function : integer;
\r
30 (*podaj nr znaku przeslanego z klawiatury *)
\r
35 if i <> 0 then exit fi;
\r
40 unit NewPage : procedure;
\r
42 write( chr(27), "[2J")
\r
45 unit SetCursor : procedure(row, column : integer);
\r
57 write( chr(27), "[", c, d, ";", e, f, "H")
\r