home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / ws-stp.ba < prev    next >
Text File  |  2006-10-19  |  702b  |  13 lines
  1. 0 ' WS-STP.BA  -- BY Phil Wheeler
  2. 1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:MAXFILES=2:CLEAR256:DEFINTI-Z:DEFSTRA-H:E=CHR$(27):GOTO10
  4. 3 H=INPUT$(1,1):Z=ASC(H):IFZ<128THEN6
  5. 4 IFZ=141THENH=INPUT$(1,1):GOTO8
  6. 5 H=CHR$(Z-128):GOTO7
  7. 6 IFZ=30ORZ=31ORZ=15ORZ=2ORZ=4ORZ=19ORZ=20ORZ=22THEN8
  8. 7 PRINT#2,H;
  9. 8 IFEOF(1)THENIFG="COM:88N1E"ORG="com:88n1e"THENPRINT#2,CHR$(26):CLOSE:BEEP:GOTO2:ELSECLOSE:BEEP:GOTO2:ELSE3
  10. 9 MAXFILES=1:MENU
  11. 10 PRINTE"pWordStar File Stripper"E"q":FILES:PRINTE"pFile to Strip"E"q <CR to end>";:INPUTF:IFF=""THEN9ELSEPRINTE"pASCII Output File"E"q        ";:INPUTG
  12. 11 OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO3
  13.