%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3573
File Name:LINT2CG
Group Name:
Password:
Option1:
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,67,"BODE'S LAW"
\Text 36,57,"WITH THE EA-200"
\Plot 0,55
\Plot 128,55
\Line
\Plot 0,56
\Plot 128,56
\Line
\Text 57,3,"by B.BARONA \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
\ClrText
"CONNECT THE CFX-9850 TO THE EA-200."
"PRESS EACH LINK END  IN FIRMLY AND TURN   THE EA-200 ON."
\Locate 16,7,"[EXE]"\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
\ClrText
"This program is"
"f\or a Casio light"
"sens\or only."
\Locate 16,7,"[EXE]"\Disp\ClrText
"PLUG THE LIGHT SENSOR"
"INTO CHANNEL ONE"
\Locate 16,7,"[EXE]"\Disp\ClrText
\ClrText
0\->F
"PLEASE NOTE THAT"
"UNITS OF INTENSITY"
"ARE rel. LUX AND"
"DISTANCES SHOULD BE"
"ENTERED IN cm."
\Locate 16,7,"[EXE]"\Disp{1,1,9}\->\List 6
\Send(\List 6)
\Lbl 2
\ClrText
"HOW MANY READINGS"
"DO YOU WANT"
"TO COLLECT"
"(\<=9)."
?\->R
\If R>9
\Then \Goto2
\IfEnd
\If \Int R\<>R
\Then \Goto2
\IfEnd
\ClrText
"Place the light"
"probe at the pnt of"
"brightest intensity."
\Locate 16,7,"[EXE]"\Disp\ClrText
{3,0.7,-1,0,0}\->\List 6
\Send(\List 6)
"The light intensity"
"is"
"Press [EXE] to"
"st\ore this"
"maximum value."
\Do
\AxesOff
\Receive(V)
\Locate 4,2,V
8-\Int (\Getkey/10)\->T
\LpWhile T\<>5
\ClrText
\AxesOn
{3,0.3,1,0,-1}\->\List 6
\Send(\List 6)
{8}\->\List 6
\Send(\List 6)
\Receive(E):E\->W
\ClrText
\Seq(0,X,1,R,1)\->\List 1
\Seq(0,X,1,R,1)\->\List 2
\If R\<=3
\Then \ClrText
\For 1\->I \To R
\ClrText
\If I=1:\Then "ENTER  st DIST. VALUE":\IfEnd
\If I=2:\Then "ENTER  nd DIST. VALUE":\IfEnd
\If I=3:\Then "ENTER  rd DIST. VALUE":\IfEnd
\Locate 7,1,I
?\->X
X\->\List 1[I]
\ClrText
{3,0.7,-1,0,0}\->\List 6
\Send(\List 6)
"The light intensity"
"is"
"Press [EXE] to"
"collect data."
\Do
\AxesOff
\Receive(V)
\Locate 4,2,V
8-\Int (\Getkey/10)\->T
\LpWhile T\<>5
\ClrText
\AxesOn
{3,0.3,1,0,-1}\->\List 6
\Send(\List 6)
{8}\->\List 6
\Send(\List 6)
\Receive(E):E\->\List 2[I]
\ClrText
\ClrGraph
\ViewWindow 0,200,20,0,1.2*W,200
\StoV-Win 1
\GridOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,92,"DISTANCE"
\Text 2,4,"INTENSITY"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Next 
\IfEnd
\If R>3
\Then \ClrText
\For 1\->I \To 3
\ClrText
\If I=1:\Then "ENTER  st DIST. VALUE":\IfEnd
\If I=2:\Then "ENTER  nd DIST. VALUE":\IfEnd
\If I=3:\Then "ENTER  rd DIST. VALUE":\IfEnd
\Locate 7,1,I
?\->X
X\->\List 1[I]
\ClrText
{3,0.7,-1,0,0}\->\List 6
\Send(\List 6)
"The light intensity"
"is"
"Press [EXE] to"
"collect data."
\Do
\AxesOff
\Receive(V)
\Locate 4,2,V
8-\Int (\Getkey/10)\->T
\LpWhile T\<>5
\ClrText
\AxesOn
{3,0.3,1,0,-1}\->\List 6
\Send(\List 6)
{8}\->\List 6
\Send(\List 6)
\Receive(E):E\->\List 2[I]
\ClrText
\ViewWindow 0,200,20,0,1.2*W,200
\StoV-Win 1
\GridOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,92,"DISTANCE"
\Text 2,4,"INTENSITY"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Next 
\For 4\->I \To R
\ClrText
\If I\>=4\ And I\<=9:\Then "ENTER  th DIST. VALUE":\Else "ENTER   th DIST. VALUE":\IfEnd
\Locate 7,1,I
?\->X
X\->\List 1[I]
\ClrText
{3,0.7,-1,0,0}\->\List 6
\Send(\List 6)
"The light intensity"
"is"
"Press [EXE] to"
"collect data."
\Do
\AxesOff
\Receive(V)
\Locate 4,2,V
8-\Int (\Getkey/10)\->T
\LpWhile T\<>5
\ClrText
\AxesOn
{3,0.3,1,0,-1}\->\List 6
\Send(\List 6)
{8}\->\List 6
\Send(\List 6)
\Receive(E):E\->\List 2[I]
\ClrText
\ViewWindow 0,200,20,0,1.2*W,200
\StoV-Win 1
\GridOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,92,"DISTANCE"
\Text 2,4,"INTENSITY"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\Next 
\IfEnd
\ClrText
"THE DATA IS STORED INTHE FOLLOWING LISTS: LIST 1     LIST 2"
"(DIST.)   (INTENSITY)PRESS [EXE] FOR GRAPH"\Disp\ClrText
\ClrGraph
\ViewWindow 0,200,20,0,1.2*W,200
\StoV-Win 1
\GridOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 56,92,"DISTANCE"
\Text 2,4,"INTENSITY"
\Text 2,109,"[EXE]"\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\ClrText
"CHOOSE ONE:"
"1. REPEAT EXPERIMENT"
"2. DO ANALYSIS"
?\->Z
\If Z=1:\Then K+1\->K:\Goto2:\IfEnd
\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