¿Porqué para MS-DOS? Puedes hacerlo sin problemas en Windows.
Para 16 bits :

Declare Function OemToAnsiBuff Lib "Keyboard" (ByVal lpOemStr As String,
ByVal lpAnsiStr As String, ByVal nLength As Integer)
Le pasas el string en ascii, un string relleno de blancos (por lo menos lo
que mida la de ascii),y el nº de caracteres de la de ascii que quieres
convertir.
Te devuelve en lpAnsiStr el string en ansi.

Para 32 bits :
Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal
lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As
Long

Que funciona de manera similar a la anterior.
>¿Sabe alguien si existe algún programa (seguro que sí) para MS-DOS que
convierta de ASCII
>a ANSI, o en su defecto información detallada de cómo hacer la conversión?
>
>Lo digo porque hay que hacer todos los días conversiones a un fichero
plano de AS400 a
>ASCII y luego recuperarlos en Windows, y hay algunos problemas con ciertos
caracteres
>extendidos.
>


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma
ICQ # : 10939566