%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1239
File Name:GETDATA
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Choose:"
"1 New \Expt"
"2 \Download"
?\->C
C=2\=>\Goto9
\ClrText
"Turn on, plugin probes,   press EXE"\Disp"Initialising"
\ClrList
{0}\->\List 1
\Send(\List 1)
\ClrText
"No of samples"
"2\->250"
?\->N
N<2\=>2\->N
N>250\=>250\->N
"Time between"
"samples"
".001\->16000s"
?\->T
T<.001\=>.001\->T
T>16000\=>16000\->T
"Tot time (s)"
(N-1)T\Disp\ClrText
"Mem Check..."
{7}\->\List 1
\Send(\List 1)
\Receive(\List 1)
\Dim \List 1-6\->P
\Seq(0,I,1,N,1)\->\List 1
\List 1\->\List 2
P=1\=>\Goto1
\List 1\->\List 3
P=2\=>\Goto1
\List 1\->\List 4
\Lbl 1
"Mem OK"\Disp" "
"EXE to start"
"sampling"\Disp{3,T,N,2,0}\->\List 1
\Send(\List 1)
\ClrText
"Sampling..."
"WAIT FOR DONEON EA-100"
\Goto8
\Lbl 9
\ClrText
"Check EA-100"
"on with same"
"probes still"
"connected"
\Lbl 8
"\Then EXE..."\Disp\ClrText
"Incoming dataTime..."
\Receive(\List 1)
\Dim \List 1\->N
\If C=2
\Then 3\->V
\List 1[2]\->T
\List 1[1]>1\EE\(-)4\=>2\->V
\Int (T*10^(V+1))\->T
\Int (T/10)\->W
T-10W\>=5\=>W+1\->W
W/10^V\->T
{7}\->\List 1
\Send(\List 1)
\Receive(\List 1)
\Dim \List 1-6\->P
\IfEnd
\Seq(I,I,0,T(N-1),T)\->\List 1
"\@F79A 1..."
\Receive(\List 2)
2-\Int \log \Abs \Max(\List 2)\->R
R>2\=>2\->R
R<0\=>0\->R
\Int (10^R*\List 2+.5)/10^R\->\List 2
\Max(\List 2)-\Min(\List 2)\->M
P=1\=>\Goto2
"\@F79A 2..."
\Receive(\List 3)
2-\Int \log \Abs \Max(\List 3)\->R
R>2\=>2\->R
R<0\=>0\->R
\Int (10^R*\List 3+.5)/10^R\->\List 3
\Max(\List 3)-\Min(\List 3)+M\->M
P=2\=>\Goto2
"\@F79A 3..."
\Receive(\List 4)
2-\Int \log \Abs \Max(\List 4)\->R
R>2\=>2\->R
R<0\=>0\->R
\Int (10^R*\List 4+.5)/10^R\->\List 4
\Max(\List 4)-\Min(\List 4)+M\->M
\Lbl 2
N=1\=>\Goto4
M=0\=>\Goto4
\ClrText
"All data in"
"EXE to graph"\Disp\ClrGraph
\S-WindAuto
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Cross
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
P=1\=>\Goto3
\S-Gph2 \DrawOn,\xyLine,\List1,\List3,1,\Square
P=2\=>\Goto3
\S-Gph3 \DrawOn,\xyLine,\List1,\List4,1,\Dot
\Lbl 3
10T\->\Xscl
100\->\Yscl
\DrawStat\Disp\Lbl 4
\ClrText
"Finished"
"Again-EXE"
"\@F79A -MENU,2"
"End  -AC\slashON"

%End