0 '"TW2WS.BA" -- File Converter             Phil Wheeler [71266,125] - 10/5/86
10 CLS:MAXFILES=2:CLEAR256:DEFINTI-Z:DEFSTRA-H:E=CHR$(27):GOTO60
20 H=INPUT$(1,1):IFASC(H)>26THEN40ELSEIFH=CHR$(16)THENH=".pa":GOTO40
30 FORI=1TON:IFH=A(I)THENH=B(I):GOTO35ELSENEXT
35 IFH=CHR$(127)THENH=""
40 PRINT#2,H;:IFEOF(1)THENIFG="COM:88N1E"ORG="com:88n1e"THENPRINT#2,CHR$(26):CLOSE:BEEP:GOTO10:ELSECLOSE:BEEP:GOTO10:ELSE20
50 MAXFILES=1:MENU
60 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
80 FILES:PRINTE"pFile to Convert"E"q <CR to end>";:INPUTF:IFF=""THEN50ELSEPRINTE"pFile to Output "E"q            ";:INPUTG
90 OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO20
100 DATA 19
105 'T-Word Characters to Convert
110 DATA   1,  3,  5,  6,  7,  8, 11, 12, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25
115 'WordStar Output Characters
120 DATA 127,127,127,127,127,127,127,127,127,127,127,127, 20, 22, 19,127,127,127,127