%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2788
File Name:GETPH
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,1}\->\List 6:\Send(\List 6):{4,1,1,0,B,A}\->\List 6:\Send(\List 6):{3,.3,\(-)1,0,1}\->\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,1}\->\List 6:\Send(\List 6):{4,1,1,0,B,A}\->\List 6:\Send(\List 6)
{3,T-.27,\(-)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 EA100":\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
{0}\->\List 6:\Send(\List 6):{1,1,1}\->\List 6:\Send(\List 6):{3,.3,\(-)1,0,0}\->\List 6:\Send(\List 6)
\For 1\->I \To B
\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 16:Sept:99"
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