home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
txt
/
ws-stp.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
702b
|
13 lines
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