>PROGRAMsystem2PT LINE4
1,1,"2 Point MENU"
3,2,"F1 Set 1st point"
3,3,"F2 Set 2nd point"
3,4,"F3 "
3,5,"F4 Midpoint"
3,6,"F5 Distance"
3,7,"F6 Quit"
:K:K=0
K=79
"1st point (x,y)"
"x"?X
"y"?Y
K=69
"2nd Point (x,y)"
"x"?P
"y"?Q
K=39
((XP)(YQ))L
1,2,"Dist="
6,2,L
K=49
(XP)2A
(YQ)2B
1,2,"Midpoint (x,y)"
4,4,"x="
6,4,A
4,5,"y="
6,5,B
K=59
1,1,"Eqn of straight line"
X=P
XD:0B:1A
(YQ)(XP)D
1V:1U:0Z:0W:0N
D<0:1N:
DD:DS
SI
SIR
IVZT
IWUB
R0:1RS:
VZ:WU:TV:BW
(TBD)>10
N:TT:
TBM
YMXC
1,2,"y=mxc"
1,3,"m="
3,3,M
1,4,"c="
3,4,CBM<0:BB:
BMA:BCD:BB
1,2,"axbyd=0"
1,3,"a="
3,3,A
1,4,"b="
3,4,B
1,5,"d="
3,5,D
K29
"
ne"