%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:4650
File Name:UNKN200
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\FuncOn
\Y=Type
\CoordOn
\GridOff
\AxesOff
\SimulOff
\LabelOff
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\File1
\ClrList
\ViewWindow 0,128,1,64,0,1
\Plot 30,3
\Plot 23,12
\Orange \Line
\Plot 4,12
\Orange \Line
\Plot 21,22
\Orange \Line
\Plot 13,36
\Orange \Line
\Plot 31,26
\Orange \Line
\Plot 47,36
\Orange \Line
\Plot 40,22
\Orange \Line
\Plot 59,12
\Orange \Line
\Plot 35,12
\Orange \Line
\Plot 30,3
\Orange \Line
\Orange \Text 17,19,"HARONA"
\Plot 55,21
\Plot 123,21
\Line
\Plot 123,45
\Line
\Plot 55,45
\Line
\Plot 55,21
\Line
\Text 24,66,"DETERMINING"
\Text 31,62,"CONCENTRATION"
\Text 38,58,"WITH THE EA-200"
\Plot 0,55
\Plot 128,55
\Line
\Plot 0,56
\Plot 128,56
\Line
\Text 57,3,"By B. BARONA \and A. Harradine"
\Green \Text 45,13,"PUSH [EXE]"\Disp\AxesOn
0\->Z
0\->\theta
1\->C
0\->O
0\->L
1\->K
[[0]]\->\Mat A
\Seq(0,X,0,10,1)\->\List 5
\ClrGraph
\ClrText
"CONNECT THE CFX-9850 TO THE EA-200."
"PRESS EACH LINK END  IN FIRMLY AND TURN   THE EA-200 ON."
\Locate 16,7,"[EXE]"\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
\ClrText
"PLUG THE COLORIMETER INTO CHANNEL ONE"
\Locate 16,7,"[EXE]"\Disp\ClrText
0\->F
"Perf\orm a new"
"calibration each"
"time you use the"
"Col\orimeter."
\Locate 16,7,"[EXE]"\Disp\ClrText
"Also perf\orm a new"
"calibration each"
"time you change"
"the wavelength."
\Locate 16,7,"[EXE]"\Disp\ClrText
1\->F
"Calibrate now,"
"turn wave length"
"knob to 0 percent T"
\Locate 16,7,"[EXE]"\Disp{1,1,1}\->\List 6
\Send(\List 6)
{0,0}\->\List 1
{0,0}\->\List 2
\ClrText
"We will now determinethe voltage f\or FULL abs\orbance."
\Locate 16,7,"[EXE]"\Disp\ClrText
{3,0.3,1,0,1}\->\List 6
\Send(\List 6)
"WHEN YOU ARE"
"READY PRESS"
"[START-STOP] KEY"
"TO COLLECT DATA."\Disp\Receive(R)
R\->\List 1[1]
\ClrText
"We will now determinethe voltage f\or NO   abs\orbance."
\Locate 16,7,"[EXE]"\Disp\ClrText
"Put distilled water"
"filled cuvette in"
"col\orimeter, select  desired LIGHT COLOUR."
\Locate 16,7,"[EXE]"\Disp\ClrText
{3,0.3,1,0,1}\->\List 6
\Send(\List 6)
"WHEN YOU ARE"
"READY PRESS"
"[START-STOP] KEY"
"TO COLLECT DATA."\Disp\Receive(R)
R\->\List 1[2]
\ClrText
0\->\List 2[1]
100\->\List 2[2]
\LinearReg \List1,\List2
\ClrText
\Ra\->A
\Rb\->B
"Calibration values   are:"
"Slope = A ="
"Y-INT = B ="
\Locate 13,3,A
\Locate 13,4,B
\Locate 16,7,"[EXE]"\Disp\Lbl 1
\ClrText
"CALIBRATION IS"
"COMPLETE."
\Locate 16,7,"[EXE]"\Disp\ClrText
2\->K
\If K=2:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
\If K=3:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
{1,C,10}\->\List 6
\Send(\List 6)
{4,C,1,0,0,1}\->\List 6
\Send(\List 6)
\Lbl 2
\ClrText
"Enter the greatest"
"concentration to"
"be used."
?\->M
\ClrText
"HOW MANY SAMPLES DO  YOU WANT TO COLLECT"
?\->R
\ClrText
\Seq(0,X,1,R,1)\->\List 1
\Seq(0,X,1,R,1)\->\List 2
\If R\<=3
\Then \ClrText
\For 1\->I \To R
\ClrText
"Put next cuvette in."
\Locate 16,7,"[EXE]"\Disp\ClrText
\If I=1:\Then "ENTER  st CONC. VALUE":\IfEnd
\If I=2:\Then "ENTER  nd CONC. VALUE":\IfEnd
\If I=3:\Then "ENTER  rd CONC. VALUE":\IfEnd
\Locate 7,1,I
?\->X
X\->\List 1[I]
\ClrText
{3,0.3,1,0,1}\->\List 6
\Send(\List 6)
"WHEN YOU ARE"
"READY PRESS"
"[START-STOP] KEY"
"TO COLLECT DATA."\Disp\Receive(E):2-\log (A*E+B)\->\List 2[I]
\Lbl D
\ClrText
\ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\ViewWindow 0,M+(0.05*M),M/10,0,0.55,0.1
\StoV-Win 1
\GridOn
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,73,"Concentration"
\Text 2,4,"Abs\orbance"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Next 
\IfEnd
\If R>3
\Then \ClrText
\For 1\->I \To 3
\ClrText
"Put next cuvette in."
\Locate 16,7,"[EXE]"\Disp\ClrText
\If I=1:\Then "ENTER  st CONC. VALUE":\IfEnd
\If I=2:\Then "ENTER  nd CONC. VALUE":\IfEnd
\If I=3:\Then "ENTER  rd CONC. VALUE":\IfEnd
\Locate 7,1,I
?\->X
X\->\List 1[I]
\ClrText
{3,0.3,1,0,1}\->\List 6
\Send(\List 6)
"WHEN YOU ARE"
"READY PRESS"
"[START-STOP] KEY"
"TO COLLECT DATA."\Disp\Receive(E):2-\log (A*E+B)\->\List 2[I]
\Lbl D
\ClrText
\ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\ViewWindow 0,M+(0.05*M),M/10,0,0.55,0.1
\StoV-Win 1
\GridOn
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,73,"Concentration"
\Text 2,4,"Abs\orbance"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Next 
\For 4\->I \To R
\ClrText
"Put next cuvette in."
\Locate 16,7,"[EXE]"\Disp\ClrText
\If I\>=4\ And I\<=9:\Then "ENTER  th CONC. VALUE":\Else "ENTER   th CONC. VALUE":\IfEnd
\Locate 7,1,I
?\->X
X\->\List 1[I]
\ClrText
{3,0.3,1,0,1}\->\List 6
\Send(\List 6)
"WHEN YOU ARE"
"READY PRESS"
"[START-STOP] KEY"
"TO COLLECT DATA."\Disp\Receive(E):2-\log (A*E+B)\->\List 2[I]
\Lbl D
\ClrText
\ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\ViewWindow 0,M+(0.05*M),M/10,0,0.55,0.1
\StoV-Win 1
\GridOn
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,73,"Concentration"
\Text 2,4,"Abs\orbance"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Next 
\IfEnd
\ClrText
"THE DATA IS STORED INTHE FOLLOWING LISTS:  LIST 1      LIST 2"
"(CONC.)    (ABSORB.)"
\Locate 16,7,"[EXE]"\Disp\ClrText
"PRESS [EXE] FOR GRAPH"\Disp\Lbl D
\ClrText
\ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\ViewWindow 0,M+(0.05*M),M/10,0,0.55,0.1
\StoV-Win 1
\GridOn
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,73,"Concentration"
\Text 2,4,"Abs\orbance"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\ClrText
"Now place cuvette"
"with solution of"
"unknown conc. in."
\Locate 16,7,"[EXE]"\Disp\ClrText
{3,0.3,1,0,1}\->\List 6
\Send(\List 6)
{0,0}\->\List 3
"WHEN YOU ARE"
"READY PRESS"
"[START-STOP] KEY"
"TO COLLECT DATA."\Disp\Receive(E):2-\log (A*E+B)\->\List 3[1]
\Locate 16,7,"[EXE]"\Disp\ClrText
"The abs\orbance value"
"f\or this sample is"
"st\ored in \List 3."
\Locate 16,7,"[EXE]"\Disp\ClrText
"CHOOSE ONE:"
"1. REPEAT EXPERIMENT"
"2. DO ANALYSIS"
?\->Z
\If Z=1:\Then K+1\->K:\Goto2:\IfEnd
\Norm
\G-Connect
\FuncOn
\Y=Type
\CoordOn
\GridOff
\AxesOff
\SimulOff
\LabelOff
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\ClrText
\Text 1,1,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Orange \Text 7,1,"        HARONA SOFTWARE      "
\Text 13,1,"-----------------------------"
\Text 19,1,"                             "
\Text 25,1,"      THANKYOU FOR USING       "
\Text 31,1,"         OUR SOFTWARE.         "
\Orange \Text 37,1,"       DO NOT PUSH [EXE]       "
\Text 43,1,"              "
\Text 49,1,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Orange \Text 58,42,"PUSH [MENU]"\Disp\Cls
\Orange \Text 8,1,"       \aster\aster\asterWARNING!\aster\aster\aster            "
\Orange \Text 25,1,"         Please press            "
\Orange \Text 31,1,"       [MENU] NOT [EXE]          "
\Orange \Text 37,1,"   \or your data will be lost.    "
\Orange \Text 48,1,"   This is your last warning!    "
\Stop

%End