if NOT exist \DATA mkdir \DATA
if NOT exist \data\%1 mkdir \data\%1
if NOT exist \DATA\%1\%2 mkdir \data\%1\%2
IF not EXIST \CALIB MKDIR \CALIB
if NOT exist \CALIB\%1 mkdir \CALIB\%1
if NOT exist \CALIB\%1\%2 mkdir \CALIB\%1\%2

copy \sort2\crab0koef.dat .
copy \sort2\pas2fits.exe .
copy \sort2\pas2fits.exe.ini .
@if NOT exist oldfits1 mkdir oldfits1
@if exist *.fits move *.fits oldfits1
for %%c in (*sun*.dat) do (
pas2fits -f=%%c
)
IF exist *.fits (
if NOT exist \DATA\%1\%2\%3 mkdir \DATA\%1\%2\%3
move *.fits \DATA\%1\%2\%3\
)
for %%c in (*gsh*.dat) do (
pas2fits -f=%%c
)
@if exist *.fits (
if NOT exist \CALIB\%1\%2-gsh mkdir \CALIB\%1\%2-gsh
move *.fits \calib\%1\%2-gsh\
)
for %%c in (*krab*.dat) do (
pas2fits -f=%%c
)
@if exist *.fits (
if NOT exist \CALIB\%1\%2-krab mkdir \CALIB\%1\%2-krab
move *krab*.fits \calib\%1\%2-krab\
)
for %%c in (*moon*.dat) do (
pas2fits -f=%%c
)
@if exist *.fits (
if NOT exist \CALIB\%1\%2-moon mkdir \CALIB\%1\%2-moon
move *.fits \calib\%1\%2-moon\
)
for %%c in (*gains*.dat) do (
if exist %%c (pas2fits -f=%%c)
)
for %%c in (_*.dat) do (
if exist %%c (pas2fits -f=%%c)
)
@if exist *.fits move *.fits \calib\%1\
del crab0koef.dat
del pas2fits.exe
del pas2fits.exe.ini