C   ---------------------------------------------------------------------------
C   TABS2BLNK.FOR - The function of this routine is to translate all tabs to
C	to blanks using a translation table.
C   ---------------------------------------------------------------------------
	INTEGER*4 FUNCTION TABS_TO_BLANKS ( SOURCE, DESTINATION )
C
	PARAMETER	BLANK=' '
C
	CHARACTER	SOURCE*(*), DESTINATION*(*)
C
	CHARACTER*(1)	TBL_C(256)
	BYTE		TBL_B1(128)
	BYTE		TBL_B2(128)
C
	EQUIVALENCE	( TBL_C(1), TBL_B1(1) ), ( TBL_C(129), TBL_B2(1) )
C
C   ---------------------------------------------------------------------------
C
C   Define the translation table.
C
	DATA TBL_B1
	1 /'00'x, '01'x, '02'x, '03'x, '04'x, '05'x, '06'x, '07'x, 
	2  '08'x, '20'x, '0A'x, '0B'x, '0C'x, '0D'x, '0E'x, '0F'x, 
	3  '10'x, '11'x, '12'x, '13'x, '14'x, '15'x, '16'x, '17'x, 
	4  '18'x, '19'x, '1A'x, '1B'x, '1C'x, '1D'x, '1E'x, '1F'x, 
	5  '20'x, '21'x, '22'x, '23'x, '24'x, '25'x, '26'x, '27'x, 
	6  '28'x, '29'x, '2A'x, '2B'x, '2C'x, '2D'x, '2E'x, '2F'x, 
	7  '30'x, '31'x, '32'x, '33'x, '34'x, '35'x, '36'x, '37'x, 
	8  '38'x, '39'x, '3A'x, '3B'x, '3C'x, '3D'x, '3E'x, '3F'x, 
	9  '40'x, '41'x, '42'x, '43'x, '44'x, '45'x, '46'x, '47'x, 
	9  '48'x, '49'x, '4A'x, '4B'x, '4C'x, '4D'x, '4E'x, '4F'x, 
	1  '50'x, '51'x, '52'x, '53'x, '54'x, '55'x, '56'x, '57'x, 
	2  '58'x, '59'x, '5A'x, '5B'x, '5C'x, '5D'x, '5E'x, '5F'x, 
	3  '60'x, '61'x, '62'x, '63'x, '64'x, '65'x, '66'x, '67'x, 
	4  '68'x, '69'x, '6A'x, '6B'x, '6C'x, '6D'x, '6E'x, '6F'x, 
	5  '70'x, '71'x, '72'x, '73'x, '74'x, '75'x, '76'x, '77'x, 
	6  '78'x, '79'x, '7A'x, '7B'x, '7C'x, '7D'x, '7E'x, '7F'x/
C
	DATA TBL_B2
	1 /'80'x, '81'x, '82'x, '83'x, '84'x, '85'x, '86'x, '87'x, 
	2  '88'x, '89'x, '8A'x, '8B'x, '8C'x, '8D'x, '8E'x, '8F'x, 
	3  '90'x, '91'x, '92'x, '93'x, '94'x, '95'x, '96'x, '97'x, 
	4  '98'x, '99'x, '9A'x, '9B'x, '9C'x, '9D'x, '9E'x, '9F'x, 
	5  'A0'x, 'A1'x, 'A2'x, 'A3'x, 'A4'x, 'A5'x, 'A6'x, 'A7'x, 
	6  'A8'x, 'A9'x, 'AA'x, 'AB'x, 'AC'x, 'AD'x, 'AE'x, 'AF'x, 
	7  'B0'x, 'B1'x, 'B2'x, 'B3'x, 'B4'x, 'B5'x, 'B6'x, 'B7'x, 
	8  'B8'x, 'B9'x, 'BA'x, 'BB'x, 'BC'x, 'BD'x, 'BE'x, 'BF'x, 
	9  'C0'x, 'C1'x, 'C2'x, 'C3'x, 'C4'x, 'C5'x, 'C6'x, 'C7'x, 
	9  'C8'x, 'C9'x, 'CA'x, 'CB'x, 'CC'x, 'CD'x, 'CE'x, 'CF'x, 
	1  'D0'x, 'D1'x, 'D2'x, 'D3'x, 'D4'x, 'D5'x, 'D6'x, 'D7'x, 
	2  'D8'x, 'D9'x, 'DA'x, 'DB'x, 'DC'x, 'DD'x, 'DE'x, 'DF'x, 
	3  'E0'x, 'E1'x, 'E2'x, 'E3'x, 'E4'x, 'E5'x, 'E6'x, 'E7'x, 
	4  'E8'x, 'E9'x, 'EA'x, 'EB'x, 'EC'x, 'ED'x, 'EE'x, 'EF'x, 
	5  'F0'x, 'F1'x, 'F2'x, 'F3'x, 'F4'x, 'F5'x, 'F6'x, 'F7'x, 
	6  'F8'x, 'F9'x, 'FA'x, 'FB'x, 'FC'x, 'FD'x, 'FE'x, 'FF'x/
C
C   ---------------------------------------------------------------------------
C
C   Translate the string.
C
	TABS_TO_BLANKS = LIB$MOVTC ( SOURCE, BLANK, TBL_C, DESTINATION )
C
C   Return
C
	RETURN
	END