%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1540
File Name:TRIGGER
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Cls
"VIRGINIA COMMONWEALTHUNIVERSITY 10\slash98"
"  "
"Use this program whenyou want to trigger  each sample."
"  "
"HOW MANY SAMPLES"?\->N
"TYPE OF PROBE (1=PH, 2=FORCE 3=PRESSURE"
"4=MICROPHONE)"?\->C
\If C=1
\Then "DO YOU WANT TO":"1.CALIBRATE, OR"
"2.USE STORED"
"CONSTANTS"?\->D
\Goto3:\IfEnd
\If C=2
\Then 9.8\->R:\(-)9.8\->S:"FIRST MEASUREMENT":"MUST HAVE NO FORCE":"APPLIED":\Goto1:\IfEnd
\If C=3
\Then "SELECT PRESSURE UNITS":"1=ATM, 2=PSI, 3=MM HG, 4=KPA":?\->P:\Goto2:\IfEnd
\Lbl 1
\Seq(0,X,1,N,1)\->\List1
\Seq(0,X,1,N,1)\->\List2
{0}\->\List6
\Send(\List6)
{1,1,10}\->\List6
\Send(\List6)
\If C=4:\Then \Goto4:\IfEnd
{4,1,1,0,R,S}\->\List6
\Send(\List6)
\Lbl 4
\For 1\->I \To N \Step 1
\ClrText
"ENTER VALUE OF SAMPLE OR 1 FOR FIRST,      2 FOR SECOND,..."
?\->\List 1[I]
\ClrText
"PRESS TRIGGER NOW"
{3,.01,5,0,1}\->\List6
\Send(\List6)
"Wait until EA-100"
"says done, then press"
"                [EXE]"\Disp\Receive(\List3)
(\Sum \List 3-\Max(\List 3)-\Min(\List 3))/3\->\List 2[I]
\Next 
\If C=2
\Then \List 2[1]\->Q:1000*(\List 2-Q)/9.8\->\List 2
\IfEnd
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,15,"DV"
\Text 55,80,"IV"
\Stop
PRESSURE UNITS MENU
\Lbl 2
\If P=1:\Then 0\->R:2.203\->S:\Goto1:\IfEnd
\If P=2:\Then 0\->R:32.37\->S:\Goto1:\IfEnd
\If P=3:\Then 0\->R:1674.28\->S:\Goto1:\IfEnd
\If P=4:\Then 0\->R:223.16\->S:\Goto1:\IfEnd
\Lbl 3
\If D=2:\Then 13.72\->R:\(-)3.838\->S:\Goto1:\IfEnd
\If D=1:\Then {1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{0,0,0}\->\List 1
\For 1\->I \To 3
\ClrText
"RINSE ELECTRODE"
"AND PLACE IN THE"
\If I=1:\Then "PH 4 BUFFER SOLUTION.":\IfEnd
\If I=2:\Then "PH 7 BUFFER SOLUTION.":\IfEnd
\If I=3:\Then "PH 10 BUFFER SOLUTION.":\IfEnd
\Locate 16,7,"[EXE]"\Disp\ClrText
"WHEN EA-100 DISPLAY"
"STABILIZES,"
"PRESS [TRIGGER]."
{3,.25,1,0}\->\List 6
\Send(\List 6)
\Locate 16,7,"[EXE]"\Disp\Receive(E):E\->\List 1[I]
\Next 
{4,7,10}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\ClrText
"THE CALIBRATION"
"IS COMPLETE."
\Locate 16,7,"[EXE]"\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"COLLECT PH DATA"
\Locate 16,7,"[EXE]"\Disp\ClrText
\Goto1

%End