
////////FORMAT GENERATOR ADDITION.
*472
          5276                /DON'T IGNORE R.O. AT INPUT.
*620
          JMP TESTED          /EDIT CHARACTER?

*665
BUF1,     MBAROW+1            /USE REST OF PAG.
TESTED,   TAD CHAR            / A "BACK ARROW" KILLS THE 
          TAD MBAROW          / ENTIRE LINE.
          SNA CLA             /IS THIS A "B.A."?
          JMP RESTART         /YES,RESTART LINE.
          TAD CHAR            /NO,CONTINUE.
          TAD MRO             /CHECK FOR RUBOUT.
          SZA CLA             /IS IT?
          JMP AOK             /NO.
          TAD 13              /CHARACTER FROM INPUT TAPE
          CIA                 / THE BUFFER LENGTH IS STILL
          TAD BUF1            /INCREASED.
          SNA                 /AT START OF LINE?
          JMP CONTINUE        /OK ALREADY, IGNORE EXCESS R.O.'S.
          CMA                 /RESTORE AND BACKUP.
TESTX,    TAD BUF1            /DOES NOT GO PAST THE LAST C.R.
          DCA 13              /SAVE NEW POINTER.
          JMP CONTINUE        /GET NEXT CHARACTER.
///////
CONTINUE=606
CHAR=24
///////
RESTART,  DCA 52              /CLEAR THE FLAGS.
          DCA 51
          DCA 657
          JMP TESTX           /GO RESET THE BUFFER POINTER.
///////
AOK,      TAD CHAR
          JMP 621             /RETURN
//////
MRO,      -377
MBAROW,   -337
          $

