/*--------------------------------------------------------------------
 * FICHERO:  CarANaPC.c
 * OBJETIVO: Definir la funcin Car_ConvierteANSIaPC()
 * AUTOR:    Pedro Reina
 * FECHA:    D.6.8.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Caracter.h"

/*--------------------------------------------------------------------
 * Tabla de conversin
 *------------------------------------------------------------------*/

static caracter Car_TablaConv_[256] = {

/* Tabla de conversin de ANSI a PC-8 */

/*          0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15 */

/*   0 */   0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,
/*  16 */  16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
/*  32 */  32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
/*  48 */  48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
/*  64 */  64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
/*  80 */  80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
/*  96 */  96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
/* 112 */ 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,177,
/* 128 */ 128,129, 44,159,132,133,134,135,136,137, 83,174,140,141,142,143,
/* 144 */ 144, 39, 39, 34, 34,  7, 45,196,152,153,115,175,156,157,158, 89,
/* 160 */ 160,173,155,156, 15,157,124, 21,168,169,166,174,170, 45,174,175,
/* 176 */ 248,241,253,179,180,230, 20,249,184,185,167,175,172,171,190,168,
/* 192 */  65, 65, 65, 65,142,143,146,128, 69,144, 69, 69, 73, 73, 73, 73,
/* 208 */ 208,165, 79, 79, 79, 79,153, 45, 79, 85, 85, 85,154, 89,222,225,
/* 224 */ 133,160,131, 97,132,134,145,135,138,130,136,137,141,161,140,139,
/* 240 */ 240,164,149,162,147,111,148,246,111,151,163,150,129,121,254,152 };

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Car_ConvierteANSIaPC()
 * OBJETIVO: Convertir un carcter del juego ANSI al PC
 * ENTRADAS: Un carcter considerado como del juego ANSI
 * SALIDAS:  El carcter correspondiente en el juego PC
 * EJEMPLO:  Car_ConvierteANSIaPC ('')
 *------------------------------------------------------------------*/
caracter Car_ConvierteANSIaPC (c)
caracter c;
  { 
  return ( Car_TablaConv_[c] ); 
  }