ACCEPT

Format 1

ACCEPT {dest-item}
       {OMITTED  }

Remaining phrases are optional.

AT screen-loc

{FROM} LINE NUMBER line-num
{AT  }

{FROM} {COLUMN  } NUMBER col-num
{AT  } {COL     }
       {POSITION}
       {POS     }

PROTECTED SIZE length

WITH NO ADVANCING

{ERASE} [TO END OF] {LINE  }   (VAX, ICOBOL)
{BLANK}             {SCREEN}

{ERASE} [EOS]                  (RM)
{BLANK} [EOL]

WITH [NO] {BELL}
          {BEEP}

{UNDERLINE }
{UNDERLINED}

WITH  {BLINKING}
      {BLINK   }

{HIGHLIGHT}
{HIGH     }
{BOLD     }
{LOWLIGHT }
{LOW      }
{STANDARD }

{REVERSE-VIDEO}
{REVERSE      }
{REVERSED     }

SAME

{COLOR } IS color-val
{COLOUR}

{FOREGROUND-COLOR } IS fg-color
{FOREGROUND-COLOUR}

{BACKGROUND-COLOR } IS bg-color
{BACKGROUND-COLOUR}

SCROLL [UP  ] [ BY scrl-num {LINE } ]
       [DOWN]               {LINES}

OUTPUT {JUSTIFIED}  {LEFT    }
       {JUST     }  {RIGHT   }
                    {CENTERED}

WITH {CONVERSION}
     {CONVERT   }

{WITH NO ECHO}
{NO-ECHO     }
{SECURE      }
{OFF         }

PROMPT [ CHARACTER IS prompt-lit ]

{DEFAULT [IS default]}
{UPDATE              }

ECHO

{AUTO         }
{AUTO-SKIP    }
{AUTOTERMINATE}
{TAB          }

{UPPER}
{LOWER}

CURSOR curs-offset

CONTROL cntrl-string

{REQUIRED   }
{EMPTY-CHECK}

{FULL        }
{LENGTH-CHECK}

{ZERO-FILL   }
{NUMERIC-FILL}

CONTROL KEY IN key-dest

BEFORE TIME timeout

ALLOWING MESSAGES FROM { THREAD thread-1 }
                       { LAST THREAD     }
                       { ANY THREAD      }

[ { ON EXCEPTION [key-dest] } {statement-1  } ]
  { ON ESCAPE    [key-dest] } {NEXT SENTENCE}
  { AT END                  }

[ NOT   { ON EXCEPTION } statement-2 ]
        { ON ESCAPE    }
        { AT END       }

[ END-ACCEPT ]

Format 2

ACCEPT screen-name

Remaining phrases are optional.

AT screen-loc

{FROM} LINE NUMBER line-num
{AT  }

{FROM} {COLUMN  } NUMBER col-num
{AT  } {COL     }
       {POSITION}
       {POS     }

BEFORE TIME timeout

ALLOWING MESSAGES FROM { THREAD thread-1 }
                       { LAST THREAD     }
                       { ANY THREAD      }[ UNTIL condition-1 ]

[ ON {EXCEPTION} statement-1 ]
     {ESCAPE   }

[ NOT ON {EXCEPTION} statement-2 ]
         {ESCAPE   }

[ END-ACCEPT ]

Format 3

ACCEPT dest-item FROM {DATE                       }

                      {DAY                        }

                      {CENTURY-DATE               }
                      {DATE YYYYMMDD              }

                      {CENTURY-DAY                }
                      {DAY YYYYDDD                }

                      {TIME                       }

                      {DAY-OF-WEEK                }

                      {TERMINAL-INFO              }

                      {SYSTEM-INFO                }

                      {INPUT STATUS               }

                      {ESCAPE KEY                 }

                      {LINE NUMBER                }

                      {COMMAND-LINE               }

                      {STANDARD OBJECT object-name}

                      {WINDOW HANDLE              }

Format 4

ACCEPT dest-item FROM SCREEN

Remaining phrases are optional.

AT screen-loc

{FROM} LINE NUMBER line-num
{AT  }

{FROM} {COLUMN  } NUMBER col-num
{AT  } {COL     }
       {POSITION}

SIZE length

Format 5

ACCEPT dest-item FROM {CONFIGURATION} env-name
                      {ENVIRONMENT  }

     [ ON EXCEPTION statement-1 ]

     [ NOT ON EXCEPTION statement-2 ]

     [ END-ACCEPT ]

Format 6

ACCEPT dest-item [ FROM mnemonic-name ]

Format 7

ACCEPT {control-handle}
       {CONTROL       }

Remaining phrases are optional.

VALUE IN [ MULTIPLE ] value

AT screen-loc   [CELL  ]
                [CELLS ]
                [PIXEL ]
                [PIXELS]

AT LINE NUMBER line-num   [CELL  ]
                          [CELLS ]
                          [PIXEL ]
                          [PIXELS]

AT {COLUMN  } NUMBER col-num   [CELL  ]
   {COL     }                  [CELLS ]
   {POSITION}                  [PIXEL ]
   {POS     }                  [PIXELS]

AT CLINE NUMBER cline-num

AT CCOL NUMBER ccol-num

WITH {BELL}
     {BEEP}

BEFORE TIME timeout

CONTROL KEY IN key-dest

ALLOWING MESSAGES FROM { THREAD thread-1 }
                       { LAST THREAD     }
                       { ANY THREAD      }

[ ON {EXCEPTION} [key-dest] statement-1 ]
     {ESCAPE   }

[ NOT ON {EXCEPTION} statement-2 ]
         {ESCAPE   }

[ END-ACCEPT ]

Format 8

ACCEPT external-form-item

Format 9

ACCEPT EVENT

Remaining phrases are optional.

BEFORE TIME timeout

ALLOWING MESSAGES FROM { THREAD thread-1 }
                       { LAST THREAD     }
                       { ANY THREAD      }

[ { ON EXCEPTION [code-dest] } {statement-1  } ]
  { ON ESCAPE    [code-dest] } {NEXT SENTENCE}
  { AT END                   }

[ NOT { ON EXCEPTION } statement-2 ]
      { ON ESCAPE    }
      { AT END       }
[ END-ACCEPT ]