home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / crdel.ba < prev    next >
Text File  |  2006-10-19  |  675b  |  14 lines
  1. 0 'CRDEL.BA - BY Phil Wheeler 
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:MAXFILES=2:CLEAR512:DEFINTI-Z:DEFSTRA-H:E=CHR$(27):GOTO8
  4. 3 LINEINPUT#1,H:IFH<>""THENI=1:H(I)=H:GOTO5
  5. 4 H(I)=H:IFI>NTHEN6ELSEI=I+1:GOTO5
  6. 5 PRINT#2,H(I)
  7. 6 IFEOF(1)THENCLOSE:BEEP:GOTO2:ELSE3
  8. 7 MAXFILES=1:MENU
  9. 8 PRINTE"pBlank Line Stripper"E"q"
  10. 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
  11. 10 GOSUB12:PRINT@240,E"pNo. of Blank Lines to Keep"E"q ";:INPUTN
  12. 11 OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO3
  13. 12 PRINT@240,SPACE$(39);:RETURN
  14.