"Procedures for 3mm-2 at EFLSBERG
"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  TSYS          00000000000X
"This procedure works for single-receiver experiments "
"and for polarization expts."
" it takes about 20 sec of time on the IBM AT03"
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  TANT          00000000000X
"Do Tant now"
ENDDEF
"
DEFINE  TAPEFORMA     00000000000X
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  TAPEFORMB     00000000000X
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  TAPEFORMC     00000000000X
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  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  MA4A1         00000000000X
TAPEFORMA
FORM=A,8
HEAD=B,$
AUXALL
PATCH=LO1,1L,2L,3L,4L,5L,6L,7L
PATCH=LO2,8L,9L,10L,11L,12L,13L,14L
VC01=128.99,4.000
VC02=104.99,4.000
VC03=136.99,4.000
VC04=112.99,4.000
VC05=144.99,4.000
VC06=120.99,4.000
VC07=152.99,4.000
VC08=184.99,4.000
VC09=160.99,4.000
VC10=192.99,4.000
VC11=168.99,4.000
VC12=200.99,4.000
VC13=176.99,4.000
VC14=208.99,4.000
LO=86088.0,86088.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,1L,2L,3L,4L,5L,6L,7L
PATCH=LO2,8L,9L,10L,11L,12L,13L,14L
VC01=128.99,4.000
VC02=104.99,4.000
VC03=136.99,4.000
VC04=112.99,4.000
VC05=144.99,4.000
VC06=120.99,4.000
VC07=152.99,4.000
VC08=184.99,4.000
VC09=160.99,4.000
VC10=192.99,4.000
VC11=168.99,4.000
VC12=200.99,4.000
VC13=176.99,4.000
VC14=208.99,4.000
LO=86088.0,86088.0
!+1S
VALARM
IFD=*,*,NOR,ALT
TAPE=ALARM
ET
ENABLE=G1,G2,G3,G4
TAPE=LOW
REPRO=BYP,*,*,4
TAPE=ALARM
FORM=ALARM
ENDDEF