nbDone=0

tabRecenterImage[1]=0
tabFieldName[1]$="PGC27605"
tabSetBinningX[1]=1
tabsetBinningY[1]=1
tabWindowFullFrame[1]=1
tabDebuX[1]=0
tabDebuY[1]=0
tabFinY[1]=0
tabFinX[1]=0
tabSetFlagShutter[1]=0
tabexposure[1]=60000
tabdelayExposure[1]=0
tabnbImage[1]=1
tabmiroirX[1]=0
tabmiroirY[1]=0
tabShift[1]=0
tabDirSav[1]$="D:\Obs CCD\11-06-00\"
tabRootName[1]$="PGC27605-"
tabFileFormat[1]$="CPA"
toLate1=0
tabRecenterImage[2]=0
tabFieldName[2]$="PGC28018"
tabSetBinningX[2]=1
tabsetBinningY[2]=1
tabWindowFullFrame[2]=1
tabDebuX[2]=0
tabDebuY[2]=0
tabFinY[2]=0
tabFinX[2]=0
tabSetFlagShutter[2]=0
tabexposure[2]=60000
tabdelayExposure[2]=0
tabnbImage[2]=1
tabmiroirX[2]=0
tabmiroirY[2]=0
tabShift[2]=0
tabDirSav[2]$="D:\Obs CCD\11-06-00\"
tabRootName[2]$="PGC28018-"
tabFileFormat[2]$="CPA"
toLate2=0
tabRecenterImage[3]=0
tabFieldName[3]$="PGC28225"
tabSetBinningX[3]=1
tabsetBinningY[3]=1
tabWindowFullFrame[3]=1
tabDebuX[3]=0
tabDebuY[3]=0
tabFinY[3]=0
tabFinX[3]=0
tabSetFlagShutter[3]=0
tabexposure[3]=60000
tabdelayExposure[3]=0
tabnbImage[3]=1
tabmiroirX[3]=0
tabmiroirY[3]=0
tabShift[3]=0
tabDirSav[3]$="D:\Obs CCD\11-06-00\"
tabRootName[3]$="PGC28225-"
tabFileFormat[3]$="CPA"
toLate3=0
tabRecenterImage[4]=0
tabFieldName[4]$="PGC28316"
tabSetBinningX[4]=1
tabsetBinningY[4]=1
tabWindowFullFrame[4]=1
tabDebuX[4]=0
tabDebuY[4]=0
tabFinY[4]=0
tabFinX[4]=0
tabSetFlagShutter[4]=0
tabexposure[4]=60000
tabdelayExposure[4]=0
tabnbImage[4]=1
tabmiroirX[4]=0
tabmiroirY[4]=0
tabShift[4]=0
tabDirSav[4]$="D:\Obs CCD\11-06-00\"
tabRootName[4]$="PGC28316-"
tabFileFormat[4]$="CPA"
toLate4=0
tabRecenterImage[5]=0
tabFieldName[5]$="PGC28630"
tabSetBinningX[5]=1
tabsetBinningY[5]=1
tabWindowFullFrame[5]=1
tabDebuX[5]=0
tabDebuY[5]=0
tabFinY[5]=0
tabFinX[5]=0
tabSetFlagShutter[5]=0
tabexposure[5]=60000
tabdelayExposure[5]=0
tabnbImage[5]=1
tabmiroirX[5]=0
tabmiroirY[5]=0
tabShift[5]=0
tabDirSav[5]$="D:\Obs CCD\11-06-00\"
tabRootName[5]$="PGC28630-"
tabFileFormat[5]$="CPA"
toLate5=0
tabRecenterImage[6]=0
tabFieldName[6]$="PGC28636"
tabSetBinningX[6]=1
tabsetBinningY[6]=1
tabWindowFullFrame[6]=1
tabDebuX[6]=0
tabDebuY[6]=0
tabFinY[6]=0
tabFinX[6]=0
tabSetFlagShutter[6]=0
tabexposure[6]=60000
tabdelayExposure[6]=0
tabnbImage[6]=1
tabmiroirX[6]=0
tabmiroirY[6]=0
tabShift[6]=0
tabDirSav[6]$="D:\Obs CCD\11-06-00\"
tabRootName[6]$="PGC28636-"
tabFileFormat[6]$="CPA"
toLate6=0
tabRecenterImage[7]=0
tabFieldName[7]$="PGC28655"
tabSetBinningX[7]=1
tabsetBinningY[7]=1
tabWindowFullFrame[7]=1
tabDebuX[7]=0
tabDebuY[7]=0
tabFinY[7]=0
tabFinX[7]=0
tabSetFlagShutter[7]=0
tabexposure[7]=60000
tabdelayExposure[7]=0
tabnbImage[7]=1
tabmiroirX[7]=0
tabmiroirY[7]=0
tabShift[7]=0
tabDirSav[7]$="D:\Obs CCD\11-06-00\"
tabRootName[7]$="PGC28655-"
tabFileFormat[7]$="CPA"
toLate7=0
tabRecenterImage[8]=0
tabFieldName[8]$="PGC28757"
tabSetBinningX[8]=1
tabsetBinningY[8]=1
tabWindowFullFrame[8]=1
tabDebuX[8]=0
tabDebuY[8]=0
tabFinY[8]=0
tabFinX[8]=0
tabSetFlagShutter[8]=0
tabexposure[8]=60000
tabdelayExposure[8]=0
tabnbImage[8]=1
tabmiroirX[8]=0
tabmiroirY[8]=0
tabShift[8]=0
tabDirSav[8]$="D:\Obs CCD\11-06-00\"
tabRootName[8]$="PGC28757-"
tabFileFormat[8]$="CPA"
toLate8=0
tabRecenterImage[9]=0
tabFieldName[9]$="PGC29146"
tabSetBinningX[9]=1
tabsetBinningY[9]=1
tabWindowFullFrame[9]=1
tabDebuX[9]=0
tabDebuY[9]=0
tabFinY[9]=0
tabFinX[9]=0
tabSetFlagShutter[9]=0
tabexposure[9]=60000
tabdelayExposure[9]=0
tabnbImage[9]=1
tabmiroirX[9]=0
tabmiroirY[9]=0
tabShift[9]=0
tabDirSav[9]$="D:\Obs CCD\11-06-00\"
tabRootName[9]$="PGC29146-"
tabFileFormat[9]$="CPA"
toLate9=0
tabRecenterImage[10]=0
tabFieldName[10]$="PGC30019"
tabSetBinningX[10]=1
tabsetBinningY[10]=1
tabWindowFullFrame[10]=1
tabDebuX[10]=0
tabDebuY[10]=0
tabFinY[10]=0
tabFinX[10]=0
tabSetFlagShutter[10]=0
tabexposure[10]=60000
tabdelayExposure[10]=0
tabnbImage[10]=1
tabmiroirX[10]=0
tabmiroirY[10]=0
tabShift[10]=0
tabDirSav[10]$="D:\Obs CCD\11-06-00\"
tabRootName[10]$="PGC30019-"
tabFileFormat[10]$="CPA"
toLate10=0
tabRecenterImage[11]=0
tabFieldName[11]$="PGC30323"
tabSetBinningX[11]=1
tabsetBinningY[11]=1
tabWindowFullFrame[11]=1
tabDebuX[11]=0
tabDebuY[11]=0
tabFinY[11]=0
tabFinX[11]=0
tabSetFlagShutter[11]=0
tabexposure[11]=60000
tabdelayExposure[11]=0
tabnbImage[11]=1
tabmiroirX[11]=0
tabmiroirY[11]=0
tabShift[11]=0
tabDirSav[11]$="D:\Obs CCD\11-06-00\"
tabRootName[11]$="PGC30323-"
tabFileFormat[11]$="CPA"
toLate11=0
tabRecenterImage[12]=0
tabFieldName[12]$="PGC30484"
tabSetBinningX[12]=1
tabsetBinningY[12]=1
tabWindowFullFrame[12]=1
tabDebuX[12]=0
tabDebuY[12]=0
tabFinY[12]=0
tabFinX[12]=0
tabSetFlagShutter[12]=0
tabexposure[12]=60000
tabdelayExposure[12]=0
tabnbImage[12]=1
tabmiroirX[12]=0
tabmiroirY[12]=0
tabShift[12]=0
tabDirSav[12]$="D:\Obs CCD\11-06-00\"
tabRootName[12]$="PGC30484-"
tabFileFormat[12]$="CPA"
toLate12=0
tabRecenterImage[13]=0
tabFieldName[13]$="PGC30819"
tabSetBinningX[13]=1
tabsetBinningY[13]=1
tabWindowFullFrame[13]=1
tabDebuX[13]=0
tabDebuY[13]=0
tabFinY[13]=0
tabFinX[13]=0
tabSetFlagShutter[13]=0
tabexposure[13]=60000
tabdelayExposure[13]=0
tabnbImage[13]=1
tabmiroirX[13]=0
tabmiroirY[13]=0
tabShift[13]=0
tabDirSav[13]$="D:\Obs CCD\11-06-00\"
tabRootName[13]$="PGC30819-"
tabFileFormat[13]$="CPA"
toLate13=0
tabRecenterImage[14]=0
tabFieldName[14]$="PGC30983"
tabSetBinningX[14]=1
tabsetBinningY[14]=1
tabWindowFullFrame[14]=1
tabDebuX[14]=0
tabDebuY[14]=0
tabFinY[14]=0
tabFinX[14]=0
tabSetFlagShutter[14]=0
tabexposure[14]=60000
tabdelayExposure[14]=0
tabnbImage[14]=1
tabmiroirX[14]=0
tabmiroirY[14]=0
tabShift[14]=0
tabDirSav[14]$="D:\Obs CCD\11-06-00\"
tabRootName[14]$="PGC30983-"
tabFileFormat[14]$="CPA"
toLate14=0
tabRecenterImage[15]=0
tabFieldName[15]$="PGC30997"
tabSetBinningX[15]=1
tabsetBinningY[15]=1
tabWindowFullFrame[15]=1
tabDebuX[15]=0
tabDebuY[15]=0
tabFinY[15]=0
tabFinX[15]=0
tabSetFlagShutter[15]=0
tabexposure[15]=60000
tabdelayExposure[15]=0
tabnbImage[15]=1
tabmiroirX[15]=0
tabmiroirY[15]=0
tabShift[15]=0
tabDirSav[15]$="D:\Obs CCD\11-06-00\"
tabRootName[15]$="PGC30997-"
tabFileFormat[15]$="CPA"
toLate15=0
tabRecenterImage[16]=0
tabFieldName[16]$="PGC32719"
tabSetBinningX[16]=1
tabsetBinningY[16]=1
tabWindowFullFrame[16]=1
tabDebuX[16]=0
tabDebuY[16]=0
tabFinY[16]=0
tabFinX[16]=0
tabSetFlagShutter[16]=0
tabexposure[16]=60000
tabdelayExposure[16]=0
tabnbImage[16]=1
tabmiroirX[16]=0
tabmiroirY[16]=0
tabShift[16]=0
tabDirSav[16]$="D:\Obs CCD\11-06-00\"
tabRootName[16]$="PGC32719-"
tabFileFormat[16]$="CPA"
toLate16=0
tabRecenterImage[17]=0
tabFieldName[17]$="PGC34869"
tabSetBinningX[17]=1
tabsetBinningY[17]=1
tabWindowFullFrame[17]=1
tabDebuX[17]=0
tabDebuY[17]=0
tabFinY[17]=0
tabFinX[17]=0
tabSetFlagShutter[17]=0
tabexposure[17]=60000
tabdelayExposure[17]=0
tabnbImage[17]=1
tabmiroirX[17]=0
tabmiroirY[17]=0
tabShift[17]=0
tabDirSav[17]$="D:\Obs CCD\11-06-00\"
tabRootName[17]$="PGC34869-"
tabFileFormat[17]$="CPA"
toLate17=0
tabRecenterImage[18]=0
tabFieldName[18]$="PGC35869"
tabSetBinningX[18]=1
tabsetBinningY[18]=1
tabWindowFullFrame[18]=1
tabDebuX[18]=0
tabDebuY[18]=0
tabFinY[18]=0
tabFinX[18]=0
tabSetFlagShutter[18]=0
tabexposure[18]=60000
tabdelayExposure[18]=0
tabnbImage[18]=1
tabmiroirX[18]=0
tabmiroirY[18]=0
tabShift[18]=0
tabDirSav[18]$="D:\Obs CCD\11-06-00\"
tabRootName[18]$="PGC35869-"
tabFileFormat[18]$="CPA"
toLate18=0
tabRecenterImage[19]=0
tabFieldName[19]$="PGC36743"
tabSetBinningX[19]=1
tabsetBinningY[19]=1
tabWindowFullFrame[19]=1
tabDebuX[19]=0
tabDebuY[19]=0
tabFinY[19]=0
tabFinX[19]=0
tabSetFlagShutter[19]=0
tabexposure[19]=60000
tabdelayExposure[19]=0
tabnbImage[19]=1
tabmiroirX[19]=0
tabmiroirY[19]=0
tabShift[19]=0
tabDirSav[19]$="D:\Obs CCD\11-06-00\"
tabRootName[19]$="PGC36743-"
tabFileFormat[19]$="CPA"
toLate19=0
tabRecenterImage[20]=0
tabFieldName[20]$="PGC38347"
tabSetBinningX[20]=1
tabsetBinningY[20]=1
tabWindowFullFrame[20]=1
tabDebuX[20]=0
tabDebuY[20]=0
tabFinY[20]=0
tabFinX[20]=0
tabSetFlagShutter[20]=0
tabexposure[20]=60000
tabdelayExposure[20]=0
tabnbImage[20]=1
tabmiroirX[20]=0
tabmiroirY[20]=0
tabShift[20]=0
tabDirSav[20]$="D:\Obs CCD\11-06-00\"
tabRootName[20]$="PGC38347-"
tabFileFormat[20]$="CPA"
toLate20=0
tabRecenterImage[21]=0
tabFieldName[21]$="PGC38550"
tabSetBinningX[21]=1
tabsetBinningY[21]=1
tabWindowFullFrame[21]=1
tabDebuX[21]=0
tabDebuY[21]=0
tabFinY[21]=0
tabFinX[21]=0
tabSetFlagShutter[21]=0
tabexposure[21]=60000
tabdelayExposure[21]=0
tabnbImage[21]=1
tabmiroirX[21]=0
tabmiroirY[21]=0
tabShift[21]=0
tabDirSav[21]$="D:\Obs CCD\11-06-00\"
tabRootName[21]$="PGC38550-"
tabFileFormat[21]$="CPA"
toLate21=0
tabRecenterImage[22]=0
tabFieldName[22]$="PGC39414"
tabSetBinningX[22]=1
tabsetBinningY[22]=1
tabWindowFullFrame[22]=1
tabDebuX[22]=0
tabDebuY[22]=0
tabFinY[22]=0
tabFinX[22]=0
tabSetFlagShutter[22]=0
tabexposure[22]=60000
tabdelayExposure[22]=0
tabnbImage[22]=1
tabmiroirX[22]=0
tabmiroirY[22]=0
tabShift[22]=0
tabDirSav[22]$="D:\Obs CCD\11-06-00\"
tabRootName[22]$="PGC39414-"
tabFileFormat[22]$="CPA"
toLate22=0
tabRecenterImage[23]=0
tabFieldName[23]$="PGC39981"
tabSetBinningX[23]=1
tabsetBinningY[23]=1
tabWindowFullFrame[23]=1
tabDebuX[23]=0
tabDebuY[23]=0
tabFinY[23]=0
tabFinX[23]=0
tabSetFlagShutter[23]=0
tabexposure[23]=60000
tabdelayExposure[23]=0
tabnbImage[23]=1
tabmiroirX[23]=0
tabmiroirY[23]=0
tabShift[23]=0
tabDirSav[23]$="D:\Obs CCD\11-06-00\"
tabRootName[23]$="PGC39981-"
tabFileFormat[23]$="CPA"
toLate23=0
tabRecenterImage[24]=0
tabFieldName[24]$="PGC40085"
tabSetBinningX[24]=1
tabsetBinningY[24]=1
tabWindowFullFrame[24]=1
tabDebuX[24]=0
tabDebuY[24]=0
tabFinY[24]=0
tabFinX[24]=0
tabSetFlagShutter[24]=0
tabexposure[24]=60000
tabdelayExposure[24]=0
tabnbImage[24]=1
tabmiroirX[24]=0
tabmiroirY[24]=0
tabShift[24]=0
tabDirSav[24]$="D:\Obs CCD\11-06-00\"
tabRootName[24]$="PGC40085-"
tabFileFormat[24]$="CPA"
toLate24=0
tabRecenterImage[25]=0
tabFieldName[25]$="PGC40378"
tabSetBinningX[25]=1
tabsetBinningY[25]=1
tabWindowFullFrame[25]=1
tabDebuX[25]=0
tabDebuY[25]=0
tabFinY[25]=0
tabFinX[25]=0
tabSetFlagShutter[25]=0
tabexposure[25]=60000
tabdelayExposure[25]=0
tabnbImage[25]=1
tabmiroirX[25]=0
tabmiroirY[25]=0
tabShift[25]=0
tabDirSav[25]$="D:\Obs CCD\11-06-00\"
tabRootName[25]$="PGC40378-"
tabFileFormat[25]$="CPA"
toLate25=0

