*COMDECK PBEDITTY 
_$J+  PAGE EJECT? 
_*****************************
*                            *
*         PBEDITTY           *    LOCAL TO PBTTYINT 
*   EDIT CONSOLE INPUT       *
*                            *
*****************************?
_***********************************************************************
*                                                                      *
**OVERVIEW- PBEDITTY EDITS NON-ORDERWIRE CONSOLE INPUT ONE             *
*           CHARACTER AT A TIME. CARRIAGE RETURNS AND LINE             *
*           FEEDS ARE THROWN AWAY.  N BACKSPACES (SHIFT O)             *
*           CAUSES THE PREVIOUS N CHARACTERS TO BE THROWN              *
*           AWAY.  BACKSPACING WILL NOT CROSS BUFFER BOUNDARIES        *
*           HOWEVER.  CONTROL SHIFT N IS REPLACED BY CR.               *
*           CONTROL SHIFT M IS REPLACED BY LF.                         *
*                                                                      *
**INPUT- CHARACTER TO EDIT IN FIELD WORK1.                             *
*                                                                      *
**OUTPUT- CHARACTER EDITED.                                            *
*                                                                      *
**EXTERNAL SUBROUTINES- NONE                                           *
*                                                                      *
***********************************************************************?
PROCEDURE PBEDITTY; 
BEGIN 
  WITH JACT[TTY],JACURIBP',WORK1 DO 
  BEGIN 
    IF (J1CR = BA1CHAR) ! (J1LF = BA1CHAR)  _CHECK FOR CR,LF           ?
    THEN BFLCD := BFLCD-1                   _THROW AWAY                ?
    ELSE
    IF (J1BCKSPCE = BA1CHAR) !
       (J1CTLH = BA1CHAR)                   _CHECK FOR BACKSPACE       ?
    THEN BFLCD := BFLCD-2                   _PERFORM BACKSPACE         ?
    ELSE
    IF J1ICR = BA1CHAR                      _CHECK FOR CR INSERTION    ?
    THEN BFDATAC[BFLCD] := J1CR             _INSERT CR                 ?
    ELSE
    IF J1ILF = BA1CHAR                      _CHECK FOR LF INSERTION    ?
    THEN BFDATAC[BFLCD] := J1LF;            _INSERT LF                 ?
    IF BFLCD < BFFCD                        _-UPDATE LCD IF BACKED     ?
    THEN BFLCD := BFFCD-1;                  _-TOO FAR                  ?
  END; _WITH? 
END; _PBEDITTY? 
