20 REM Strips carriage returns from lines within paragraphs. Leaves them at ends of paragraphs, on blank lines, and on formatted lists.
30 GOTO110
40 PB$=CHR$(27)+"p":QB$=CHR$(27)+"q":RETURN
50 A$=INKEY$:IFA$=""THEN50ELSERETURN
60 :PRINT@288,PB$" Press any key to exit "PQ$;:RETURN
70 BEEP:CLS:IFERR=52THENPRINT@85,"Not a valid file name.":PRINT@125,"Try again.":GOSUB470:GOSUB50:RUN120
80 IFERR=7THENPRINT@85,"Out of memory.":PRINT@125,"Delete some files & try again.":GOSUB60:GOSUB50:IFTR=1THENKILL"NEW##.DO":MAXFILES=1:MENUELSEMAXFILES=1:MENU
250 IFX>200THENCLS:BEEP:PRINT@85,"File is already unformatted.":PRINT@125,"There is at least one line":PRINT@165,"longer than 200 characters.":GOSUB60:GOSUB50:MAXFILES=1:MENUELSE260
470 PRINT@285,PB$;CHR$(154)" PRESS ANY KEY TO CONTINUE "CHR$(155);QB$;:RETURN
480 CLS:BEEP:PRINT@47,"File contains one or more":PRINT@89,"CONTROL CHARACTERS.":PRINT@167,"Delete them and try again.":GOSUB60:GOSUB50:MAXFILES=1:MENU