,ORD]$ ,PAIR ,EXAMPLES

#1_4 ,OP5 P>5!SIS ;X -MA ;Y
  CLOSE P>5!SIS IS WRITT5
  (X, Y)
#2_4 ,OP5 P>5!SIS FIVE -MA
  NEGATIVE ?REE CLOSE P>5!SIS IS
  WRITT5  (5, -3)
#3_4 ,OP5 P>5!SIS NEGATIVE "O
  -MA Z]O CLOSE P>5!SIS IS
  WRITT5  (-1, 0)
#4_4 ,OP5 P>5!SIS ;X SUB "O -MA
  ;Y SUB "O CLOSE P>5!SIS IS
  WRITT5  (X1, Y1)
#5_4 ,OP5 P>5!SIS OP5 FRAC;N ;X
  SUB "O PLUS ;X SUB TWO OV] TWO
  CLOSE FRAC;N -MA OP5 FRAC;N ;Y
  SUB "O PLUS ;Y SUB TWO OV] TWO
  CLOSE FRAC;N CLOSE P>5!SIS IS
  WRITT5 (?X1+X2/2#,?Y1+Y2/2#)




                              #A