%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2345
File Name:EASY200
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,1,"EA-200 data program"
\Locate 1,3,"Choose:"
\Locate 3,4,"F1: new experiment"
\Locate 3,5,"F2: download data"
\Locate 3,6,"F3: r\Repeat current"
\Locate 3,7,"F6: quit"
\Do:\Getkey\->C:\LpWhile C=0
\ClrText
\If C=79\ Or C=59
\Then \If C=79
\Then \Locate 1,2,"Turn EA-200 unit on"
\Locate 1,3,"connect probe(s)"
\Locate 1,4,"\and then press EXE"\Disp\ClrText
\Locate 1,2,"\Next  choose"
\Locate 1,3,"com\Bin>ination of"
\Locate 1,4,"channels to which"
\Locate 1,5,"probes connected"
\Locate 14,7,"[EXE]..."\Disp\ClrText
\Locate 1,1,"Choose channels:"
\Locate 2,2,"F1: 1"
\Locate 2,3,"F2: 1,2"
\Locate 2,4,"F3: 1,2,3"
\Locate 2,5,"F4: Sonic"
\Locate 2,6,"F5: 1,Sonic"
\Locate 2,7,"F6: 1,2,Sonic"
\Do:\Getkey\->F:\LpWhile F=0
\ClrText
\IfEnd
{0,0,0,0}\->\List 6
F=79\=>{1}\->\List 6
F=69\=>{1,2}\->\List 6
F=59\=>{1,2,3}\->\List 6
F=49\=>{4}\->\List 6
F=39\=>{1,4}\->\List 6
F=29\=>{1,2,4}\->\List 6
\Dim \List 6\->P
\If P>3
\Then \Locate 1,1,"Start again. Choose"
\Locate 1,2,"one of the F keys."
\Locate 1,3,"Program finished."
\Stop
\IfEnd
\Locate 1,2,"Initialising..."
{0}\->\List 1
\Send(\List 1)
\For 1\->I \To P
\List 6[I]\->J
{1,J,1}\->\List 1
\Send(\List 1)
\Next 
\ClrList
\If C=79
\Then \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,"(.00002s - 16000s)"
?\->T
T<.00002\=>.00002\->T
T>16000\=>16000\->T
" ":" "
\Locate 1,6,"Total time (s)="
\Locate 16,6,NT\Disp\ClrText
" ":" "
\Locate 1,1,"Checking mem\ory..."
\Seq(0,I,1,N,1)\->\List 1
\List 1\->\List 2
P=2\=>\List 1\->\List 3
P=3\=>\List 1\->\List 4
\Locate 10,2,"Mem\ory OK"
" ":" ":" "
\IfEnd
79\->C
{3,T,N,2,\(-)1}\->\List 1
\Send(\List 1)
\Locate 1,4,"Press EXE to start"
\Locate 1,5,"data sampling"\Disp{8}\->\List 1
\Send(\List 1)
\ClrText:" ":" ":" ":" ":" "
\Locate 1,2,"Sampling in progress."
\Locate 1,3,"Wait until Sampling"
\Locate 1,4,"light goes off on"
\Locate 1,5,"EA-200"
\IfEnd
\If C=69
\Then " "
\Locate 1,1,"How many lists (1-3)?"
?\->P:" ":" "
\Locate 1,4,"Check EA-200 is on"
\IfEnd
\If C=79\ Or C=69
\Then " "
\Locate 1,6,"\and then press EXE..."\Disp\ClrText
\Locate 1,1,"R\Receiving data"
"Time....."
\Receive(\List 1)
\Dim \List 1\->N
\If C=69
\Then 3\->V
\List 1[2]\->S
\List 1[1]>1\EE\(-)4\=>2\->V
\Int (S*10^(V+1))\->S
\Int (S/10)\->W
S-10W\>=5\=>W+1\->W
W/10^V\->S
\Else T\->S
\IfEnd
\Seq(I,I,0,S(N-1),S)\->\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
\If P\>=2
\Then "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
\IfEnd
\If P=3
\Then "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
\IfEnd
\ClrText
\If \Not (N=1\ Or M=0)
\Then \ClrGraph
\S-WindAuto
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Cross
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
P\>=2\=>\S-Gph2 \DrawOn,\xyLine,\List1,\List3,1,\Square
P=3\=>\S-Gph3 \DrawOn,\xyLine,\List1,\List4,1,\Dot
10T\->\Xscl
100\->\Yscl
\DrawStat
\Text 2,90,"\Done"
\Text 8,90,"EXE TO"
\Text 14,90,"CONTINUE"\Disp\Else \Locate 1,3,"\Graph  \Not drawn as"
\Locate 1,4,"data  \Not suitable."\Disp\IfEnd
\IfEnd
\ClrText:" ":" "
\Locate 1,1,"Finished"
\Locate 1,2,"End........ AC\slashON"
\If C=79\ Or C=69
\Then " ":" "
\Locate 1,3,"Again...... EXE"
\Locate 1,4,"See data... MENU

%End