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

A: Example Scripts
013-RD000-000-12- 201010 57
QuickAbsorbance1 := QuickPeakAbsorbance1 - QuickBaseAbsorbance
if(QuickAbsorbance1 >= QuickAbsorbance) GOTO AssignQuick
If(iMax1 < 645) GOTO Loop2
GOTO Calculate2
LABEL AssignQuick
QuickAbsorbance := QuickAbsorbance1
QuickPeak := QuickIntensityPeak1
GOTO Loop2
LABEL Calculate2
LogArgumentRefresh := QuickAbsorbance/(MaxAbsorbance - QuickAbsorbance)
if(LogArgumentRefresh> 0.0) GOTO OK6
GOTO ABORT
Label OK6
LOG10(LogArgumentRefresh, LogTermRefresh)
pK := -(1.9287 * LogTermRefresh) + 7.069
Slope := 11.19225 / pK
DisplayMsg("Quick Reset$Successful")
Pause(2)
Display("pK = ",pK,"")
Pause(2)
Display("Slope = ",Slope,"")
Pause(2)
GOTO TOP
Label ABORT
DisplayMsg("Internal$Math$ERROR")
Pause(2)
GOTO TOP
//Full four buffer calibration
LABEL Full