' Programmed by John Paul Pruess.
' Completed on July 18th, 1997.
'
' Some source taken from Harper & Row
' Geometry by Max A. Sobel, pub. Scribner
' Laidlaw, NY.

5 CLS
10 PRINT "Input coordinates of Point 1."
15 INPUT "X1 = "; X1
20 INPUT "Y1 = "; Y1
30 PRINT "Input coordinates of Point 2."
35 INPUT "X2 = "; X2
40 INPUT "Y2 = "; Y2
50 LET M1 = ((X1 + X2) / 2)
60 LET M2 = ((Y1 + Y2) / 2)
70 PRINT "Midpoint = ("; M1; ", "; M2; ")"
80 LET D = SQR(((X2 - X1) ^ 2) + (Y2 - Y1) ^ 2)
90 PRINT "Distance = "; D
100 IF X1 = X2 THEN 140
110 LET M = ((Y2 - Y1) / (X2 - X1))
120 PRINT "Slope = "; M
130 GOTO 150
140 PRINT "Slope is undefined."
150 INPUT "Another (Y/N)"; YN$
160 IF YN$ = "Y" THEN GOTO 5
170 IF YN$ = "y" THEN GOTO 5
180 IF YN$ = "n" THEN GOTO 200
190 IF YN$ = "N" THEN GOTO 200 ELSE BEEP: GOTO 150
200 END