home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / basicaid.zip / REMREM.BAS < prev    next >
BASIC Source File  |  1983-12-13  |  517b  |  14 lines
  1. 10 INPUT "Enter file to remove remarks from-",I$:OPEN I$ FOR INPUT AS 1
  2. 20 INPUT "Enter output filename-",O$:OPEN O$ FOR OUTPUT AS 2
  3. 30 WHILE NOT EOF(1)
  4. 40 LINE INPUT#1,X$:C=0
  5. 50 C=C+1:X=INSTR(C,X$,"'"):IF X=0 THEN 200
  6. 60 Y=INSTR(C,X$,CHR$(34)):IF Y=0 OR Y>X THEN 170
  7. 70 C=INSTR(Y+1,X$,CHR$(34)):IF C>0 AND C<LEN(X$) THEN 50 ELSE 200
  8. 80 STOP
  9. 170 Y=INSTR(X$," "):IF MID$(X$,Y,X-Y)=SPACE$(X-Y) THEN X$=MID$(X$,1,Y)+"'":GOTO 200
  10. 180 IF X>Y+1 THEN X=X-1
  11. 190 X$=MID$(X$,1,X)
  12. 200 PRINT#2,X$:PRINT X$
  13. 210 WEND
  14.