# iterations
	set nits = 100
# star list
	set stars = test
# timing file
	set times = ut.dat
# chi2 clip threshold
	set zapcut = 5
# specific stars to plot
	set star1 = 0600-0062-1
	set star2 = 0600-0670-1
	set star3 = 0600-1446-1

../passcal/passcal.exe << $
PASS0
Tenerife
$times
@$stars

	! load previous calibration
<
$stars

	! plot
P
P
$stars.0.ps
K
P
N
N
	! zap rats
Z
$zapcut
	! calibrate
C
10
0

	! plot
P
P
$stars.10.ps
K
P
N
N
	! calibrate
C
$nits
0

	! save calibration
>
$stars

	! plot
P
P
$stars.$nits.ps
K
P
N
N
	! iteration plot
I
P
$stars.$nits.i.ps
K
L
N
N
	! RU plot
RU
P
$stars.$nits.ru.ps
K
P
N
N
	! RC plot
RC
P
$stars.$nits.rc.ps
K
P
N
N
	! RB plot
RB
P
$stars.$nits.rb.ps
K
L
N
N
	! T plot
T
P
$stars.$nits.t.ps
K
P
N
N
	! TU plot
TU
P
$stars.$nits.tu.ps
K
L
N
N
	! TB plot
TB
P
$stars.$nits.tb.ps
K
L
N
N
	! TC plot
TC
P
$stars.$nits.tc.ps
K
L
N
N
	! N plot
N
P
$stars.$nits.n.ps
K
P
N
N
	! NU plot
NU
P
$stars.$nits.nu.ps
K
P
N
N
	! NC plot
NC
P
$stars.$nits.nc.ps
K
P
N
N
	! NB plot
NB
P
$stars.$nits.nb.ps
K
L
N
N
	! X plot
X
P
$stars.$nits.x.ps
K
L
N
N
	! XU plot
XU
P
$stars.$nits.xu.ps
K
L
N
N
	! XC plot
XC
P
$stars.$nits.xc.ps
K
L
N
N
	! XB plot
XB
P
$stars.$nits.xb.ps
K
L
N
N
	! XT plot
XT
P
$stars.$nits.xt.ps
K
L
N
N
	! K plot
K
P
$stars.$nits.k.ps
K
L
N
N
	! KT plot
KT
P
$stars.$nits.kt.ps
K
L
N
N
	! KR plot
KR
P
$stars.$nits.kr.ps
K
L
N
N
	! KM plot
KM
P
$stars.$nits.km.ps
K
L
N
N
	! KE plot
KE
P
$stars.$nits.ke.ps
K
L
N
N
	! KA plot
KA
P
$stars.$nits.ka.ps
K
L
N
N
	! light curve
l
$star1
p
$star1.$stars.$nits.ps
k
p
n
n
	! light curve
l
$star2
p
$star2.$stars.$nits.ps
k
p
n
n
	! light curve
l
$star3
p
$star3.$stars.$nits.ps
k
p
n
n


	! fini
Q
Y
$
date