!Concatenate a number (4 expected) of hex-pair files from the SEESCAN board
!into one IFF file.

%include "inc:util.imp"
%include "iffinc.imp"
%begin

%bytearray a(0:65535)
%string (255) infile, outfile, param, in
%integer csum, rc, p
%record (iffhdr fm) iffhdr

%routine do file(%string (255) infile)
   %integer n
   %on 9 %start
      close input
      %return
   %finish
   openinput(2, infile); selectinput(2)
   %for n=0,1,16383 %cycle
      readsymbol(a(p)); p=p+1
   %repeat
   close input
%end

p=0
param = cli param
outfile = "" %and infile = param %unless param -> infile.("/").outfile
iffhdr=0
iffhdr_ht=256; iffhdr_wid=256
prompt("Title:"); readline(iffhdr_title)
infile=infile.","
do file(in) %while infile -> in.(",").infile

rc = iff writeout(outfile, iffhdr, addr(a(0)))

%endofprogram