for I=1 25
done[I]=0
next I
infoDisplay=1
loopBegin:

for I=1 25
priorityOptDistToMeridien[I]=13
priorityRightNow[I]=0
interNb[I]=I
next I
nbpriorityOptToDo=0
nbRightNowToDo=0


REM Object #1
REM Field PGC27605
if (done[1]=0) then
todo=0
alpha=2.53277817726287
delta=1.24243686871622
tabAlpha[1]=alpha
tabDelta[1]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[1]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=1
gosub run_image:

done[1]=1
nbDone=nbDone+1

endif
endif

REM Object #2
REM Field PGC28018
if (done[2]=0) then
todo=0
alpha=2.55773638556639
delta=1.20373904069006
tabAlpha[2]=alpha
tabDelta[2]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[2]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=2
gosub run_image:

done[2]=1
nbDone=nbDone+1

endif
endif

REM Object #3
REM Field PGC28225
if (done[3]=0) then
todo=0
alpha=2.57085544377721
delta=1.21155908536635
tabAlpha[3]=alpha
tabDelta[3]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[3]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=3
gosub run_image:

done[3]=1
nbDone=nbDone+1

endif
endif

REM Object #4
REM Field PGC28316
if (done[4]=0) then
todo=0
alpha=2.57588053758191
delta=1.26150459079426
tabAlpha[4]=alpha
tabDelta[4]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[4]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=4
gosub run_image:

done[4]=1
nbDone=nbDone+1

endif
endif

REM Object #5
REM Field PGC28630
if (done[5]=0) then
todo=0
alpha=2.59861345108914
delta=1.20544073671075
tabAlpha[5]=alpha
tabDelta[5]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[5]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=5
gosub run_image:

done[5]=1
nbDone=nbDone+1

endif
endif

REM Object #6
REM Field PGC28636
if (done[6]=0) then
todo=0
alpha=2.59904978340214
delta=1.26019074571845
tabAlpha[6]=alpha
tabDelta[6]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[6]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=6
gosub run_image:

done[6]=1
nbDone=nbDone+1

endif
endif

REM Object #7
REM Field PGC28655
if (done[7]=0) then
todo=0
alpha=2.60010425315855
delta=1.21618905602095
tabAlpha[7]=alpha
tabDelta[7]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[7]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=7
gosub run_image:

done[7]=1
nbDone=nbDone+1

endif
endif

REM Object #8
REM Field PGC28757
if (done[8]=0) then
todo=0
alpha=2.60726737529695
delta=1.20502864508181
tabAlpha[8]=alpha
tabDelta[8]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[8]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=8
gosub run_image:

done[8]=1
nbDone=nbDone+1

endif
endif

REM Object #9
REM Field PGC29146
if (done[9]=0) then
todo=0
alpha=2.63261828268216
delta=1.19963266881106
tabAlpha[9]=alpha
tabDelta[9]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[9]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=9
gosub run_image:

