%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:176
File Name:MOTLIN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
20\->N
.5\->T
1\->U
\Rad
\Do
\ClrText
"1 PLOT WALK"
"2 WALK GRAPH"
"8 OPTIONS"
"9 EXIT"
?\->I
\If I=1
\Then \Prog "MOTLIN3"
1:\Prog "MOTLIN2"
\IfEnd
\If I=2
\Then 1:\Prog "MOTLIN1"
\IfEnd
\If I=8
\Then \Prog "MOTLIN4"
\IfEnd
\LpWhile I\<>9
\ClrText
"DONE."
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1209
File Name:MOTLIN1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"A+B*X"\->\Y 1
-2.5\->L
2.5\->R
1\->S
2\->K
\Prog "MOTLIN5"
B/\Abs (B)*2^(\Abs (B)-1.5)\->B
\If B=2:\Then 0\->G:1\->H:\IfEnd
\If B=1:\Then 0\->G:3\->H:\IfEnd
\If B=.5:\Then 1\->G:4\->H:\IfEnd
\If B=\(-).5:\Then 5\->G:8\->H:\IfEnd
\If B=\(-)1:\Then 6\->G:8\->H:\IfEnd
\If B=\(-)2:\Then 8\->G:8\->H:\IfEnd
G\->L
H\->R
1\->S
1\->K
\Prog "MOTLIN5"
"STUDY THE"
"FOLLOWING"
"GRAPH"\Disp\ClrGraph
3:\Prog "MOTLIN2"
\ClrText:\ClrGraph
"NOW ANSWER"
"THE NEXT"
"QUESTIONS..."\Disp"ABOUT"
"WALKING THE"
"GRAPH."\Disp\ClrText
"HOW FAR AWAY"
"SHOULD YOU"
"START,"
\If U=1
\Then "IN METERS."
\Else "IN FEET."
\IfEnd
?\->F
\If F=A
\Then "CORRECT."
\Else \ClrText
"NO, LOOK AT"
"THE"
"Y-INTERCEPT."\Disp"YOU SHOULD"
"START"
A\Disp\If A=1
\Then \If U=1
\Then "METER AWAY."
\Else "FOOT AWAY."
\IfEnd
\Else \If U=1
\Then "METERS AWAY."
\Else "FEET AWAY."
\IfEnd:\IfEnd
\IfEnd\Disp\ClrText
"HOW MANY"
\If U=1
\Then "METERS"
\Else "FEET"
\IfEnd
"SHOULD YOU"
"WALK PER SEC"
?\->F
\If F=B
\Then \ClrText
"CORRECT."
\Else \ClrText
"NO,CHECK THE"
"CHANGE IN"
"DIST. EACH"
"SECOND."\Disp"YOU SHOULD"
"WALK"
B\Disp\If U=1
\Then "M. PER SEC."
\Else "FT. PER SEC."
\IfEnd
\IfEnd\Disp1\->F
\Do
\ClrText:\ClrGraph
"TRY TO MATCH"
"THE GRAPH BY"
"WALKING."\Disp3:\Prog "MOTLIN2"
\Prog "MOTLIN3"
2:\Prog "MOTLIN2"
\ClrText
"WANT TO"
"TRY AGAIN"
"(1=YES,0=NO)"?\->F
\LpWhile F=1
\ClrText
"NOW WE'LL"
"ANALYZE"
"THE GRAPH..."
"1=YES,0=SKIP"?\->F
\If F=1
\Then \For 0\->Z \To 8
\If (B*Z+A-8)*(B*Z+A-0)\<=0
\Then \ClrText
"TIME (S)"
Z\Disp\If U=1
\Then "DISTANCE (M)"
\Else "DISTANCE(FT)"
\IfEnd
B*Z+A\Disp\IfEnd
\Next 
\IfEnd
\ClrText
"THE EQUATION"
"IS"
"Y=A+B*X, A="
A\Disp"         B="
B\Disp2:\Prog "MOTLIN2"
\ClrText:\ClrGraph
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:148
File Name:MOTLIN2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Ans\->Q
\S-WindMan
\ViewWindow -1,9,1,-1.4,9,1
\If Q\<=2
\Then \S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Cross,\Blue 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\If Q=2
\Then \DrawStat
\Else \DrawStat\Disp\IfEnd
\IfEnd
\If Q\>=2
\Then \Y=Type
\G SelOn 1
\G SelOff 2
\G SelOff 3
\G SelOff 4
\G SelOff 5
\G SelOff 6
\G SelOff 7
\G SelOff 8
\G SelOff 9
\G SelOff 10
\DrawGraph\Disp\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:189
File Name:MOTLIN3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\ClrGraph
{1,0}\->\List 6
\Send(\List 6)
\If U=1
\Then {1,4,2}\->\List 6
\Else {1,4,3}\->\List 6
\IfEnd
\Send(\List 6)
{3,T,N,1,1}\->\List 6
\Send(\List 6)
"PRESS"
"TRIGGER ON"
"EA-100 TO"
"START."
""\Disp"PRESS -EXE-"
"WHEN DONE"
"SAMPLING."\Disp\Receive(\List 1)
\Receive(\List 2)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:268
File Name:MOTLIN4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\ClrText
"1 NUM POINTS"
"2 SAMPLE INT"
"3 UNITS 8 CR"
"9 DONE"
?\->J
\If J=1
\Then \ClrText
"N"?\->N
\Else \If J=2
\Then \ClrText
"DELTA T"?\->T
\Else \If J=3
\Then \Do
\ClrText
"METERS\slashFEET"
"(1\slash3)"?\->U
\LpWhile (U-2)^2\<>1
\Else \If J=8
\Then \ClrText
"CONCEPT BY"
"DR. HORTON,"
"PROGRAMMING"
"ROBERT SIMMS"\Disp"AT"
"CLEMSON U."\Disp\IfEnd:\IfEnd:\IfEnd:\IfEnd
\LpWhile J\<>9
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:118
File Name:MOTLIN5
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\Ran#\->Z
\LpWhile Z=1
Z*((R-L)/S+1)\->Z
\Int (Z)\->Z
L+Z*S\->Z
\If K=1:\Then Z\->A
\Else \If K=2:\Then Z\->B
\Else \If K=3:\Then Z\->C
\Else \If K=4:\Then Z\->D
\Else Z\->M
\IfEnd:\IfEnd
\IfEnd:\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:178
File Name:MOTLIND
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
20\->N
.5\->T
1\->U
\Rad
\Do
\ClrText
"1 PLOT WALK"
"2 WALK GRAPH"
"8 OPTIONS"
"9 EXIT"
?\->I
\If I=1
\Then \Prog "MOTLIND3"
1:\Prog "MOTLIN2"
\IfEnd
\If I=2
\Then 1:\Prog "MOTLIND1"
\IfEnd
\If I=8
\Then \Prog "MOTLIN4"
\IfEnd
\LpWhile I\<>9
\ClrText
"DONE."
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1210
File Name:MOTLIND1
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"A+B*X"\->\Y 1
-2.5\->L
2.5\->R
1\->S
2\->K
\Prog "MOTLIN5"
B/\Abs (B)*2^(\Abs (B)-1.5)\->B
\If B=2:\Then 0\->G:1\->H:\IfEnd
\If B=1:\Then 0\->G:3\->H:\IfEnd
\If B=.5:\Then 1\->G:4\->H:\IfEnd
\If B=\(-).5:\Then 5\->G:8\->H:\IfEnd
\If B=\(-)1:\Then 6\->G:8\->H:\IfEnd
\If B=\(-)2:\Then 8\->G:8\->H:\IfEnd
G\->L
H\->R
1\->S
1\->K
\Prog "MOTLIN5"
"STUDY THE"
"FOLLOWING"
"GRAPH"\Disp\ClrGraph
3:\Prog "MOTLIN2"
\ClrText:\ClrGraph
"NOW ANSWER"
"THE NEXT"
"QUESTIONS..."\Disp"ABOUT"
"WALKING THE"
"GRAPH."\Disp\ClrText
"HOW FAR AWAY"
"SHOULD YOU"
"START,"
\If U=1
\Then "IN METERS."
\Else "IN FEET."
\IfEnd
?\->F
\If F=A
\Then "CORRECT."
\Else \ClrText
"NO, LOOK AT"
"THE"
"Y-INTERCEPT."\Disp"YOU SHOULD"
"START"
A\Disp\If A=1
\Then \If U=1
\Then "METER AWAY."
\Else "FOOT AWAY."
\IfEnd
\Else \If U=1
\Then "METERS AWAY."
\Else "FEET AWAY."
\IfEnd:\IfEnd
\IfEnd\Disp\ClrText
"HOW MANY"
\If U=1
\Then "METERS"
\Else "FEET"
\IfEnd
"SHOULD YOU"
"WALK PER SEC"
?\->F
\If F=B
\Then \ClrText
"CORRECT."
\Else \ClrText
"NO,CHECK THE"
"CHANGE IN"
"DIST. EACH"
"SECOND."\Disp"YOU SHOULD"
"WALK"
B\Disp\If U=1
\Then "M. PER SEC."
\Else "FT. PER SEC."
\IfEnd
\IfEnd\Disp1\->F
\Do
\ClrText:\ClrGraph
"TRY TO MATCH"
"THE GRAPH BY"
"WALKING."\Disp3:\Prog "MOTLIN2"
\Prog "MOTLIND3"
2:\Prog "MOTLIN2"
\ClrText
"WANT TO"
"TRY AGAIN"
"(1=YES,0=NO)"?\->F
\LpWhile F=1
\ClrText
"NOW WE'LL"
"ANALYZE"
"THE GRAPH..."
"1=YES,0=SKIP"?\->F
\If F=1
\Then \For 0\->Z \To 8
\If (B*Z+A-8)*(B*Z+A-0)\<=0
\Then \ClrText
"TIME (S)"
Z\Disp\If U=1
\Then "DISTANCE (M)"
\Else "DISTANCE(FT)"
\IfEnd
B*Z+A\Disp\IfEnd
\Next 
\IfEnd
\ClrText
"THE EQUATION"
"IS"
"Y=A+B*X, A="
A\Disp"         B="
B\Disp2:\Prog "MOTLIN2"
\ClrText:\ClrGraph
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:115
File Name:MOTLIND3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\ClrGraph
"PRESS -EXE-"
"TO GET DUMMY"
"DATA..."\Disp\Seq(K,K,0,10,.5)\->\List 1
{1,2,3,4,5,6,5,4,3,2,1,2,3,4,5,6,5,4,3,2,1}\->\List 2

%End