a "STRIP - March 20, 1982a AZb:"Enter name of the 'source file': ",F$(b(X$F$: ^:F$Y$]b2:"Enter name of the 'destination file': ",F2$eb7:}b<X$F2$: ^:F2$Y$bF: OPEN FILE AND TEST TO BE SURE IT'S ASCII bP"I",,F$bZ #,L$bd ((L$,)) n : 2cn "Program is saved in binary form. Load it and save it with_cx "the 'A' option, then run STRIP again.jc ::c: START STRIPPING If an apostrophe is found, the rest of the line is cut off, except inside a quoted string. c"O",,F2$dLENGTH(L$):QUOTE:d: CRANK THRU THE LINE CHAR BY CHAR Md J LENGTH`d A$(L$,J,)~d A$(")  : d QUOTE QUOTE: d QUOTE QUOTE: d QUOTE A$"'" @dd: PRINT THE LINE e#,L$e L$,e: GET THE NEXT LINE Ee" () $ : ,Le$ de& :"All done."::re, #, L$|e6 e@: TRUNCATE LINE eJL$(L$,J)eT e^: (SUB) UCV ehY$""er K (X$)e| Y$Y$" " f X((X$,K,))8f `X X{ (Y$,K,)(X ): Sf (Y$,K,)(X$,K,)Yf_fe| Y$Y$" " f X((X$,K,))8f `X X{ (Y$,K,)(X ): Sf