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

A: Example Scripts
56 013-RD000-000-12- 201010
GOTO EXIT
LABEL Manual
//Not yet a feature in Scriptor
DisplayMsg("Not yet a$usable feature")
Pause(2)
GOTO TOP
//Quick single buffer calibration
LABEL Quick
DisplayMsg("Make sure Dark,$Low, and Max Refs$have been taken")
Pause(3)
DisplayMsg("pH = 7 Buffer$Should Be$Present")
Pause(2)
GetSpectrum(SPECTROMETER_CHANNEL_NUMBER, QuickSpectrum)
Sub(QuickSpectrum, DarkSpectrum, QuickSpectrumDark)
iMax1 := 596
LocateWavelength(QuickSpectrumDark, 750, QuickIntensityBase)
LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)
QuickBaseRatio := QuickSpectrumDark[QuickIntensityBase] /
LowpHSpectrumDark[LowIntensityBase]
LOG10(QuickBaseRatio, QuickBaseAbsorbance)
QuickBaseAbsorbance := -(QuickBaseAbsorbance)
QuickAbsorbance := 0
LABEL Loop2
iMax1 := iMax1 + 1
LocateWavelength(QuickSpectrumDark, iMax1, QuickIntensityPeak1)
LocateWavelength(LowpHSpectrumDark, iMax1, LowIntensityPeak1)
QuickPeakRatio1 := QuickSpectrumDark[QuickIntensityPeak1] /
LowpHSpectrumDark[LowIntensityPeak1]
LOG10(QuickPeakRatio1, QuickPeakAbsorbance1)
QuickPeakAbsorbance1 := -(QuickPeakAbsorbance1)