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

A: Example Scripts
013-RD000-000-12- 201010 51
Light1 := 4000
LABEL LightLoop
SetLampIntensity(0,ALLBULBS,Light1)
GetSpectrum(0,LightSpectrum)
LocateWavelength(LightSpectrum,566,LightPeak)
IF(LightSpectrum[LightPeak] > 32000) GOTO Again
GOTO EndLight
LABEL Again
Light1 := Light1 - 100
SetLampIntensity(0,ALLBULBS,Light1)
GOTO LightLoop
LABEL EndLight
DisplayMsg("Light adjustment$complete")
Pause(2)
Display("Max Int = ",LightSpectrum[LightPeak],"")
Pause(2)
// Main User Interface
Label Top
CALL MainMenu
If(UserChoice = 0) GOTO Standardize
If(UserChoice = 1) GOTO VIEW
If(UserChoice = 2) GOTO RefreshpK
GOTO QUIT
LABEL Standardize
CALL GetStandards
GOTO TOP
LABEL View
Call ViewpH
GOTO TOP
LABEL RefreshpK