========
FIGURE 2
========

getl()
{
        if (length == 1)  {
                /* rule 1 */
                addch(c):refresh();
                str[i] = c;
                break;
        }
        else {
                if (c == '\n')  {
                        /* rule 2 */
                        break;
                }
                else {
                        if (c == BACKSPACE)  {
                                if (i == 0)  {
                                        /* rule 3 */
                                        beep();
                                }
                                else {
                                        /* rule 4 */
                                        backup(1);
                                }
                        }
                        else {
                                if (i == length)  {
                                        /* rule 5 */
                                        beep();
                                }
                                else {
                                        if (typ == NUMERIC)  {
                                                if (isdigit(c))  {
                                                        /* rule 6 */
                                                        addch(c):refresh();
                                                        str[i] = c;
                                                        str[i+1] = 0;
                                                        i++;
                                                }
                                                else {
                                                        /* rule 7 */
                                                        beep();
                                                }
                                        }
                                        else {
                                                /* rule 8 */
                                                addch(c):refresh();
                                                str[i] = c;
                                                str[i+1] = 0;
                                                i++;
                                        }
                                }
                        }
                }
        }
}