**TI85** Program file dated 02/16/98, 07:51sTEMPsqClLCDÖDisp "HOW MANY PROBES?"ÖInput NÖDisp "ENTER"ÖDisp "1 TO SET UP CBL"ÖDisp "2 TO SKIP SET UP"ÖInput SÖIf S==1ÖThenÖDisp "TIME BETWEEN"ÖDisp "MEASUREMENTS?"ÖInput TÖDisp "NUMBER OF"ÖDisp "MEASUREMENTS?"ÖInput KÖ{1,0}L6ÖOutpt("CBLSEND",L6)ÖFor(I,1,N)Ö{1,I,10}L6ÖOutpt("CBLSEND",L6)ÖEndÖ{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."ÖPause Ö1dimL L1Ö1dimL L2Ö1dimL L3Ö1dimL L4ÖInput ("CBLGET",L1)ÖIf N>1.5ÖThenÖInput ("CBLGET",L2)ÖEndÖIf N>2.5ÖThenÖInput ("CBLGET",L3)ÖEndÖ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"ÖIf N>1.5ÖThenÖDisp "CHANNEL 2 IN L2"ÖEndÖIf N>2.5ÖThenÖDisp "CHANNEL 3 IN L3"ÖEndÖReturnÖEndÝ