%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:4201
File Name:CDIOX100
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,70,"RESPIRING"
\Text 31,79,"PEAS"
\Text 38,58,"WITH THE EA-100"
\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-100."
"PRESS EACH LINK END  IN FIRMLY AND TURN   THE EA-100 ON."
\Locate 16,7,"[EXE]"\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
\ClrText
"PLUG CO2 SENSOR"
"INTO CHANNEL ONE"
\Locate 16,7,"[EXE]"\Disp\ClrText
0\->F
\If K=1
\Then \ClrText
"N.B. UNITS ARE PPM."
"                [EXE]"\Disp\IfEnd
2000\->A
0\->B
\If K=2:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
\If K=3:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
{4,C,1,0,B,A}\->\List 6
\Send(\List 6)
{1,C,1}\->\List 6
\Send(\List 6)
\Lbl 2
\ClrText
\If K=1
\Then "ENTER THE TIME       BETWEEN SAMPLES."
""
?\->T
\ClrText
"HOW MANY SAMPLES DO  YOU WANT TO COLLECT?"
"ENTER 1-255."
?\->R
R\->\List 5[1]
\ClrText
\Seq(X,X,0,R-1,1)\->\List 1
\Seq(0,X,1,R,1)\->\List 2
\ClrText
"SET CO2-AXIS:"
"ENTER CO2 MIN":?\->\Ymin
\Ymin\->\List 5[2]
\ClrText
"ENTER CO2 MAX":?\->\Ymax
\Ymax\->\List 5[3]
\ClrText
"ENTER CO2 SCALE":?\->\Yscl
\Yscl\->\List 5[4]
\IfEnd
\ClrText
\If K=2:\Then 0\->F
\If K=1
\Then \ClrText
"N.B. UNITS ARE PPM."
"                [EXE]"\Disp\IfEnd
2000\->A
0\->B
\If K=2:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
\If K=3:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
{4,C,1,0,B,A}\->\List 6
\Send(\List 6)
{1,C,1}\->\List 6
\Send(\List 6)
\List 5[1]\->R
\List 5[2]\->\Ymin
\List 5[3]\->\Ymax
\List 5[4]\->\Yscl
\Seq(X,X,0,R-1,1)\->\List 1
\Seq(0,X,1,R,1)\->\List 3
\IfEnd
\If K=3:\Then 0\->F
\If K=1
\Then \ClrText
"N.B. UNITS ARE PPB."
"                [EXE]"\Disp\IfEnd
2000\->A
0\->B
\If K=2:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
\If K=3:\Then {1,0}\->\List 6
\Send(\List 6)
\IfEnd
{4,C,1,0,B,A}\->\List 6
\Send(\List 6)
{1,C,1}\->\List 6
\Send(\List 6)
\List 5[1]\->R
\List 5[2]\->\Ymin
\List 5[3]\->\Ymax
\List 5[4]\->\Yscl
\Seq(X,X,0,R-1,1)\->\List 1
\Seq(0,X,1,R,1)\->\List 4
\IfEnd
{3,T,\(-)1}\->\List 6
\Send(\List 6)
\ClrText
"WAIT 90 seconds"
"\and then PRESS"
"[EXE] to begin"
"collecting data."\Disp\ClrText
\ViewWindow 0,1.2RT,60,\Ymin,\Ymax,\Yscl
\For 1\->I \To R
\ClrText
\Text 56,100,"TIME(S)"
\Text 2,4,"CO2 (PPB)"
\Receive(E)
\If K=1
\Then E\->\List 2[I]
\PlotOn T(I-1),\List 2[I]
\IfEnd
\If K=2
\Then E\->\List 3[I]
\PlotOn T(I-1),\List 3[I]
\IfEnd
\If K=3
\Then E\->\List 4[I]
\PlotOn T(I-1),\List 4[I]
\IfEnd
\Next 
\Text 1,109,"[EXE]"\Disp\Lbl D
\ClrText
"\asterSELECT A GRAPH\aster"
"1: LIST1 V. LIST2"
\If K=2:\Then "2: LIST1 V. LIST3":"3: LIST1 V. LIST2,3":\IfEnd
\If K=3:\Then "2: LIST1 V. LIST3":"3: LIST1 V. LIST2,3":"4: LIST1 V. LIST4":"5: LIST1 V. LIST2,3,4":\IfEnd
?\->G
\ClrText
\If G=1
\Then \ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\ViewWindow 0,\Max(\List 1)+2,\List 5[1],\List 5[2],\List 5[3],\List 5[4]
\StoV-Win 1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,100,"TIME(S)"
\Text 2,4,"CO2 (PPB)"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\IfEnd
\If G=2
\Then \ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 3)\->W
\Else .85\Min(\List 3)\->W:\IfEnd
\ViewWindow 0,\Max(\List 1)+2,\List 5[1],\List 5[2],\List 5[3],\List 5[4]
\StoV-Win 1
\S-Gph2 \DrawOn,\Scatter,\List1,\List3,1,\Dot,\Green 
\DrawStat
\Text 56,100,"TIME(S)"
\Text 2,4,"CO2 (PPB)"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\IfEnd
\If G=3
\Then \ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\If S=9:\Then 0\->W:\IfEnd
\ViewWindow 0,\Max(\List 1)+2,\List 5[1],\List 5[2],\List 5[3],\List 5[4]
\StoV-Win 1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\S-Gph2 \DrawOn,\Scatter,\List1,\List3,1,\Dot,\Green 
\DrawStat
\Text 56,100,"TIME(S)"
\Text 2,4,"CO2 (PPB)"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\IfEnd
\If G=4
\Then \ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\If S=9:\Then 0\->W:\IfEnd
\ViewWindow 0,\Max(\List 1)+2,\List 5[1],\List 5[2],\List 5[3],\List 5[4]
\StoV-Win 1
\S-Gph3 \DrawOn,\Scatter,\List1,\List4,1,\Cross,\Orange 
\DrawStat
\Text 56,100,"TIME(S)"
\Text 2,4,"CO2 (PPB)"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\IfEnd
\If G=5
\Then \ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\If S=9:\Then 0\->W:\IfEnd
\ViewWindow 0,\Max(\List 1)+2,\List 5[1],\List 5[2],\List 5[3],\List 5[4]
\StoV-Win 1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\S-Gph2 \DrawOn,\Scatter,\List1,\List3,1,\Dot,\Green 
\S-Gph3 \DrawOn,\Scatter,\List1,\List4,1,\Cross,\Orange 
\DrawStat
\Text 56,100,"TIME(S)"
\Text 2,4,"CO2 (PPB)"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\IfEnd
\ClrText
\If K=2:\Then "DO YOU WANT TO VIEW  ANOTHER GRAPH?"
" "
"1: YES"
"2: NO"
?\->R:\IfEnd
\If K=3:\Then "DO YOU WANT TO VIEW  ANOTHER GRAPH?"
" "
"1: YES"
"2: NO"
?\->R:\IfEnd
\If R=1:\Then \GotoD:\IfEnd
\ClrText
\ClrGraph
\If K=3:\Then \GotoX:\IfEnd
"CHOOSE ONE:"
"1. REPEAT EXPERIMENT"
"2. DO ANALYSIS"
?\->Z
\If Z=1:\Then K+1\->K:\Goto2:\IfEnd
\If Z=2:\Then \GotoY:\IfEnd
\Lbl X
"You are now ready"
"to do analysis."
"Press [EXE]."\Disp\Lbl Y
\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