%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:788
File Name:BOYLE
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
"MERIDIAN      CREATIVE      GROUP"
"BOYLE'S LAW"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{9,1,1,2.203,0}\->\List 6
\Send(\List 6)
\Seq(X,X,1,10,1)\->\List 1
\Seq(0,X,1,10,1)\->\List 2
\For 1\->I \To 10
\ClrText
21-I\->\List 1[I]
"POSITION"
"PLUNGER AT":(21-I)\Disp"CC."\Disp\ClrText
"PUSH TRIGGER"
"TO MEASURE"
"PRESSURE."
{3,.2,5,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 5)
(\Sum (\List 5)-\Max(\List 5)-\Min(\List 5))/3\->\List 2[I]
\Next 
\ClrText
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow .6\Min(\List 1),1.2\Max(\List 1),2,.6\Min(\List 2),1.2\Max(\List 2),1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1006
File Name:SLOPE
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"
"EXPLORE SLOPE"
\For 1\->A \To 800:\Next 
\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"PUSH TRIGGER"
"TO GET DATA"
"FOR WALK 1."
{3,.03,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 5)
\Receive(\List 6)
\Seq(X,X,1,56,1)\->\List 1
\Seq(X,X,1,56,1)\->\List 2
\For 25\->I \To 80
\List 5[I]\->\List 1[I-24]
\List 6[I]\->\List 2[I-24]
\Next 
\ClrText
"PUSH TRIGGER"
"TO GET DATA"
"FOR WALK 2."
{3,.03,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 5)
\Receive(\List 6)
\Seq(X,X,1,56,1)\->\List 3
\Seq(X,X,1,56,1)\->\List 4
\For 25\->I \To 80
\List 5[I]\->\List 3[I-24]
\List 6[I]\->\List 4[I-24]
\Next 
\List 1-\List 1[1]\->\List 1
\List 3-\List 3[1]\->\List 3
\LinearReg \List 1,\List 2
\Ra\->A:\Rb\->B
\LinearReg \List 3,\List 4
\Ra\->C:\Rb\->D
\ClrText
"THESE GRAPHS"
"REPRSNTS THE"
"CLLCTED DATA"
"FOR WALK 1"\Disp"AND WALK 2."\Disp\ClrText
"THE DATA IS  STORED IN    LISTS 1-4."\Disp\ClrText
"USE DATA AND"
"GRAPHS"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,5,1,0,5,1
\Y=Type
"AX+B"\->\Y 1
"CX+D"\->\Y 2
\G SelOn 1
\DrawGraph

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:921
File Name:LINES
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"EXPLORE LNEARSYSTEMS"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"POSITION THE WALKER 4 M   FROM MOTION"
"DETECTOR."\Disp\ClrText
"WHEN WALKER"
"STARTS, PRESS[TRIGGER] TO"
"COLLECT DATA"
{3,.05,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\ClrText
"POSITION THE WALKER 0.5 M FROM MOTION"
"DETECTOR."\Disp\ClrText
"WHEN WALKER"
"STARTS, PRESS[TRIGGER] TO"
"COLLECT DATA"
{3,.05,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 3)
\Receive(\List 4)
\ClrText
"THESE GRAPHS"
"REPRSNTS THE"
"CLLCTED DATA"
"FOR WALK 1"\Disp"AND WALK 2."\Disp\ClrText
"THE DATA IS  STORED IN    LISTS 1-4."\Disp\ClrText
"USE DATA AND"
"GRAPHS TO"
"COMPLETE THE"
"EXPLORATION."\Disp\ViewWindow 0,5,1,0,1.2\Max(\List 2),1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\S-Gph2 \DrawOn,\xyLine,\List3,\List4,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:620
File Name:FALLOBJ
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"QUADRATIC      FUNCTIONS"\Disp"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\Lbl 1
\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"DROP THE BALLIMMEDIATELY  AFTER PUSHING[TRIGGER]."
{3,.02,80,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 3)
\Receive(\List 4)
\ViewWindow 0,2.2,.5,0,1.2\Max(\List 4),1
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Dot
\DrawStat
\For 1\->X \To 1000:\Next 
\ClrText
"GRAPH OK?    YES=1,NO=2"
?\->R
R=2\=>\Goto1
\ClrText
"TRACE GRAPH  TO IDENTIFY  NECESSARY    POINTS."\Disp\Seq(.02X,X,0,79,1)\->\List 3
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:307
File Name:SELECTPT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ENTER TIME   OBJECT BEGAN FALLING"?\->A
\ClrText
"ENTER TIME   OBJECT STOPPDFALLING"?\->B
\ClrText
"REVISING       DATA..."
(B-A)/.02\->D
\Seq(0,X,1,D+1,1)\->\List 1
\Seq(0,X,1,D+1,1)\->\List 2
1\->C
\For 1\->I \To 80
\If \List 3[I]\>=A\ And \List 3[I]\<=B
\Then \List 3[I]\->\List 1[C]
\List 4[I]\->\List 2[C]
C+1\->C
\IfEnd
\Next 
\ClrText
\List 1-\List 1[1]\->\List 1
\ViewWindow 0,.5,.1,0,1.2\Max(\List 2),.25
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:631
File Name:BOUNCE
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"GEOMETRIC     SEQUENCES"\Disp"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"PUSH TRIGGER"
"TO GET DATA"
{3,.04,90,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\Max(\List 2)-\List 2\->\List 2
\ClrText
"THIS GRAPH"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS  STORED IN    LIST 1 AND 2"\Disp\ClrText
"USE DATA AND"
"GRAPH TO 
"COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,\Max(\List 1),.5,\(-).1,1.2\Max(\List 2),.1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:700
File Name:VELOCITY
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"VELOCITY AND    SPEED"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,1,1}\->\List 6
\Send(\List 6)
"BEGIN SUBJECTAT LEAST 3 M"
"FROM MOTION"
"DETECTOR."\Disp\ClrText
"PRESS TRIGGERAFTER SUBJECTMOVES."
{3,.1,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\ClrText
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ViewWindow 0,12,1,0,1.2\Max(\List 2),1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:765
File Name:RELATE
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"POSITION,     VELOCITY      AND"
"ACCELERATION"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"POSITION THE OBJECT 0.5 M FROM MOTION"
"DETECTOR."\Disp\ClrText
"PRESS TRIGGERTHEN TOSS"
"OBJECT AS"
"DIRECTED."
\Locate 16,7,"[EXE]"
{3,.025,80,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\ClrText
"THE FOLLOWNG"
"LINE GRAPHS"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS  STORED IN    LISTS 1-3."\Disp\ClrText
"USE DATA AND"
"LINE GRAPHS"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow O,2.5,.5,-1.25\Max(\List 3),1.25\Max(\List 3),1
\S-Gph1 \DrawOn,\xyLine,\List1,\List3,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1074
File Name:COOLING
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"EXPONENTIAL  EQUATIONS"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,1}\->\List 4
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
"PRESS TRIGGERTO GET ROOM"
"TEMPERATURE."
{3,1,5,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 5)
(\Sum \List 5-\Max(\List 5)-\Min(\List 5))/3\->\List 4[1]
\ClrText
"THE ROOM"
"TEMP IS"
\List 4[1]\Disp"DEGREES"
"CELSIUS."\Disp\ClrText
"PLACE PROBE  IN WATER FOR 1 MINUTE."\Disp\ClrText
"THEN PRESS   TRIGGER TO   GET WATER"
"TEMPERATURE."
{3,1,5,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 5)
(\Sum \List 5-\Max(\List 5)-\Min(\List 5))/3\->\List 4[2]
\ClrText
"THE WATER"
"TEMP IS"
\List 4[1]\Disp"DEGREES"
"CELSIUS."\Disp\ClrText
"FOR COOLING  TEMPS, REMOVEPROBE FROM   WATER AND"\Disp"PUSH TRIGGER"
{3,.5,91,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\List 2-\List 4[1]\->\List 3
\ClrText
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,50,5,0,1.2\Max(\List 2),10
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue 
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:752
File Name:WAVES
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"SOUND WAVES"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1.0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
"STRIKE TUNINGFORK, PLACE  IT NEAR THE  MICROPHONE"\Disp"PUSH TRIGGER"
{3,.001,80,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\List 1-\List 1[1]\->\List 1
\ClrText
"THE FOLLOWNG"
"LINE GRAPH"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS  STORED IN    LIST 1 AND 2"\Disp\ClrText
"USE DATA AND"
"LINE GRAPH"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
.25(\Max(\List 2)-\Min(\List 2))\->A
\Min(\List 2)-A\->\Ymin
\Max(\List 2)+A\->\Ymax
(\Ymax-\Ymin)/2+\Ymin\->S
\List 2-S\->\List 2
S-\Ymin\->S
\ViewWindow \Min(\List 1),\Max(\List 1),.1,\(-)S,S,.1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:783
File Name:LIGHT
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"LIGHT          INTENSITY"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\Seq(X,X,1,10,1)\->\List 1
\Seq(X,X,1,10,1)\->\List 2
\For 1\->I \To 10
"ENTER"
"DISTANCE #"
I\Disp"FROM LIGHT"
"IN CM"?\->D
D\->\List 1[I]
\ClrText
"PRESS TRIGGERTO MEASURE   LIGHT"
"INTENSITY."
{3,.01,5,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 5)
(\Sum \List 5-\Max(\List 5)-\Min(\List 5))/3\->\List 2[I]
\ClrText
\Next 
\ClrText
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 40,1.2\Max(\List 1),5,.75\Min(\List 2),1.2\Max(\List 2),25
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1200
File Name:DIFFUSE
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"EXPLORING    DIFFUSION"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"CALIBRATION."\Disp\ClrText
"SELECT MEDIUMRANGE ON THE"
"PROBE BOX."\Disp{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\Seq(0,X,1,2,1)\->\List 1
\For 1\->I \To 2
\ClrText
\If I=1
\Then "EXPOSE PROBE TO AIR."\Disp\Else "PLACE PROBE  IN STANDARD  SOLUTION."\Disp\IfEnd
\ClrText
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(\List 5)
\List 5[1]\->\List 1[I]
\Next 
{0,1000}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\ClrText
"CALIBRATION"
"IS COMPLETE."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,1,1}\->\List 6
\Send(\List 6)
\Seq(10X,X,0,90,1)\->\List 1
\Seq(0,X,1,91,1)\->\List 2
"RINSE PROBE,"
"BLOT IT DRY,"\Disp"AND PLACE IN"
"DISTILLED"
"WATER."\Disp\ClrText
"WAIT 1 MINUTETHEN PRESS   EXE AND PLACEDIALYSIS BAG"\Disp"IN DISTILLED WATER."
{3,10,-1}\->\List 6
\Send(\List 6)\Disp\ClrText
\ViewWindow 0,1100,60,0,2400,200
\For 1\->I \To 91
\Receive(C)
C\->\List 2[I]
\PlotOn 10(I-1),\List 2[I]
\Next 
\ClrGraph
\ClrText
\ClrText
"THE FOLLOWNG"
"LINE GRAPH"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS  STORED IN    LIST 1 AND 2"\Disp\ClrText
"USE DATA AND"
"LINE GRAPH"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,1100,60,0,2400,200
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1126
File Name:ANTACID
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"CONTROL OF"
"STOMACH ACID"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"CALIBRATION."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{0,0,0}\->\List 1
\For 1\->I \To 3
\ClrText
"RINSE"
"ELECTRODE ANDPLACE IN THE"\DispI=1\=>"PH 4 BUFFER  SOLUTION."\DispI=2\=>"PH 7 BUFFER  SOLUTION."\DispI=3\=>"PH 10 BUFFER SOLUTION."\Disp\ClrText
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(A):A\->\List 1[I]
\Next 
{4,7,10}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\ClrText
"CALIBRATION"
"IS COMPLETE."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"GET PH DATA."\Disp\ClrText
\Seq(0,X,1,99,1)\->\List 2
\Seq(X,X,0,98,1)\->\List 1
"RINSE"
"ELECTRODE ANDPLACE IN"
"VINEGAR."\Disp\ClrText
"PRESS [EXE]."
"WAIT 30 SEC, THEN ADD"
"ANTACID."\Disp\ClrText
{1,1,1}\->\List 6
\Send(\List 6)
{3,1,-1,0}\->\List 6
\Send(\List 6)
\ViewWindow 0,120,30,0,9,1
\For 1\->I \To 99
\Receive(P)
P\->\List 2[I]
\PlotOn I,\List 2[I]
\Next 
\ClrText
\ClrGraph
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,120,30,0,9,1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:967
File Name:WATER
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"WATER"
" ANALYSIS"\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"SELECT"
"ANALYSIS:"\Disp"1-D.O.\slashTEMP"
"2-PH"
"3-"
"CONDUCTIVITY"
?\->Z
\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
Z=1\=>\Prog "CALIB1"
Z=2\=>\Prog "CALIB2"
Z=3\=>\Prog "CALIB3"
"CALIBRATION"
"IS COMPLETE."\Disp"YOU ARE NOW  READY TO"
"TEST WATER   SAMPLE(S)."\Disp\ClrText
"ENTER NUMBER"
"OF SAMPLES TOBE ANALYZED."?\->N
\Seq(X,X,1,N,1)\->\List 1
\Seq(X,X,1,N,1)\->\List 2
\For 1\->I \To N
\ClrText
"RINSE"
"ELECTRDE AND"
Z=1\=>"TEMP. PROBE"
"PLACE IN"\Disp"SAMPLE #"
I\Disp\ClrText
{3,.25,1,0,1}\->\List 6
\Send(\List 6)
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
"TO MEASURE"\DispZ=1\=>"D.O. AND TEMP"
Z=2\=>"PH."
Z=3\=>"CONDUCTIVITY"
\Receive(A)
A\->\List 1[I]
\If Z=1:\Then \Receive(T):T\->\List 2[I]:\IfEnd
\Next 
\ClrText
"ANALYSIS"
"COMPLETE"\Disp\ClrText
"DATA IS IN"
\If Z=1:\Then "LISTS 1 AND 2"\Disp\Else "LIST 1."\Disp\IfEnd
\ClrText
"RECORD THE"
"FOLLOWING"
"DATA IN YOUR"
"WORKBOOK."\Disp\ClrText
\For 1\->I \To N
"SAMPLE #"
I\DispZ=1\=>"D.O.="
Z=2\=>"PH="
Z=3\=>"COND. ="
\List 1[I]\Disp\If Z=1:\Then "TEMP=":\List 2[I]\Disp\IfEnd
\ClrText
\Next 
\Stop

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:262
File Name:POLARIZE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM"
"POLARIZES THEDISSOLVED"
"OXYGEN PROBE"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"PRESS EXE TO POLARIZE D.O.PROBE."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3}\->\List 6
\Send(\List 6)
"ALLOW PROBE  TO POLARIZE  FOR AT LEAST 30 MINUTES."\Disp\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:553
File Name:CALIB1
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"IF THE D.O.  PROBE IS NOT"
"POLARIZED    STOP PROGRAM"\Disp"WATER AND RUNPROGRAM"
"POLARIZE."\Disp\ClrText
{0,0}\->\List 1
"YOU ARE NOW"
"READY TO"
"CALIBRATE"
"D.O. PROBE."\Disp\For 1\->I \To 2
\ClrText
\If I=1
\Then "PLACE PROBE"
"IN SODIUM"
"SULFITE"
"CALIBRATION"\Disp"SOLUTION."\Disp\Else "RINSE PROBE  AND PLACE IN PREPARED"
"CALIBRATION"\Disp"BOTTLE."\Disp\IfEnd
\ClrText
{3,.25,1,0,1}\->\List 6
\Send(\List 6)
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
\Receive(A):A\->\List 1[I]\Disp\Next 
\ClrText
"ENTER"
"REFERENCE"
"VALUE FROM"
"TABLE 1 OF"\Disp"D.O. PROBE"
"MANUAL"?\->R
{0,R}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
\ClrText
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:338
File Name:CALIB2
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"YOU ARE NOW"
"READY TO"
"CALIBRATE"
"PH PROBE."\Disp\ClrText
{0,0,0}\->\List 1
\For 1\->I \To 3
\ClrText
"RINSE"
"ELECTRODE ANDPLACE IN THE"\DispI=1\=>"PH 4 BUFFER  SOLUTION."\DispI=2\=>"PH 7 BUFFER  SOLUTION."\DispI=3\=>"PH 10 BUFFER SOLUTION."\Disp\ClrText
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(A):A\->\List 1[I]
\Next 
{4,7,10}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\ClrText
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:339
File Name:CALIB3
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"YOU ARE NOW"
"READY TO"
"CALIBRATE THECONDUCTIVITY"\Disp"PROBE."\Disp\ClrText
"SELECT MEDIUMRANGE ON THE PROBE BOX."\Disp{0,0}\->\List 1
\For 1\->I \To 2
\ClrText
\If I=1
\Then "EXPOSE PROBE TO AIR."\Disp\Else "PLACE PROBE  IN STANDARD  SOLUTION."\Disp\IfEnd
\ClrText
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(C)
C\->\List 1[I]
\Next 
{0,1000}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\ClrText
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1268
File Name:CHARLES
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"CHARLES' LAW 
"AND ABSOLUTE TEMPERATURE"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{9,1,1,2.203,0}\->\List 6
\Send(\List 6)
\Seq(X,X,1,4,1)\->\List 1
{0}\->\List 3
{12,0,0,0}\->\List 2
"POSITION"
"PLUNGER AT"
"12.0 CC."\Disp\ClrText
"PRESS TRIGGERTO MEASURE   PRESSURE AND TEMPERATURE."
{3,.2,5,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 6)
\Receive(\List 5)
(\Sum \List 5-\Max(\List 5)-\Min(\List 5))/3\->\List 1[1]
(\Sum \List 6-\Max(\List 6)-\Min(\List 6))/3\->\List 3[1]
\ClrText
"THE INITIAL"
"PRESSURE IS"
\Fix 2
\List 3[1]\Disp"ATM"\Disp\ClrText
\For 1\->I \To 3
"PLACE"
"SYRINGE AND"
"THERMOMETER"\DispI=1\=>"IN HOT WATER"
I=2\=>"IN COOL WATER"
I=3\=>"IN COLD WATER"
"BATH FOR 4"
"MINUTES."\Disp\ClrText
"MOVE PLUNGER"
"UNTIL EA-100 DISPLAYS"
\If \List 3[1]<1:\Then \Fix 0
1000\List 3[1]\Disp\Else \List 3[1]:\IfEnd
"THEN PRESS"
"TRIGGER."
{3,.25,10,0,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 6)
\Receive(\List 5)
(\Sum \List 5-\Max(\List 5)-\Min(\List 5))/8\->\List 1[I+1]
\ClrText
"ENTER VOLUME IN CC"
?\->V
V\->\List 2[I+1]
\ClrText
\Next 
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow .6\Min(\List 1),1.2\Max(\List 1),5,.6\Min(\List 2),1.2\Max(\List 2),2
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:851
File Name:FREEZE
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"FREEZING -   POINT"
"DEPRESSION"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,1,1}\->\List 6
\Send(\List 6)
\For 1\->I \To 4
\ClrText
"IMMERSE"
"SAMPLE #":I\Disp"IN ICE BATH."
{3,1,240,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"PRESS TRIGGERWHEN EA-100"
"SHOWS 5 DEG"
"CELSIUS."\Disp"THEN PRESS 
"EXE"\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
I=1\=>\Receive(\List 2)
I=2\=>\Receive(\List 3)
I=3\=>\Receive(\List 4)
I=4\=>\Receive(\List 5)
\ClrText
"RAISE SAMPLE"
"FROM ICE BATHAND CONTINUE"
"EXPERIMENT."\Disp\ClrText
\Next 
\ClrText
"THE DATA IS  STORED IN    LISTS 1-5."\Disp\ClrText
"THE FOLLOWINGLINE GRAPH"
"REPRSNTS THE"
"DATA"\Disp"IN LIST 1 ANDLIST 2."\Disp\ClrText
"USE DATA AND"
"LINE GRAPH"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow .6\Min(\List 1),1.2\Max(\List 1),60,1.2\Min(\List 2),1.2\Max(\List 2),2
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:770
File Name:HEAT
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"HEATS OF"
"SOLUTION"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\For 1\->I \To 3
"PRESS TRIGGERTO COLLECT   TEMP. DATA"
"THEN WAIT 30"\Disp"SEC. AND ADD COMPOUND."
{3,2.5,97,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
I=1\=>\Receive(\List 2)
I=2\=>\Receive(\List 3)
I=3\=>\Receive(\List 4)
\ClrText
"CONTINUE"
"EXPERIMENT."\Disp\ClrText
\Next 
\ClrText
"THE DATA IS  STORED IN    LISTS 1-4."\Disp\ClrText
"THE FOLLOWINGLINE GRAPH"
"REPRSNTS THE"
"DATA"\Disp"IN LIST 1 ANDLIST 2."\Disp\ClrText
"USE DATA AND"
"LINE GRAPH"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,1.2\Max(\List 1),60,.9\Min(\List 2),1.1\Max(\List 2),1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1195
File Name:TITRATE
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"ACID - BASE"
"TITRATION"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"CALIBRATION."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{0,0,0}\->\List 1
\For 1\->I \To 3
\ClrText
"RINSE"
"ELECTRODE ANDPLACE IN THE"\DispI=1\=>"PH 4 BUFFER  SOLUTION."\DispI=2\=>"PH 7 BUFFER  SOLUTION."\DispI=3\=>"PH 10 BUFFER SOLUTION."\Disp\ClrText
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(A):A\->\List 1[I]
\Next 
{4,7,10}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\ClrText
"CALIBRATION"
"IS COMPLETE."\Disp\ClrText
"YOU ARE READYTO BEGIN THE"
"TITRATION."\Disp\ClrText
"RINSE"
"ELECTRODE ANDPLACE IN THE HCL SOLUTION"\Disp\Seq(X,X,1,50,1)\->\List 5
0\->J
\Do
\ClrText
J+1\->J
J>1\=>"ADD 1 ML NAOHSOLUTION TO  HCL SOLUTION"\Disp\ClrText
"WHEN EA-100"
"STABILIZES,"
"PRESS"\Disp"TRIGGER TO"
"MEASURE PH"
{3,.25,1,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(T)
T\->\List 5[J]
\ClrText
\LpWhile T<12.5
\Seq(X-1,X,1,J,1)\->\List 1
\Seq(X,X,1,J,1)\->\List 2
\For 1\->I \To J
\List 5[I]\->\List 2[I]
\Next 
\ClrText
"THE FOLLOWNG"
"LINE GRAPH"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS  STORED IN    LIST 1 AND 2"\Disp\ClrText
"USE DATA AND"
"LINE GRAPH"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,1.1\Max(\List 1),2,0,14,1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Square
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:132
File Name:PHDATA
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"PROCESSING"
"DATA..."
\Dim \List 2-1\->N
\Seq(X,X,1,N,1)\->\List 4
\For 1\->K \To N
\List 2[K+1]-\List 2[K]\->\List 4[K]
\Next 
\Seq(-.5+X,X,1,\Dim \List 4,1)\->\List 3
\ClrText
"FINISHED"\Disp\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1401
File Name:BUFFER
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"EXPLORING"
"BUFFER"
"SOLUTIONS"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"CALIBRATION."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{0,0,0}\->\List 1
\For 1\->I \To 3
\ClrText
"RINSE"
"ELECTRODE ANDPLACE IN THE"\DispI=1\=>"PH 4 BUFFER  SOLUTION."\DispI=2\=>"PH 7 BUFFER  SOLUTION."\DispI=3\=>"PH 10 BUFFER SOLUTION."\Disp\ClrText
"WHEN EA-100"
"STABILIZES,"
"PUSH TRIGGER"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(A):A\->\List 1[I]
\Next 
{4,7,10}\->\List 2
\LinearReg \List1,\List2
{9,1,1,\Ra,\Rb}\->\List 6
\Send(\List 6)
\ClrText
"CALIBRATION"
"IS COMPLETE."\Disp\ClrText
"YOU ARE READYTO BEGIN THE"
"EXPERIMENT."\Disp\Seq(X,X,0,9,1)\->\List 1
\Seq(X,X,0,9,1)\->\List 2
\Seq(X,X,0,9,1)\->\List 3
\Seq(X,X,0,9,1)\->\List 4
\Seq(X,X,0,9,1)\->\List 5
\ClrText
\For 1\->I \To 4
"RINSE"
"ELECTRODE ANDPLACE IN"
\If (I=1)+(I=3)\>=1:\Then "WATER."\Disp\IfEnd
\If (I=2)+(I=4)\>=1:\Then "BUFFER."\Disp\IfEnd
\For 1\->K \To 10
\ClrText
"WHEN EA-100"
"STABILIZES,"
"PRESS"\Disp"TRIGGER TO"
"MEASURE PH."
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(P)
I=1\=>P\->\List 2[K]
I=2\=>P\->\List 3[K]
I=3\=>P\->\List 4[K]
I=4\=>P\->\List 5[K]
\ClrText
\If K<10:\Then "ADD 1 ML OF"
\If I<3:\Then "NAOH SOLUTN."
\Else "HCL SOLUTN.":\IfEnd
\If (I=1)+(I=3)>0:\Then "TO WATER."\Disp\Else "TO BUFFER."\Disp\IfEnd
\IfEnd
\Next 
\ClrText
\Next 
\ClrText
"THE FOLLOWINGLINE GRAPH"
"REPRSNTS THE"
"DATA"\Disp"IN LIST 1 ANDLIST 2."\Disp\ClrText
"THE DATA IS  STORED IN    LISTS 1-5."\Disp\ClrText
"USE DATA AND"
"LINE GRAPH"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,1.1\Max(\List 1),1,0,14,1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1
\DrawStat
\Text 2,5,"PH"
\Text 56,114,"ML"\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1026
File Name:VAPOR
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"HEAT OF"
"VAPORIZATION"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{9,2,1,2.203,0}\->\List 6
\Send(\List 6)
\Seq(X,X,1,6,1)\->\List 1
\Seq(X,X,1,6,1)\->\List 2
{3,.25,5,0,1}\->\List 6
\Send(\List 6)
"OPEN PRESSURERELEASE VALVE"\Disp\ClrText
"PRESS TRIGGERTO MEASURE"
"ATMOSPHERIC"
"PRESSURE."
\Receive(\List 5)
\Receive(\List 6)
(\Sum \List 6-\Max(\List 6)-\Min(\List 6))/3\->P
\ClrText
"CLOSE PRESSRERELEASE VALVE"\Disp\For 1\->I \To 6
\ClrText
{3,.25,5,0,1}\->\List 6
\Send(\List 6)
"WHEN EA-100"
"DISPLAYS"
20+10I\Disp"DEG. CELSIUS"
"PRESS TRIGGERTO MEASURE"
"PRESSURE."\Disp\ClrText
\Receive(\List 5)
\Receive(\List 6)
(\Sum \List 5-\Max(\List 5)-\Min(\List 5))/3\->\List 1[I]
(\Sum \List 6-\Max(\List 6)-\Min(\List 6))/3\->\List 2[I]
\Next 
\ClrText
\List 2-P\->\List 3
"THE DATA IS  STORED IN    LISTS 1-3."\Disp\ClrText
"THE FOLLOWINGSCATTER PLOT"
"REPRSNTS THE"
"DATA IN"\Disp"LIST 1 AND 2"\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,100,10,.8\Min(\List 2),1.2\Max(\List 2),.1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:814
File Name:SOLUBLE
Group Name:
Password:
Option1:
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
"MERIDIAN      CREATIVE      GROUP"\Disp"SOLUBILITY"
"    AND"
"TEMPERATURE"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\Seq(X,X,1,4,1)\->\List 1
{40,80,120,160}\->\List 2
\For 1\->I \To 4
\ClrText
"PREPARE"
"SOLUTION"
I\Disp"PRESS EXE"
"AFTER SOLUTE"
"IS DISSOLVED"\Disp\ClrText
{3,.25,5,0,1}\->\List 6
\Send(\List 6)
"WHEN CRYSTALSBEGIN TO FORMPRESS TRIGGERTO MEASURE"\Disp"TEMPERATURE."
\Receive(\List 5)
(\Sum \List 5-\Max(\List 5)-\Min(\List 5))/3\->\List 1[I]
"PRESS EXE"\Disp\Next 
\ClrText
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,100,10,0,200,20
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\DrawStat

%End