%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1139
File Name:MENU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl M
\ClrText
"ENTER 0 FOR ALIST OF      SENSORS."
"ENTER SENSOR #"?\->S
S>0\=>\GotoE
"1-ACCLRMETER"
"2-BAROMETER"
"3-BIOGAS PSR"
"4-COLORIMETR"
"0: MORE..."?\->S
\ClrText
S>0\=>\GotoE
"5-CO2 SENSOR"
"6-CONDCTIVTY"
"7-CRNT\slashVOLT"
"8-D.O. SENSR"
"0: MORE..."?\->S
\ClrText
S>0\=>\GotoE
"9-EKG SENSOR"
"10-FRC SENSR"
"11-HART RATE"
"12-LITE SNSR"
" 0: MORE..."?\->S
\ClrText
S>0\=>\GotoE
"13-MGNTC FLD"
"14-MICROPHNE"
"15-MTN DTCTR"
"16-PH SYSTEM"
" 0: MORE..."?\->S
\ClrText
S>0\=>\GotoE
"17-PHOTOGATE"
"18-PRSR SNSR"
"19-RLTV HMDTY"
" 0: MORE..."?\->S
\ClrText
S>0\=>\GotoE
"20-TMPRATURE"
"21-VOLTAGE"
"99-NONE"
" 0: MORE..."?\->S
\ClrText
S=0\=>\GotoM
\Lbl E
N<2\=>S=99\=>\Stop
N>1\=>S=99\=>\Return
\If S>21:\Then "INVALID"
"SENSOR"
"SELECTION"
"PRESS [EXE]"\Disp\GotoM
\IfEnd
\ClrText
\If S=8:\Then "IF D.O. SNSR"
"IS NOT"
"POLARIZED,"
"STOP PROGRAM"\Disp"CASIOLAB AND"
"RUN PROGRAM"
"POLARIZE."\Disp\ClrText
\IfEnd
\If N<3:\Then S=6\=>\GotoA
S=8\=>\GotoA
S=16\=>\GotoA
S=20\=>\GotoA
\IfEnd
S=9\=>\GotoB
S=11\=>\GotoB
\Lbl Z
\ClrText
"PLUG SENSOR  INTO"
\If S=15
\Then "SONIC CHANNEL"\Disp\Else "CHANNEL":C\Disp\IfEnd
\ClrText
\Return

\Lbl A
"\aster\aster\asterWARNING\aster\aster"
"DO NOT USE"
"THE DO SNSR"
"AND CONDUCT"\Disp"PRBE TGETHER"
"OR COMBND W\slash"
"THE PH"
"SYSTEM OR"\Disp"DRECT CNNECT"
"TEMP. PROBE."
"PRESS [EXE]"\Disp\GotoZ

