0 ' WS-STP.BA  -- BY Phil Wheeler
1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:MAXFILES=2:CLEAR256:DEFINTI-Z:DEFSTRA-H:E=CHR$(27):GOTO10
3 H=INPUT$(1,1):Z=ASC(H):IFZ<128THEN6
4 IFZ=141THENH=INPUT$(1,1):GOTO8
5 H=CHR$(Z-128):GOTO7
6 IFZ=30ORZ=31ORZ=15ORZ=2ORZ=4ORZ=19ORZ=20ORZ=22THEN8
7 PRINT#2,H;
8 IFEOF(1)THENIFG="COM:88N1E"ORG="com:88n1e"THENPRINT#2,CHR$(26):CLOSE:BEEP:GOTO2:ELSECLOSE:BEEP:GOTO2:ELSE3
9 MAXFILES=1:MENU
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
11 OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO3