**TI86** !VOLTFnOff ÖAxesOffÖClLCDÖ120NÖDisp "HOW MANY PROBES"ÖDisp "(1 OR 2)?"ÖInput PÖDisp "TIME BETWEEN"ÖDisp "MEASUREMENTS?"ÖInput TÖ0.5yMinÖ6.5yMaxÖ1xMinÖNxMaxÖseq(I,I,1,N)VL1ÖVL1VL2ÖSend({1,0})ÖSend({1,1,1})ÖIf (P==2)ÖThenÖSend({1,2,1})ÖEndÖSend({3,T,N,2,1,5})ÖClLCDÖClDrwÖLine(xMin,0,xMax,0)ÖClLCDÖDisp "CONNECT LEADS. THEN"ÖDisp "CHARGE CAPACITOR."ÖDisp ""ÖDisp "TRIGGER ON CHANNEL 1."ÖGet(VL1)ÖIf (P==2)ÖThenÖGet(VL2)ÖEndÖFor(I,1,N-1,1)ÖLine(I,VL1(I),I+1,VL1(I+1))ÖIf (P==2)ÖThenÖLine(I,VL2(I),I+1,VL2(I+1))ÖEndÖEndÖReturnÖEndÖl°