**TI92P*mainL–æGSTæ6&ßTÖ·SÚÝ—ELGS–æ–æGSÈ læV%ßTªÙRlblscatS¥Zù() Prgm NewProb © defaults "serv"xstr "calor"ystr "meat"cstr Dialog Title "Labeled scatterplot" Request "x list",xstr Request "y list",ystr Request "cat list",cstr EndDlog © defaults "m"str0 "p"str1 "o"str2 Dialog Title "categories must be 0, 1, or, 2" Request "label if code = 0",str0 Request "label if code = 1",str1 Request "label if code = 2",str2 EndDlog setGraph("Axes","On") NewPlot 1,1,#xstr,#ystr,,#cstr,{0},5 NewPlot 2,1,#xstr,#ystr,,#cstr,{1},5 NewPlot 3,1,#xstr,#ystr,,#cstr,{2},5 ZoomData For i,1,dim(#xstr) If #cstr[i]=0 Then PtText str0,#xstr[i],#ystr[i] ElseIf #cstr[i]=1 Then PtText str1,#xstr[i],#ystr[i] ElseIf #cstr[i]=2 Then PtText str2,#xstr[i],#ystr[i] EndIf EndFor DelVar cstr,xstr,ystr,str0,str1,str2 EndPrgmäåÜ÷