**TI85** Program file dated 04/21/95, 16:50› ŽSOUNDŽŒFnOff ÖAxesOffÖ1dimL L1Öseq(I,I,1,127,1)L1Ö1dimL L2Ö1dimL L3ÖClLCDÖ{1,0}L6ÖOutpt("CBLSEND",L6)Ö{1,1,1}L6ÖOutpt("CBLSEND",L6)ÖClLCDÖDisp "PRESS ENTER TO"ÖDisp "START COLLECTING"ÖDisp "DATA."ÖPause Ö{3,.0001,512,0,0,0,0,0,0}L6ÖOutpt("CBLSEND",L6)ÖClDrwÖInput "CBLGET",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)/20yMaxÖxyline L1,L2ÖStopÖÖÖÖÖÖóƒ