*copyc osd$default_pragmats
?? TITLE := 'IFM$SUPPRESS_CURSOR_POS_ECHOPLX--toggle cursor positioning and/or echoplexing for next input' ??
MODULE ifm$suppress_cursor_pos_echoplx;

{  PURPOSE:
{    To provide a 23d interface which allows the caller to turn off cursor
{    positioning and/or echoplexing for only the next input from the terminal.
{
{  DESIGN:
{    Call iip$suppress_cursor_pos_echoplx to set IIV$SUPPRESS_CURSOR_POSITIONING
{    and/or IIV$SUPPRESS_ECHOPLEXING to TRUE.  This will cause single-input
{    suppression of cursor positioning and/or echoplexing.
{
?? PUSH (LISTEXT := ON) ??
*copyc iip$suppress_cursor_pos_echoplx
*copyc ifk$keypoints
?? POP ??

*copyc ifh$suppress_cursor_pos_echoplx
  PROCEDURE [XDCL,#GATE] ifp$suppress_cursor_pos_echoplx (
    suppress_cursor_positioning: boolean;
    suppress_echoplexing: boolean);

    #KEYPOINT (osk$entry, 0, ifk$suppress_cursor_pos_echoplx);

    iip$suppress_cursor_pos_echoplx (suppress_cursor_positioning,
          suppress_echoplexing);

    #KEYPOINT (osk$exit, 0, ifk$suppress_cursor_pos_echoplx);

  PROCEND ifp$suppress_cursor_pos_echoplx;
MODEND ifm$suppress_cursor_pos_echoplx;
