**TI82** TxtView file generated by CalcText - Kouri rPOIDSrp˙TeraFc:Lbl M :ClrHome :Menu("POIDS","F.GRAVIT.",N,"POIDS S TERRE",P,"QUITTER",Q) :Lbl N :Input "MASSE A (KG)",A :Input "MASSE B (KG)",B :Input "DISTANCE AB (M)",C :(6.67*10^-11*A*B)/C^2 -> F :Disp "FORCE DE",F,"NEWTONS" :Pause :Goto M :Lbl P :Input "MASSE (KG)",A :A*9.81 -> P :Disp "POIDS DE",P,"NEWTONS S. TERRE" :Pause :Goto M :Lbl Q :ClrHome˙^