"Procedures for 3mm-2 at KITTPEAK
"starting on day 339, 94 DEC 5
"Produced using PC-SCHED 3.5
"Experiment name: 3mm-2
"P.I.: L.B.Baath 
"To be correlated at: Haystack 
"
"Comment: 3mm Coordinated VLBI Array, Part 2 
"
DEFINE  VALARM        00000000000X
VC01=ALARM
VC02=ALARM
VC03=ALARM
VC04=ALARM
VC05=ALARM
VC06=ALARM
VC07=ALARM
VC08=ALARM
VC09=ALARM
VC10=ALARM
VC11=ALARM
VC12=ALARM
VC13=ALARM
VC14=ALARM
ENDDEF
"
DEFINE  READY         00000000000X
CHECK=*,-TP
TAPE
TAPE=ALARM
XDISP=ON
"********** Mount a new Mark-III tape now, please ****"
NEWTAPE
XDISP=OFF
TAPE=ALARM
TAPE=LOW,RESET
TAPE
ST=FOR,120
!+5S
ET
!+5S
TAPE
LABEL
CHECK=*,TP
ENDDEF
"
DEFINE  UNLOD         00000000000X
CHECK=*,-TP
ENABLE=,
TAPE=OFF
ST=REV,120
XDISP=ON
"********** Dismount Mark-III tape now, please *******"
WAKEUP
XDISP=OFF
ENDDEF
"
DEFINE  MIDOB         00000000000X
REPRO=BYP,*,*
ONSOURCE
VREDA
IFD
FORM
TAPE
WX
ENDDEF
"
DEFINE  POSTOB        00000000000X
ONSOURCE
ENDDEF
"
DEFINE  PREOB         00000000000X
TSYS
ENDDEF
"
DEFINE  MIDTP         00000000000X
"Null MIDTP--does nothing"
ENDDEF
"
DEFINE  VREDA         00000000000X
VC01
VC02
VC03
VC04
VC05
VC06
VC07
VC08
VC09
VC10
VC11
VC12
VC13
VC14
ENDDEF
"
DEFINE  FASTR         00000000000X
TAPE=LOW
RW
!+$
ET
ENDDEF
"
DEFINE  FASTF         00000000000X
TAPE=LOW
FF
!+$
ET
ENDDEF
"
DEFINE  AUXALL        00000000000X
MAT=#92=FFFFFFFF$!
MAT=#92=FFFF0000$%
ENDDEF
"
DEFINE  STOP          00000000000X
"There is a break in the schedule"
WAKEUP
SCHEDULE=XX,#1
ENDDEF
"
DEFINE  CHECK2A1      00000000000X
"NULL -- please define a check"
ENDDEF
"
DEFINE  CHECK2A2      00000000000X
"NULL -- please define a check"
ENDDEF
"
DEFINE  TSYS          00000000000X
"This procedure works for single-receiver experiments "
"Please replace with one appropriate for your station"
CAL=OFF
!+3S
TPI=ALL
CAL=ON
!+3S
TPICAL=ALL
CAL=OFF
"Replace CALTEMPns below with propper values, please."
CALTEMP1=100.0
TSYS1=ALL
ENDDEF
"
DEFINE  MA4A1         00000000000X
TAPEFORMA
FORM=A,8
HEAD=B,$
AUXALL
LO not found in CODES.SCH
LO=00000.0
!+1S
VALARM
IFD=*,*,NOR,NOR
TAPE=ALARM
ET
ENABLE=G1,G2,G3,G4
TAPE=LOW
REPRO=BYP,*,*,4
TAPE=ALARM
FORM=ALARM
ENDDEF
"
DEFINE  MA4A2         00000000000X
TAPEFORMA
FORM=A,8
HEAD=B,$
AUXALL
LO not found in CODES.SCH
LO=00000.0
!+1S
VALARM
IFD=*,*,NOR,NOR
TAPE=ALARM
ET
ENABLE=G1,G2,G3,G4
TAPE=LOW
REPRO=BYP,*,*,4
TAPE=ALARM
FORM=ALARM
ENDDEF