# Fonction PCODE ID = 860026233
REGISTRE POINTEUR alphanum
############################################################################
#
# nom du fichier: conversion2.src
#       Retourne la valeur numerique DCB correspondante a la valeur alphanumerique d un digit en entree
#       ENTIER num = conversion( POINTEUR alphanum)
#	SI la valeur alphanumerique = "*" alors la valeur numerique DCB correspondante = 0xB
#	SI la valeur alphanumerique != "*" et !="1" et !="2" ... et !="9" alors la valeur numerique DCB correspondante = 0xF
#
############################################################################

#---------------------------------------------------------------------------
# VARIABLES LOCALES
#---------------------------------------------------------------------------

REGISTRE ENTIER num

#
# recuperation des valeurs d'entree
#



alphanum = depilerPOINTEUR()
SI !(i_strcmp(alphanum,"0"))
ALORS
	num=0
SINON
	SI !(i_strcmp(alphanum,"1"))
	ALORS
		num=1
	SINON
		SI !(i_strcmp(alphanum,"2"))
		ALORS
			num=2
		SINON
			SI !(i_strcmp(alphanum,"3"))
			ALORS
				num=3
			SINON
				SI !(i_strcmp(alphanum,"4"))
				ALORS
					num=4
				SINON
					SI !(i_strcmp(alphanum,"5"))
					ALORS
						num=5
					SINON
						SI !(i_strcmp(alphanum,"6"))
						ALORS
							num=6
						SINON
							SI !(i_strcmp(alphanum,"7"))
							ALORS
								num=7
							SINON
								SI !(i_strcmp(alphanum,"8"))
								ALORS
									num=8
								SINON
									SI !(i_strcmp(alphanum,"9"))
									ALORS
										num=9
									SINON
										SI !(i_strcmp(alphanum,"*"))
										ALORS
											num=0xB
										SINON
											num=0xF
										FINSI
									FINSI
								FINSI
							FINSI
						FINSI
					FINSI
				FINSI
			FINSI
		FINSI
	FINSI
FINSI

RETOUR num


