/* REXX */
numeric digits 20
parse arg infile
call stream infile, 'c', 'open read'
outfile = "temp.txt" ; call stream outfile, 'c', 'open write replace'
do while lines(infile)
incard = linein(infile)
parse var incard 1 cx 2 tail
select
when cx = ';' then break
when cx = '=' then interpret 'outcard='tail
otherwise ; outcard = tail ; end
call lineout outfile, outcard
end
call stream infile, 'c', 'close'
call stream outfile, 'c', 'close'