**TI85**Program file dated 02/16/98, 07:51f YLIGHTYWClLCDÖDisp "ENTER"ÖDisp "1 TO SET UP CBL"ÖDisp "2 TO SKIP SET UP"ÖDisp "3 TO USE AS METER"ÖInput SÖIf S==3ÖThenÖ{1,0}L6ÖOutpt("CBLSEND",L6)Ö{1,1,12}L6ÖOutpt("CBLSEND",L6)Ö{3,0.5,10,1,0,0,0,0,1}L6ÖOutpt("CBLSEND",L6)Ö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Ö{1,0}L6ÖOutpt("CBLSEND",L6)Ö{1,1,12}L6ÖOutpt("CBLSEND",L6)Ö{3,T,K,1,0,0,0,0,1}L6ÖOutpt("CBLSEND",L6)Ö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."ÖKdimL L1ÖKdimL L4ÖPause ÖInput ("CBLGET",L1)ÖInput ("CBLGET",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}