pathh=Dagpath||"MagicItems/"||handle
if ~exists(pathh) then do;sendstring "c3Creating Equipment File...";do i=1 to 14;ma1.i="0";ma2.i="0";ma3.i="0";ma4.i="0";ma5.i="0";ma6.i="0";end;call open(fle,pathh,"W");signal off error;do i = 1 to 14;writeln(fle,ma1.i);writeln(fle,ma2.i);writeln(fle,ma3.i);writeln(fle,ma4.i);writeln(fle,ma5.i);writeln(fle,ma6.i);end;signal on error;call close fle;transmit "Done.";end