#!/bin/csh -f
# kicker turn on procedure as per J. Carwardine
# M. Borland, 7/95
# $Log: not supported by cvs2svn $

foreach dev (S:IK1 S:IK2 S:IK3 S:IK4) 
  caput "$dev":VoltageAO  0
  caput "$dev":ShiftLevelsBO on
  caput "$dev":OnBO off
  
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  end
sleep 300

foreach dev (S:IK1 S:IK2 S:IK3 S:IK4) 
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  end
sleep 660

foreach dev (S:IK1 S:IK2 S:IK3 S:IK4) 
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  sleep 2
  caput "$dev":ResetBO 1
  end



