Procedure init_new_window
!-
!     keybind: KP3
!     Create and map a new window/buffer to the current
!     screen. Prompt for all necessary information.
!+
     map(
          create_window(
               int(read_line("Enter top row number (between 1 and 23): ")),
               int(read_line("Enter bottom row number (between 1 and 23): ")),
               on),
          create_buffer(
               read_line("Enter name of buffer:  "),
               read_line("Enter name of file:  "))
          );
     set(scrolling, current_window,on, 2,2,1);
     define_key("unmap(current_window)", kp3);
     message("Use KP3 to remove this window");
ENDPROCEDURE; ! init_new_window