**TI92**mainProgram: 02\15\1998 10:12:37 AMRtempü¥Z¢() Prgm Local i,n,t,sw,k ClrIO Disp "How many temperature probes?" Input n Disp "Enter 1 to set up CBL." Disp "Enter 2 to skip set up and get data." Input sw If sw=1 Then Disp "Time between measurements in seconds?" Input t Disp "Number of measurements?" Input k {1,0}l6:Send l6 For i,1,n {1,i,10}l6:Send l6 EndFor {3,t,k,1,0,0,0,0,1}l6:Send l6 ClrIO Disp "Set up complete." Disp "You may unplug CBL." Disp "Then press CBL TRIGGER" Disp "to begin data collection." EndIf Disp "" Disp "Connect CBL to retrieve data" Disp "Press ENTER to begin retrieving data." Pause {1,2}ch1 Get ch1 If n>1.5 Then:{1,2}ch2:Get ch2 EndIf If n>2.5 Then:{1,2}ch3:Get ch3 EndIf {1,2}l1 Get l1 For i,2,dim(l1) l1[i]-l1[1]l1[i] EndFor 0l1[1] ClrIO Disp "Time data is in l1" Disp "Data from channel 1 is in ch1" If n>1.5 Then Disp "Data from channel 2 is in ch2" EndIf If n>2.5 Then Disp "Data from channel 3 is in ch3" EndIf EndPrgm äåܯ