////////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