// THIS ROUTINE TESTS THE Shutter for the USB laser calibration box

// Create the directory to save data into
d = DateToInteger($CurrentTime)
date = ConvertToString("%8d",d)
dirImages = "C:\\PKZdata2013_fall\\" + date
LOG_DIRECTORY Master,dirImages

// Variables specific to this FPI for the log files
logDir = "C:\\PKZPrograms\\Logs"
logID = "PKZ_"
logOrder = 321

LOG_DIRECTORY Master,logDir,logID,logOrder
LOG_DIRECTORY Observatory,logDir,logID,logOrder
LOG_DIRECTORY Camera,logDir,logID,logOrder
LOG_DIRECTORY Analyze,logDir,logID,logOrder




irepeat = 0

while (irepeat < 30)
{
   DELAY 3
   SHUTTER Laser, OPEN
   DELAY 5
   SHUTTER Laser, CLOSE

irepeat = irepeat + 1
}

DELAY 10


while (irepeat < 30)
{
   DELAY 3
   SHUTTER Laser, OPEN
   DELAY 5
   SHUTTER Laser, CLOSE

irepeat = irepeat + 1
}