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

A: Example Scripts
013-RD000-000-12- 201010 53
LABEL TOP
ShowMenu("Standardize","View pH","Refresh pK","Exit")
OnButtonClick(UserSelection,TimeOutSeconds)
If(UserSelection <> 0) GOTO Check1
UserChoice := 0
GOTO EXIT
LABEL Check1
If(UserSelection <> 1) GOTO Check2
UserChoice := 1
GOTO EXIT
LABEL Check2
If(UserSelection <> 2) GOTO Check3
UserChoice := 2
GOTO EXIT
LABEL Check3
If(UserSelection <> 3) GOTO Bummer
UserChoice := 3
GOTO EXIT
LABEL bummer
PassCount := PassCount + 1
If(PassCount > MaxPasses) GOTO QUIT
DisplayMsg("Please select$something")
Pause(10)
GOTO TOP
LABEL QUIT
UserSelection := -1
LABEL EXIT
END
[PROCESS GetTheDarkRef]
// Turns off lamp, takes dark reference, repowers lamp, adjusts IntTime
SetLampIntensity(0,ALLBULBS,0)
SetLampShutter(0,0)