home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / tw2ws.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  14 lines
  1. 0 ' TW2WS.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):GOTO8
  4. 3 H=INPUT$(1,1):IFASC(H)>26THEN6ELSEIFH=CHR$(16)THENH=".pa":GOTO6
  5. 4 FORI=1TON:IFH=A(I)THENH=B(I):GOTO5ELSENEXT
  6. 5 IFH=CHR$(127)THENH=""
  7. 6 PRINT#2,H;:IFEOF(1)THENIFG="COM:88N1E"ORG="com:88n1e"THENPRINT#2,CHR$(26):CLOSE:BEEP:GOTO2:ELSECLOSE:BEEP:GOTO2:ELSE3
  8. 7 MAXFILES=1:MENU
  9. 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
  10. 9 FILES:PRINTE"pFile to Convert"E"q <CR to end>";:INPUTF:IFF=""THEN7ELSEPRINTE"pFile to Output "E"q            ";:INPUTG
  11. 10 OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO3:DATA 19:'T-Word Characters to Convert
  12. 11 DATA   1,  3,  5,  6,  7,  8, 11, 12, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25:'WordStar Output Characters
  13. 12 DATA 127,127,127,127,127,127,127,127,127,127,127,127, 20, 22, 19,127,127,127,127
  14.