%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2837
File Name:EA2PH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A~Z
60\->N
1\->T
\(-)3.838\->A
13.72\->B
14\->G
{0}\->\List 1
{0}\->\List 2
\Do
\BG-None
\ClrText
\Cls
\ViewWindow 1,127,0,63,1,0
\Text 1,1,"GET pH"
\Text 13,1,"pH probe only in CH1"
\Text 19,1,"Samples"
\Text 25,1,"Interval"
\Text 31,1,"Tot time"
\Text 37,1,"\Ymin"
\Text 43,1,"\Ymax"
2\->L
\Goto1
\Lbl 2
\For 2\->I \To 107 \Step 21
\Green \F-Line I,63,I,56
\Green \F-Line I,56,I+18,56
\Next 
\Orange \Text 50,1,"                               "
\Green \Text 58,4," Go "
\Green \Text 58,25,"Grph"
\Green \Text 58,46,"Cal "
\Green \Text 58,67,"Set "
\Green \Text 58,88,"    "
\Green \Text 58,109,"Exit "
\PxlOn 1,1
\Do
8-\Int (\Getkey/10)\->K
\LpWhile K=8
\If K=1
\Then \Orange \Text 50,1,"Wait!..."
\ClrList
\Green \Text 58,4,"    "
\Green \Text 58,25,"    "
\Green \Text 58,46,"    "
\Green \Text 58,67,"    "
\Green \Text 58,88,"    "
\Green \Text 58,109,"    "
\PxlOn 1,1
\Seq(IT,I,1,N,1)\->\List 1
0\List 1\->\List 2
{0}\->\List 6
\Send(\List 6)
{1,1,10}\->\List 6
\Send(\List 6)
{10,\(-)2}\->\List 6
\Send(\List 6)
{4,1,1,0,B,A}\->\List 6
\Send(\List 6)
{3,.7,\(-)1,0,0}\->\List 6
\Send(\List 6)
\Orange \Text 50,1,"F1 to start when steady"
\Green \Text 58,4," Go "
\PxlOn 1,1
\Do
\Receive(V)
\Text 50,100,V
8-\Int (\Getkey/10)\->I
\LpWhile I\<>1
{0}\->\List 6
\Send(\List 6)
{1,1,10}\->\List 6
\Send(\List 6)
{10,\(-)2}\->\List 6
\Send(\List 6)
{4,1,1,0,B,A}\->\List 6
\Send(\List 6)
{3,T,\(-)1,0,0}\->\List 6
\Send(\List 6)
\ViewWindow 1,NT,1,F,G,1
\AxesOff
\Cls
\F-Line 1,F,1,G
\F-Line D,F,NT,F
\Text 1,4,G
\Text 57,4,F
\Text 1,59,"pH"
\Receive(V)
V\->\List 2[1]
\Text 1,82,"Sample 1"
\PxlOn 1,1
\For 2\->I \To N
\Receive(V)
\F-Line (I-1)T,\List 2[I-1],IT,V
V\->\List 2[I]
\Text 1,111,I
\PxlOn 1,1
\Next 
{0}\->\List 6
\Send(\List 6)
\Text 58,110,"[EXE]"\Disp\IfEnd
\If K=2\ And \Max(\List 1)-\Min(\List 1)\<>0\ And \Max(\List 2)-\Min(\List 2)\<>0
\Then \S-WindAuto
\AxesOn
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\DrawStat
\Text 50,109,"[EXE]"\Disp\AxesOff
\IfEnd
\If K=4
\Then \Orange \Text 50,1,"SETUP"
\Green \Text 58,4,"Rset"
\Green \Text 58,25,"Smpl"
\Green \Text 58,46,"Intv"
\Green \Text 58,67,"\Yscl"
\Green \Text 58,109,"\Done"
\PxlOn 1,1
\Do
\Do
8-\Int (\Getkey/10)\->J
\LpWhile J=8
\If J=1
\Then 60\->N
1\->T
\(-)3.838\->A
13.72\->B
0\->C
0\->F
14\->G
\IfEnd
\If J=2
\Then \ClrText
" "
\Locate 1,1,"Number of samples"
" "
\Locate 1,2,"Type number, then EXE"
" "
\Locate 1,3,"[2 to 255]"
?\->N
N<2\=>2\->N
N>255\=>255\->N
\IfEnd
\If J=3
\Then \ClrText
" "
\Locate 1,1,"Time (seconds)"
" "
\Locate 1,2,"between samples"
" "
\Locate 1,3,"Type number, then EXE"
" "
\Locate 1,4,"[1 to 16000]"
?\->T
T<1\=>1\->T
T>16000\=>16000\->T
\IfEnd
\If J=4
\Then \ClrText
1\->D
N\->E
" "
\Locate 1,1,"\Vertical graph scl"
" "
" "
\Locate 1,3,"\Ymin \-> \Ymax"
"\Ymin"?\->F
"\Ymax"?\->G
\IfEnd
4\->L
J\<>6\=>\Goto1
\Lbl 4
\LpWhile J\<>6
\IfEnd
\If K=3
\Then \ClrText
" "
\Locate 1,1,"Calibrate probe..."
\Locate 1,3,"1st remove all other"
\Locate 1,4,"probe(s) from EA200"
\Locate 8,7,"\Then press EXE"
\Do
\Getkey\->W
\LpWhile W\<>31
\ClrText
" "
\Locate 1,1,"Calibration expt"
" "
\Locate 1,2,"to find a,b: y=ax+b"
" "
\Locate 1,3,"How many cal. points"
?\->B
\Seq(0,X,1,B,1)\->\List 3
\List 3\->\List 4
\For 1\->I \To B
{0}\->\List 6
\Send(\List 6)
{1,1,10}\->\List 6
\Send(\List 6)
{10,\(-)2}\->\List 6
\Send(\List 6)
{3,1,\(-)1,0,0}\->\List 6
\Send(\List 6)
\ClrText
" "
\Locate 1,1,"Point"
\Locate 7,1,I
\Locate 10,1,"Wait f\or"
" "
\Locate 1,2,"steady reading then"
" "
\Locate 1,3,"long press EXE"
" "
\Locate 1,4,"reading="
\Do
\Receive(V)
\Locate 10,4,"         "
\Locate 10,4,V
\Getkey\->W
\LpWhile W\<>31
V\->\List 3[I]
"\aster rec\orded \aster"
"Value"?\->\List 4[I]
\Next 
{0}\->\List 6
\Send(\List 6)
\LinearReg \List3,\List4
\Ra\->A
\Rb\->B
1\->C
\ClrText
\Locate 1,2,"Using y=ax+b coeffs"
\Locate 1,4,"a="
\Locate 3,4,\Ra
\Locate 1,5,"b="
\Locate 3,5,\Rb
\Locate 9,7,"EXE to cont.."
\Do
\Getkey\->W
\LpWhile W\<>31
\IfEnd
\LpWhile K\<>6
\Cls
\Orange \Text 20,47,"GET pH"
\Orange \Text 33,7,"(C) Charlie Watson 15:Mar:04"
107\->I
\Green \F-Line I,63,I,56
\Green \F-Line I,56,I+18,56
\Green \Text 58,109," OK"
\PxlOn 1,1
\Do
8-\Int (\Getkey/10)\->H
\LpWhile H\<>6
\Cls
\ClrText
\Stop
\Lbl 1
\If C=1
\Then \Orange \Text 7,1,"Using Calib Eqn"
\Else \Orange \Text 7,1,"               "
\IfEnd
\For 19\->I \To 43 \Step 6
\Text I,40,"            "
\Next 
\Text 19,40,N
\Text 25,40,T
\Text 31,40,TN
\Text 37,40,F
\Text 43,40,G
\PxlOn 1,1
L=2\=>\Goto2
L=4\=>\Goto4

%End