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

A: Example Scripts
54 013-RD000-000-12- 201010
Pause(1)
GetSpectrum(0,DarkSpectrum)
DisplayMsg("Taking Dark$Reference")
Pause(2)
SetLampShutter(0,1)
SetLampIntensity(0,ALLBULBS,Light1)
END
[PROCESS GetTheLowRef]
// Prompts user to insert buffer sample, takes low reference
DisplayMsg("pH = 1 Buffer$Should Be$Present")
Pause(3)
GetSpectrum(0,LowpHSpectrum)
Sub(LowpHSpectrum, DarkSpectrum, LowpHSpectrumDark)
Pause(3)
END
[PROCESS GetTheMaxRef]
/// Prompts user to insert buffer sample, takes max reference
DisplayMsg("pH = 11 Buffer$Should Be$Present")
Pause(3)
GetSpectrum(0,MaxpHSpectrum)
Sub(MaxpHSpectrum, DarkSpectrum, MaxpHSpectrumDark)
OpenFile(MaxFile, ForWrite)
WriteSpectrum(MaxFile,MaxpHSpectrumDark)
CloseFile(MaxFile)
OpenFile(DarkFile, ForWrite)
WriteSpectrum(DarkFile,DarkSpectrum)
CloseFile(DarkFile)