Program Line

ClrHome
Lbl Q
Menu("RUN","DISTANCE",1,"SLOPE",2,"EQUATIONS",3,"QUIT",9)
Lbl 1
0-->Z
0-->Y
0-->X
0-->W
0-->U
0-->V
Menu("FIND","D",A,"x1",B,"x2",C,"y1",D,"y2",E,"BACK",Q)
Lbl A
1-->Z
1-->T
If U=0
Goto Z
((G-E)^2+(H-F)^2)-->Q
If Q<=0
Then
Disp "TRY AGAIN GEEK."
Stop
End
(sqrt((G-E)^2+(H-F)^2))-->D
Disp "DISTANCE=",D
Stop
Lbl B
1-->Y
2-->T
If U=0
Goto Z
(D^2-(H-F)^2)-->Q
If Q<=0
Then
Disp "OOOOOPS"
Stop
End
(-(sqrt(D^2-(H-F)^2)))-->Q
(-(Q-G))-->E
(-(-Q-G))-->Q
Disp "x1=",E,Q
Stop
Lbl C
1-->X
3-->T
If U=0
Goto Z
(D^2-(H-F)^2)-->Q
If Q<=0
Then
Disp "YOU SUCK."
Stop
End
((sqrt(D^2-(H-F)^2)))-->Q
(Q+E)-->G
(-Q+E)-->Q
Disp "x2=",G,Q
Stop
Lbl D
1-->W
4-->T
If U=0
Goto Z
(D^2-(G-E)^2)-->Q
If Q<=0
Then
Disp "DUHHHHH"
Stop
End
(-((sqrt(D^2-(G-E)^2))))-->Q
(-Q-H))-->F
(-(-Q-H))-->Q
Stop
Lbl E
1-->V
5-->T
If U=0
Goto Z
(D^2-(G-E)^2)--Q
If Q<=0
Then
Disp "HELLO MCFLY"
Stop
End
((sqrt(D^2-(G-E)^2)))-->Q
(Q+F)-->H
(-Q+F)-->Q
Disp "y2=",H,Q
Stop
Lbl Z
1-->U
If Z=0
Then
Disp "ENTER DISTANCE,D"
Input D
End
If Y=0
Then
Disp "ENTER x1"
Input E
End
If W=0
Then
Disp "ENTER y1"
Input F
End
If X=0
Then
Disp "ENTER x2"
Input G
End
If V=0
Then
Disp "ENTER y2"
Input H
End
If T=1
Goto A
If T=2
Goto B
If T=3
Goto C
If T=4
Goto D
If T=5
Goto E
Lbl 2
Menu("FIND","SLOPE-->M",F,"x1",G,"x2",H,"y1",I,"y2",J,"BACK",Q)
Lbl F
Disp "x1"
Input E
Disp "y1"
Input F
Disp "x2"
Input G
Disp "y2"
Input H
If (G-E)=0
Then
Disp "YA SCWOOD UP."
Stop
End
((H-F)/(G-E))-->M
Disp "SLOPE,M=",M
Stop
Lbl G
Disp "M"
Input M
Disp "y1"
Input F
Disp "x2"
Input G
Disp "y2"
Input H
If M=0
Then
Disp "SLOPE CANT BE 0"
Stop
End
(-(((H-F)/M)-G))-->E
Disp "x1=",E
Stop
Lbl H
Disp "M"
Input M
Disp "x1"
Input E
Disp "y1"
Input G
Disp "y2"
Input H
If M=0
Then
Disp "SLOPE CANT BE 0"
Stop
End
(((H-F)/M)+E)-->G
Disp "x2=",G
Stop
Lbl I
Disp "M"
Input M
Disp "x1"
Input E
Disp "x2"
Input G
Disp "y2"
Input H
(-((M(G-E))-H))-->F
Disp "y1=",F
Stop
Lbl J
Disp "M"
Input M
Disp "x1"
Input E
Disp "y1"
Input F
Disp "x2"
Input G
((M(G-E))+F)-->H
Disp "y2=",H
Stop
Lbl 3
ClrHome
Disp "PT SLOPE"
Disp "Y-y1=((x2-x1))/("
Disp "y2-y1))(X-x1)"
Disp ""
Disp "Y-y1=M(X-x1)"
Disp "M=(x2-x1)/(y2-y1)"
Disp "----------------"
Pause
Disp "DISTANCE"
Disp "D=sqrt((x2-x1)^2+(y2"
Disp "-y1)^2)"
Disp "----------------"
Pause
Disp "Y-INTERCEPT"
Disp "Y=MX+B"
Disp ""
Disp "General Form"
Disp "aX+bY+c=0"
Disp "----------------"
Pause
Stop
ClrHome
Lbl 9
Stop



----------------------------------------------
Notes
  --sqrt 2nd x^2
  --use x squared button instead of x^2
  --to get lowercase a,b, and c, use VARS, 5, EQ
  --to get lowercase x1,y1,x2,y2, use VARS, 5, PTS
  -->=, and <= can be accessed through 2nd, MATH