done[9]=1
nbDone=nbDone+1

endif
endif

REM Object #10
REM Field PGC30019
if (done[10]=0) then
todo=0
alpha=2.69167586124652
delta=1.28108621537427
tabAlpha[10]=alpha
tabDelta[10]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[10]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=10
gosub run_image:

done[10]=1
nbDone=nbDone+1

endif
endif

REM Object #11
REM Field PGC30323
if (done[11]=0) then
todo=0
alpha=2.71328158294517
delta=1.2946464540349
tabAlpha[11]=alpha
tabDelta[11]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[11]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=11
gosub run_image:

done[11]=1
nbDone=nbDone+1

endif
endif

REM Object #12
REM Field PGC30484
if (done[12]=0) then
todo=0
alpha=2.7230845155772
delta=1.2370554368559
tabAlpha[12]=alpha
tabDelta[12]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[12]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=12
gosub run_image:

done[12]=1
nbDone=nbDone+1

endif
endif

REM Object #13
REM Field PGC30819
if (done[13]=0) then
todo=0
alpha=2.74179589959963
delta=1.19408640029916
tabAlpha[13]=alpha
tabDelta[13]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[13]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=13
gosub run_image:

done[13]=1
nbDone=nbDone+1

endif
endif

REM Object #14
REM Field PGC30983
if (done[14]=0) then
todo=0
alpha=2.75055163468046
delta=1.22261283729565
tabAlpha[14]=alpha
tabDelta[14]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[14]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=14
gosub run_image:

