0 ' TW2WS.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):GOTO8 3 H=INPUT$(1,1):IFASC(H)>26THEN6ELSEIFH=CHR$(16)THENH=".pa":GOTO6 4 FORI=1TON:IFH=A(I)THENH=B(I):GOTO5ELSENEXT 5 IFH=CHR$(127)THENH="" 6 PRINT#2,H;:IFEOF(1)THENIFG="COM:88N1E"ORG="com:88n1e"THENPRINT#2,CHR$(26):CLOSE:BEEP:GOTO2:ELSECLOSE:BEEP:GOTO2:ELSE3 7 MAXFILES=1:MENU 8 PRINTE"pT-Word to WordStar File Converter"E"q":READN:DIMA(N),B(N),R(N),S(N):FORI=1TON:READR(I):A(I)=CHR$(R(I)):NEXT:FORI=1TON:READS(I):B(I)=CHR$(S(I)):NEXT 9 FILES:PRINTE"pFile to Convert"E"q ";:INPUTF:IFF=""THEN7ELSEPRINTE"pFile to Output "E"q ";:INPUTG 10 OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO3:DATA 19:'T-Word Characters to Convert 11 DATA 1, 3, 5, 6, 7, 8, 11, 12, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25:'WordStar Output Characters 12 DATA 127,127,127,127,127,127,127,127,127,127,127,127, 20, 22, 19,127,127,127,127