%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1401
File Name:TIMEDPGM
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Cls
"VIRGINIA COMMONWEALTH UNIVERSITY 10\slash98"
" "
"Use this program when you want to collect samples over time."
"  "
"NUMBER OF SAMPLES"?\->A
"TIME BETWEEN SAMPLES (SEC)"?\->B
"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
{0}\->\List6:\Send(\List6)
{1,0}\->\List6:\Send(\List6)
\Cls
{1,1,10}\->\List6:\Send(\List6)
\If C=4:\Then \Goto4:\IfEnd
{4,1,1,0,R,S}\->\List6:\Send(\List6)
\Lbl 4
{3,B,A,1}\->\List6:\Send(\List6)
\ClrText
"PRESS [TRIGGER] TO"
"COLLECT DATA."
\Locate 16,7,"[EXE]"\Disp\Receive(\List1)
\Receive(\List2)
\If C=2
\Then \List 2[1]\->Q:1000*(\List 2-Q)/9.8\->\List 2
\IfEnd
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Green 
\DrawStat
\Text 4,2,"DV"
\Text 58,105,"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]"
\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