done[14]=1
nbDone=nbDone+1

endif
endif

REM Object #15
REM Field PGC30997
if (done[15]=0) then
todo=0
alpha=2.75150429356384
delta=1.23253697334796
tabAlpha[15]=alpha
tabDelta[15]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[15]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=15
gosub run_image:

done[15]=1
nbDone=nbDone+1

endif
endif

REM Object #16
REM Field PGC32719
if (done[16]=0) then
todo=0
alpha=2.85327153336555
delta=1.28610888511057
tabAlpha[16]=alpha
tabDelta[16]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[16]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=16
gosub run_image:

done[16]=1
nbDone=nbDone+1

endif
endif

REM Object #17
REM Field PGC34869
if (done[17]=0) then
todo=0
alpha=2.97613544050073
delta=1.21549092432015
tabAlpha[17]=alpha
tabDelta[17]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[17]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=17
gosub run_image:

done[17]=1
nbDone=nbDone+1

endif
endif

REM Object #18
REM Field PGC35869
if (done[18]=0) then
todo=0
alpha=3.03684380964927
delta=1.2310679878942
tabAlpha[18]=alpha
tabDelta[18]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[18]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=18
gosub run_image:

done[18]=1
nbDone=nbDone+1

endif
endif

REM Object #19
REM Field PGC36743
if (done[19]=0) then
todo=0
alpha=3.08411314355745
delta=1.21094337199134
tabAlpha[19]=alpha
tabDelta[19]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[19]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=19
gosub run_image:

