Ocean Optics Jaz Scripting Language and Scripting Engine - Manual (Page 66)

A: Example Scripts
58 013-RD000-000-12- 201010
DisplayMsg("Make sure Dark,$Low, and Max Refs$have been taken")
Pause(3)
DisplayMsg("You will need$pH 6 and 8$buffers")
Pause(3)
LABEL FullMenu
ShowMenu("pH = 6","pH = 8")
OnButtonClick(UserSelection,TimeOutSeconds)
If(UserSelection = 0) GOTO Six
If(UserSelection = 1) GOTO Eight
LABEL Six
DisplayMsg("pH = 6 Buffer$Should Be$Present")
Pause(2)
GetSpectrum(SPECTROMETER_CHANNEL_NUMBER, SixSpectrum)
Sub(SixSpectrum, DarkSpectrum, SixSpectrumDark)
LocateWavelength(SixSpectrumDark, 750, SixIntensityBase)
LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)
SixBaseRatio := SixSpectrumDark[SixIntensityBase] /
LowpHSpectrumDark[LowIntensityBase]
LOG10(SixBaseRatio, SixBaseAbsorbance)
SixBaseAbsorbance := -(SixBaseAbsorbance)
LocateWavelength(SixSpectrumDark, 618, SixIntensityPeak1)
LocateWavelength(LowpHSpectrumDark, 618, LowIntensityPeak1)
SixPeakRatio1 := SixSpectrumDark[SixIntensityPeak1] /
LowpHSpectrumDark[LowIntensityPeak1]
LOG10(SixPeakRatio1, SixPeakAbsorbance1)
SixPeakAbsorbance1 := -(SixPeakAbsorbance1)
SixAbsorbance := SixPeakAbsorbance1 - SixBaseAbsorbance
LogArgumentSix := SixAbsorbance/(MaxAbsorbance - SixAbsorbance)
if(LogArgumentSix > 0.0) GOTO OK16
GOTO ABORT
LABEL OK16
LOG10(LogArgumentSix, LogTermSix)