%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:884
File Name:PHCAL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\G-Connect
\FuncOn
\Y=Type
\CoordOn
\GridOff
\AxesOff
\LabelOff
\ClrText
\ClrGraph
\S-WindMan
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Cls
\ClrList
\Text 41,30,"BUFFER SOLUTIONS"
\Text 57,15,"PRESS [EXE] TO CONTINUE"\Disp\AxesOn
"PLEASE CHECK THE"
"EQUIPMENT SET UP"
"BEFORE CONTINUING."
\Locate 16,7,"[EXE]"\Disp\ClrText
"BE SURE TO"
"CAREFULLY FOLLOW"
"THE SCREEN"
"INSTRUCTIONS."
\Locate 16,7,"[EXE]"\Disp\ClrText
"YOU ARE NOW"
"READY TO BEGIN"
"THE CALIBRATION."
\Locate 16,7,"[EXE]"\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{0,0,0}\->\List 1
\For 1\->I \To 3
\ClrText
"RINSE ELECTRODE"
"AND PLACE IN THE"
\If I=1:\Then "PH 4.2 BUFFER SOLUTION.":\IfEnd
\If I=2:\Then "PH 7 BUFFER SOLUTION.":\IfEnd
\If I=3:\Then "PH 9 BUFFER"
"SOLUTION.":\IfEnd
\Locate 16,7,"[EXE]"\Disp\ClrText
"WHEN EA-100 DISPLAY"
"STABILIZES,"
"PRESS [TRIGGER]."
{3,.25,1,0}\->\List 6
\Send(\List 6)
\Locate 16,7,"[EXE]"\Disp\Receive(A):A\->\List 1[I]
\Next 
{4.2,7,9}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
{3,1,\(-)1}\->\List 6
\Send(\List 6)\Disp\ClrText
"THE CALIBRATION"
"IS COMPLETE."
"A=":\Ra\Disp"B=":\Rb\Disp"Ko=":\Rb\Disp"K1=":\Ra\Disp\Locate 16,7,"[EXE]"\Disp\ClrText
"YOU ARE READY"
"TO BEGIN THE"
"EXPERIMENT."
\Locate 16,7,"[EXE]"\Disp
%End