/* Rexx program to add html headers to text file
 *
 * $VER: text2HTML.rexx 1.0 (1.3.97)
 */

parse arg arg1 arg2
arg2 = strip(arg2)

call open('in',arg1,'r')
call open('out',arg2,'w')
call writeln('out',"<HTML>")
call writeln('out',"<HEAD>")
call writeln('out',"<TITLE>"arg1"</TITLE>")
call writeln('out',"</HEAD>")
call writeln('out',"<BODY>")
call writeln('out',"<PRE>")
line = readln('in')
do while ~eof('in')
	writeln('out',line)
	line = readln('in')
end
call writeln('out',"</PRE>")
call writeln('out',"</BODY>")
call writeln('out',"</HTML>")
call close('in')
call close('out')

