                                                                
            
            ////////FORMAT GENERATOR ADDITION.
            *472
0472  5276            5276                /DON'T IGNORE R.O. AT INPUT.
            *620
0620  5266            JMP TESTED          /EDIT CHARACTER?
            
            *665
0665  0717  BUF1,     MBAROW+1            /USE REST OF PAG.
0666  1024  TESTED,   TAD CHAR            / A "BACK ARROW" KILLS THE 
0667  1316            TAD MBAROW          / ENTIRE LINE.
0670  7650            SNA CLA             /IS THIS A "B.A."?
0671  5307            JMP RESTART         /YES,RESTART LINE.
0672  1024            TAD CHAR            /NO,CONTINUE.
0673  1315            TAD MRO             /CHECK FOR RUBOUT.
0674  7640            SZA CLA             /IS IT?
0675  5313            JMP AOK             /NO.
0676  1013            TAD 13              /CHARACTER FROM INPUT TAPE
0677  7041            CIA                 / THE BUFFER LENGTH IS STILL
0700  1265            TAD BUF1            /INCREASED.
0701  7450            SNA                 /AT START OF LINE?
0702  5206            JMP CONTINUE        /OK ALREADY, IGNORE EXCESS R.O.'S.
0703  7040            CMA                 /RESTORE AND BACKUP.
0704  1265  TESTX,    TAD BUF1            /DOES NOT GO PAST THE LAST C.R.
0705  3013            DCA 13              /SAVE NEW POINTER.
0706  5206            JMP CONTINUE        /GET NEXT CHARACTER.
            ///////
            CONTINUE=606
            CHAR=24
            ///////
0707  3052  RESTART,  DCA 52              /CLEAR THE FLAGS.
0710  3051            DCA 51
0711  3257            DCA 657
0712  5304            JMP TESTX           /GO RESET THE BUFFER POINTER.
            ///////
0713  1024  AOK,      TAD CHAR
0714  5221            JMP 621             /RETURN
            //////
0715  7401  MRO,      -377
0716  7441  MBAROW,   -337
                                                                
AOK     0713
BUF1    0665
CHAR    0024
CONTIN  0606
MBAROW  0716
MRO     0715
RESTAR  0707
TESTED  0666
TESTX   0704

                                                                