%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1748
File Name:GETDATA
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
" ":" ":" ":" ":" "
\Locate 1,1,"EA-100 Data Program"
\Locate 1,3,"Choose:"
\Locate 1,4,"1. New \Experiment"
\Locate 1,5,"2. \Download Data"
?\->C
C=2\=>\Goto9
\ClrText
" ":" ":" ":" "
\Locate 1,1,"Turn EA-100 unit on"
\Locate 1,2,"connect probe(s)"
\Locate 1,3,"\and then press EXE"\Disp\Locate 1,5,"Initialising..."
\ClrList
{0}\->\List 1
\Send(\List 1)
\ClrText
" ":" "
\Locate 1,1,"Number of samples"
\Locate 11,2,"(2 - 250)"
?\->N
N<2\=>2\->N
N>250\=>250\->N
\ClrText
" ":" "
\Locate 1,1,"Time between samples"
\Locate 6,2,"(.001s - 16000s)"
?\->T
T<.001\=>.001\->T
T>16000\=>16000\->T
" ":" "
\Locate 1,6,"Total time (s)="
\Locate 16,6,NT\Disp\ClrText
" ":" "
\Locate 1,1,"Checking mem\ory..."
{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
\Locate 10,2,"mem\ory OK"\Disp" ":" ":" "
\Locate 1,4,"Press EXE to start"
\Locate 1,5,"data sampling"\Disp{3,T,N,2,0}\->\List 1
\Send(\List 1)
\ClrText
" ":" ":" "
\Locate 1,1,"Sampling in progress"
\Locate 1,2,"Wait until DONE"
\Locate 1,3,"appears on EA-100."
\Goto8
\Lbl 9
\ClrText
" ":" ":" "
\Locate 1,1,"Check EA-100 is on"
\Locate 1,2,"with probes still"
\Locate 1,3,"connected"
\Lbl 8
" "
\Locate 1,4,"\Then press EXE..."\Disp\ClrText
\Locate 1,1,"R\Receiving data"
"Time....."
\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
"Data 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
"Data 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
"Data 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\ Or M=0\=>\Goto4
\ClrText
" ":" "
\Locate 1,1,"All data in"
\Locate 1,2,"EXE to graph..."\Disp\ClrGraph
\S-WindAuto
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Cross
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
P=1\=>\Goto3
\S-Gph2 \DrawOn,\Scatter,\List1,\List3,1,\Square
P=2\=>\Goto3
\S-Gph3 \DrawOn,\Scatter,\List1,\List4,1,\Dot
\Lbl 3
10T\->\Xscl
100\->\Yscl
\DrawStat
\Text 2,90,"DONE"
\Text 8,90,"EXE TO"
\Text 14,90,"CONTINUE"\Disp\Lbl 4
\ClrText
" "
\Locate 1,1,"Finished"
\Locate 1,2,"Again...... EXE"
\Locate 1,3,"See data... MENU,2"
\Locate 1,4,"End........ AC\slashON"
%End