0 ' SPOUT.BA - Ron Golini 1 ' CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 20 CLS 30 GOSUB490 40 CLS 50 MAXFILES=2 60 CLEAR200 70 DEFINTA-Z 80 R$=CHR$(27)+CHR$(112) 90 N$=CHR$(27)+CHR$(113) 100 CLS 110 FILES 120 PRINT@280,R$" Input filename (.DO) "N$; 130 INPUTF$ 140 CLS 150 PRINTTAB(7)STRING$(27,232) 160 PRINTTAB(7)R$" SPACE SUPPRESSION UTILITY "N$ 170 OPENF$FORINPUTAS1 180 OPEN"RAM:CFILE.DO"FORAPPENDAS2 190 IFEOF(1)THEN350 200 A$=INPUT$(1,1) 210 RC=RC+1 220 PRINT@130,"Examining "CHR$(34)F$CHR$(34) 230 PRINT@170,"Reading record # "RC 240 GOSUB460 250 PRINT@210,"Detect switch "SW$ 260 IFA$=CHR$(34)ANDSW=0THENSW=1ELSEIFA$=CHR$(34)THENSW=0 270 PRINT@250,"Space"; 280 IFTSE>1THENPRINT"s"; 290 PRINT" eliminated"; 300 PRINTTSE 310 IFSW=0 ANDA$=" "ORA$=CHR$(10)THENTSE=TSE+1ELSEB$=B$+A$ 320 PRINT#2,B$; 330 B$=" 340 GOTO190 350 CLOSE 360 CLS 370 PRINT 380 BEEP 390 PRINTR$" ** Done ** "N$ 400 BEEP 410 PRINT 420 PRINT 430 PRINT"Loading 'CFILE.DO' for you to examine. Save it as a .BA file to run. 440 PRINT 450 LOAD"CFILE.DO 460 IFSW=0THENSW$="ON < 470 IFSW=1THENSW$=" > OFF 480 RETURN 490 PRINT"This program takes all the unecessary" 500 PRINT"spaces out of a BASIC program that is" 510 PRINT"currently being held in a .DO file. It" 520 PRINT"puts the compressed results into a file" 530 PRINT"called CFILE.DO, loads it into BASIC," 540 PRINT"leaving you in BASIC with your program" 550 PRINT"ready to save and run." 560 PRINT" < ENTER TO CONTINUE >"; 570 Z$=INKEY$:IFZ$=""THEN570 580 RETURN