%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1237
File Name:TROLL200
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,65,"GRAPH WALK"
\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
\Cls
\Lbl 4
\BG-None
\Lbl 5
(\Ran#*1.8+.5)\->P
\If P\<=1
\Then (\Ran#*0.75+1.75)\->Q
(\Ran#+0.5)\->R
\IfEnd
\If P>1\ And P\<=1.5
\Then (\Ran#*0.5+1.5)\->Q
(\Ran#*0.5+0.5)\->R
\IfEnd
\If P>1.5\ And P<2
\Then (\Ran#*0.5+0.5)\->Q
(\Ran#*0.5+2)\->R
\IfEnd
\If P\>=2
\Then (\Ran#+.5)\->Q
(\Ran#*0.5+2)\->R
\IfEnd
\Lbl 0
\BG-None
\ClrGraph
\ClrList
\ClrText
\ViewWindow 0,31,5,0,2.5,0.5
{0}\->\List 6:\Send(\List 6)
{1,4,2}\->\List 6:\Send(\List 6)
\Seq(0.65*N,N,0,46,1)\->\List 1
\Seq(0,X,1,47,1)\->\List 2
{12,1}\->\List 6
\Send(\List 6)
{3,0.65,47,0,-1}\->\List 6
\Send(\List 6)
{8}\->\List 6
"Study the"
"following graph"
"carefully"\Disp\ClrText
\Text 5,2,"DIST(M)"
\Text 52,100,"TIME(S)"
\Orange \F-Line 0,P,5,P
\Orange \F-Line 5,P,17.5,Q
\Orange \F-Line 17.5,Q,30,R
\Text 1,109,"[EXE]"\Disp\ClrText
\Cls
" "
" "
"       R\Ready?"
" "
"     Press:[EXE]"
" "\Disp\Text 5,2,"DIST(M)"
\Text 52,100,"TIME(S)"
\Orange \F-Line 0,P,5,P
\Orange \F-Line 5,P,17.5,Q
\Orange \F-Line 17.5,Q,30,R
\StoPict 1
\Send(\List 6)
\Receive(\List 6)
\For 1\->I \To 46
\List 6[1]\->\List 2[I]
\Receive(\List 6)
0.65*I\->T
\PlotOn T,\List 2[I]
\Next 
\List 6[1]\->\List 2[31]
\ClrText
"MENU"
"1:COMPARE"
"2:SAME GRAPH"
"3:NEW GRAPH"
?\->M
M=2\=>\Goto0
M=3\=>\Goto4
\ClrText
\Cls
\BG-Pict 1
\S-WindMan
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue 
\DrawStat
\Text 1,109,"[EXE]"\Disp\Goto4

%End