0 'CRDEL.BA - BY Phil Wheeler 
1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:MAXFILES=2:CLEAR512:DEFINTI-Z:DEFSTRA-H:E=CHR$(27):GOTO8
3 LINEINPUT#1,H:IFH<>""THENI=1:H(I)=H:GOTO5
4 H(I)=H:IFI>NTHEN6ELSEI=I+1:GOTO5
5 PRINT#2,H(I)
6 IFEOF(1)THENCLOSE:BEEP:GOTO2:ELSE3
7 MAXFILES=1:MENU
8 PRINTE"pBlank Line Stripper"E"q"
9 FILES:PRINT@240,E"pFile to Strip "E"q <CR to end>";:INPUTF:IFF=""THEN7ELSEGOSUB12:PRINT@240,E"pFile to Output"E"q            ";:INPUTG
10 GOSUB12:PRINT@240,E"pNo. of Blank Lines to Keep"E"q ";:INPUTN
11 OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO3
12 PRINT@240,SPACE$(39);:RETURN