done[19]=1
nbDone=nbDone+1

endif
endif

REM Object #20
REM Field PGC38347
if (done[20]=0) then
todo=0
alpha=3.16738716549323
delta=1.35273198116864
tabAlpha[20]=alpha
tabDelta[20]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[20]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=20
gosub run_image:

done[20]=1
nbDone=nbDone+1

endif
endif

REM Object #21
REM Field PGC38550
if (done[21]=0) then
todo=0
alpha=3.17858636152686
delta=1.34049043572062
tabAlpha[21]=alpha
tabDelta[21]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[21]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=21
gosub run_image:

done[21]=1
nbDone=nbDone+1

endif
endif

REM Object #22
REM Field PGC39414
if (done[22]=0) then
todo=0
alpha=3.21768900897675
delta=1.23572219923285
tabAlpha[22]=alpha
tabDelta[22]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[22]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=22
gosub run_image:

done[22]=1
nbDone=nbDone+1

endif
endif

REM Object #23
REM Field PGC39981
if (done[23]=0) then
todo=0
alpha=3.2364149374096
delta=1.31465956279111
tabAlpha[23]=alpha
tabDelta[23]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[23]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=23
gosub run_image:

done[23]=1
nbDone=nbDone+1

endif
endif

REM Object #24
REM Field PGC40085
if (done[24]=0) then
todo=0
alpha=3.23948380801103
delta=1.32975666082086
tabAlpha[24]=alpha
tabDelta[24]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[24]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=24
gosub run_image:

done[24]=1
nbDone=nbDone+1

endif
endif

REM Object #25
REM Field PGC40378
if (done[25]=0) then
todo=0
alpha=3.24843589263271
delta=1.31825203216813
tabAlpha[25]=alpha
tabDelta[25]=delta
gosub determine_Hauteur:
HeightMin=0.349065850398866
if Hauteur>HeightMin then
priorityRightNow[25]=1
nbRightNowToDo=nbRightNowToDo+1
endif
if (todo=1) then
nb=25
gosub run_image:

done[25]=1
nbDone=nbDone+1

endif
endif

ToDo=0

