**TI92P*mainL–æGSTæ6&ßTj·S࿗ELGS–æ–æGSÈ læV%ßT°»Rsprt ¥Z²() Prgm © Set up the screen FnOff setGraph("Axes","Off") PlotsOff © Input variable names Dialog Request "Data list",dlist Request "Category list",clist EndDlog If dim(#dlist)dim(#clist) Then Text "lists must have same length" Stop EndIf © Set up box plots min(#clist)mnc max(#clist)mxc 0p For i,mnc,mxc p+1p NewPlot p,3,#dlist,,,#clist,{i} EndFor ZoomData © clean up variables DelVar p,dlist,clist,mnc,mxc EndPrgmäåܛ‘