release/src/router/libncurses/test/testcurs.c

   1 /*
   2  * This is a test program for the PDCurses screen package for IBM PC type
   3  * machines.
   4  *
   5  * This program was written by John Burnell (johnb@kea.am.dsir.govt.nz)
   6  *  wrs(5/28/93) -- modified to be consistent (perform identically) with either
   7  *                  PDCurses or under Unix System V, R4
   8  *
   9  * $Id: testcurs.c,v 1.43 2010/11/13 21:02:28 tom Exp $
  10  */
  11
  12 #include <test.priv.h>
  13
  14 #if defined(XCURSES)
  15 char *XCursesProgramName = "testcurs";
  16 #endif
  17
  18 static int initTest(WINDOW **);
  19 static void display_menu(int, int);
  20 static void inputTest(WINDOW *);
  21 static void introTest(WINDOW *);
  22 static void outputTest(WINDOW *);
  23 static void padTest(WINDOW *);
  24 static void scrollTest(WINDOW *);
  25 #if defined(PDCURSES) && !defined(XCURSES)
  26 static void resizeTest(WINDOW *);
  27 #endif
  28
  29 struct commands {
  30     NCURSES_CONST char *text;
  31     void (*function) (WINDOW *);
  32 };
  33 typedef struct commands COMMAND;
  34
  35 static const COMMAND command[] =
  36 {
  37     {"General Test", introTest},
  38     {"Pad Test", padTest},
  39 #if defined(PDCURSES) && !defined(XCURSES)
  40     {"Resize Test", resizeTest},
  41 #endif
  42     {"Scroll Test", scrollTest},
  43     {"Input Test", inputTest},
  44     {"Output Test", outputTest}
  45 };
  46 #define MAX_OPTIONS (int) SIZEOF(command)
  47
  48 #if !HAVE_STRDUP
  49 #define strdup my_strdup
  50 static char *
  51 strdup(char *s)
  52 {
  53     char *p = typeMalloc(char, strlen(s) + 1);
  54     if (p)
  55         strcpy(p, s);
  56     return (p);
  57 }
  58 #endif /* not HAVE_STRDUP */
  59
  60 static int width, height;
  61
  62 int
  63 main(
  64         int argc GCC_UNUSED,
  65         char *argv[]GCC_UNUSED)
  66 {
  67     WINDOW *win;
  68     int key;
  69     int old_option = (-1);
  70     int new_option = 0;
  71     bool quit = FALSE;
  72     int n;
  73
  74     setlocale(LC_ALL, "");
  75
  76 #ifdef PDCDEBUG
  77     PDC_debug("testcurs started\n");
  78 #endif
  79     if (!initTest(&win))
  80         ExitProgram(EXIT_FAILURE);
  81
  82     erase();
  83     display_menu(old_option, new_option);
  84     for (;;) {
  85 #ifdef A_COLOR
  86         if (has_colors()) {
  87             init_pair(1, COLOR_WHITE, COLOR_BLUE);
  88             wbkgd(win, COLOR_PAIR(1));
  89         } else
  90             wbkgd(win, A_REVERSE);
  91 #else
  92         wbkgd(win, A_REVERSE);
  93 #endif
  94         werase(win);
  95
  96         noecho();
  97         keypad(stdscr, TRUE);
  98         raw();
  99         key = getch();
 100         if (key < KEY_MIN && key > 0 && isalpha(key)) {
 101             if (islower(key))
 102                 key = toupper(key);
 103             for (n = 0; n < MAX_OPTIONS; ++n) {
 104                 if (key == command[n].text[0]) {
 105                     display_menu(old_option, new_option = n);
 106                     key = ' ';
 107                     break;
 108                 }
 109             }
 110         }
 111         switch (key) {
 112         case 10:
 113         case 13:
 114         case KEY_ENTER:
 115             erase();
 116             refresh();
 117             (*command[new_option].function) (win);
 118             erase();
 119             display_menu(old_option, new_option);
 120             break;
 121         case KEY_UP:
 122             new_option = ((new_option == 0)
 123                           ? new_option
 124                           : new_option - 1);
 125             display_menu(old_option, new_option);
 126             break;
 127         case KEY_DOWN:
 128             new_option = ((new_option == (MAX_OPTIONS - 1))
 129                           ? new_option
 130                           : new_option + 1);
 131             display_menu(old_option, new_option);
 132             break;
 133         case 'Q':
 134         case 'q':
 135             quit = TRUE;
 136             break;
 137         default:
 138             beep();
 139             break;
 140         case ' ':
 141             break;
 142         }
 143         if (quit == TRUE)
 144             break;
 145     }
 146
 147     delwin(win);
 148
 149     endwin();
 150 #ifdef XCURSES
 151     XCursesExit();
 152 #endif
 153     ExitProgram(EXIT_SUCCESS);
 154 }
 155
 156 static void
 157 Continue(WINDOW *win)
 158 {
 159     int y1 = getmaxy(win);
 160     int x1 = getmaxx(win);
 161     int y0 = y1 < 10 ? y1 : 10;
 162     int x0 = 1;
 163     chtype save;
 164
 165     save = mvwinch(win, y0, x1 - 1);
 166
 167     MvWAddStr(win, y0, x0, " Press any key to continue");
 168     wclrtoeol(win);
 169     getyx(win, y0, x0);
 170
 171     MvWAddCh(win, y0, x1 - 1, save);
 172
 173     wmove(win, y0, x0);
 174     raw();
 175     wgetch(win);
 176 }
 177
 178 static int
 179 initTest(WINDOW **win)
 180 {
 181 #ifdef PDCDEBUG
 182     PDC_debug("initTest called\n");
 183 #endif
 184 #ifdef TRACE
 185     trace(TRACE_MAXIMUM);
 186 #endif
 187     initscr();
 188 #ifdef PDCDEBUG
 189     PDC_debug("after initscr()\n");
 190 #endif
 191 #ifdef A_COLOR
 192     if (has_colors())
 193         start_color();
 194 #endif
 195     width = 60;
 196     height = 13;                /* Create a drawing window */
 197     *win = newwin(height, width, (LINES - height) / 2, (COLS - width) / 2);
 198     if (*win == NULL) {
 199         endwin();
 200         return 0;
 201     }
 202     return 1;
 203 }
 204
 205 static void
 206 introTest(WINDOW *win)
 207 {
 208     wmove(win, height / 2 - 5, width / 2);
 209     wvline(win, ACS_VLINE, 10);
 210     wmove(win, height / 2, width / 2 - 10);
 211     whline(win, ACS_HLINE, 20);
 212     Continue(win);
 213
 214     beep();
 215     werase(win);
 216
 217     box(win, ACS_VLINE, ACS_HLINE);
 218     wrefresh(win);
 219     cbreak();
 220     MvWAddStr(win, 1, 1,
 221               "You should have rectangle in the middle of the screen");
 222     MvWAddStr(win, 2, 1, "You should have heard a beep");
 223     Continue(win);
 224     return;
 225 }
 226
 227 static void
 228 scrollTest(WINDOW *win)
 229 {
 230     int i;
 231     int half;
 232     int OldY;
 233     NCURSES_CONST char *Message = "The window will now scroll slowly";
 234
 235     wclear(win);
 236     OldY = getmaxy(win);
 237     half = OldY / 2;
 238     MvWAddStr(win, OldY - 2, 1, Message);
 239     wrefresh(win);
 240     scrollok(win, TRUE);
 241     for (i = 1; i <= OldY; i++) {
 242         napms(600);
 243         scroll(win);
 244         wrefresh(win);
 245     }
 246
 247     werase(win);
 248     for (i = 1; i < OldY; i++) {
 249         MvWPrintw(win, i, 1, "Line %d", i);
 250     }
 251     MvWPrintw(win, OldY - 2, 1, "The top of the window will scroll");
 252     wmove(win, 1, 1);
 253     wsetscrreg(win, 0, half - 1);
 254     box(win, ACS_VLINE, ACS_HLINE);
 255     wrefresh(win);
 256     for (i = 1; i <= half; i++) {
 257         napms(600);
 258         scroll(win);
 259         box(win, ACS_VLINE, ACS_HLINE);
 260         wrefresh(win);
 261     }
 262
 263     werase(win);
 264     for (i = 1; i < OldY; i++) {
 265         MvWPrintw(win, i, 1, "Line %d", i);
 266     }
 267     MvWPrintw(win, 1, 1, "The bottom of the window will scroll");
 268     wmove(win, OldY - 2, 1);
 269     wsetscrreg(win, half, --OldY);
 270     box(win, ACS_VLINE, ACS_HLINE);
 271     wrefresh(win);
 272     for (i = half; i <= OldY; i++) {
 273         napms(600);
 274         wscrl(win, -1);
 275         box(win, ACS_VLINE, ACS_HLINE);
 276         wrefresh(win);
 277     }
 278     wsetscrreg(win, 0, OldY);
 279 }
 280
 281 static void
 282 inputTest(WINDOW *win)
 283 {
 284     int answered;
 285     int repeat;
 286     int w, h, bx, by, sw, sh, i, c, num;
 287     char buffer[80];
 288     WINDOW *subWin;
 289     wclear(win);
 290
 291     getmaxyx(win, h, w);
 292     getbegyx(win, by, bx);
 293     sw = w / 3;
 294     sh = h / 3;
 295     if ((subWin = subwin(win, sh, sw, by + h - sh - 2, bx + w - sw - 2)) == NULL)
 296         return;
 297
 298 #ifdef A_COLOR
 299     if (has_colors()) {
 300         init_pair(2, COLOR_WHITE, COLOR_RED);
 301         wbkgd(subWin, COLOR_PAIR(2) | A_BOLD);
 302     } else
 303         wbkgd(subWin, A_BOLD);
 304 #else
 305     wbkgd(subWin, A_BOLD);
 306 #endif
 307     box(subWin, ACS_VLINE, ACS_HLINE);
 308     wrefresh(win);
 309
 310     nocbreak();
 311     MvWAddStr(win, 2, 1, "Press some keys for 5 seconds");
 312     MvWAddStr(win, 1, 1, "Pressing ^C should do nothing");
 313     wrefresh(win);
 314
 315     werase(subWin);
 316     box(subWin, ACS_VLINE, ACS_HLINE);
 317     for (i = 0; i < 5; i++) {
 318         MvWPrintw(subWin, 1, 1, "Time = %d", i);
 319         wrefresh(subWin);
 320         napms(1000);
 321         flushinp();
 322     }
 323
 324     delwin(subWin);
 325     werase(win);
 326     flash();
 327     wrefresh(win);
 328     napms(500);
 329
 330     MvWAddStr(win, 2, 1, "Press a key, followed by ENTER");
 331     wmove(win, 9, 10);
 332     wrefresh(win);
 333     echo();
 334     noraw();
 335     wgetch(win);
 336     flushinp();
 337
 338     wmove(win, 9, 10);
 339     wdelch(win);
 340     MvWAddStr(win, 4, 1, "The character should now have been deleted");
 341     Continue(win);
 342
 343     wclear(win);
 344     MvWAddStr(win, 1, 1, "Press keys (or mouse buttons) to show their names");
 345     MvWAddStr(win, 2, 1, "Press spacebar to finish");
 346     wrefresh(win);
 347
 348     keypad(win, TRUE);
 349     raw();
 350     noecho();
 351
 352 #if HAVE_TYPEAHEAD
 353     typeahead(-1);
 354 #endif
 355
 356 #if defined(PDCURSES)
 357     mouse_set(ALL_MOUSE_EVENTS);
 358 #endif
 359
 360     for (;;) {
 361         wmove(win, 3, 5);
 362         c = wgetch(win);
 363         wclrtobot(win);
 364         if (c >= KEY_MIN)
 365             wprintw(win, "Key Pressed: %s", keyname(c));
 366         else if (isprint(c))
 367             wprintw(win, "Key Pressed: %c", c);
 368         else
 369             wprintw(win, "Key Pressed: %s", unctrl(UChar(c)));
 370 #if defined(PDCURSES)
 371         if (c == KEY_MOUSE) {
 372             int button = 0;
 373             request_mouse_pos();
 374             if (BUTTON_CHANGED(1))
 375                 button = 1;
 376             else if (BUTTON_CHANGED(2))
 377                 button = 2;
 378             else if (BUTTON_CHANGED(3))
 379                 button = 3;
 380             else
 381                 button = 0;
 382             wmove(win, 4, 18);
 383             wprintw(win, "Button %d: ", button);
 384             if (MOUSE_MOVED)
 385                 wprintw(win, "moved: ");
 386             else if ((BUTTON_STATUS(button) & BUTTON_ACTION_MASK) == BUTTON_PRESSED)
 387                 wprintw(win, "pressed: ");
 388             else if ((BUTTON_STATUS(button) & BUTTON_ACTION_MASK) == BUTTON_DOUBLE_CLICKED)
 389                 wprintw(win, "double: ");
 390             else
 391                 wprintw(win, "released: ");
 392             wprintw(win, " Position: Y: %d X: %d", MOUSE_Y_POS, MOUSE_X_POS);
 393         }
 394 #endif
 395         wrefresh(win);
 396         if (c == ' ')
 397             break;
 398     }
 399 #if 0
 400     nodelay(win, TRUE);
 401     wgetch(win);
 402     nodelay(win, FALSE);
 403 #endif
 404 #if defined(PDCURSES)
 405     mouse_set(0L);
 406 #endif
 407     refresh();
 408
 409     repeat = 0;
 410     do {
 411         static const char *fmt[] =
 412         {
 413             "%d %10s",
 414             "%d %[a-zA-Z]s",
 415             "%d %[][a-zA-Z]s",
 416             "%d %[^0-9]"
 417         };
 418         const char *format = fmt[(unsigned) repeat % SIZEOF(fmt)];
 419
 420         wclear(win);
 421         MvWAddStr(win, 3, 2, "The window should have moved");
 422         MvWAddStr(win, 4, 2,
 423                   "This text should have appeared without you pressing a key");
 424         MvWPrintw(win, 6, 2,
 425                   "Scanning with format \"%s\"", format);
 426         mvwin(win, 2 + 2 * (repeat % 4), 1 + 2 * (repeat % 4));
 427         erase();
 428         refresh();
 429         wrefresh(win);
 430         echo();
 431         noraw();
 432         num = 0;
 433         *buffer = 0;
 434         answered = mvwscanw(win, 7, 6, strdup(format), &num, buffer);
 435         MvWPrintw(win, 8, 6,
 436                   "String: %s Number: %d (%d values read)",
 437                   buffer, num, answered);
 438         Continue(win);
 439         ++repeat;
 440     } while (answered > 0);
 441 }
 442
 443 static void
 444 outputTest(WINDOW *win)
 445 {
 446     WINDOW *win1;
 447     char Buffer[80];
 448     chtype ch;
 449     int by, bx;
 450
 451 #if !HAVE_TIGETSTR
 452 #if HAVE_TGETENT
 453     char tc_buffer[4096];
 454     char tc_parsed[4096];
 455     char *area_pointer = tc_parsed;
 456     tgetent(tc_buffer, getenv("TERM"));
 457 #else
 458 #define tgetstr(a,b) 0
 459 #endif
 460 #endif /* !HAVE_TIGETSTR */
 461
 462     nl();
 463     wclear(win);
 464     MvWAddStr(win, 1, 1,
 465               "You should now have a screen in the upper left corner, and this text should have wrapped");
 466     mvwin(win, 2, 1);
 467     waddstr(win, "\nThis text should be down\n");
 468     waddstr(win, "and broken into two here ^");
 469     Continue(win);
 470
 471     wclear(win);
 472     wattron(win, A_BOLD);
 473     MvWAddStr(win, 1, 1, "A new window will appear with this text in it");
 474     MvWAddStr(win, 8, 1, "Press any key to continue");
 475     wrefresh(win);
 476     wgetch(win);
 477
 478     getbegyx(win, by, bx);
 479
 480     if (LINES < 24 || COLS < 75) {
 481         MvWAddStr(win, 5, 1,
 482                   "Some tests have been skipped as they require a");
 483         MvWAddStr(win, 6, 1, "display of at least 24 LINES by 75 COLUMNS");
 484         Continue(win);
 485     } else {
 486         win1 = newwin(10, 50, 14, 25);
 487         if (win1 == NULL) {
 488             endwin();
 489             return;
 490         }
 491 #ifdef A_COLOR
 492         if (has_colors()) {
 493             init_pair(3, COLOR_BLUE, COLOR_WHITE);
 494             wbkgd(win1, COLOR_PAIR(3));
 495         } else
 496             wbkgd(win1, A_NORMAL);
 497 #else
 498         wbkgd(win1, A_NORMAL);
 499 #endif
 500         wclear(win1);
 501         MvWAddStr(win1, 5, 1,
 502                   "This text should appear; using overlay option");
 503         copywin(win, win1, 0, 0, 0, 0, 9, 49, TRUE);
 504
 505 #if defined(PDCURSES) && !defined(XCURSES)
 506         box(win1, 0xb3, 0xc4);
 507 #else
 508         box(win1, ACS_VLINE, ACS_HLINE);
 509 #endif
 510         wmove(win1, 8, 26);
 511         wrefresh(win1);
 512         wgetch(win1);
 513
 514         wclear(win1);
 515         wattron(win1, A_BLINK);
 516         MvWAddStr(win1, 4, 1,
 517                   "This blinking text should appear in only the second window");
 518         wattroff(win1, A_BLINK);
 519         mvwin(win1, by, bx);
 520         overlay(win, win1);
 521         mvwin(win1, 14, 25);
 522         wmove(win1, 8, 26);
 523         wrefresh(win1);
 524         wgetch(win1);
 525         delwin(win1);
 526     }
 527
 528     clear();
 529     wclear(win);
 530     wrefresh(win);
 531     MvWAddStr(win, 6, 2, "This line shouldn't appear");
 532     MvWAddStr(win, 4, 2, "Only half of the next line is visible");
 533     MvWAddStr(win, 5, 2, "Only half of the next line is visible");
 534     wmove(win, 6, 1);
 535     wclrtobot(win);
 536     wmove(win, 5, 20);
 537     wclrtoeol(win);
 538     MvWAddStr(win, 8, 2, "This line also shouldn't appear");
 539     wmove(win, 8, 1);
 540     wdeleteln(win);
 541     Continue(win);
 542
 543     wmove(win, 5, 9);
 544     ch = winch(win);
 545
 546     wclear(win);
 547     wmove(win, 6, 2);
 548     waddstr(win, "The next char should be l:  ");
 549     winsch(win, ch);
 550     Continue(win);
 551
 552 #if HAVE_WINSSTR
 553     (void) mvwinsstr(win, 6, 2, "A1B2C3D4E5");
 554     Continue(win);
 555 #endif
 556
 557     wmove(win, 5, 1);
 558     winsertln(win);
 559     MvWAddStr(win, 5, 2, "The lines below should have moved down");
 560     Continue(win);
 561
 562     wclear(win);
 563     wmove(win, 2, 2);
 564     wprintw(win, "This is a formatted string in a window: %d %s\n", 42,
 565             "is it");
 566     MvWAddStr(win, 10, 1, "Enter a string: ");
 567     wrefresh(win);
 568     noraw();
 569     echo();
 570     *Buffer = 0;
 571     wscanw(win, "%s", Buffer);
 572
 573     printw("This is a formatted string in stdscr: %d %s\n", 42, "is it");
 574     MvAddStr(10, 1, "Enter a string: ");
 575     *Buffer = 0;
 576     scanw("%s", Buffer);
 577
 578     if (TIGETSTR("cvvis", "vs") != 0) {
 579         wclear(win);
 580         curs_set(2);
 581         MvWAddStr(win, 1, 1, "The cursor should appear as a block (visible)");
 582         Continue(win);
 583     }
 584
 585     if (TIGETSTR("civis", "vi") != 0) {
 586         wclear(win);
 587         curs_set(0);
 588         MvWAddStr(win, 1, 1,
 589                   "The cursor should have disappeared (invisible)");
 590         Continue(win);
 591     }
 592
 593     if (TIGETSTR("cnorm", "ve") != 0) {
 594         wclear(win);
 595         curs_set(1);
 596         MvWAddStr(win, 1, 1, "The cursor should be an underline (normal)");
 597         Continue(win);
 598     }
 599 #ifdef A_COLOR
 600     if (has_colors()) {
 601         wclear(win);
 602         MvWAddStr(win, 1, 1, "Colors should change after you press a key");
 603         Continue(win);
 604         init_pair(1, COLOR_RED, COLOR_WHITE);
 605         wrefresh(win);
 606     }
 607 #endif
 608
 609     werase(win);
 610
 611 #if HAVE_TERMNAME
 612     MvWAddStr(win, 1, 1, "Information About Your Terminal");
 613     MvWAddStr(win, 3, 1, termname());
 614     MvWAddStr(win, 4, 1, longname());
 615     if (termattrs() & A_BLINK)
 616         MvWAddStr(win, 5, 1, "This terminal supports blinking.");
 617     else
 618         MvWAddStr(win, 5, 1, "This terminal does NOT support blinking.");
 619 #endif
 620
 621     (void) mvwaddnstr(win, 7, 5, "Have a nice day!ok", 16);
 622     wrefresh(win);
 623
 624     (void) mvwinnstr(win, 7, 5, Buffer, 18);
 625     MvAddStr(LINES - 2, 10, Buffer);
 626     refresh();
 627     Continue(win);
 628 }
 629
 630 #if defined(PDCURSES) && !defined(XCURSES)
 631 static void
 632 resizeTest(WINDOW *dummy GCC_UNUSED)
 633 {
 634     WINDOW *win1;
 635
 636     savetty();
 637
 638     clear();
 639     refresh();
 640 #  if defined(OS2)
 641     resize_term(50, 120);
 642 #  else
 643     resize_term(50, 80);
 644 #  endif
 645
 646     win1 = newwin(10, 50, 14, 25);
 647     if (win1 == NULL) {
 648         endwin();
 649         return;
 650     }
 651 #ifdef A_COLOR
 652     if (has_colors()) {
 653         init_pair(3, COLOR_BLUE, COLOR_WHITE);
 654         wattrset(win1, COLOR_PAIR(3));
 655     }
 656 #endif
 657     wclear(win1);
 658
 659     MvWAddStr(win1, 1, 1, "The screen may now have 50 lines");
 660     Continue(win1);
 661
 662     wclear(win1);
 663     resetty();
 664
 665     MvWAddStr(win1, 1, 1, "The screen should now be reset");
 666     Continue(win1);
 667
 668     delwin(win1);
 669
 670     clear();
 671     refresh();
 672
 673 }
 674 #endif
 675
 676 static void
 677 padTest(WINDOW *dummy GCC_UNUSED)
 678 {
 679     WINDOW *pad, *spad;
 680
 681     if ((pad = newpad(50, 100)) != 0) {
 682         wattron(pad, A_REVERSE);
 683         MvWAddStr(pad, 5, 2, "This is a new pad");
 684         (void) wattrset(pad, A_NORMAL);
 685         MvWAddStr(pad, 8, 0,
 686                   "The end of this line should be truncated here:except  now");
 687         MvWAddStr(pad, 11, 1, "This line should not appear.It will now");
 688         wmove(pad, 10, 1);
 689         wclrtoeol(pad);
 690         MvWAddStr(pad, 10, 1, " Press any key to continue");
 691         prefresh(pad, 0, 0, 0, 0, 10, 45);
 692         keypad(pad, TRUE);
 693         raw();
 694         wgetch(pad);
 695
 696         spad = subpad(pad, 12, 25, 6, 52);
 697         MvWAddStr(spad, 2, 2, "This is a new subpad");
 698         box(spad, 0, 0);
 699         prefresh(pad, 0, 0, 0, 0, 15, 75);
 700         keypad(pad, TRUE);
 701         raw();
 702         wgetch(pad);
 703
 704         MvWAddStr(pad, 35, 2, "This is displayed at line 35 in the pad");
 705         MvWAddStr(pad, 40, 1, " Press any key to continue");
 706         prefresh(pad, 30, 0, 0, 0, 10, 45);
 707         keypad(pad, TRUE);
 708         raw();
 709         wgetch(pad);
 710
 711         delwin(pad);
 712     }
 713 }
 714
 715 static void
 716 display_menu(int old_option, int new_option)
 717 {
 718     int i;
 719
 720     assert((new_option >= 0) && (new_option < MAX_OPTIONS));
 721
 722     (void) attrset(A_NORMAL);
 723     MvAddStr(3, 20, "PDCurses Test Program");
 724
 725     for (i = 0; i < (int) MAX_OPTIONS; i++)
 726         MvAddStr(5 + i, 25, command[i].text);
 727
 728     if ((old_option >= 0) && (old_option < MAX_OPTIONS))
 729         MvAddStr(5 + old_option, 25, command[old_option].text);
 730
 731     (void) attrset(A_REVERSE);
 732     MvAddStr(5 + new_option, 25, command[new_option].text);
 733     (void) attrset(A_NORMAL);
 734     MvAddStr(13, 3,
 735              "Use Up and Down Arrows to select - Enter to run - Q to quit");
 736     refresh();
 737 }