clear 

	# ESP zone construction file builder: version 1.0a of November 1988

	# Script to build ESP zone construction input files
	# from data supplied by the IFE building model.

imp << EOI
-6
0
n
/usr/abacus/esp/databases/constr.db1
y
/usr/abacus/esp/databases/multicon.db1
n
y	# Assume windows database exists
n	# and don't want listing.
b

%nz = no_of_zones

for i in ${nz} do

   c
   ife_z$i.geo
   y
   %nsur = zone$i_no._surfaces
   for j in ${nsur} do
      %cref = zone$i_surface$j_constr._dbrefno.
      ${cref}
			# Should now ask for air gap resistance if one exists.
   done

   %win? = does_zone$i_have_windows

   if test ${win?} = yes
      then

      for j in ${nsur} do
         %no._windows_$j = zone$i_surface$j_no._windows
         if test ${no._windows_$j} -gt 0
            then

            for k in ${no._windows_$j} do
                  %wref = zone$i_surface$j_window$k_windows_dbrefno.
                  ${wref}
            done
         fi
      done
   fi

   %door? = does_zone$i_have_doors

   if test ${doors?} = yes
      then

      for j in ${nsur} do
         %no._doors_$j = zone$i_surface$j_no._doors
         if test ${no._doors_$j} -gt 0
            then

            for k in ${no._doors_$j} do
               %dU-val = zone$i_surface$j_door$k_U-value
               ${dU-val}
            done
         fi
      done
   fi
   -
   ife_z$i.con

done

-
f
EOI
