,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