y=8;
      upbar(y-1);
      do
          {
             ky=key();
             switch(ky)
                  { case key_a:
                     { y=12;
                       ky=key_enter;
                       break;
                      }
                     case key_b:
                     { y=13;
                       ky=key_enter;
                       break;
                      }
                     case key_c:
                     { y=14;
                       ky=key_enter;
                       break;
                      }
                      case key_f:
                     { y=15;
                       ky=key_enter;
                       break;
                      }
                      case key_h:
                     { y=16;
                       ky=key_enter;
                       break;
                      }
                       case key_i:
                     { y=17;
                       ky=key_enter;
                       break;
                      }
                       case key_j:
                     { y=18;
                       ky=key_enter;
                       break;
                      }
                       case key_k:
                     { y=19;
                       ky=key_enter;
                       break;
                      }

                     case key_e:
                     { y=11;
                       ky=key_enter;
                       break;
                      }