,SQU>E ,ROOT ,EXAMPLES
#A4 ,! SQU>E ROOT ( TW5TY-FIVE
IS WRITT5 _% >25] _:
#B4 ,! SQU>E ROOT ( NEGATIVE F\R
IS WRITT5 _% >-4] _:
#C4 ,! SQU>E ROOT ( ;B SQU>$
M9US F\R A ;C 5D ROOT IS
WRITT5 _% >B^2"-4AC] _:
#D4 ,! SQU>E ROOT ( ;X SQU>$
PLUS ;Y SQU>$ 5D ROOT IS
WRITT5 _% >X^2"+Y^2"] _:
#E4 ,FIVE M9US TWO SQU>E ROOT (
;X 5D ROOT IS WRITT5
_% #5-2>X] _:
#F4 ,! SQU>E ROOT ( ;X 5D ROOT
M9US SIX IS WRITT5 _% >X]-6 _:
#G4 ,! SQU>E ROOT ( ! SQU>E ROOT
( ;X IS WRITT5 _% >.>X.]] _:
#H4 I EQUALS ! SQU>E ROOT (
NEGATIVE "O IS WRITT5
_% I .K >-1] _:
#A
#I4 ;D EQUALS ! SQU>E ROOT ( OP5
P>5!SIS ;X SUB TWO M9US ;X SUB
"O CLOSE P>5!SIS SQU>$ PLUS
OP5 P>5!SIS ;Y SUB TWO M9US ;Y
SUB "O CLOSE P>5!SIS SQU>$ 5D
ROOT IS WRITT5 _%
D .K >(X2-X1)^2"+(Y2-Y1)^2"]
_:
#B