141






31 MAY 1979

    5550      NN=AtS(NA-MAI4ADD)
    5560      PION= (NAI-ADD)/NA
    5570      Q4=MAI
    5580      Q5=PP
    5590      06-=NN
    5600      Q7=P!ON
    5610      Q-ETA
    5620C
    5630      RETURN
    5640      E ND