%Header Record
Format:MCS1
Type Number:1
File Name:RESPIRE
Option Name:
Communication SW:0
Capacity:762
Data Type:PG
%Data Record
Password:
BaseN:0
\Fix 2
\ClrText
\ClrList
1\->A
0\->I
.01\->E
0\->J
0\->K
\Seq(0,X,1,60,1)\->\List 1
\Seq(0,X,1,60,1)\->\List 2
" respiration of CO2"
" \Experiment"
" Press EXE"\Disp\Prog "PHCAL"
\Do
\ClrText
" Prepare Setup"
" Press EXE when"
" ready."\Disp\ClrText
" Press EXE, then"
" blow slowly into"
" the water"\Disp{3,1,60,1,0}\->\List 6
\Send(\List 6)
\ClrText
" Keep blowing gently"
" into water."
" Press EXE when"
" Sampling is done"\Disp\Receive(\List 1)
\Receive(\List 2)
\ClrText
" \Graph data?"
" 1: YES"
" 2: NO"
?\->G
\If G=1
\Then \Min(\List 2)\->B
\Max(\List 2)\->C
\If B=C
\Then .01\->S
\Else (C-B)/5\->S
\IfEnd
\FuncOff
\S-WindMan
61\->K
\(-)(K/4)\->\Xmin
K\->\Xmax
(B-2*S)\->\Ymin
(C+S)\->\Ymax
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Square
\Cls
\DrawStat
\If B=C
\Then B-.01\->B
C+.01\->C
\IfEnd
(\Int (100*B)/100)\->B
(\Int (100*C)/100)\->C
\Text 1,1,"pH"
\Text 8,1,C
\Text 44,1,B
\Text 50,90,"Time"\Disp\IfEnd
\ClrText
" Another Trial?"
" 1: Yes"
" 2: No"
?\->R
\LpWhile R=1
\ClrText
" DATA St\ored"
" in Lists:"
" \List 1 = Time"
" \List 2 = pH"
" Program \Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PHCAL
Option Name:
Communication SW:0
Capacity:1215
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
{0}\->\List 6
\Send(\List 6)
{1,1,10}\->\List 6
\Send(\List 6)
" 1: EA-100"
" 2: EA-200"
" Which Analyzer"
" are you using?"
?\->E
\If E=2
\Then {10,1}\->\List 6
\Send(\List 6)
\IfEnd
\Lbl 2
\ClrText
"Choose Calibration"
"1: Calibrate Now"
"2: Default"
"3: Manual Entry"
?\->C
\If C=1
\Then \Goto1
\IfEnd
\If C=2
\Then -3.305\->A
15.833\->B
\IfEnd
\If C=3
\Then \ClrText
" Enter A"
" Coefficient"
?\->A
\ClrText
" Enter B"
" Coefficient"
?\->B
\IfEnd
\If C<1\ Or C>3
\Then \ClrText
" Err\or!mark"
" Choose 1,2 \or 3"
" Press EXE"\Disp\Goto2
\IfEnd
\If E=1
\Then {9,1,1,A,B}\->\List 6
\Else {4,1,1,0,B,A}\->\List 6
\IfEnd
\Send(\List 6)
\ClrText
\Goto3
\Lbl 1
\ClrText
0\->Q
\Do
"      How many    "
"Calibration Points?"
"      2\<=N\<=255"
?\->N
\If (N\<=255\ And N\>=2\ And \Int N=N)
\Then 1\->Q
\Else \ClrText
"Please enter a"
"Valid Number"
"Press EXE to"
"Try again"\Disp\ClrText
\IfEnd
\LpWhile Q=0
\ClrText
\Seq(0,K,1,N,1)\->\List 2
\Seq(0,K,1,N,1)\->\List 3
\For 1\->K \To N \Step 1
\ClrText
"Place probe in"
\If K=1
\Then "First"
\Else "\Next "
\IfEnd
"Solution"
"Press EXE"\Disp{3,1,1,0,1}\->\List 6
\Send(\List 6)
\ClrText
"Press"
\If E=1
\Then 
"Trigger"
"on data analyzer"
"when reading"
"stabilizes"
\Else 
"Start"
"on data analyzer"
"to take reading."
" "
\Do
{7}\->\List 6
\Send(\List 6)
\For 1\->I \To 100
\Next 
\Receive(A)
\LpWhile A\<>3
\IfEnd
\If E=1
\Then {2,1}\->\List 6
\Send(\List 6)
\IfEnd
\ClrText
\Receive(\List 4)
\Mean\List 4)\->\List 3[K]
\ClrText
"Enter"
"C\orrect pH"
"Value"
?\->B
B\->\List 2[K]
\Next 
\LinearReg \List 3,\List 2
0\->B
\ClrText
"Y=AX+B"
"A:="
\Ra\Disp"B:="
\Rb\Disp\If E=2
\Then 
{4,1,1,0,\Rb,\Ra}\->\List 6
\Send(\List 6)
\Else 
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\IfEnd
\Lbl 3
\ClrText
" Calibration"
" Loaded."
" Press EXE"\Disp\Return
\@00
%End