if nbRightNowToDo>0 then
for I=1 25
if priorityRightNow[I]=1 then
Nb=I
ToDo=1
goto endfor1:
endif
next I
endfor1:
else
if nbpriorityOptToDo>0 then
for I=1 25
interpriorityOptDistToMeridien[I]=priorityOptDistToMeridien[I]
next I
REM Sorting values
for I=1 24
for J=I+1 25
if (interpriorityOptDistToMeridien[I]>interpriorityOptDistToMeridien[J]) then
inter=interpriorityOptDistToMeridien[I]
interpriorityOptDistToMeridien[I]=interpriorityOptDistToMeridien[J]
interpriorityOptDistToMeridien[J]=inter
inter=interNb[I]
interNb[I]=interNb[J]
interNb[J]=inter
endif
next J
next I
nb=interNb[1]
ToDo=1
endif
endif
if ToDo=1 then
gosub run_image:
nbDone=NbDone+1
done[nb]=1
priorityOptDistToMeridien[Nb]=13
endif

if ToDo=0 then
if infoDisplay=1 then
print "Waiting for best time ...."
endif
infoDisplay=0
else
infoDisplay=1
endif

if nbDone<25 then
goto loopbegin:
endif
Print ""
Print "Observation is over"
end


REM optimum object position determination
determine_optimale:
gosub determine_DistanceToMeridien:
abs distanceToMeridien distanceToMeridien
if distanceToMeridien<DisToMeridienMin then
gosub determine_Hauteur:
if Hauteur>HeightMin then
toDo=1
endif
endif
return

REM interval determination
determine_interval:
now currentdate
if (currentdate>=DateDebut) then
if (currentdate<=DateFin) then
todo=1
endif
endif
return

REM elevation determination
determine_Hauteur:
getStdrLongitude longitude
getStdrLatitude latitude
now currentdate
getHeight alpha delta currentDate longitude latitude hauteur
return

REM compute meridian distance
determine_DistanceToMeridien:
getStdrLongitude longitude
now currentdate
GetDistanceToMeridien alpha currentDate longitude distanceToMeridien
return

REM exposure parameters
fill_parameters:
setBinningX=tabSetBinningX[Nb]
setBinningY=tabSetBinningY[Nb]
recenterImage=TabRecenterImage[Nb]
fieldName$=tabFieldName[Nb]$
if TabWindowFullFrame[Nb]=1 then
SetWindowFullFrame
else
SetWindow TabDebuX[Nb] TabDebuY[Nb] TabFinY[Nb] TabFinX[Nb]
endif
SetFlagShutter tabSetFlagShutter[Nb]
exposure=tabExposure[Nb]
delayExposure=tabDelayExposure[Nb]
nbImage=tabNbImage[Nb]
shift=tabShift[Nb]
miroirX=tabMiroirX[Nb]
miroirY=tabMiroirY[Nb]
DirSav$=tabDirSav[Nb]$
RootName$=tabRootName[Nb]$
FileFormat$=tabFileFormat[Nb]$
return

REM exposure parameters
run_image:
gosub fill_parameters:
print "Field in progress :" fieldName$
gosub center_image:

gosub take_images:
print "Field done"
return

REM take single image
take_one_image:
StartExposure exposure
WaitForEndExposure
GetLastImageExposure img
return

REM take exposure
take_images:
for I=1 nbImage
gosub take_one_image:
str I numImg$
if FileFormat$="CPA" then
saveCPA img DirSav$+RootName$+numImg$+".cpa"
else
saveFIT img DirSav$+RootName$+numImg$+".fits"
endif
if delayExposure>0 then
delay delayExposure
endif
if shift>0 then
rand nbRandom
shiftAlpha=shift*nbRandom
rand nbRandom
shiftDelta=shift*nbRandom
shiftTelescope shiftAlpha shiftDelta
endif
if delayExposure>0 then
waitForEndDelay
endif

close img
next I
return

center_image:
alpha=tabAlpha[Nb]
delta=tabDelta[Nb]
moveTelescope alpha delta

if recenterImage=1 then
gosub take_one_image:
REM astrometric calibration
getFocus img focale
getSizePixX img TaillePixX
getSizePixY img TaillePixY
etalonAstrometrieAuto img "GSC" focale TaillePixX TaillePixY Alpha Delta 40 40 1
width img width
height img height
getAstrometrie img width/2 height/2  AlphaCenter DeltaCenter
decalDelta=Delta-DeltaCenter
decalAlpha=Alpha-AlpaCenter
decalDelta=decalDelta*180/(Pi*3600)
cos delta cosDelta
decalAlpha=decalAlpha*180/(Pi*3600*cosDelta)
shiftTelescope decalAlpha decalDelta
close img
endif
Delay 3000
WaitForEndDelay
return