**TI92**mainProgram: 02\15\1998 10:12:37 AMRlight²¥ZX() Prgm Local i,t,sw,k ClrIO Disp "Enter 1 to set up CBL." Disp "Enter 2 to skip set up and get data." Disp "Enter 3 to use as a light meter." Input sw If sw=3 Then {1,0}l6:Send l6 {1,1,12}l6:Send l6 {3,0.5,10,1,0,0,0,0,1}l6:Send l6 ClrIO ClrIO Disp "Ready to use as meter." Return EndIf If sw=1 Then Disp "Time between measurements in seconds?" Input t Disp "Number of measurements?" Input k {1,0}l6:Send l6 {1,1,12}l6:Send l6 {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}l1 {3,4}ch1 Get ch1 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" EndPrgm äåÜW