Midpoint Program: :ClrHome :Disp "X1=" :Input X :Disp "Y1=" :Input Y :Disp "X2=" :Input A :Disp "Y2=" :Input B :(X+A)/2->A :(Y+B)/2->B :Disp "X=" :Disp A :Disp "Y=" :Disp B