procedure assignaux(var f: text; port, params: word);

   This command enables you to control the CRT COM port, like
   The DOS MODE command does.

    Control bits: 


     byte: 7   6   5    4    3       2      1    0
           ---------    ------    -------   ------
           baud rate    parity    stopbit   length


           tabel  I:                |       tabel  II:
                                    |
   baud rate:   bit: 7  6  5        |  parity:   bit   4   3
   ---------------------------------+-----------------------------
                                    |
         110         0  0  0        |    none          0   0
         150         0  0  1        |
         300         0  1  0        |     odd          0   1
         600         0  1  1        |
        1200         1  0  0        |    even          1   1
        2400         1  0  1        |
        4800         1  1  0        |
        9600         1  1  1        |


           tabel  iii:              |       tabel  iv:
   stop bits:      bit: 2           |  length:   bit:  1   0
   ---------------------------------+-----------------------------
                                    |
       1  bit           0           |  7 bits          1   0
                                    |
       2 bits           1           |  8 bits          1   1


   convert this binary code into a hexadecimal code and use it as in the
   Following Example:

   uses
     eco_232

     ;


   var
     com1: text;

   begin
     assignaux(com1,0,$83);  /this ($83) means com1, 1200 baud, no parity\
     rewrite(com1);          /1 stop bit and 8 data bits                 \
     writeln(com1,'devicedriver by UltiHouse Software / The ECO Group.')
     close(com1);
   end.