%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:324
File Name:LIGHT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
"HOW MANY POINTS"?\->N
\Seq(0,X,1,N,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\For 1\->I \To N \Step 1
"ENTER DISTANCE"
?\->\List 1[I]
"ENTER TRIGGER KEY ON THE EA-100"
{3,.01,5,0,1}\->\List 6
\Send(\List 6)
"THEN PRESS [EXE]"\Disp\Receive(\List 3)
(\Sum \List 3-\Max(\List 3)-\Min(\List 3))/3\->\List 2[I]
\Next 
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,15,"INTENSITY"
\Text 55,80,"DISTANCE"

%End