246  Appendix F  procedure ConvertExtended  19it(C:  Char;  var V:  Iloolean;var 0:  OigitRange);  ConvertExtendedOigit  'termines whether C is an  extended digit,  setti  validity,  and if V is  numerical value of th  I  V  to indicate its  !.!ue sets 0  to the  extended digit.  'lit  }  begin  { ConvertExtendedO  V :  =  C in  [  '0' .. ' 9' , '  ','b' ,'e'  I'd'  ,'e'  ,'f',  ,  ','B','C','D','E','F'  ];  if  V  then  case C of  , 0'  :  0  .- 0;  , l'  :  :)  .- 1;  , 3'  :  0  3;  , 4'  :  D  4;  , 6'  :  0  .- 6;  , 7'  :  D  .- 7;  , 8'  :  0  .=  8;  , 9'  :  D  .=  9;  'A' ,'a'  :  0  10;  'B', 'b'  'C' , ' c'  :  0  12;  , 0' , 'd'  'E' , 'e'  :  0  14'  , F' , ' f'  end  end  ConvertExtendedOigi '  }  ;  begin  ReadRadixRepresenta' .on  E  := true;  ConvertExtendedOigit (Fl, V, I I) ;  if V then  begin  E  := false;  S:= 0;  repeat  if 0  <  R then  , 2'  :  , 5'  :  :  0  .=  :  0  .=  :  0  if  (Maxint  - 0)  d  R  >=  S  then  begin  S  :=  S  *  R  +  :  Get(F);  0  .=  0  .- 11;  13;  15;  ConvertExtend·  l:'igit (Fl,v,d);  end  else E  := true  else E  := true  until E or not V;  if not E then X  := S  end  end { ReadRadixRepresentati,  I.  2;  5; 