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

A: Example Scripts
52 013-RD000-000-12- 201010
Call Refresh
GOTO TOP
LABEL QUIT
DisplayMsg("Ending$Session")
Pause(2)
END
//Menu to standardize
[Process GetStandards]
LABEL TOP
ShowMenu("Take Dark Ref","Take Low pH Ref","Take Max pH Ref","Back")
OnButtonClick(UserSelection,TimeOutSeconds)
If(UserSelection = 0) GOTO Dark
If(UserSelection = 1) GOTO Low
If(UserSelection = 2) GOTO Max
If(UserSelection = 3) GOTO EXIT
LABEL Dark
Call GetTheDarkRef
GOTO TOP
LABEL Low
Call GetTheLowRef
GOTO TOP
LABEL Max
Call GetTheMaxRef
GOTO TOP
LABEL EXIT
END
[Process MainMenu]
PassCount := 0