1 CLEAR800:CLS:FILES:MAXFILES=2:INPUT"File";N$:OPENN$FORINPUTAS1:OPEN"x.do"FOROUTPUTAS2
2 LINEINPUT#1,A$:F=1:FORX=1TOLEN(A$):B$=MID$(A$,X,1)
3 IFFTHENIFB$=" "THENIFMID$(A$,X,3)<>" OR"THENA$=LEFT$(A$,X-1)+RIGHT$(A$,LEN(A$)-X):X=X-1
4 IFB$=CHR$(34)THENF=1-F
5 NEXT:PRINT#2,A$:IFNOTEOF(1)THEN2
6 CLOSE:KILLN$:NAME"x.do"ASN$:BEEP