* Copyright (C) 2023 Dennis J. Darland

* This file is part of Dennis J Darland's Glucose Prediction Software.

* It is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.

* This is distributed in the hope that it will be useful, 
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.

* You should have received a copy of the GNU General Public License
* along with it. If not, see <http://www.gnu.org/licenses/>.
   DEFINE('LPAD(S,N,C)')   :(LPAD_END)
LPAD   LPAD = GE(SIZE(S),N) S  :S(RETURN)
       C = IDENT(C)  ' '
       LPAD = DUPL(C, N - SIZE(S)) S   :(RETURN)

LPAD_END

	OUTPUT('out7',3,1024,'OUT2/relate_out7.tmp')

  	it = ""
	OUTPUT = "<tr>"
TOP	line = INPUT :f(FINISH)
	it = it LPAD(line, 32, ' ')
	OUTPUT = "<td>" line "</td>" :(TOP)
FINISH  OUTPUT = "</tr>"
	out7 = it 	

END