**TI86** e XSOUNDXVFuncÖFnOff ÖAxesOffÖPlOff 1,2,3Öseq(I,I,1,127,1)L1Ö1dimL L2Ö1dimL L3ÖClLCDÖSend({1,0})ÖSend({1,1,1})ÖDisp "PRESS ENTER TO"ÖDisp "START COLLECTING"ÖDisp "DATA."ÖPause ÖSend({3,.0001,512,0,0,0,0,0,0})ÖClDrwÖGet(L3)ÖFor(I,1,127)ÖL3(I)L2(I)ÖEndÖ1xMinÖ127xMaxÖmin(L2)AÖmax(L2)BÖA-(B-A)/5yMinÖB+(B-A)/5yMaxÖL1xStatÖL2yStatÖxyline ÖStopÇr