\Lbl B
"\aster\aster\asterWARNING\aster\aster"
"DO NOT USE"
"ANY OTHER"
"SENSOR WHILE"\Disp"USING THIS"
"SENSOR."
"PRESS [EXE]"\Disp\GotoZ

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:157
File Name:CASIOLAB
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 1
\Prog "DEFAULTS"
\Prog "SETUP"
\Lbl 2
\Prog "COLLECT"
\Prog "GRAPH"
\ClrText
"1-REPEAT       EXPERIMENT"
"2-RUN NEW      EXPERIMENT"
"3-QUIT"?\->Z
(Z=1)+(D=3)=2\=>\Goto1
Z=1\=>\Goto2
Z=2\=>\Goto1
\ClrText
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:119
File Name:DEFAULTS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster  CASIO  LAB  \aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
"  10\slash14\slash00"\Disp0\->Z
0\->P
1\->C
0\->O
0\->L
\ClrGraph
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:250
File Name:SETUP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"CONNECT THE  FX-7400 TO   THE EA-100."\Disp"PRESS EACH   LINK END IN  FIRMLY."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
"ENTER THE    NUMBER OF    PROBES YOU   WILL USE IN"\Disp"THE EXPERMNT"
"1, 2, OR 3"?\->N
\ClrText
\For 1\->I \To N
\Prog "MENU"
S\<>99\=>\Prog "CALIBRT"
(S\<>99)+(S\<>15)=2\=>C+1\->C
\Next 
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:353
File Name:CALIBRT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
P+1\->P
\If S=14:\Then {1,C,1}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\If S=15
\Then \Prog "MOTION"
\Return
\IfEnd
S=9\=>\Prog "EKG"
S=11\=>\Prog "HEART"
S=17\=>\Prog "PHOTOGAT"
\Lbl G
"CHOOSE A     CALIBRATION  METHOD."\Disp"1-USE DEFLAUT2-PERFORM NEW3-USE LAST"
?\->Q
Q=1\=>\Prog "CALIBRT1"
Q=2\=>\Prog "CALIBRT2"
Q=3\=>\Prog "CALIBRT3"
F=1\=>\GotoG
F=2\=>\Return
\ClrText
Q=1\=>{4,C,1,0,B,A}\->\List 6
Q=2\=>{9,C,1,A,B}\->\List 6
Q=3\=>{4,C,1,0,B,A}\->\List 6
\Send(\List 6)
{1,C,1}\->\List 6
\Send(\List 6)
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:298
File Name:EKG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ATTACH EKG   SENSOR TO    TEST SUBJECT"\Disp\Lbl A
\ClrText
{1,1,1}\->\List 6
\Send(\List 6)
"PRESS TRIGGERTO MONITOR   EKG."
{3,.02,250,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"TRANSFERRING DATA..."
\For 1\->I \To 1500:\Next 
\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
R=1\=>\GotoA
\ClrText
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:804
File Name:HEART
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
{1,1,1,1}\->\List 6
\Send(\List 6)
"ATTACH HEART RATE MONITOR.PRESS EXE TO BEGIN."\Disp{3,.03,249,1,0}\->\List 6
\Send(\List 6)
\ClrText
"MEASURING    HEART RATE.."
\For 1\->I \To 1750:\Next 
\Lbl A
\ClrText
"MEASURING    HEART 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
\List 4[I]\>=0\=>\List 4[I+1]<0\=>\If \List 2[I]-B>.25D
\Then \List 1[I]\->\List 5[C]:1+C\->C
\IfEnd
\Next 
0\->O
\For 1\->N \To 99
\List 5[N]>0\=>1+O\->O
\Next 
O\<=2\=>\GotoE
\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 
\Mean\List 4)\->H
60/H\->H
H>250\=>\GotoE
\ClrText
"THE MEASURED HART RATE IS"
H\Disp"BEATS PER MIN"\Disp\ClrText
"DO YOU WANT  TO VIEW  THE HEART RATE   GRAPH?"\Disp"1-YES"
"2-NO"
?\->R
\If R=1:\Then \Seq(.03X,X,0,98,1)\->\List 1:\Prog "GRAPH1":\IfEnd
\ClrText
"CHOOSE ONE:"
"1-CONTINUE"
"2-STOP"
?\->R
R=1\=>\GotoA
\Lbl Q
\ClrText
\ClrGraph
\Stop
\Lbl E
\ClrText
"PLEASE REMAINSTILL WHILE  COLLECTING   DATA"\Disp\GotoA

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:74
File Name:MOTION
Group Name:
Password:
Option1:NL
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:115
File Name:PHOTOGAT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM WILL RUN THE PHOTOGATE   SENSOR."\Disp"IT IS NOT    WRITTEN YET. RETURNING TO CASIOLAB..."\Disp\Prog "CASIOLAB"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1808
File Name:CALIBRT1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
0\->F
\If S=1
\Then "CHOOSE UNITS"
"1-G"
"2-M\slashS\x^2"
?\->U
12.792\->A
\(-)28.78\->B
\If U=2
\Then 9.8A\->A
9.8B\->B
\IfEnd
\Return
\IfEnd
\If S=2
\Then "CHOOSE UNITS"
"1-ATM"
"2-IN HG"
"3-MM HG"
?\->U
\If U=1
\Then 0.077\->A
0.809\->B
\IfEnd
\If U=2
\Then 2.292\->A
24.215\->B
\IfEnd
\If U=3
\Then 58.52\->A
614.84\->B
\IfEnd
\Return
\IfEnd
\If S=3
\Then "CHOOSE UNITS"
"1-ATM"
"2-KPA"
"3-IN HG"\Disp"4-MM HG"
?\->U
\If U=1
\Then 0.271\->A
0.729\->B
\IfEnd
\If U=2
\Then 27.459\->A
73.866\->B
\IfEnd
\If U=3
\Then 8.125\->A
21.875\->B
\IfEnd
\If U=4
\Then 205.825\->A
554.175\->B
\IfEnd
\Return
\IfEnd
\If S=4
\Then "PERFORM A NEWCALIBRATION  EACH TIME YOUUSE THE"\Disp"COLORIMETER."\Disp1\->F
\Return
\IfEnd
\If S=5
\Then 2000\->A
0\->B
\Return
\IfEnd
\If S=6
\Then "PICK SETTING"
"1-LOW(0-200)"
"2-MED(0-2000)3-HI(0-20000)"?\->U
\ClrText
"CHOOSE UNITS"
"1-MICROS"
"2-MG\slashL"
?\->W
\If U=1
\Then 65.7\->A
0\->B
\IfEnd
\If U=2
\Then 847.2\->A
0\->B
\IfEnd
\If U=3
\Then 7819\->A
0\->B
\IfEnd
\If (U<3)+(W=2)=2
\Then .5A\->A
.5B\->B
\IfEnd
\If (U=3)+(W=2)=2
\Then 3909.25\->A
0.25\->B
\IfEnd
\Return
\IfEnd
\If S=7
\Then "CURRENT OR   VOLTAGE?"
"1-CURRENT"
"2-VOLTAGE"?\->U
\(-)0.25\->A
0.625\->B
\If U=2
\Then \(-)2.5\->A
6.25\->B
\IfEnd
\Return
\IfEnd
\If S=8
\Then 3.27\->A
\(-)0.327\->B
\Return
\IfEnd
\If S=10
\Then 9.8\->A
\(-)9.8\->B
\Return
\IfEnd
\If S=12
\Then "SENSOR MODEL"
"1-CASIO"
"2-VERNIER"
?\->U
\If U=1
\Then 2\->F
{1,C,1}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\ClrText
"PICK SETTING"
"1:0-600 LUX"
"2:0-6K LUX"
"3:0-150K LUX"
?\->W
\If W=1
\Then 200\->A
0\->B
\IfEnd
\If W=2
\Then 2220\->A
0\->B
\IfEnd
\If W=3
\Then 50000\->A
0\->B
\IfEnd
\Return
\IfEnd
\If S=13
\Then "PICK SETTING"
"1-LOW"
"2-HIGH"
?\->U
\If U=1
\Then 3.225\->A
\(-)8.063\->B
\IfEnd
\If U=2
\Then 0.16\->A
\(-)0.32\->B
\IfEnd
\ClrText
"CHOOSE UNITS"
"1-GAUSS"
"2-MTESLA"
?\->W
\If W=1
\Then 10A\->A
10B\->B
\IfEnd
\Return
\IfEnd
\If S=16
\Then \(-)3.838\->A
13.72\->B
\Return
\IfEnd
\If S=18
\Then "CHOOSE UNITS"
"1-ATM"
"2-PSI"
?\->U
\If U=1
\Then 2.203\->A
0\->B
\IfEnd
\If U=2
\Then 32.37\->A
0\->B
\IfEnd
\Return
\IfEnd
\If S=19
\Then 35.1\->A
\(-)22.8\->B
\Return
\IfEnd
\If S=20
\Then "SENSOR MODEL"
"1: CASIO"
"2: DIRECT-   CONNECT"
?\->U
\ClrText
"CHOOSE UNITS"
"1-CELSIUS"
"2-FAHRENHEIT"
?\->W
\If (U=1)+(W=1)=2
\Then 2\->F
{1,C,7}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\If (U=1)+(W=2)=2
\Then 2\->F
{1,C,8}\->\List 6
\Send(\List 6)
\Return
\IfEnd
\If (U=2)+(W=1)=2
\Then 55.55\->A
\(-)17.78\->B
\Return
\IfEnd
100\->A
0\->B
\Return
\IfEnd
\If S=21
\Then 2\->F
{1,C,1}\->\List 6
\Send(\List 6)
\Return
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:949
File Name:CALIBRT2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
0\->F
\If S=5
\Then 2\->F
\ClrText
"COLLECT A    FRESH AIR    SAMPLE."\Disp\ClrText
{2,C}\->\List 6
\Send(\List 6)
{1,C,1}\->\List 6
\Send(\List 6)
{3,1,\(-)1,0,0}\->\List 6
\Send(\List 6)
"FX-7400 WILL WAIT FOR DATATO STEADY    BTWN 360-440"\Disp\Lbl 2
"PRESS [EXE]  WHEN YOU ARE REDY TO BEGIN"\Disp\ClrText
{1,2,1,2,1}\->\List 3
\Lbl 3
\For 1\->M \To 5
\Receive(R)
R\->\List 3[M]
\Next 
1\->M
\While (\List 3[1]=\List 3[2])+(\List 3[1]=\List 3[3])+(\List 3[1]=\List 3[4])+(\List 3[1]=\List 3[5])<4
\Receive(R)
R\->\List 3[M]
1+M\->M:M=6\=>1\->M
\WhileEnd
\List 3[1]<360\=>\Goto3
\List 3[1]>440\=>\Goto3
\ClrText
"PRESS THE    CALIBRATION  BUTTON."\Disp"CALIBRATD AT":\List 3[M]\Disp"REPEAT       CALIBRATION?"
"1-YES"
"2-NO"
?\->M:M=1\=>\Goto2
\Goto1
\IfEnd
"2-POINT      CALIBRATION"\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
I=1\=>"CALIBRATION  POINT 1"\DispI=2\=>"CALIBRATION  POINT 2"\Disp"WHEN EA-100  STABILIZES,  PRESS TRIGGER"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(R)
R\->\List 1[I]
\ClrText
"ENTER"
I=1\=>"FIRST"
I=2\=>"SECOND"
"REFERENCE    POINT"?\->R
R\->\List 2[I]
\Next 
\LinearReg \List1,\List2
\ClrText
\Ra\->A
\Rb\->B
"RECORD THESE CALIBRATION  VALUES:"\Disp"SLOPE = A =":A\Disp"Y-INT = B =":B\Disp\Lbl 1
\ClrText
"CALIBRATION  IS COMPLETE."\Disp\ClrText
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:71
File Name:CALIBRT3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ENTER THE    SLOPE, A"
?\->A
"ENTER THE    INTERCEPT, B"
?\->B
\ClrText
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:189
File Name:COLLECT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"CHOOSE A     COLLECTION   METHOD"\Disp\Lbl 1
"1-NONREAL      TIME       2-TRIGGER\slashASK  ASKS FOR X"\Disp"3-REAL TIME"
"4-REPEAT LIST"?\->D
D=4\=>\Goto1
D=1\=>\Prog "COLLECTT"
D=2\=>\Prog "COLLECTX"
D=3\=>\Prog "COLLECTR"
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:643
File Name:COLLECTT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->L
\ClrText
\If P>1
\Then "WHICH CHANNELDO YOU WANT  TO MONITOR?"\Disp"1: CH. 1"
P=2\=>O=0\=>"2: CH. 2"
P=2\=>O=1\=>"4: CH. 4"
P=3\=>O=0\=>"2: CH. 2     3: CH. 3"
P=3\=>O=1\=>"2: CH. 2     4: CH. 4"
?\->J
{2,J}\->\List 6
\Send(\List 6)
\IfEnd
\ClrText
"ENTER TIME   BETWEEN      SAMPLES"?\->T
\ClrText
"HOW MANY     SAMPLES? FROM2-255"?\->M
\ClrText
"TO COLLECT   PRESS TRIGGER"
{3,T,M,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"TRANSFERRING"
"DATA..."
\If P=1:\Then \Receive(\List 1):\Receive(\List 2):\IfEnd
\If P=2:\Then \Receive(\List 1):\Receive(\List 2):\Receive(\List 3):\IfEnd
\If P=3:\Then \Receive(\List 1):\Receive(\List 2):\Receive(\List 3):\Receive(\List 4):\IfEnd
\If O=1:\Then \Receive(\List 5):\Receive(\List 6):\IfEnd
\Seq(X,X,0,T(M-1),T)\->\List 1
\ClrText
"THE DATA IS  STORED IN THEFOLLOWING    LISTS:"\Disp"LIST 1       LIST 2"
P=2\=>"LIST 3"\DispP=3\=>"LIST 3       LIST 4"\DispO=1\=>"LIST 5       LIST 6"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:644
File Name:COLLECTX
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\If P>1
\Then "WHICH CHANNELDO YOU WANT  TO MONITOR?"\Disp"1: CH. 1"
P=2\=>O=0\=>"2: CH. 2"
P=2\=>O=1\=>"4: CH. 4"
P=3\=>O=0\=>"2: CH. 2     3: CH. 3"
P=3\=>O=1\=>"2: CH. 2     4: CH. 4"
?\->J
{2,J}\->\List 6
\Send(\List 6)
\IfEnd
\ClrText
"HOW MANY     SAMPLES"?\->R
\ClrText
\Seq(X,X,1,R,1)\->\List 1
\Seq(X,X,1,R,1)\->\List 2
P=2\=> \Seq(X,X,1,R,1)\->\List 3
\If P=3:\Then \Seq(X,X,1,R,1)\->\List 3:\Seq(X,X,1,R,1)\->\List 4:\IfEnd
\For 1\->I \To R
\ClrText
"ENTER X VALUEFOR SAMPLE #":I\Disp?\->X
X\->\List 1[I]
\ClrText
{3,.25,1,0,1}\->\List 6
\Send(\List 6)
"WHEN EA-100  STABILIZES   PRESS TRIGGER"
\Receive(E):E\->\List 2[I]
\If P=2:\Then \Receive(F):F\->\List 3[I]:\IfEnd
\If P=3:\Then \Receive(F):\Receive(G):F\->\List 3[I]:G\->\List 4[I]:\IfEnd
\Next 
\ClrText
"THE DATA IS  STORED IN THEFOLLOWING    LISTS:"\Disp"LIST 1       LIST 2"
P=2\=>"LIST 3"\DispP=3\=>"LIST 3       LIST 4"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:343
File Name:COLLECTR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ENTER TIME   BETWEEN      SAMPLES"?\->T
\ClrText
"HOW MANY     SAMPLES? FROM1-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
{3,T,\(-)1}\->\List 6
\Send(\List 6)
"PRESS [EXE]  TO BEGIN     COLLECTING   DATA."\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 
"[EXE]"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:452
File Name:GRAPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl D
\ClrText
"SELECT A     GRAPH"\Disp"LIST V. LIST"
"1- 1 V. 2"
P=2\=>"2- 1 V. 3"\DispP=3\=>"2- 1 V. 3    3- 1 V. 4"\DispO=1\=>"4-TIME V D\slashDT5-TIME V.        D2\slashDT2"
?\->G
\ClrText
G=1\=>\Prog "GRAPH1"
G=2\=>\Prog "GRAPH2"
G=3\=>\Prog "GRAPH3"
G=4\=>\Prog "GRAPH4"
G=5\=>\Prog "GRAPH5"
\If L=1:\Then "DO YOU WANT  TO SELECT    PART OF THE  GRAPH?"\Disp"1-YES"
"2-NO"
?\->R
\ClrText
\If R=1:\Then "TRACE GRAPH  TO PICK STARTAND STOP TIMETHEN HIT EXE"\Disp\RclV-Win 
\DrawStat\Disp"[EXE]"\Disp\ClrGraph
\Prog "SELECT"
\IfEnd
\IfEnd
\ClrText
"VIEW GRAPH  AGAIN?"
"1-YES"
"2-NO"?\->R
R=1\=>\GotoD
\ClrText
\ClrGraph
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:178
File Name:GRAPH1
Group Name:
Password:
Option1:NL
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
S=9\=>0\->W
\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 
\If D=2
\Then \S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\Else \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\IfEnd
\DrawStat\Disp"[EXE]"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:170
File Name:GRAPH2
Group Name:
Password:
Option1:NL
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 
\If D=2
\Then \S-Gph1 \DrawOn,\Scatter,\List1,\List3,1,\Square
\Else \S-Gph1 \DrawOn,\xyLine,\List1,\List3,1,\Dot
\IfEnd
\DrawStat\Disp"[EXE]"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:170
File Name:GRAPH3
Group Name:
Password:
Option1:NL
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 
\If D=2
\Then \S-Gph1 \DrawOn,\Scatter,\List1,\List4,1,\Square
\Else \S-Gph1 \DrawOn,\xyLine,\List1,\List4,1,\Dot
\IfEnd
\DrawStat\Disp"[EXE]"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:290
File Name:GRAPH4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\If (P=1)+(D=2)=2:\Then "GRAPH NOT    POSSIBLE.    NO TIME DATA COLLECTED."\Disp\Return
\IfEnd
\If (P=1)+(D=3)=2:\Then "GRAPH NOT    POSSIBLE.    NO TIME DATA COLLECTED."\Disp\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 
\S-Gph1 \DrawOn,\xyLine,\List1,\List5,1,\Dot
\DrawStat\Disp"[EXE]"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:290
File Name:GRAPH5
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\If (P=1)+(D=2)=2:\Then "GRAPH NOT    POSSIBLE.    NO TIME DATA COLLECTED."\Disp\Return
\IfEnd
\If (P=1)+(D=3)=2:\Then "GRAPH NOT    POSSIBLE.    NO TIME DATA COLLECTED."\Disp\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 
\S-Gph1 \DrawOn,\xyLine,\List1,\List6,1,\Dot
\DrawStat\Disp"[EXE]"\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:152
File Name:POLARIZE
Group Name:
Password:
Option1:NL
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 30 MIN  BEFOR RUNNINGCASIOLAB."\Disp\ClrText
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:649
File Name:SELECT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->L
\ClrText
\ClrGraph
"ENTER THE    START TIME"?\->A
\ClrText
"ENTER THE    STOP TIME"?\->B
\ClrText
"REVISING DATA..."
(A/T)+1\->I
(B-A)/T\->J
I+J\->J
\If (P=1)+(O=0)=2:\Then \List 1\->\List 3:\List 1\->\List 4
\List 1\->\List 5:\List 1\->\List 6:\IfEnd
\If (P=1)+(O=1)=2:\Then \List 1\->\List 3:\List 1\->\List 4
\IfEnd
\If (P=2)+(O=0)=2:\Then \List 1\->\List 4:\List 1\->\List 5
\List 1\->\List 6:\IfEnd
\If (P=2)+(O=1)=2:\Then \List 1\->\List 4:\IfEnd
\If (P=3)+(O=0)=2:\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 
\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 
\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 
\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 
\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 
\List 5\->\List 6
\List 4\->\List 5
\List 3\->\List 4
\List 2\->\List 3
\List 1\->\List 2
\Seq(TX,X,0,J-I,1)\->\List 1
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:210
File Name:GETDATA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"HOW MANY     SENSORS WERE USED"?\->R
\ClrText
"HOW MANY     SAMPLES WERE COLLECTED"?\->N
\ClrText
"ENTER TIME   BETWEEN      SAMPLES"?\->T
\ClrText
\Receive(\List 1):\Receive(\List 2)
\If R=2:\Then \Receive(\List 3):\IfEnd
\If R=3:\Then \Receive(\List 3):\Receive(\List 4):\IfEnd
\Seq(TX,X,0,N-1,1)\->\List 1
\Stop
%End