examples/ansi.log

   1 (***************************************************************)\r
   2   unit Bold : procedure;\r
   3   begin\r
   4     write( chr(27), "[1m")\r
   5   end Bold;\r
   6  \r
   7   unit Blink : procedure;\r
   8   begin\r
   9     write( chr(27), "[5m")\r
  10   end Blink;\r
  11  \r
  12   unit Reverse : procedure;\r
  13   begin\r
  14     write( chr(27), "[7m")\r
  15   end Reverse;\r
  16  \r
  17   unit Normal : procedure;\r
  18   begin\r
  19     write( chr(27), "[0m")\r
  20   end Normal;\r
  21  \r
  22   unit Underscore : procedure;\r
  23   begin\r
  24     write( chr(27), "[4m")\r
  25   end Underscore;\r
  26  \r
  27  \r
  28  \r
  29   unit inchar : IIuwgraph function : integer;\r
  30     (*podaj nr znaku przeslanego z klawiatury *)\r
  31     var i : integer;\r
  32   begin\r
  33     do\r
  34       i := inkey;\r
  35       if i <> 0 then exit fi;\r
  36     od;\r
  37     result := i;\r
  38   end inchar;\r
  39  \r
  40   unit NewPage : procedure;\r
  41   begin\r
  42     write( chr(27), "[2J")\r
  43   end NewPage;\r
  44  \r
  45   unit  SetCursor : procedure(row, column : integer);\r
  46     var c,d,e,f  : char,\r
  47         i,j : integer;\r
  48   begin\r
  49     i := row div 10;\r
  50     j := row mod 10;\r
  51     c := chr(48+i);\r
  52     d := chr(48+j);\r
  53     i := column div 10;\r
  54     j := column mod 10;\r
  55     e := chr(48+i);\r
  56     f := chr(48+j);\r
  57     write( chr(27), "[", c, d, ";", e, f, "H")\r
  58   end SetCursor;\r
  59  \r