"Procedures for 3MM94A at QUABBIN
"starting on day 336, 94 DEC 2
"Produced using PC-SCHED 3.5
"Experiment name: 3MM94A
"P.I.: T.P.KRICHBAUM 
"To be correlated at: BONN 
"
"Comment: Phasecal ON always! Phasecal off for VXSGR/SGRA scans.  
"
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
TSYS
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  TAPEFRMA      00000000000X
"Change name of this proc if you need TAPEFORMA"
"Normally TAPEFORMA will come from station proc file"
TAPEFORM=1,-350,2,0,3,-295,4,55,5,-240,6,110
TAPEFORM=7,-185,8,165,9,-130,10,220,11,-75,12,275
ENDDEF
"
DEFINE  TAPEFRMB      00000000000X
"Change name of this proc if you need TAPEFORMB"
"Normally TAPEFORMB will come from station proc file"
TAPEFORM=1,-330,2,-330,3,-275,4,-275,5,-220,6,-220
TAPEFORM=7,-165,8,-165,9,-110,10,-110,11,-55,12,-55
TAPEFORM=13,0,14,0,15,55,16,55,17,110,18,110
TAPEFORM=19,165,20,165,21,220,22,220,23,275,24,275
ENDDEF
"
DEFINE  TAPEFRMC      00000000000X
"Change name of this proc if you need TAPEFORMC"
"Normally TAPEFORMC will come from station proc file"
TAPEFORM=1,-330,2,-330,3,-275,4,-275,5,-220,6,-220
TAPEFORM=7,-165,8,-165,9,-110,10,-110,11,-55,12,-55
TAPEFORM=13,0,14,0,15,55,16,55,17,110,18,110
TAPEFORM=19,165,20,165,21,220,22,220,23,275,24,275
ENDDEF
"
DEFINE  MA4A1         00000000000X
TAPEFORMA
FORM=A,8
HEAD=B,$
AUXALL
PATCH=LO1,1H,3H,5H,7H,9H,11H,13H
PATCH=LO2,2H,4H,6H,8H,10H,12H,14H
VC01=394.99,4.000
VC02=370.99,4.000
VC03=402.99,4.000
VC04=378.99,4.000
VC05=410.99,4.000
VC06=386.99,4.000
VC07=418.99,4.000
VC08=450.99,4.000
VC09=426.99,4.000
VC10=458.99,4.000
VC11=434.99,4.000
VC12=466.99,4.000
VC13=442.99,4.000
VC14=474.99,4.000
LO=85822.0,85822.0
!+1S
VALARM
IFD=*,*,NOR,ALT
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
PATCH=LO1,1H,3H,5H,7H,9H,11H,13H
PATCH=LO2,2H,4H,6H,8H,10H,12H,14H
VC01=394.99,4.000
VC02=370.99,4.000
VC03=402.99,4.000
VC04=378.99,4.000
VC05=410.99,4.000
VC06=386.99,4.000
VC07=418.99,4.000
VC08=450.99,4.000
VC09=426.99,4.000
VC10=458.99,4.000
VC11=434.99,4.000
VC12=466.99,4.000
VC13=442.99,4.000
VC14=474.99,4.000
LO=85822.0,85822.0
!+1S
VALARM
IFD=*,*,NOR,ALT
TAPE=ALARM
ET
ENABLE=G1,G2,G3,G4
TAPE=LOW
REPRO=BYP,*,*,4
TAPE=ALARM
FORM=ALARM
ENDDEF