**TI92**mainProgram: 01\02\1999 10:34:01 AMRsoundÑ¥Zw() Prgm setMode("Graph","Function") setMode("Split Screen","Full") PlotsOff FnOff axesoff ClrIO {1,0}l6 Send l6 {1,1,1}l6 Send l6 Disp "Press ENTER to start" Disp "data collection." Pause {3,1.•­4,512,0,0,0,0,0,0}l6 Send l6 ClrDraw Get l1 min(l1)a max(l1)b a-(b-a)/5ymin b+(b-a)/20ymax 1xmin 239xmax For i,1,238,1 Line i,l1[i],i+1,l1[i+1] EndFor EndPrgmôäåÜëo