%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:595
File Name:RESPIRE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\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"
" Press EXE"\Disp\Prog "PHCAL"
\Do
\ClrText
" PREPARE"
" SETUP."
" Press EXE"
" WHEN READY"\Disp\ClrText
" Press EXE"
" THEN BLOW"
" INTO WATER"\Disp{3,1,60,1,0}\->\List 6
\Send(\List 6)
\ClrText
"KEEP BLOWING"
" INTO WATER."
" Press EXE"
" WHEN 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
\S-WindMan
61\->K
\(-)(K/4)\->\Xmin
K\->\Xmax
(B-2*S)\->\Ymin
(C+2*S)\->\Ymax
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Square
\Cls
\DrawStat\Disp\IfEnd
\ClrText
" RUN AGAIN?"
" 1: Yes"
" 2: No"
?\->R
\LpWhile R=1
\ClrText
" DATA STORED"
" in Lists:"
" \List 1=Time"
" \List 2=pH"
" \Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1149
File Name:PHCAL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
{0}\->\List 6
\Send(\List 6)
{1,1,10}\->\List 6
\Send(\List 6)
" 1: EA-100"
" 2: EA-200"
" USING WHICH"
" ANALYZER?"
?\->E
\If E=2
\Then {10,1}\->\List 6
\Send(\List 6)
\IfEnd
\Lbl 2
\ClrText
"CALIBRATION?"
"1: CAL. NOW"
"2: DEFAULT"
"3: MANUAL"
?\->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
0\->Q
\If C<1
\Then 1\->Q
\IfEnd
\If C>3
\Then 1\->Q
\IfEnd
\If Q=1
\Then \ClrText
" 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 "
" Points?"
" 2\<=N\<=255"
?\->N
0\->Q
\If N\<=255
\Then \If N\>=2
\Then \If \Int N=N
\Then 1\->Q
\IfEnd
\IfEnd
\IfEnd
\If Q=0
\Then \ClrText
"INVALID "
"ENTRY\!mark"
"Press EXE"\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
"Put 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 EA-100"
"when reading"
"stabilizes"
\Else "Start"
"on EA-200 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"
"true 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

%End