%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1569
File Name:HEATING
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrList
\ClrText
" HEATING"
" SAND 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"
"    SAND"
"  PRESS EXE"\Disp\ClrText
"  FILL THE"
"OTHER BEAKER"
" WITH WATER"
" PRESS EXE"\Disp\ClrText
"PLACE PROBES"
" IN BEAKERS"
"  LIGHT ON"
" PRESS EXE"\Disp\Send(\List 6)
\ClrText
"  SAMPLING..."
"  WHEN DONE"
"  PRESS EXE"\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\ClrText
" "
"SWITCH LIGHT"
"     OFF"
"  PRESS EXE"\Disp\Send(\List 6)
\ClrText
"  SAMPLING..."
"  WHEN 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
\Do
\ClrText
" GRAPH DATA?"
" 1: YES"
" 2: NO"
?\->X
\If X=2
\Then X\->Z
\Else \If X=1
\Then 0\->Y
\Do
\ClrText
"   WHICH"
"  CHANNEL?"
"ENTER 1 OR 2"
?\->W
\For 1\->J \To 2
\If W=J
\Then W\->Y
\IfEnd
\Next 
\LpWhile Y=0
W\->B
\If B=1
\Then \Min(\List 2)\->K
\Max(\List 2)\->H
(K-H)\->R
0\->H
\If R\<>0
\Then 0\->K
\IfEnd
\If R=0
\Then \Goto1
\Else \S-Gph2 \DrawOff
\S-WindAuto
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Dot
\Cls
\DrawStat\Disp\Lbl 2
\IfEnd
\IfEnd
\If B=2
\Then \Min(\List 3)\->K
\Max(\List 3)\->H
(K-H)\->R
0\->H
\If R\<>0
\Then 0\->K
\IfEnd
\If R=0
\Then \Goto1
\Else \S-WindAuto
\S-Gph1 \DrawOff
\S-Gph3 \DrawOff
\S-Gph2 \DrawOn,\xyLine,\List 1,\List 3,1,\Dot
\Cls
\DrawStat\Disp\Lbl 3
\IfEnd
\IfEnd
\IfEnd
\IfEnd
\LpWhile Z=0
\If X=2
\Then \Goto4
\IfEnd
\Lbl 1
\ClrGraph
\List 1[1]-T\->\Xmin
\List 1[N]+T\->\Xmax
\If K=0
\Then 1\->\Ymax
\(-)1\->\Ymin
\IfEnd
\If K<0
\Then \If K>\(-)0.5
\Then \(-)1\->\Ymin
1\->\Ymax
\Else (2*K)\->\Ymin
(\(-)2*K)\->\Ymax
\IfEnd
\IfEnd
\If K>0
\Then \If K\<=0.5
\Then 1\->\Ymax
\(-)1\->\Ymin
\Else (2*K)\->\Ymax
(\(-)2*K)\->\Ymin
\IfEnd
\IfEnd
\ViewWindow \Xmin,\Xmax,1,\Ymin,\Ymax,1
\G SelOff 3
\G SelOff 2
\G SelOff 1
\Y=Type
"K"\->\Y 10
\G SelOn 10
\DrawGraph\Disp\If B=1
\Then \Goto2
\Else \Goto3
\IfEnd
\Lbl 4
0\->B
0\->Z
0\->R
\ClrText
" DATA STORED"
"      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:2198
File Name:ADDWATER
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrText
\ClrList
" "
" MIXING"
" WATER"
" EXPERIMENT"
" PRESS EXE"\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 GRAM"
?\->X
\If X\<=0
\Then \Do
\ClrText
"  INCORRECT"
" 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 g)"
?\->X
\If X\<=\List 1[1]
\Then \Do
\ClrText
"  INCORRECT"
" MASS PRESS"
"EXE TO ENTER"
" A NEW MASS"\Disp?\->X
\LpWhile X\<=\List 1[1]
\IfEnd
X\->\List 1[2]
\ClrText
" WATER MASS"
"SHOWS BELOW"
" PRESS EXE"
\List 1[2]-\List 1[1]\->M
M\->\List 1[3]
M\Disp\ClrText
" ENTER MASS"
"  OF CUP H"
"  IN GRAM"
?\->X
\If X\<=0
\Then \Do
\ClrText
"  INCORRECT"
" 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 g)"
?\->X
\If X\<=\List 2[1]
\Then \Do
\ClrText
"  INCORRECT"
" MASS PRESS"
"EXE TO ENTER"
" A NEW MASS"\Disp?\->X
\LpWhile X\<=\List 2[1]
\IfEnd
X\->\List 2[2]
\ClrText
" WATER MASS"
"SHOWS 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(\List6)
{1,2,7}\->\List 6
\Send(\List6)
{3,9,10,1,0}\->\List 6
\Send(\List 6)
\ClrText
"  SAMPLING..."
"  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 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"
"  PRESS EXE"
\List 1[7]\Disp\ClrText
" ENERGY LOST"
" SHOWS 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 STORED"
"      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:1592
File Name:MELTING
Group Name:
Password:
Option1:
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
" USING"
" WHICH UNIT?"
" 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 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"
"   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"
" SHOWS 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\!mark"
"  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
"  INCORRECT"
"     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
"  INCORRECT"
"     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"
"   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"
" SHOWS 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 STORED"
"     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:1835
File Name:RAYANGLE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrList
\ClrText
"  "
" LIGHT AT"
" AN ANGLE"
" EXPERIMENT"
0.8\->G
16\->N
\Seq(J,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"
" LIGHT OFF"
" PRESS EXE"\Disp0\->Z
\Do
\Send(\List 6)
\ClrText
"  "
"  WHEN 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
" TEMPERATURE"
"  NOT STEADY"
"   REPEAT"
"  PRESS EXE"\Disp\IfEnd
\LpWhile Z=0
\ClrText
" TEMPERATURE"
" SHOWS BELOW"
"  PRESS EXE"
M\Disp{3,30,N,0,0}\->\List 6
\ClrText
" "
"SWITCH LIGHT"
"     ON"
"  PRESS EXE"\Disp\Send(\List 6)
\ClrText
"  "
"  WHEN 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
\Do
\ClrText
" GRAPH DATA?"
" 1: YES"
" 2: NO"
?\->X
\If X=2
\Then X\->Z
\Else \If X=1
\Then 0\->Y
\Do
\ClrText
"    WHICH"
"   CHANNEL?"
" 1,2,OR 3"
?\->W
\For 1\->J \To 3
\If W=J
\Then W\->Y
\IfEnd
\Next 
\LpWhile Y=0
W\->B
\S-WindAuto
\If B=1
\Then \Min(\List 2)\->K
\Max(\List 2)\->H
(K-H)\->R
0\->H
\If R\<>0
\Then 0\->K
\IfEnd
\If R=0
\Then \Goto1
\Else \S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Dot
\Cls
\DrawStat\Disp\Lbl 2
\IfEnd
\IfEnd
\If B=2
\Then \Min(\List 3)\->K
\Max(\List 3)\->H
(K-H)\->R
0\->H
\If R\<>0
\Then 0\->K
\IfEnd
\If R=0
\Then \Goto1
\Else \S-Gph1 \DrawOff
\S-Gph3 \DrawOff
\S-Gph2 \DrawOn,\xyLine,\List 1,\List 3,1,\Dot
\Cls
\DrawStat\Disp\Lbl 3
\IfEnd
\IfEnd
\If B=3
\Then \Min(\List 4)\->K
\Max(\List 4)\->H
(K-H)\->R
0\->H
\If R\<>0
\Then 0\->K
\IfEnd
\If R=0
\Then \Goto1
\Else \S-Gph1 \DrawOff
\S-WindAuto
\S-Gph3 \DrawOff
\S-Gph2 \DrawOn,\xyLine,\List 1,\List 4,1,\Dot
\Cls
\DrawStat\Disp\Lbl 4
\IfEnd
\IfEnd
\IfEnd
\IfEnd
\LpWhile Z=0
\If X=2
\Then \Goto5
\IfEnd
\Lbl 1
\ClrGraph
60\->T
\List 1[1]-T\->\Xmin
\List 1[N]+T\->\Xmax
\If K=0
\Then 1\->\Ymax
\(-)1\->\Ymin
\IfEnd
\If K<0
\Then \If K>\(-)0.5
\Then \(-)1\->\Ymin
1\->\Ymax
\Else (2*K)\->\Ymin
(\(-)2*K)\->\Ymax
\IfEnd
\IfEnd
\If K>0
\Then \If K\<=0.5
\Then 1\->\Ymax
\(-)1\->\Ymin
\Else (2*K)\->\Ymax
(\(-)2*K)\->\Ymin
\IfEnd
\IfEnd
\ViewWindow \Xmin,\Xmax,1,\Ymin,\Ymax,1
\G SelOff 3
\G SelOff 2
\G SelOff 1
\Y=Type
"K"\->\Y 10
\G SelOn 10
\DrawGraph\Disp\If B=1
\Then \Goto2
\Else \If B=2
\Then \Goto3
\Else \Goto4
\IfEnd
\IfEnd
\Lbl 5
0\->B
0\->Z
0\->R
\Seq(0,J,1,16,1)\->\List 5
\ClrText
" DATA STORED"
"      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:1231
File Name:LIGHT
Group Name:
Password:
Option1:
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"\Disp\IfEnd
\For 1\->Q \To 50
\Next 
\Receive(X)
\ClrText
"Light ="
X\Disp0\->H
\Do
\ClrText
"  CONTINUE"
" ADUSTMENT?"
"  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 MORE THAN"
" TEN TRIALS"
"   ALLOWED"
"  PRESS EXE"\Disp\Stop
\IfEnd
\ClrText
"  "
"   ENTER"
"CENTIMETERS"
"FROM SOURCE"
?\->X
X\->\List 3[J]
\ClrText
"  "
"  PRESS EXE"
"   TO TAKE"
"   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 \S-Gph2 \DrawOff
\S-WindAuto
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Square
\DrawStat\Disp\IfEnd
\IfEnd
\LpWhile Z=0
\Seq(0,J,1,10,1)\->\List 3
\Seq(0,J,1,10,1)\->\List 4
\ClrText
" DATA STORED"
"      IN"
" STAT LISTS"
" PRESS EXE"\Disp\ClrText
"  "
" EXPERIMENT"
"  FINISHED"
"  PRESS EXE"
"  TO REPEAT"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1006
File Name:GRAVITY
Group Name:
Password:
Option1:
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"\Disp\ClrText
" GATHER ALL"
" MATERIALS"
" WHEN READY,"
" PRESS EXE"\Disp\ClrText
"INTENSITY"
"SHOULD BE"
"ABOUT 900"
"PRESS EXE"\Disp\ClrText
\Do
{3,.01,1,0,0}\->\List 6
\ClrText
"PRESS EXE"
"TO TAKE A"
"READING"\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
"HOLD BALL"
"ON RAMP"
"WHEN READY"
"PRESS EXE"\Disp\ClrText
"RELEASE BALL"
"AND PRESS"
"EXE TOGETHER"\Disp\Send(\List 6)
\ClrText
"WHEN DONE"
"PRESS EXE"\Disp\ClrText
"PROCESSING"
\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  "
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:818
File Name:FOCUS
Group Name:
Password:
Option1:
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"\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"\Disp0\->E
\IfEnd
\If K>255
\Then \ClrText
" NUMBER MUST"
" BE BETWEEN"
" 2 AND 255."
" PRESS EXE"\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"
"READING"\Disp{3,1,1,0,0}\->\List 6
\Send(\List 6)
\For 1\->Q \To 50
\Next 
\Receive(B)
\ClrText
"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"\Disp\IfEnd
\LpWhile I<K+1
\Min(\List 2)\->A
\Min(\List 1)\->B
\Max(\List 2)\->Z
\Max(\List 1)\->Y
(Z-A)/4\->L
\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\Disp\ClrText
"EXPERIMENT"
"FINISHED"
"PRESS EXE"
"TO RESTART"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:819
File Name:FRUIT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrText
\ClrList
"FRUIT BATTERY  EXPERIMENT"
" PRESS EXE"\Disp1\->A
\ClrText
" USING WHICH"
" ANALYZER?"
" 1: EA-100"
" 2: EA-200"
?\->D
\ClrText
"PREPARE SETUP"
"  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\!mark"
"  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<.075
\Then \ClrText
"   CHECK"
"CONNECTIONS\!mark"
"  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:1435
File Name:COIL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\ClrText
" COILS AND"
" CURRENTS"
" EXPERIMENT."
" PRESS EXE"\Disp\ClrText
" PROGRAM FOR"
" EA-100 ONLY."
" USE COIL200"
" WITH EA-200"\Disp\ClrText
" HOOK LEADS"
" TO COIL."
" PRESS EXE"\Disp\ClrText
"LABEL MAGNET"
" NORTH AND"
" SOUTH POLES"
" PRESS EXE"\Disp\ClrText
{3,.01,200,1,0}\->\List 6
\Do
1\->E
" TRIAL RUN:"
" HOLD MAGNET"
" ABOVE COIL"
" PRESS EXE"\Disp\ClrText
" POINT NORTH"
" END DOWN"
" PRESS EXE"\Disp\ClrText
" PRESS EXE,"
" THEN,"
" 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!"
" TRY AGAIN."
" PRESS EXE"\Disp0\->E
\IfEnd
\LpWhile E=0
\If \List 1[1]>\List 1[199]
\Then \ClrText
" LEADS ARE"
" OK\!mark"
" PRESS EXE"\Disp\IfEnd
\If \List 1[1]<\List 1[199]
\Then \ClrText
" PLEASE"
" SWITCH VOLT"
" LEADS"
" PRESS EXE"\Disp\IfEnd
\ClrText
" NOW LET'S"
"TAKE READINGS"
" PRESS EXE"\Disp{3,.1,1,0,0}\->\List 6
\Send(\List 6)
\Receive(V)
\Do
\ClrText
"WHICH END"
"DOWN?"
" 1: NORTH"
" 2: SOUTH"
?\->P
\If P=1
\Then {3,.002,150,1,2,V+.060,1}\->\List 6
\Else {3,.002,150,1,2,V-.060,0}\->\List 6
\IfEnd
\ClrText
" PRESS EXE,"
" TO PREPARE"
" EA-100"\Disp\Send(\List 6)
\ClrText
" DROP MAGNET"
" 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
\(-)(.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\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" "
"1: YES"
"2: NO"
" ANOTHER"
" TRIAL?"
?\->A
\LpWhile A=1
\ClrText
" EXPERIMENT"
" FINISHED"
" PRESS EXE"
" TO REPEAT"
\S-WindAuto

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2406
File Name:TRANSFER
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Fix 3
\ClrList
\ClrText
" "
"   HEAT"
" TRANSFER"
" EXPERIMENT"
" PRESS EXE"\Disp\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
" USING WHICH"
" ANALYZER?"
" 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
"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 MORE THAN"
"FIVE TRIALS"
"  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"
"  INTO THE"
" WATER THEN"
" PRESS EXE"\Disp\Send(\List 6)
\ClrText
"  "
" TEMPERATURE"
"   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 MINS"
?\->X
\If X<0
\Then \ClrText
" INCORRECT"
"    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
"   REPEAT"
" EXPERIMENT"
" CAREFULLY"
" PRESS EXE"\Disp\Goto1
\IfEnd
\If T\>=D
\Then 0\->N
\IfEnd
\If N=M
\Then 0\->B
\ClrText
" TEMPERATURE"
" INCREASE TO"
"  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 MINS"
?\->X
\If X\<=\List 2[J]
\Then \ClrText
"  INCORRECT"
"     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 FOR"
"  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
" TRY ANOTHER"
" EXPERIMENT?"
"   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 STORED"
"      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:1427
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."
" PRESS EXE"\Disp\ClrText
" PROGRAM FOR"
" EA-200 ONLY"
" USE 'COIL'"
" WITH EA-100"\Disp\ClrText
" CONNECT"
" LEADS"
" TO COIL."
" PRESS EXE"\Disp\ClrText
"LABEL MAGNET"
" NORTH AND"
" SOUTH POLES"
" PRESS EXE"\Disp\ClrText
{3,.01,200,1,0}\->\List 6
\Do
1\->E
" TRIAL RUN:"
" HOLD MAGNET"
" ABOVE COIL"
" PRESS EXE"\Disp\ClrText
" POINT NORTH"
" END DOWN"
" PRESS EXE"\Disp\ClrText
" PRESS EXE,"
" THEN,"
" 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[199]<0
\Then \ClrText
" NO VOLTAGE!"
" TRY AGAIN"
" PRESS EXE"\Disp0\->E
\IfEnd
\LpWhile E=0
\If \List 1[1]>\List 1[199]
\Then \ClrText
" LEADS"
" ARE OK\!mark"
" PRESS EXE"\Disp\IfEnd
\If \List 1[1]<\List 1[199]
\Then \ClrText
" PLEASE"
" SWITCH VOLT"
" LEADS"
" PRESS EXE"\Disp\IfEnd
\ClrText
\ClrList
" READY TO"
"TAKE READINGS"
" 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"
{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"
" 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
\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\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 REPEAT"
\S-WindAuto

%End