GetPass()

         Gets a password

    Syntax:

         GetPass( nRow, nCol, cMessage, nLen ) -> cPass

         nRow     : The line where the password is asked
         nCol     : The column where the password is asked
         cMessage : The message to put just before the petition
         nLen     : Max number of characters of the password

    Description:

         Ask for a password of nLen max characters at the specified
         position

    Return:

         The password (with fingers drumming) or "" if exit with Esc.

    Example:

         cPass := GetPass ( 12, 20, "Input password", 15 )