0 'SPACE.BA - ROBERT BENSON 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS:GOSUB24:CLS:MAXFILES=2:CLEAR200:DEFINTA-Z:R$=CHR$(27)+CHR$(112):N$=CHR$(27)+CHR$(113):CLS:FILES 11 PRINT@280,R$" Input DO Filename "N$" ";:INPUTF$:CLS:PRINTTAB(7)STRING$(27,232):PRINTTAB(7)R$" SPACE SUPPRESSION UTILITY "N$ 12 OPENF$FORINPUTAS1:OPEN"RAM:SAVE.DO"FORAPPENDAS2 13 IFEOF(1)THEN19 14 A$=INPUT$(1,1):RC=RC+1:PRINT@130,"Examining "CHR$(34)F$".DO"CHR$(34):PRINT@170,"Reading character"RC:GOSUB21 15 PRINT@210,"Detect >"CHR$(34)"< switch "SW$:IFA$=CHR$(34)ANDSW=0THENSW=1ELSEIFA$=CHR$(34)ORA$=CHR$(13)THENSW=0 16 PRINT@250,"Space";:IFTSE>1THENPRINT"s"; 17 PRINT" eliminated";:PRINTTSE:IFSW=0ANDA$=" "ORA$=CHR$(10)THENTSE=TSE+1ELSEB$=B$+A$ 18 PRINT#2,B$;:B$="":GOTO13 19 CLOSE:CLS:PRINT:BEEP:PRINT@13,R$" ** Done ** "N$:BEEP:PRINT:PRINT 20 PRINT"Loading SAVE.DO for you to examine.":PRINT"Save it to a BASIC file and run.":PRINT:LOAD"SAVE.DO 21 IFSW=0THENSW$="OFF< 22 IFSW=1THENSW$=" >ON 23 RETURN 24 PRINT"This program takes all the unnecessary":PRINT"spaces out of a program currently held 25 PRINT"in any DO file and puts the compressed":PRINT"results into a file called SAVE.DO then 26 PRINT"it loads SAVE.DO into BASIC and leaves":PRINT"you there to execute your new program. 27 PRINTTAB(49)"< ENTER TO CONTINUE >"; 28 Q$=INKEY$:IFQ$=""GOTO28 29 IFQ$=CHR$(13)THENRETURN 30 Z=PEEK(65451):IFZ=7THENMENUELSEGOTO28