**TI86** Ï ÂLIGHTÂÀClLCDÖDisp "1 TO SET UP CBL"ÖDisp "2 TO SKIP SET UP"ÖDisp "3 TO USE AS METER"ÖInput SÖIf S==3ÖThenÖSend({1,1,12})ÖSend({3,0.5,10,1,0,0,0,0,1})ÖClLCDÖDisp "READY TO USE AS"ÖDisp "METER."ÖReturnÖEndÖIf S==1ÖThenÖDisp "TIME BETWEEN"ÖDisp "MEASUREMENTS?"ÖInput TÖDisp "NUMBER OF"ÖDisp "MEASUREMENTS?"ÖInput KÖSend({1,0})ÖSend({1,1,12})ÖSend({3,T,K,1,0,0,0,0,1})ÖClLCDÖDisp "SET UP COMPLETE YOU"ÖDisp "MAY UNPLUG CBL."ÖDisp "PRESS CBL TRIGGER TO"ÖDisp "BEGIN. PRESS ENTER."ÖPause ÖEndÖDisp ""ÖDisp "CONNECT CBL AND"ÖDisp "PRESS ENTER TO"ÖDisp "RETRIEVE DATA."ÖPause Ö1dimL L1Ö1dimL L4ÖGet(L1)ÖGet(L4)ÖFor(I,2,dimL L4)ÖL4(I)-L4(1)L4(I)ÖEndÖ0L4(1)ÖClLCDÖDisp "TIMES IN L4"ÖDisp "CHANNEL 1 IN L1"ÖReturnÖEndïâ