%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:254
File Name:SETUP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"CONNECT THE CFX-9850 TO THE EA-100."
"PRESS EACH LINK END  IN FIRMLY AND TURN   THE EA-100 ON."
\Locate 16,7,"[EXE]"\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
\ClrText
"PLUG ONE TEMPERATURE"
"PROBE INTO CHANNEL"
"ONE AND THE OTHER"
"INTO CHANNEL 2"
\Locate 16,7,"[EXE]"\Disp\ClrText
\Prog "CALIBRT"
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:458
File Name:DEFAULTS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\FuncOn
\Y=Type
\CoordOn
\GridOff
\AxesOff
\SimulOff
\LabelOff
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\File1
\ClrList
\ViewWindow 0,128,1,64,0,1
\Plot 30,3
\Plot 23,12
\Orange \Line
\Plot 4,12
\Orange \Line
\Plot 21,22
\Orange \Line
\Plot 13,36
\Orange \Line
\Plot 31,26
\Orange \Line
\Plot 47,36
\Orange \Line
\Plot 40,22
\Orange \Line
\Plot 59,12
\Orange \Line
\Plot 35,12
\Orange \Line
\Plot 30,3
\Orange \Line
\Orange \Text 17,19,"HARONA"
\Plot 55,21
\Plot 123,21
\Line
\Plot 123,45
\Line
\Plot 55,45
\Line
\Plot 55,21
\Line
\Text 29,60,"COOLING FLUIDS"
\Text 36,57,"WITH THE EA-100"
\Plot 0,55
\Plot 128,55
\Line
\Plot 0,56
\Plot 128,56
\Line
\Text 57,3,"By B. \@F73Cona \and A. Harradine"
\Green \Text 45,13,"PUSH [EXE]"\Disp\AxesOn
0\->Z
0\->\theta
1\->C
0\->O
0\->L
1\->K
[[0]]\->\Mat A
\Seq(0,X,0,10,1)\->\List 5
\ClrGraph
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:635
File Name:EXIT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\FuncOn
\Y=Type
\CoordOn
\GridOff
\AxesOff
\SimulOff
\LabelOff
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\ClrText
\Text 1,1,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Orange \Text 7,1,"        HARONA SOFTWARE      "
\Text 13,1,"-----------------------------"
\Text 19,1,"                             "
\Text 25,1,"      THANKYOU FOR USING       "
\Text 31,1,"         OUR SOFTWARE.         "
\Orange \Text 37,1,"       DO NOT PUSH [EXE]       "
\Text 43,1,"              "
\Text 49,1,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Orange \Text 58,42,"PUSH [MENU]"\Disp\Cls
\Orange \Text 8,1,"       \aster\aster\asterWARNING!\aster\aster\aster            "
\Orange \Text 25,1,"         Please press            "
\Orange \Text 31,1,"       [MENU] NOT [EXE]          "
\Orange \Text 37,1,"   \or your data will be lost.    "
\Orange \Text 48,1,"   This is your last warning!    "
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:127
File Name:CALIBRT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
{1,1,7}\->\List 6
\Send(\List 6)
0\->F
"PLEASE NOTE THAT"
"UNITS OF TEMERATURE"
"ARE DEGREES CELCIUS."
\Locate 16,7,"[EXE]"\Disp{1,2,7}\->\List 6
\Send(\List 6)
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:239
File Name:GRAPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl D
\ClrText
\ClrGraph
\If \Min(\List 2)<0
\Then 1.2\Min(\List 2)\->W
\Else .85\Min(\List 2)\->W:\IfEnd
\ViewWindow 0,(R*T)+4*T,T,P,Q,S
\StoV-Win 1
"Press [EXE] to see a"
"clearer graph."\Disp\GridOn
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\S-Gph2 \DrawOn,\Scatter,\List1,\List3,1,\Square,\Orange 
\DrawStat
\Text 56,100,"TIME"
\Text 2,4,"TEMPERATURE"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:499
File Name:COLLECT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ENTER THE TIME (S)   BETWEEN SAMPLES."
"(0.52 - 300)"
?\->T
\ClrText
"HOW MANY SAMPLES DO  YOU WANT TO COLLECT?"
"ENTER 1-255."
?\->R
R\->\List 5[1]
\ClrText
\Seq(X,X,0,(R-1)*T,T)\->\List 1
\Seq(0,X,1,R,1)\->\List 2
\Seq(0,X,1,R,1)\->\List 3
\ClrText
"SET TEMP-AXIS:"
"ENTER TEMP MIN":?\->P
\ClrText
"ENTER TEMP MAX":?\->Q
\ClrText
"ENTER TEMP SCALE":?\->S
\ClrText
"PRESS [EXE] WHEN YOU ARE READY TO BEGIN   COLLECTING DATA."\Disp\ClrText
\ViewWindow 0,(R*T)+4*T,T,P,Q,S
\For 1\->I \To R
{3,T,1,0,0}\->\List 6
\Send(\List 6)
\Receive(E)
E\->\List 2[I]
\Receive(E)
E\->\List 3[I]
\P/L-Blue
\PlotOn \List 1[I],\List 2[I]
\P/L-Orange
\PlotOn \List 1[I],\List 3[I]
\Next 
\Text 1,109,"[EXE]"\Disp\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:142
File Name:CF.EXE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Lbl 1
\Prog "DEFAULTS"
\Prog "SETUP"
\Lbl 2
\Prog "COLLECT"
\Prog "GRAPH"
\ClrText
"CHOOSE ONE:"
"1. REPEAT EXPERIMENT"
"2. DO ANALYSIS"
?\->Z
\If Z=1:\Then K+1\->K:\Goto2:\IfEnd
\Prog "EXIT"
\Stop

%End