%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:176
File Name:CASIOLAB
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Lbl 1
\Prog "DEFAULTS"
\Prog "SETUP"
\Lbl 2
\Prog "COLLECT"
\Prog "GRAPH"
\ClrText
"CHOOSE ONE:"
"1. REPEAT EXPERIMENT"
"2. NEW EXPERIMENT"
"3. QUIT"
?\->Z
\If Z=3D1\ And D=3D3:\Then \Goto1:\IfEnd
\If Z=3D1:\Then \Goto2:\IfEnd
\If Z=3D2:\Then \Goto1:
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:225
File Name:DEFAULTS
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\FuncOn
Y=3DType
\CoordOn
\GridOff
\AxesOff
\SimulOff
\LabelOff
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\File1
\ClrList
\Text =
1,20,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster=
aster\aster\aster\aster"
\Text 15,45,"CASIO  LAB "
\Text =
27,20,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster=
\aster\aster\aster\aster"
\Text 38,48,"12\slash07\slash98"
\Text 57,15,"PRESS [EXE] TO CONTINUE"\Disp\AxesOn
0\->Z
0\->\theta
1\->C
0\->O
0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:328
File Name:SETUP
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"CONNECT THE CFX-9850 TO THE EA-100."
" "
"PRESS EACH LINK END  IN FIRMLY."
\Locate 16,7,"[EXE]"\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
"ENTER THE NUMBER OF  PROBES YOU WILL USE  IN THE EXPERIMENT."
"ENTER: 1, 2, OR 3"
"When Asked f\or S=,  enter 99 \or the Sens\or Number"
" "
?\->N
\ClrText
\For 1\->I \To N
\Prog "MENU"
\If S\<>99
\Then \Prog "CALIBRT"
\IfEnd
\If S\<>99\ And S\<>15
\Then C+1\->C
\IfEnd
\Next =2
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:456
File Name:CALIBRT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\theta+1\->\theta
\If S=3D9
\Then \Prog "EKG"
\IfEnd
\If S=3D11
\Then \Prog "HEART"
\IfEnd
\If S=3D14
\Then {1,C,1}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\If S=3D15
\Then \Prog "MOTION"
\Return
\IfEnd
\If S=3D17
\Then "PHOTOGATE SYSTEM"
\Locate 16,7,"[EXE]"\Disp\ClrText
\Stop
\IfEnd
\Lbl G
"\asterCALIBRATION METHOD\aster"
"1-USE DEFAULTS"
"2-PERFORM NEW"
"3-USE PREVIOUS"
?\->Q
\If Q=3D1:\Then \Prog "CALIBRT1":\IfEnd
\If Q=3D2:\Then \Prog "CALIBRT2":\IfEnd
\If Q=3D3:\Then \Prog "CALIBRT3":\IfEnd
\If F=3D1:\Then \GotoG:\IfEnd
\If F=3D2:\Then \Return:\IfEnd
\ClrText
\If Q=3D1:\Then {4,C,1,0,B,A}\->\List 6:\IfEnd
\If Q=3D2:\Then {9,C,1,A,B}\->\List 6:\IfEnd
\If Q=3D3:\Then {4,C,1,0,B,A}\->\List 6:\IfEnd
\Send(\@7FFF
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:144
File Name:COLLECT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"\asterCOLLECTION METHOD\aster"
"1: WRT TIME"
"2: WRT X"
"3: REAL TIME"
?\->D
\If D=3D1:\Then \Prog "COLLECTT":\IfEnd
\If D=3D2:\Then \Prog "COLLECTX":\IfEnd
\If D=3D3:\Then \Prog "COLLECTR":
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1332
File Name:MENU
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Lbl M
"CHOOSE A SENSOR:"
"1: ACCELEROMETER"
"2: BAROMETER"
"3: BIO GAS PRESSURE"
"4: COLORIMETER"
"0: MORE..."
?\->S
\ClrText
\If S\<=3D4\ And S\>=3D1
\Then \GotoE
\IfEnd
"CHOOSE A SENSOR:"
"5: (RESERVED)"
"6: CONDUCTIVITY"
"7: CURRENT\slashVOLTAGE"
"8: D.O. SENSOR"
"0: MORE..."
?\->S
\ClrText
\If S\<=3D8\ And S\>=3D5
\Then \GotoE
\IfEnd
"CHOOSE A SENSOR:"
" 9: EKG SENSOR"
"10: FORCE SENSOR"
"11: HEART RATE"
"12: LIGHT SENSOR"
" 0: MORE..."
?\->S
\ClrText
\If S\<=3D12\ And S\>=3D9
\Then \GotoE
\IfEnd
"CHOOSE A SENSOR:"
"13: MAGNETIC FIELD"
"14: MICROPHONE"
"15: MOTION DETECTOR"
" 0: MORE..."
?\->S
\ClrText
\If S\<=3D15\ And S\>=3D13
\Then \GotoE
\IfEnd
"CHOOSE A SENSOR:"
"16: PH SYSTEM"
"17: (RESERVED)"
"18: PRESSURE SENSOR"
"19: RELATIVE HUMIDITY 0: MORE..."
?\->S
\ClrText
\If S\<=3D19\ And S\>=3D16
\Then \GotoE
\IfEnd
"CHOOSE A SENSOR:"
"20: TEMPERATURE"
"21: VOLTAGE"
" 0: MORE..."
"99: NONE"
?\->S
\ClrText
\If S=3D0
\Then \GotoM
\IfEnd
\If N=3D1\ And S=3D99
\Then \Stop:\IfEnd
\If N>1\ And S=3D99
\Then \Return:\IfEnd
\Lbl E
\ClrText
\If S=3D8:\Then "IF D.O. SENSOR IS NOTPOLARIZED, STOP      PROGRAM =
CASIOLAB AND RUN PROGRAM POLARIZE."
\Locate 16,7,"[EXE]"\Disp\ClrText
\IfEnd
\If N<3
\Then \If S=3D6\ Or S=3D8\ Or S=3D16\ Or S=3D20
\Then =
"\aster\aster\aster\aster\aster\aster\asterWARNING\aster\aster\asteraste=
r\aster\aster\asterDO NOT USE THE D.O.  SENSOR AND CONDUCT.  PROBE =
TOGETHER OR IN COMBINATION WITH THE PH SYSTEM OR DIRECT- CONNECT TEMP. =
PROBE."\Disp\IfEnd:\IfEnd
\If S=3D9\ Or S=3D11
\Then =
"\aster\aster\aster\aster\aster\aster\asterWARNING\aster\aster\asteraste=
r\aster\aster\asterYOU CANNOT USE ANY   OTHER SENSOR WHEN    USING THIS =
SENSOR."
\Locate 16,7,"[EXE]"\Disp\IfEnd
\If S=3D99:\Then \Return:\IfEnd
\ClrText
"PLUG SENSOR INTO"
\If S=
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1857
File Name:CALIBRT1
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
0\->F
\If S=3D1
\Then "CHOOSE UNITS"
"1-G"
"2-M\slashS\slashS"
?\->U
12.792\->A
\(-)28.78\->B
\If U=3D2
\Then 9.8A\->A
9.8B\->B
\IfEnd
\Return
\IfEnd
\If S=3D2
\Then "CHOOSE UNITS"
"1-ATM"
"2-IN HG"
"3-MM HG"
?\->U
\If U=3D1
\Then 0.077\->A
0.809\->B
\IfEnd
\If U=3D2
\Then 2.292\->A
24.215\->B
\IfEnd
\If U=3D3
\Then 58.52\->A
614.84\->B
\IfEnd
\Return
\IfEnd
\If S=3D3
\Then "CHOOSE UNITS"
"1-ATM"
"2-KPA"
"3-IN HG"
"4-MM HG"
?\->U
\If U=3D1
\Then 0.271\->A
0.729\->B
\IfEnd
\If U=3D2
\Then 27.459\->A
73.866\->B
\IfEnd
\If U=3D3
\Then 8.125\->A
21.875\->B
\IfEnd
\If U=3D4
\Then 205.825\->A
554.175\->B
\IfEnd
\Return
\IfEnd
\If S=3D4
\Then "PERFORM A NEW        CALIBRATION EACH TIMEYOU USE THE          =
COLORIMETER."
\Locate 16,7,"[EXE]"\Disp\ClrText
1\->F
\Return
\IfEnd
\If S=3D5
\Then "CO2 SENSOR"
\Locate 16,7,"[EXE]"\Disp\ClrText
\Stop
\IfEnd
\If S=3D6
\Then "CHOOSE SETTING"
"1-LOW (0-200)"
"2-MEDIUM (0-2000)"
"3-HIGH (0-20000)"
?\->U
\ClrText
"CHOOSE UNITS"
"1-MICROS"
"2-MG\slashL"
?\->W
\If U=3D1
\Then 65.7\->A
0\->B
\IfEnd
\If U=3D2
\Then 847.2\->A
0\->B
\IfEnd
\If U=3D3
\Then 7819\->A
0\->B
\IfEnd
\If U<3\ And W=3D2
\Then .5A\->A
.5B\->B
\IfEnd
\If U=3D3\ And W=3D2
\Then 3909.25\->A
0.25\->B
\IfEnd
\Return
\IfEnd
\If S=3D7
\Then "CURRENT OR VOLTAGE?"
"1-CURRENT"
"2-VOLTAGE"
?\->U
\(-)0.25\->A
0.625\->B
\If U=3D2
\Then \(-)2.5\->A
6.25\->B
\IfEnd
\Return
\IfEnd
\If S=3D8
\Then 3.27\->A
\(-)0.327\->B
\Return
\IfEnd
\If S=3D10
\Then 9.8\->A
\(-)9.8\->B
\Return
\IfEnd
\If S=3D12
\Then "SENSOR MODEL"
"1-CASIO"
"2-VERNIER"
?\->U
\If U=3D1
\Then 2\->F
{1,C,1}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\ClrText
"CHOOSE SETTING"
"1: 0-600 LUX"
"2: 0-6000 LUX"
"3: 0-150000 LUX"
?\->W
\If W=3D1
\Then 200\->A
0\->B
\IfEnd
\If W=3D2
\Then 2220\->A
0\->B
\IfEnd
\If W=3D3
\Then 50000\->A
0\->B
\IfEnd
\Return
\IfEnd
\If S=3D13
\Then "CHOOSE SETTING"
"1-LOW"
"2-HIGH"
?\->U
\If U=3D1
\Then 3.225\->A
\(-)8.063\->B
\IfEnd
\If U=3D2
\Then 0.16\->A
\(-)0.32\->B
\IfEnd
\ClrText
"CHOOSE UNITS"
"1-GAUSS"
"2-MTESLA"
?\->W
\If W=3D1
\Then 10A\->A
10B\->B
\IfEnd
\Return
\IfEnd
\If S=3D16
\Then \(-)3.838\->A
13.72\->B
\Return
\IfEnd
\If S=3D18
\Then "CHOOSE UNITS"
"1-ATM"
"2-PSI"
?\->U
\If U=3D1
\Then 2.203\->A
0\->B
\IfEnd
\If U=3D2
\Then 32.37\->A
0\->B
\IfEnd
\Return
\IfEnd
\If S=3D19
\Then 35.1\->A
\(-)22.8\->B
\Return
\IfEnd
\If S=3D20
\Then "SENSOR MODEL"
"1: CASIO"
"2: DIRECT-CONNECT"
?\->U
\ClrText
"CHOOSE UNITS"
"1-CELSIUS"
"2-FAHRENHEIT"
?\->W
\If U=3D1\ And W=3D1
\Then 2\->F
{1,C,7}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\If U=3D1\ And W=3D2
\Then 2\->F
{1,C,8}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\If 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:590
File Name:CALIBRT2
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
0\->F
\If S=3D5
\Then "CO2 SENSOR"
\Locate 16,7,"[EXE]"\Disp\ClrText
\Stop
\IfEnd
"PREPARE TO PERFORM A 2-POINT CALIBRATION."
\Locate 16,7,"[EXE]"\Disp{2,C}\->\List 6
\Send(\List 6)
{1,C,1}\->\List 6
\Send(\List 6)
{0,0}\->\List 1
{0,0}\->\List 2
\For 1\->I \To 2
\ClrText
"CALIBRATION POINT"
\Locate 19,1,I
" "
"WHEN EA-100 DISPLAY  STABILIZES, PRESS    [TRIGGER]."
\Locate 16,7,"[EXE]"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(R)
R\->\List 1[I]
\ClrText
"ENTER"
\If I=3D1:\Then \Locate 7,1,"FIRST":\IfEnd
\If I=3D2:\Then \Locate 7,1,"SECOND":\IfEnd
"REFERENCE POINT:"
?\->R
R\->\List 2[I]
Next=20
\LinearReg \List1,\List2
\ClrText
\Ra\->A
\Rb\->B
"RECORD THESE         CALIBRATION VALUES:"
" "
"SLOPE =3D A =3D"
"Y-INT =3D B =3D"
\Locate 13,4,A
\Locate 13,5,B\Disp\Lbl 1
\ClrText
"THE CALIBRATION IS   COMPLETE."
\@F7FF
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:61
File Name:CALIBRT3
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ENTER SLOPE, A"
?\->A
" "
"ENTER INTERCEPT, B"
?\->B
\ClrText
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:350
File Name:EKG
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ATTACH EKG SENSOR TO TEST SUBJECT."
\Locate 16,7,"[EXE]"\Disp\Lbl A
\ClrText
{1,1,1}\->\List 6
\Send(\List 6)
"PRESS [TRIGGER] TO"
"MONITOR EKG."
\Locate 16,7,"[EXE]"
{3,.02,250,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
\Locate 4,3,"TRANSFERRING"
\Locate 7,4,"DATA..."
\For 1\->I \To 1500
Next=20
\Receive(\List 1)
{5,1,3,151,249}\->\List 6
\Send(\List 6)
\Receive(\List 2)
\Seq(.02X,X,0,98,1)\->\List 1
\Prog "GRAPH1"
\ClrText
"CHOOSE ONE:"
"1: REPEAT"
"2: STOP"
?\->R
\If R=3D1:\Then \GotoA:\@F7FF
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:920
File Name:HEART
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
{1,1,1,1}\->\List 6
\Send(\List 6)
"ATTACH HEART RATE    MONITOR. THEN PRESS  [EXE] TO BEGIN."
{3,.03,249,1,0}\->\List 6\Disp\Send(\List 6)
\ClrText
\Locate 4,2,"MEASURING HEART"
\Locate 8,4,"RATE..."
\For 1\->I \To 1750
Next=20
\Lbl A
\ClrText
\Locate 4,2,"MEASURING HEART"
\Locate 8,4,"RATE..."
\Receive(\List 1)
{5,1,3,151,249}\->\List 6
\Send(\List 6)
\Receive(\List 2)
{5,1,4,151,249}\->\List 6
\Send(\List 6)
\Receive(\List 4)
{3,.03,249,1,0}\->\List 6
\Send(\List 6)
\Min(\List 2)\->B
\Max(\List 2)\->A
A-B\->D
1\->C
\Seq(-1X,X,1,99,1)\->\List 5
\For 1\->I \To 98
\If \List 4[I]\>=3D0\ And \List 4[I+1]<0
\Then \If \List 2[I]-B>.25D
\Then \List 1[I]\->\List 5[C]:1+C\->C
\IfEnd
\IfEnd
Next=20
0\->O
\For 1\->N \To 99
\If \List 5[N]>0:\Then 1+O\->O:\IfEnd
Next=20
\If O\<=3D2:\Then \GotoE:\IfEnd
\Seq(X,X,1,O-1,1)\->\List 4
\For 2\->J \To O
\List 5[J]-\List 5[J-1]\->\List 4[J-1]
Next=20
\Mean\List 4)\->H
60/H\->H
\If H>250:\Then \GotoE:\IfEnd
\ClrText
"THE MEASURED HEART   RATE IS"
\Locate 8,4,H
\Locate 11,4," BPM       "
\Locate 16,7,"[EXE]"\Disp\ClrText
"DO YOU WANT TO VIEW  THE HEART RATE GRAPH?"
"1: YES"
"2: NO"
?\->R
\If R=3D1:\Then \Seq(.03X,X,0,98,1)\->\List 1:\Prog "GRAPH1":\IfEnd
\ClrText
"CHOOSE ONE:"
"1: CONTINUE"
"2: STOP"
?\->R
\If R=3D1:\Then \GotoA:\IfEnd
\Lbl Q
\ClrText
\ClrGraph
\Stop
\Lbl E
\ClrText
"PLEASE REMAIN STILL  WHILE COLLECT
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:74
File Name:MOTION
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
1\->O
\ClrText
"CHOOSE UNITS"
"1-METERS"
"2-FEET"
?\->U
{1,4,U+1,2}\->\List 6
\Send(\List 6)
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:764
File Name:COLLECTT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
1\->L
\ClrText
\If \theta>1
\Then "WHICH CHANNEL DO YOU WANT TO MONITOR?"
"1: CH. 1"
\If \theta=3D2\ And O=3D0:\Then "2: CH. 2":\IfEnd
\If \theta=3D2\ And O=3D1:\Then "4: CH. 4":\IfEnd
\If \theta=3D3\ And O=3D0:\Then "2: CH. 2":"3: CH. 3":\IfEnd
\If \theta=3D3\ And O=3D1:\Then "2: CH. 2":"4: CH. 4":\IfEnd
?\->J
{2,J}\->\List 6
\Send(\List 6)
\IfEnd
\ClrText
"ENTER THE TIME       BETWEEN SAMPLES."
?\->T
\ClrText
"HOW MANY SAMPLES DO  YOU WANT TO COLLECT?"
"ENTER 2-255."
?\->P
\ClrText
"TO COLLECT DATA,     PRESS [TRIGGER]."
\Locate 16,7,"[EXE]"
{3,T,P,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
\Locate 4,3,"TRANSFERRING"
\Locate 7,4,"DATA..."
\If \theta=3D1:\Then \Receive(\List 1):\Receive(\List 2):\IfEnd
\If \theta=3D2:\Then \Receive(\List 1):\Receive(\List 2):\Receive(\List =
3):\IfEnd
\If \theta=3D3:\Then \Receive(\List 1):\Receive(\List 2):\Receive(\List =
3):\Receive(\List 4):\IfEnd
\If O=3D1:\Then \Receive(\List 5):\Receive(\List 6):\IfEnd
\Seq(X,X,0,T(P-1),T)\->\List 1
\ClrText
"THE DATA IS STORED INTHE FOLLOWING LISTS: LIST 1     LIST 2"
\If \theta=3D2:\Then "LIST 3":\IfEnd
\If \theta=3D3:\Then "LIST 3     LIST 4":\IfEnd
\If O=3D1:\Then "LIST 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:787
File Name:COLLECTX
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\If \theta>1
\Then "WHICH CHANNEL DO YOU WANT TO MONITOR?"
"1: CH. 1"
\If \theta=3D2\ And O=3D0:\Then "2: CH. 2":\IfEnd
\If \theta=3D2\ And O=3D1:\Then "4: CH. 4":\IfEnd
\If \theta=3D3\ And O=3D0:\Then "2: CH. 2":"3: CH. 3":\IfEnd
\If \theta=3D3\ And O=3D1:\Then "2: CH. 2":"4: CH. 4":\IfEnd
?\->J
{2,J}\->\List 6
\Send(\List 6)
\IfEnd
\ClrText
"HOW MANY SAMPLES DO  YOU WANT TO COLLECT?"
?\->R
\ClrText
\Seq(X,X,1,R,1)\->\List 1
\Seq(X,X,1,R,1)\->\List 2
\If \theta=3D2:\Then \Seq(X,X,1,R,1)\->\List 3:\IfEnd
\If \theta=3D3:\Then \Seq(X,X,1,R,1)\->\List 3:\Seq(X,X,1,R,1)\->\List =
4:\IfEnd
\For 1\->I \To R
\ClrText
\If I\>=3D1\ And I\<=3D9:\Then "ENTER X( ) VALUE.":\Else "ENTER X(  ) =
VALUE.":\IfEnd
\Locate 9,1,I
?\->X
X\->\List 1[I]
\ClrText
{3,.25,1,0,1}\->\List 6
\Send(\List 6)
"WHEN EA-100 DISPLAY  STABILIZES, PRESS    [TRIGGER] TO COLLECT DATA."
\Receive(E):E\->\List 2[I]
\If \theta=3D2:\Then \Receive(F):F\->\List 3[I]:\IfEnd
\If \theta=3D3:\Then \Receive(F):\Receive(G):F\->\List 3[I]:G\->\List =
4[I]:\IfEnd
Next=20
\ClrText
"THE DATA IS STORED INTHE FOLLOWING LISTS: LIST 1     LIST 2"
\If \theta=3D2:\Then "LIST 3.":\IfEnd
\If \theta=3D3:
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:399
File Name:COLLECTR
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ENTER THE TIME       BETWEEN SAMPLES."
""
?\->T
\ClrText
"HOW MANY SAMPLES DO  YOU WANT TO COLLECT?"
"ENTER 1-255."
?\->R
\ClrText
\Seq(X,X,0,R-1,1)\->\List 1
\Seq(0,X,1,R,1)\->\List 2
\ClrText
"SET Y-AXIS:"
"ENTER YMIN":?\->\Ymin
"ENTER YMAX":?\->\Ymax
"ENTER YSCALE":?\->\Yscl
\ClrText
"PRESS [EXE] WHEN YOU ARE READY TO BEGIN   COLLECTING DATA."
{3,T,\(-)1}\->\List 6
\Send(\List 6)\Disp\ClrText
\ViewWindow 0,1.2RT,60,\Ymin,\Ymax,\Yscl
\For 1\->I \To R
\Receive(E)
E\->\List 2[I]
\PlotOn T(I-1),\List 2[I]
Next=20
\Text 1,109,"[EXE
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:620
File Name:GRAPH
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Lbl D
\ClrText
"\asterSELECT A GRAPH\aster"
"1: LIST 1 V. LIST 2"
\If \theta=3D2:\Then "2: LIST 1 V. LIST 3":\IfEnd
\If \theta=3D3:\Then "2: LIST 1 V. LIST 3":"3: LIST 1 V. LIST 4":\IfEnd
\If O=3D1:\Then "4: TIME V. D\slashDT ":"5: TIME V. D2\slashDT2":\IfEnd
?\->G
\ClrText
\If G=3D1:\Then \Prog "GRAPH1":\IfEnd
\If G=3D2:\Then \Prog "GRAPH2":\IfEnd
\If G=3D3:\Then \Prog "GRAPH3":\IfEnd
\If G=3D4:\Then \Prog "GRAPH4":\IfEnd
\If G=3D5:\Then \Prog "GRAPH5":\IfEnd
\ClrText
\If L=3D1:\Then "DO YOU WANT TO SELECTPART OF THE GRAPH?"
" "
"1: YES"
"2: NO"
?\->R
\ClrText
\If R=3D1:\Then "TRACE THE FOLLOWING  GRAPH TO IDENTIFY    START AND =
STOP TIMES.THEN PRESS [EXE]."
\Locate 16,7,"[EXE]"\Disp\RclV-Win 1
\DrawStat
\Text 2,101,"[EXE]"\Disp\ClrGraph
\Prog "SELECT"
\IfEnd
\ClrText
\IfEnd
\ClrText
"DO YOU WANT TO VIEW  ANOTHER GRAPH?"
" "
"1: YES"
"2: NO"
?\->R

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:194
File Name:GRAPH1
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\If S=3D9:\Then 0\->W:\IfEnd
\ViewWindow 0,1.2\Max(\List 1),1.2\Max(\List 1)/10,W,1.2\Max(\List =
2),(1.2\Max(\List 2)-W)/10
\StoV-Win 1
\If D=3D2
\Then \S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot
\Else \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\IfEnd
\DrawStat
\Text 2,109,"[EX
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:179
File Name:GRAPH2
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\If \Min(\List 3)<0
\Then 1.2\Min(\List 3)\->W
\Else .85\Min(\List 3)\->W:\IfEnd
\ViewWindow 0,1.2\Max(\List 1),1.2\Max(\List 1)/10,W,1.2\Max(\List =
3),(1.2\Max(\List 3)-W)/10
\StoV-Win 1
\If D=3D2
\Then \S-Gph1 \DrawOn,\Scatter,\List1,\List3,1,\Dot
\Else \S-Gph1 \DrawOn,\xyLine,\List1,\List3,1,\Dot
\IfEnd
\DrawStat
\Text 2,109,"[EXE]
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:179
File Name:GRAPH3
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\If \Min(\List 4)<0
\Then 1.2\Min(\List 4)\->W
\Else .85\Min(\List 4)\->W:\IfEnd
\ViewWindow 0,1.2\Max(\List 1),1.2\Max(\List 1)/10,W,1.2\Max(\List =
4),(1.2\Max(\List 4)-W)/10
\StoV-Win 1
\If D=3D2
\Then \S-Gph1 \DrawOn,\Scatter,\List1,\List4,1,\Dot
\Else \S-Gph1 \DrawOn,\xyLine,\List1,\List4,1,\Dot
\IfEnd
\DrawStat
\Text 2,109,"[EXE]
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:241
File Name:GRAPH4
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\If D=3D2\ Or D=3D3\ And \theta=3D1:\Then "GRAPH NOT POSSIBLE.  TIME =
DATA WAS NOT    COLLECTED."\Disp\Locate 16,7,"[EXE]"
\Return
\IfEnd
\If \Min(\List 5)<0
\Then 1.2\Min(\List 5)\->W
\Else .85\Min(\List 5)\->W:\IfEnd
\ViewWindow 0,1.2\Max(\List 1),1.2\Max(\List 1)/10,W,1.2\Max(\List =
5),(1.2\Max(\List 5)-W)/10
\StoV-Win 1
\S-Gph1 \DrawOn,\xyLine,\List1,\List5,1,\Dot
\DrawStat
\Text 2,109,
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:241
File Name:GRAPH5
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\If D=3D2\ Or D=3D3\ And \theta=3D1:\Then "GRAPH NOT POSSIBLE.  TIME =
DATA WAS NOT    COLLECTED."\Disp\Locate 16,7,"[EXE]"
\Return
\IfEnd
\If \Min(\List 6)<0
\Then 1.2\Min(\List 6)\->W
\Else .85\Min(\List 6)\->W:\IfEnd
\ViewWindow 0,1.2\Max(\List 1),1.2\Max(\List 1)/10,W,1.2\Max(\List =
6),(1.2\Max(\List 6)-W)/10
\StoV-Win 1
\S-Gph1 \DrawOn,\xyLine,\List1,\List6,1,\Dot
\DrawStat
\Text 2,109,
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:198
File Name:POLARIZE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"PRESS [EXE] TO"
"POLARIZE D.O."
"SENSOR."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3}\->\List 6
\Send(\List 6)
"POLARIZING... WAIT 30MINUTES BEFORE       RESTARTING PROGRAM   =
CASIOLAB."
\Locate 16,7,"[EXE]"\Disp\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:628
File Name:SELECT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
0\->L
\ClrText
\ClrGraph
"ENTER THE START TIME."
?\->A
\ClrText
"ENTER THE STOP TIME."
?\->B
\ClrText
\Locate 3,3,"REVISING DATA..."
(A/T)+1\->I
(B-A)/T\->J
I+J\->J
\If \theta=3D1\ And O=3D0
\Then \List 1\->\List 3:\List 1\->\List 4:\List 1\->\List 5:\List =
1\->\List 6
\IfEnd
\If \theta=3D1\ And O=3D1
\Then \List 1\->\List 3:\List 1\->\List 4
\IfEnd
\If \theta=3D2\ And O=3D0
\Then \List 1\->\List 4:\List 1\->\List 5:\List 1\->\List 6
\IfEnd
\If \theta=3D2\ And O=3D1
\Then \List 1\->\List 4
\IfEnd
\If \theta=3D3\ And O=3D0
\Then \List 1\->\List 5:\List 1\->\List 6
\IfEnd
\Seq(X,X,I,J,1)\->\List 1
1\->H
\For I\->K \To J
\List 2[K]\->\List 1[H]
H+1\->H
Next=20
\Seq(X,X,I,J,1)\->\List 2
1\->H
\For I\->K \To J
\List 3[K]\->\List 2[H]
H+1\->H
Next=20
\Seq(X,X,I,J,1)\->\List 3
1\->H
\For I\->K \To J
\List 4[K]\->\List 3[H]
H+1\->H
Next=20
\Seq(X,X,I,J,1)\->\List 4
1\->H
\For I\->K \To J
\List 5[K]\->\List 4[H]
H+1\->H
Next=20
\Seq(X,X,I,J,1)\->\List 5
1\->H
\For I\->K \To J
\List 6[K]\->\List 5[H]
H+1\->H
Next=20
\List 5\->\List 6
\List 4\->\List 5
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:225
File Name:GETDATA
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"HOW MANY SENSORS WEREUSED TO COLLECT DATA?"
?\->R
\ClrText
"HOW MANY SAMPLES WERECOLLECTED?"
?\->N
\ClrText
"ENTER THE TIME       BETWEEN SAMPLES."
?\->T
\ClrText
\Receive(\List 1):\Receive(\List 2)
\If R=3D2:\Then \Receive(\List 3):\IfEnd
\If R=3D3:\Then \Receive(\List 3):\Receive(\List 4):\IfEnd
\Seq(TX,X,0,N-1,1)\->\List 
%End