0 'SHRINK 1.00 23Oct85 - Andrew Moore      CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
1 ONERRORGOTO9:MAXFILES=3:CLS:PRINT"> SHRINK 1.00":PRINT"> Copyright 1985 Andrew Moore":PRINT
2 LINEINPUT"Filename: ";F$:OPENF$FORINPUTAS1:OPEN"_shrnk"FOROUTPUTAS2:PRINT"New file will be stored in '_SHRNK.DO'":PRINT"Reading line";
3 IFEOF(1)THEN8
4 L=L+1:PRINT@212,L;:LINEINPUT#1,A$:FORA=1TOLEN(A$):M$=MID$(A$,A,1):IFM$=CHR$(34)ANDQ=1THENQ=0ELSEIFM$=CHR$(34)ANDQ=0THENQ=1
5 IFQ=0AND(M$=" "ORM$="'")THEN7
6 PRINT#2,M$;
7 NEXTA:PRINT#2,"":GOTO3
8 CLOSE1,2:PRINT:PRINT"Done.  Load _SHRNK and save as a new    file.  ";F$;" may be killed.":PRINT:END
9 IFERL=2THENPRINT:PRINT"?no file":STOP
10 IFERL=4THENPRINT:PRINT"Line may be too long -- make sure no    lines are more than 255 characters long.":CLOSE1,2:STOP
11 PRINTERR,ERL:STOP