%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1629
File Name:MELTING
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrText
\ClrList
" "
" Melting Ice"
" \Experiment"
\Seq(J,J,1,3,1)\->\List 1
\Seq(0,J,1,3,1)\->\List 2
\Seq(0,J,1,3,1)\->\List 3
\Seq(0,J,1,2,1)\->\List 4
\Seq(0,J,1,2,1)\->\List 5
{0}\->\List 6
\Send(\List 6)
{1,1,7}\->\List 6
\Send(\List 6)
\ClrText
" Which data"
" analyzer are"
" you using?"
" 1: EA-100"
" 2: EA-200"
?\->Q
\ClrText
" Gather all"
" materials."
" "
" When ready,"
" press EXE"\Disp\ClrText
" Fill cup 1"
" halfway with"
" warm water."
" "
" Press EXE"\Disp\ClrText
" Fill cup 2"
" halfway with"
" room temperature"
" water."
" Press EXE"\Disp{3,4,-1}\->\List 6
\For 1\->J \To 2
\ClrText
"  "
" Place Probe"
\If J=1
\Then "  in cup 1."
" Press EXE"\Disp\Send(\List 6)
\Else "  in cup 2."
" Press EXE"\Disp\If Q=2
\Then \Send(\List 6)
\IfEnd
\IfEnd
\ClrText
" "
" Temperature is"
" \ Not yet stable."
" "
" Please wait..."
10\->T
0\->N
20\->M
0.05\->E
\Do
N+1\->N
\If N=1
\Then \Receive(Y)
\Else \Receive(Z)
\Abs (Z-Y)\->T
Z\->Y
\IfEnd
\LpWhile T>E
\If J=1
\Then Z\->\List 2[1]
\Else Z\->\List 3[1]
\IfEnd
\ClrText
" Temperature"
" is shown below."
" Press EXE"
Z\Disp\ClrText
" Add ice."
" Enter Time"
" (in minutes)"
?\->X
\If J=1
\Then X\->\List 4[1]
\Else X\->\List 5[1]
\IfEnd
\ClrText
" Stir!"
" When ice has"
" melted, "
" Press EXE"\Disp\ClrText
" Enter"
" \Stopping time"
" (In minutes)"
?\->X
\If J=1
\Then \If X\<=\List 4[1]
\Then \Do
\ClrText
"  Inc\orrect"
"  Time!"
"  Try again:"
?\->X
\LpWhile X\<=\List 4[1]
\IfEnd
X-\List 4[1]\->\List 4[2]
\List 4[2]\->\List 2[3]
\Else \If X\<=\List 5[1]
\Then \Do
\ClrText
"  Inc\orrect"
"  Time!"
"  Try again:"
?\->X
\LpWhile X\<=\List 5[1]
\IfEnd
X-\List 5[1]\->\List 5[2]
\List 5[2]\->\List 3[3]
\IfEnd
10\->T
0\->N
20\->M
0.05\->E
\If Q=2
\Then \Send(\List 6)
\IfEnd
\Do
N+1\->N
\If N=1
\Then \Receive(Y)
\Else \Receive(Z)
\Abs (Z-Y)\->T
Z\->Y
\IfEnd
\If N>2
\Then \If T>E
\Then \ClrText
" "
" Temperature is"
" \ Not yet stable."
" "
" Please wait..."
\IfEnd
\IfEnd
\LpWhile T>E
\If J=1
\Then Z\->\List 2[2]
\Else Z\->\List 3[2]
\IfEnd
\ClrText
" Temperature"
" is shown below."
" Press EXE"
Z\Disp\Next 
\Seq(0,J,1,2,1)\->\List 4
\Seq(0,J,1,2,1)\->\List 5
\Seq(0,J,1,3,1)\->\List 6
\ClrText
" DATA st\ored"
" in STAT lists."
" Press EXE"\Disp\ClrText
"  "
" \Experiment"
" finished."
" "
" Press EXE"
" to repeat."
\Norm

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1482
File Name:COIL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\ClrText
" Coils \and"
" Currents"
" \Experiment."
" (EA-100 version)"
" Press EXE"\Disp\ClrText
" Connect leads"
" to coil."
" "
" Press EXE"\Disp\ClrText
" Label magnet with"
" N\orth \and South."
" poles."
" "
" Press EXE"\Disp\ClrText
{3,.01,200,1,0}\->\List 6
\Do
1\->E
" TRIAL RUN:"
" Hold magnet"
" above coil,"
" N\orth end down."
" Press EXE, \and"
" drop magnet"\Disp\Send(\List 6)
\For 1\->K \To 500
\Next 
\ClrText
"Please wait..."
\Receive(\List 1)
\Receive(\List 2)
\SortA(\List 2,\List 1)
\If \List 2[1]>0
\Then \ClrText
"No voltage!"
"Please try again."
"Press EXE"\Disp0\->E
\IfEnd
\LpWhile E=0
\If \List 1[1]>\List 1[199]
\Then \ClrText
"Good, voltage leads"
"are in c\orrect"
"position."
" "
"press EXE"\Disp\IfEnd
\If \List 1[1]<\List 1[199]
\Then "Please switch"
"voltage leads."
" "
"press EXE"\Disp\IfEnd
\ClrText
"Now, f\or the"
"actual measurements"
"Press EXE"\Disp{3,.1,1,0,0}\->\List 6
\Send(\List 6)
\Receive(V)
\Do
\Do
\ClrText
"Which end"
"will go first?"
"1: N\orth"
"2: South"
?\->P
\LpWhile P\<>1\ And P\<>2
\If P=1
\Then {3,.002,150,1,2,V+.06,1}\->\List 6
\Else {3,.002,150,1,2,V-.06,0}\->\List6
\IfEnd
\ClrText
"Press EXE,"
"to prepare EA-100"\Disp\Send(\List 6)
\ClrText
" Drop magnet"
" through when ready."
" Press EXE when done."\Disp\ClrText
"Please Wait..."
\Receive(\List 1)
\Receive(\List 2)
\List 2-V\->\List 2
\ClrText
"1: YES"
"2: NO"
"GRAPH DATA?"
?\->G
\If G=1
\Then \Min(\List 2)\->A
\Max(\List 2)\->Z
\If A=Z
\Then Z+.01\->Z
A-.01\->A
\Else (Z-A)/5\->L
\IfEnd
\S-WindMan
\AxesOn
\(-)(.3/4)\->\Xmin
(.3)\->\Xmax
(A-L)\->\Ymin
(Z+L)\->\Ymax
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Square
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Cls
\DrawStat
\Fix 3
(\Int (1000*A)/1000)\->A
(\Int (1000*Z)/1000)\->Z
\Text 1,30,"Voltage vs. Time"
\Text 5,1,Z
\Text 50,1,A
\Text 25,1,"Volts"\Disp\IfEnd
\ClrText
\SortA(\List 2,\List 1)
\List 1[1]\->B
\List 1[150]\->Y
"Max Voltage= "
Z\Disp"at time: "
Y\Disp\ClrText
"Min Voltage= "
A\Disp"at time: "
B\Disp\ClrText
" "
"1: YES"
"2: NO"
"Another Trial?"
?\->A
\LpWhile A=1
\Norm
\S-WindAuto
"\Done"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:927
File Name:FOCUS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrList
\ClrText
1\->I
1\->Z
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
"Focus of light beams"
"\Experiment."
" "
"Press EXE to begin"\Disp\ClrText
"Prepare Setup."
" "
"When ready, "
"press EXE"\Disp\Do
1\->E
\ClrText
" How many"
" trials?"
" 2\<=N\<=255"
?\->K
\If K<2
\Then \ClrText
" Number must be"
" between"
" 2 \and 255."
" "
" Press EXE to retry"\Disp0\->E
\IfEnd
\If K>255
\Then \ClrText
" Number must be"
" between"
" 2 \and 255."
" "
" Press EXE to retry"\Disp0\->E
\IfEnd
\LpWhile E=0
\Seq(0,J,1,K,1)\->\List 1
\Seq(0,J,1,K,1)\->\List 2
\Do
\ClrText
"Enter Angle"
"(in degrees)"
?\->A
\ClrText
"Press EXE to take a"
"measurement"\Disp{3,1,1,0,0}\->\List 6
\Send(\List 6)
\For 1\->Q \To 50
\Next 
\Receive(B)
\ClrText
"Light Intensity was:"
B\DispA\->\List 1[I]
B\->\List 2[I]
I+1\->I
\ClrText
\If I<K
\Then \ClrText
"Move probe to next"
"angle."
" "
"press EXE when ready"\Disp\IfEnd
\LpWhile I<K+1
\Min(\List 2)\->A
\Min(\List 1)\->B
\Max(\List 2)\->Z
\Max(\List 1)\->Y
(Z-A)/5\->L
\FuncOff
\S-WindMan
\Abs (Y-B)/6\->K
(Y+K)\->\Xmax
(B-K)\->\Xmin
(A-L)\->\Ymin
(Z+L)\->\Ymax
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Square
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Cls
\DrawStat
\Int A\->A
\Int Z\->Z
\Text 8,1,Z
\Text 50,1,A
\Text 25,1,"Int"
\Text 1,1,"Intensity vs Angle (deg)"\Disp\ClrText
"\Done"
"Press EXE to"
"restart."
\Norm
\S-WindAuto

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1406
File Name:LIGHT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrList
\ClrText
"  "
"Light Intensity"
"  \Experiment"
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,0.5,1,0,0}\->\List 6
\Seq(0,J,1,10,1)\->\List 3
\Seq(0,J,1,10,1)\->\List 4
\ClrText
" Gather all materials"
" "
" When ready, "
" Press EXE"\Disp0\->G
1\->K
\Do
\Send(\List 6)
\If K=1
\Then \ClrText
" Adjust Intensity"
" \To about 1000"
" "
" press EXE"
" to begin adjustment"\Disp\IfEnd
\For 1\->Q \To 50
\Next 
\Receive(X)
\ClrText
"Light ="
X\Disp0\->H
\Do
\ClrText
"  Continue"
" Adjustment?"
"  1: YES"
"  2: NO"
?\->X
\For 1\->K \To 2
\If X=K
\Then X\->H
\IfEnd
\Next 
\LpWhile H=0
\If X=2
\Then X\->G
\IfEnd
\LpWhile G=0
0\->Z
0\->J
\Do
J+1\->J
\If J=11
\Then \ClrText
" No m\ore than ten"
" trials allowed."
"  "
" PRESS EXE"\Disp\Stop
\IfEnd
\ClrText
"  "
"   Enter"
"Centimeters"
"from source."
?\->X
X\->\List 3[J]
\ClrText
"  "
" Press EXE"
" to take a reading."\Disp\Send(\List 6)
\For 1\->Q \To 100
\Next 
\Receive(X)
\ClrText
"Light ="
X\DispX\->\List 4[J]
0\->G
\If J>1
\Then \If J<10
\Then \Do
\ClrText
"New Position?"
"  1: YES"
"  2: NO"
?\->X
\For 1\->K \To 2
\If X=K
\Then X\->G
\IfEnd
\Next 
\LpWhile G=0
\IfEnd
\Else 1\->X
\IfEnd
\If X=1
\Then \ClrText
"  Move probe"
"  to new position"
"  "
" Press EXE"\Disp\Else 1\->Z
\IfEnd
\LpWhile Z=0
\Seq(0,K,1,J,1)\->\List 1
\Seq(0,K,1,J,1)\->\List 2
\For 1\->K \To J
\List 3[K]\->\List 1[K]
\List 4[K]\->\List 2[K]
\Next 
0\->Z
\Do
\ClrText
"  "
" \Graph data?"
" 1: YES"
" 2: NO"
?\->X
\If X=2
\Then X\->Z
\Else \If X=1
\Then \Min(\List 2)\->A
0\->B
\Max(\List 2)\->Z
\Max(\List 1)\->Y
(Z-A)/5\->L
\FuncOff
\S-WindMan
\Abs (Y-B)/6\->K
(Y+K)\->\Xmax
(B-K)\->\Xmin
(A-L)\->\Ymin
(Z+L)\->\Ymax
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Square
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Cls
\DrawStat
\Int A\->A
\Int Z\->Z
\Text 8,1,Z
\Text 49,1,A
\Text 25,1,"Int."
\Text 1,20,"Intensity vs Dist (cm)"\Disp\IfEnd
\IfEnd
\LpWhile Z=0
\Seq(0,J,1,10,1)\->\List 3
\Seq(0,J,1,10,1)\->\List 4
\ClrText
" data st\ored in"
" Stat Lists."
" "
"Press EXE"\Disp\ClrText
"  "
" \Experiment Finished."
"  "
"  Press EXE"
"  to repeat"
\S-WindAuto

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2273
File Name:ADDWATER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrText
\ClrList
" "
" Mixing Hot \and Cold"
"   Water \Experiment"
"   "
"  Press EXE to begin "\Disp\Seq(0,J,1,7,1)\->\List 1
\Seq(0,J,1,7,1)\->\List 2
{0}\->\List 6
\Send(\List 6)
\ClrText
" Gather all materials"
" "
" When ready,"
" press EXE."\Disp\ClrText
" Enter Mass of cup C"
"      (in \Grams)"
?\->X
\If X\<=0
\Then \Do
\ClrText
" Inc\orrect Mass!"
" Press EXE to enter"
" a new Mass"\Disp?\->X
\LpWhile X\<=0
\IfEnd
X\->\List 1[1]
\ClrText
" Pour cold water"
" into cup C."
" "
" press EXE"\Disp\ClrText
" Enter Mass of"
" cup C \and water."
" (in grams.)"
?\->X
\If X\<=\List 1[1]
\Then \Do
\ClrText
" Inc\orrect Mass!"
" Press EXE to enter"
" a new mass"\Disp?\->X
\LpWhile X\<=\List 1[1]
\IfEnd
X\->\List 1[2]
\ClrText
" Water mass is"
" displayed below."
" "
" press EXE"
\List 1[2]-\List 1[1]\->M
M\->\List 1[3]
M\Disp\ClrText
" Enter mass of"
" cup H."
" (in \Grams)"
?\->X
\If X\<=0
\Then \Do
\ClrText
" Inc\orrect mass!"
" Press EXE to enter"
" a new mass"\Disp?\->X
\LpWhile X\<=0
\IfEnd
X\->\List 2[1]
\ClrText
" Pour Hot Water"
" Into cup H."
" "
" press EXE"\Disp\ClrText
"Enter Mass of"
"cup H \and water"
"(in grams)."
?\->X
\If X\<=\List 2[1]
\Then \Do
\ClrText
"Inc\orrect mass!"
"Press EXE to enter"
"A new mass"\Disp?\->X
\LpWhile X\<=\List 2[1]
\IfEnd
X\->\List 2[2]
\ClrText
"Water mass is"
"displayed below"
"press EXE"
\List 2[2]-\List 2[1]\->M
M\->\List 2[3]
M\Disp\ClrText
"Insert probes"
"into both cups."
" "
"press EXE"\Disp{1,1,7}\->\List 6
\Send(\List 6)
{1,2,7}\->\List 6
\Send(\List 6)
{3,9,10,1,0}\->\List 6
\Send(\List 6)
\ClrText
"  "
"  press EXE"
"  when done"\Disp\Receive(\List 3)
\Receive(\List 4)
\Receive(\List 5)
\1-Variable \List 4
\Meanx\->A
\1-Variable \List 5
\Meanx\->B
\If A>B
\Then A\->\List 2[4]
B\->\List 1[4]
\Else A\->\List 1[4]
B\->\List 2[4]
\IfEnd
\ClrText
" Starting"
" Temperature in"
" cup C is: "
\List 1[4]\Disp\ClrText
" Starting"
" Temperature in"
" cup H is: "
\List 2[4]\Disp\ClrText
" Pour water from"
" cup C to cup H."
" "
" press EXE"\Disp\ClrText
"  "
"Insert probe"
" "
"press EXE"\Disp{3,15,10,0,0}\->\List 6
\Send(\List 6)
\ClrText
"  "
" press EXE"
" when sampling"
" is done."\Disp\Receive(\List 3)
\Receive(\List 4)
\Receive(\List 5)
\1-Variable \List 4
\Meanx\->A
\1-Variable \List 5
\Meanx\->B
(\List 1[3]*\List 1[4]+\List 2[3]*\List 2[4])/(\List 1[3]+\List 2[3])\->C
\If \Abs (A-C)<\Abs (B-C)
\Then A\->\List 1[5]
A\->\List 2[5]
\Else B\->\List 1[5]
B\->\List 2[5]
\IfEnd
\ClrText
" Final"
" Temperature of"
" water is: "
\List 1[5]\Disp\List 1[5]-\List 1[4]\->\List 1[6]
\List 2[5]-\List 2[4]\->\List 2[6]
\ClrText
" Change in"
" temperature"
" in Cup C is: "
\List 1[6]\Disp\ClrText
" Change in"
" temperature"
" in Cup H is: "
\List 2[6]\Disp4.18*\List 1[3]*\List 1[6]\->\List 1[7]
4.18*\List 2[3]*\List 2[6]\->\List 2[7]
\ClrText
"  Energy gained "
"  is displayed below."
"  press EXE"
\List 1[7]\Disp\ClrText
"  Energy lost "
"  is displayed below."
"  press EXE"
\List 2[7]\Disp\Seq(0,J,1,10,1)\->\List 3
\Seq(0,J,1,10,1)\->\List 4
\Seq(0,J,1,10,1)\->\List 5
\ClrText
" DATA st\ored in"
" STAT lists."
" "
" PRESS EXE"\Disp\ClrText
" "
" \Experiment"
" Finished."
" "
"  press EXE"
"  to repeat"
\Norm

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:867
File Name:FRUIT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrText
\ClrList
" Fruit Battery"
" \Experiment."
" "
" press EXE"\Disp1\->A
\ClrText
" Which data analyzer"
" are you using?"
" 1: EA-100"
" 2: EA-200"
?\->D
\ClrText
" Gather all"
" materials.  "
" "
" Press EXE"
" when ready"\Disp\Do
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,1,-1}\->\List 6
\ClrText
" Connect leads."
" "
" press EXE to"
" take a reading."\Disp\Send(\List 6)
\ClrText
" Voltage not"
" stable,"
" Please Wait.."
10\->T
0\->N
0.01\->E
\Do
N+1\->N
\If N=1
\Then \Receive(Y)
\Else \Receive(Z)
\Abs (Z-Y)\->T
Z\->Y
\IfEnd
\If N=40
\Then \ClrText
" Check Connections!"
" press EXE"
" to try again."\Disp\ClrText
" Voltage not"
" stable,"
" Please Wait.."
0\->N
10\->T
\If D=2
\Then \Send(\List 6)
\IfEnd
\IfEnd
\If Y<.1
\Then \ClrText
" Check Connections!"
" press EXE"
" to try again."\Disp\ClrText
" Voltage not"
" stable,"
" Please Wait.."
0\->N
10\->T
\If D=2
\Then \Send(\List 6)
\IfEnd
\IfEnd
\LpWhile T>E
\Receive(V)
\ClrText
" Voltage is"
" below."
" Press EXE"
V\Disp\ClrText
" 1: YES"
" 2: NO"
" Another trial?"
?\->A
\LpWhile A=1
\ClrText
" Program finished."
" "
" Press EXE"
" to restart."
\Norm

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1157
File Name:GRAVITY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrText
\ClrList
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
" "
" Speed \and "
" Acceleration"
" \Experiment."
" "
" Press EXE to begin"\Disp\ClrText
" Gather all"
" materials.  "
" "
" When ready,"
" press EXE"\Disp\ClrText
" Intensity"
" should be at"
" about 900"
" "
" press EXE to"
" begin adjustment"\Disp\ClrText
\Do
{3,.01,1,0,0}\->\List 6
\ClrText
" Press EXE"
" to measure current"
" intensity."\Disp\Send(\List 6)
\For 1\->Q \To 50
\Next 
\Receive(S)
\Receive(R)
\ClrText
" CH1 reading"
" shows below."
" Press EXE"
S\Disp" CH2 reading"
" shows below."
" Press EXE"
R\Disp\ClrText
" 1: YES"
" 2: NO"
" CONTINUE"
" ADJUSTMENT"
?\->W
\LpWhile W=1
\ClrList
\Seq(0,J,1,100,1)\->\List 1
\Seq(0,J,1,100,1)\->\List 2
\Seq(0,J,1,100,1)\->\List 3
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{3,.02,100,1,0}\->\List 6
\Do
\ClrText
" Position ball"
" on ramp."
" "
" When ready,"
" press EXE"\Disp\ClrText
" Let ball go,"
" \and press EXE"
" together."\Disp\Send(\List 6)
\ClrText
" When sampling is"
" done, "
" press EXE"\Disp\ClrText
" Please wait..."
\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\ClrText
\Min(\List 2)\->A
\Min(\List 3)\->B
1\->I
\Do
\List 2[I]\->C
\List 3[I]\->D
\If C=A
\Then \List 1[I]\->Y
\IfEnd
\If D=B
\Then \List 1[I]\->Z
\IfEnd
I+1\->I
\LpWhile I<101
Z-Y\->T
\ClrText
" Travel Time"
" is below.  "
" Press EXE to"
" Continue."
T\Disp\ClrText
" Another Trial?"
" 1: YES"
" 2: NO"
?\->X
\LpWhile X=1
" Program Finished."
" Press EXE"
" \To restart."
\Norm

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2469
File Name:TRANSFER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrList
\ClrText
" "
" Heat Transfer"
" \Experiment"
" "
" Press EXE to begin"
\Seq(0,J,1,5,1)\->\List 1
\Seq(0,J,1,5,1)\->\List 2
\Seq(0,J,1,5,1)\->\List 3
\Seq(0,J,1,5,1)\->\List 4
\Seq(0,J,1,5,1)\->\List 5
\ClrText
" Which Analyzer"
" are you using?"
" 1: EA-100"
" 2: EA-200"
?\->Q
{0}\->\List 6
\Send(\List 6)
\ClrText
" Gather all"
" materials."
" "
" When ready, "
" Press EXE"\Disp0\->A
\Do
\ClrText
" Choose your"
" Accuracy."
" 1: <0.1 DEG"
" 2: <0.5 DEG"
?\->X
\For 1\->I \To 2
\If X=I
\Then X\->A
\IfEnd
\Next 
\LpWhile A=0
\If X=1
\Then 0.1\->E
\Else 0.5\->E
\IfEnd
0\->J
0\->F
\Lbl 1
\Do
J+1\->J
\If J=6
\Then \ClrText
" No m\ore than"
" five trials are"
" allowed. "
" "
" Press EXE"\Disp\Stop
\IfEnd
\ClrText
" Fill cup"
" halfway with"
" cold water."
" "
" Press EXE"\Disp\ClrText
" "
" Put the lid"
" on the cup."
" "
" Press EXE"\Disp{0}\->\List 6
\Send(\List 6)
{1,1,7}\->\List 6
\Send(\List 6)
{3,3,-1}\->\List 6
\ClrText
" Place probe"
" In the Water."
" Then, press EXE"\Disp\Send(\List 6)
\ClrText
"  "
" Temperature is"
" \ Not yet stable."
" Please wait..."
10\->T
0\->N
40\->M
\Do
N+1\->N
\If N=1
\Then \Receive(Y)
\Else \Receive(Z)
\If N>3
\Then \Abs (Z-Y)\->T
\IfEnd
Z\->Y
\IfEnd
\If N=M
\Then 0\->B
\Do
\ClrText
" 1: CONTINUE"
" 2: REDUCE"
"    ACCURACY"
?\->X
\For 1\->I \To 2
\If X=I
\Then X\->B
\IfEnd
\Next 
\If X=1
\Then 0\->N
\IfEnd
\If X=2
\Then 0\->C
\Do
\ClrText
" Enter"
" Accuracy:"
" 0.1<E<1"
?\->E
\If E>0.1
\Then \If E<1
\Then E\->C
\IfEnd
\IfEnd
\LpWhile C=0
\IfEnd
\LpWhile B=0
\IfEnd
\LpWhile T>E
Z\->\List 1[J]
\ClrText
" Temperature"
" shows below."
" Press EXE."
\List 1[J]\Disp\ClrText
" Put the cup in"
" A larger"
" beaker."
" "
" Press EXE"\Disp\ClrText
" Add hot water"
" to the beaker."
" "
" Press EXE"\Disp-1\->S
\Do
\ClrText
" Enter"
" Starting time"
" (in minutes)"
?\->X
\If X<0
\Then \ClrText
" Inc\orrect time!"
" press EXE to"
" try again."\Disp\Else X\->S
\IfEnd
\LpWhile S<0
X\->\List 2[J]
\ClrText
"  "
"  "
" PLEASE WAIT..."
0\->T
0\->N
25\->M
5\->D
\If Q=2
\Then {3,3,-1}\->\List 6
\Send(\List 6)
\IfEnd
\Do
N+1\->N
\Receive(Y)
\If N>7
\Then Y-\List 1[J]\->T
\IfEnd
\If T<0
\Then \ClrText
" Temperature has"
" \Dec>reased\!mark"
" \Repeat experiment"
" carefully."
" "
" PRESS EXE"\Disp\Goto1
\IfEnd
\If T\>=D
\Then 0\->N
\IfEnd
\If N=M
\Then 0\->B
\ClrText
" Temperature"
" increased to"
" number shown."
" Press EXE"
T\Disp\Do
\ClrText
"1: CONTINUE"
"2: REPEAT"
"3: STOP"
?\->X
\For 1\->I \To 3
\If X=I
\Then X\->B
\IfEnd
\Next 
\If X=1
\Then 0\->N
\ClrText
"  "
"  "
" Please wait..."
\If Q=2
\Then {3,3,-1}\->\List 6
\Send(\List 6)
\IfEnd
\IfEnd
\If X=2
\Then \Goto1
\IfEnd
\If X=3
\Then T+D\->T
\IfEnd
\LpWhile B=0
\IfEnd
\LpWhile T<D
Y\->\List 3[J]
0\->S
\Do
\ClrText
" Enter stopping"
" time (in minutes.)"
?\->X
\If X\<=\List 2[J]
\Then \ClrText
" Inc\orrect time!"
" press EXE to"
" try again."\Disp\Else X\->S
\IfEnd
\LpWhile S=0
X\->\List 4[J]
\ClrText
\If \List 3[J]-\List 1[J]=0
\Then \ClrText
" REPEAT"
" EXPERIMENT"
" CAREFULLY"
" PRESS EXE"\Disp\Goto1
\Else \ClrText
" Time f\or "
" one degree"
" increase is: "
(\List 4[J]-\List 2[J])/(\List 3[J]-\List 1[J])\->T
\Fix 3
T\->\List 5[J]\Disp\Do
\ClrText
" Start over?"
"   1: Yes"
"   2: No"
?\->X
\For 1\->I \To 2
\If X=I
\Then X\->G
\IfEnd
\Next 
\LpWhile G=0
\If X=2
\Then X\->F
\IfEnd
\IfEnd
\LpWhile F=0
\ClrText
" DATA st\ored"
" in STAT lists."
" press EXE"\Disp\ClrText
"  "
" \Experiment"
" finished."
" press EXE"
" to repeat."
\Norm

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1422
File Name:HEATING
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrList
\ClrText
" Heating S\and"
" \and Water"
" \Experiment"
{0}\->\List 6
\Send(\List 6)
{1,1,7}\->\List 6
\Send(\List 6)
{1,2,7}\->\List 6
\Send(\List 6)
60\->T
16\->N
{3,T,N,1,0}\->\List 6
\ClrText
" Gather all"
" Materials."
" When ready,"
" press EXE"\Disp\ClrText
" Fill one beaker"
" with s\and."
"  "
" Press EXE"\Disp\ClrText
" Fill the"
" other beaker"
" with water."
" "
" Press EXE"\Disp\ClrText
" Place Probes in"
" beakers."
" Turn light on"
" \and press EXE"\Disp\Send(\List 6)
\ClrText
"  "
" When sampling"
" is done, "
" press EXE"\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\ClrText
" "
" Turn Light off,"
" then press EXE"\Disp\Send(\List 6)
\ClrText
"  "
" When sampling"
" is done, "
" press EXE"\Disp\Receive(\List 1)
\Receive(\List 4)
\Receive(\List 5)
\Seq(0,J,1,31,1)\->\List 1
\For 1\->I \To 16
\List 2[I]\->\List 1[I]
\List 3[I]\->\List 1[I+15]
\Next 
\Seq(0,J,1,31,1)\->\List 2
\Seq(0,J,1,31,1)\->\List 3
\List 1[1]\->\List 2[1]
\List 1[17]\->\List 3[1]
\For 2\->I \To 16
\List 1[I]\->\List 2[I]
\List 4[I]\->\List 2[I+15]
\List 1[I+15]\->\List 3[I]
\List 5[I]\->\List 3[I+15]
\Next 
\Seq(J,J,1,31,1)\->\List 1
0\->Z
\ClrText
" GRAPH DATA?"
" 1: YES"
" 2: NO"
?\->X
\Lbl 1
\If X=1
\Then \Do
\ClrText
"Which Channel?"
"    1 \or 2?    "
?\->W
\If W=1
\Then \List 2\->\List 5
\Else \If W=2
\Then \List 3\->\List 5
\Else "Invalid channel!"
"Press EXE to re-enter"\Disp\IfEnd
\IfEnd
\LpWhile W\<>1\ And W\<>2
\Fix 1
\Min(\List 5)\->A
\Max(\List 5)\->Z
\If A=Z
\Then Z+.1\->Z
A-.1\->A
\Else (Z-A)/5\->L
\IfEnd
\FuncOff
\S-WindMan
-(31/4)\->\Xmin
(31)\->\Xmax
(A-L)\->\Ymin
(Z+L)\->\Ymax
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 5,1,\Dot
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Cls
\DrawStat
(\Int (10*A)/10)\->A
(\Int (10*Z)/10)\->Z
\Text 1,30,"Temp (C) vs. Time"
\Text 5,1,Z
\Text 50,1,A
\Text 25,1,"Temp"\Disp\ClrText
\Norm
" View another graph?"
" 1: YES"
" 2: NO"
?\->X
\If X=1
\Then \Goto1
\IfEnd
\IfEnd
{0}\->\List 6
\Send(\List 6)
\ClrText
" DATA st\ored"
" in STAT lists."
" "
" Press EXE"\Disp\ClrText
"  "
" \Experiment"
" is finished."
" "
" Press EXE"
" \To restart."
\Norm
\S-WindAuto

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1683
File Name:RAYANGLE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrList
\ClrText
"  "
" Light at an"
" Angle \Experiment."
0.8\->G
16\->N
30\->T
\Seq(J/2,J,1,17,1)\->\List 1
\Seq(0,J,1,17,1)\->\List 2
\Seq(0,J,1,17,1)\->\List 3
\Seq(0,J,1,17,1)\->\List 4
{0}\->\List 6
\Send(\List 6)
{1,1,7}\->\List 6
\Send(\List 6)
{1,2,7}\->\List 6
\Send(\List 6)
{1,3,7}\->\List 6
\Send(\List 6)
{3,4,15,0,0}\->\List 6
\ClrText
" Gather all"
" materials."
" "
" When ready, "
" press EXE"\Disp\ClrText
" Place probes"
" in pockets, "
" with light off."
" "
" Press EXE"\Disp0\->Z
\Do
\Send(\List 6)
\ClrText
"  "
" When sampling"
" is done, "
" press EXE"\Disp\Receive(\List 5)
\1-Variable \List 5
(\maxX-\minX)\->A
\Meanx\->D
\Receive(\List 5)
\1-Variable \List 5
(\maxX-\minX)\->B
\Meanx\->E
\Receive(\List 5)
\1-Variable \List 5
(\maxX-\minX)\->C
\Meanx\->F
\If A<G
\Then \If B<G
\Then \If C<G
\Then (D+E+F)/3\->M
M\->\List 2[1]
M\->\List 3[1]
M\->\List 4[1]
M-D\->A
M-E\->B
M-F\->C
1\->Z
\IfEnd
\IfEnd
\IfEnd
\If Z=0
\Then \ClrText
" Starting temperature"
" \ Not steady."
" Please repeat."
" "
" Press EXE"\Disp\IfEnd
\LpWhile Z=0
\ClrText
" Starting Temperature"
" is shown below."
" Press EXE"
M\Disp{3,T,N,0,0}\->\List 6
\ClrText
" "
" Switch light on."
" Press EXE"\Disp\Send(\List 6)
\ClrText
"  "
" When sampling"
" is done, "
" press EXE"\Disp\Receive(\List 5)
\For 1\->I \To N
\List 5[I]+A\->\List 2[I+1]
\Next 
\Receive(\List 5)
\For 1\->I \To N
\List 5[I]+B\->\List 3[I+1]
\Next 
\Receive(\List 5)
\For 1\->I \To N
\List 5[I]+C\->\List 4[I+1]
\Next 
0\->Z
\ClrText
" Make a graph?"
" 1: YES"
" 2: NO"
?\->X
\Lbl 1
\If X=1
\Then \ClrText
\Do
"Which Channel?"
"    1,2, \or 3?    "
?\->W
\If W=1
\Then \List 2\->\List 5
\Else \If W=2
\Then \List 3\->\List 5
\Else \If W=3
\Then \List 4\->\List 5
\Else "Invalid channel!"
"Press EXE to re-enter"\Disp\IfEnd
\IfEnd
\IfEnd
\LpWhile W\<>1\ And W\<>2\ And W\<>3
\Fix 1
\Min(\List 5)\->A
\Max(\List 5)\->Z
\If A=Z
\Then Z+.1\->Z
A-.1\->A
\Else (Z-A)/5\->L
\IfEnd
\FuncOff
\S-WindMan
.5\->T
17\->N
-(N*T/4)\->\Xmin
(N*T)\->\Xmax
(A-L)\->\Ymin
(Z+L)\->\Ymax
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 5,1,\Dot
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Cls
\DrawStat
(\Int (10*A)/10)\->A
(\Int (10*Z)/10)\->Z
\Text 1,30,"Temp vs. Time (min)"
\Text 5,1,Z
\Text 50,1,A
\Text 35,1,"(C)"
\Text 25,1,"Temp"\Disp\ClrText
" View another graph?"
" 1: YES"
" 2: NO"
?\->X
\If X=1
\Then \Goto1
\IfEnd
\IfEnd
\Norm
{0}\->\List 6
\Send(\List 6)
\ClrText
\ClrText
" DATA st\ored"
" in STAT lists."
" "
" Press EXE"\Disp\ClrText
"  "
" \Experiment Finished."
"  "
"  Press EXE"
"  to repeat."
\S-WindAuto
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Dot

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1506
File Name:COIL200
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 3
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\ClrText
" Coils \and"
" Currents"
" \Experiment."
" (EA-200 version)"
" Press EXE"\Disp\ClrText
" Connect leads"
" to coil."
" "
" Press EXE"\Disp\ClrText
" Label magnet with"
" N\orth \and South."
" poles."
" "
" Press EXE"\Disp\ClrText
{3,.01,200,1,0}\->\List 6
\Do
1\->E
" TRIAL RUN:"
" Hold magnet"
" above coil,"
" N\orth end down."
" Press EXE, \and"
" drop magnet"\Disp\Send(\List 6)
\For 1\->K \To 500
\Next 
\ClrText
"Please wait..."
\Receive(\List 1)
\Receive(\List 2)
\SortA(\List 2,\List 1)
\If \List 2[1]>0\ Or \List 2[199]<0
\Then \ClrText
"No voltage!"
"Please try again."
"Press EXE"\Disp0\->E
\IfEnd
\LpWhile E=0
\If \List 1[1]>\List 1[199]
\Then \ClrText
"Good, voltage leads"
"are in c\orrect"
"position."
" "
"press EXE"\Disp\IfEnd
\If \List 1[1]<\List 1[199]
\Then \ClrText
"Please switch"
"voltage leads."
" "
"press EXE"\Disp\IfEnd
\ClrText
\ClrList
"Now, f\or the"
"actual measurements"
"Press EXE"\Disp\Do
\ClrText
{3,.002,1000,0,0}\->\List 6
" Press EXE, then"
" drop magnet"\Disp\Send(\List 6)
\For 1\->Q \To 500
\Next 
\ClrList
\ClrText
" ANALYZING DATA..."
{5,1,0,1,1000,10}\->\List 6
\Send(\List 6)
\Receive(\List 1)
\Max(\List 1)\->M
\For 1\->I \To 100
\If \List 1[I]=M
\Then I\->J
101\->I
\IfEnd
\Next 
\ClrList
\ClrText
" \Graphing data"
" Please Wait..."
\Seq(.002*K,K,1,150,1)\->\List 1
\If J<8
\Then 7.6\->J
\Else \If J>92
\Then 92.5\->J
\IfEnd
\IfEnd
{5,1,0,(10*J)-75,(10*J)+74,1}\->\List 6
\Send(\List 6)
\Receive(\List 2)
\Min(\List 2)\->A
\Max(\List 2)\->Z
\If A=Z
\Then Z+.01\->Z
A-.01\->A
\Else (Z-A)/5\->L
\IfEnd
\FuncOff
\S-WindMan
\(-)(.3/4)\->\Xmin
(.3)\->\Xmax
(A-L)\->\Ymin
(Z+L)\->\Ymax
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Square
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Cls
\DrawStat
(\Int (1000*A)/1000)\->A
(\Int (1000*Z)/1000)\->Z
\Text 1,30,"Voltage vs. Time"
\Text 5,1,Z
\Text 50,1,A
\Text 25,1,"Volts"\Disp\ClrText
\SortA(\List 2,\List 1)
\List 1[1]\->B
\List 1[150]\->Y
\Fix 3
"Max Voltage= "
Z\Disp"at time: "
Y\Disp\ClrText
"Min Voltage= "
A\Disp"at time: "
B\Disp\ClrText
" Another Trial?"
" 1: Yes"
" 2: No"
?\->R
\LpWhile R=1
\ClrText
" \Experiment Finished"
" Press EXE to restart"

%End