**TI89**mainSingle file dated Fri Sep 4 19:13:30 20Rmlpickƒ¥Z)() Prgm Request "Enter last number",z,0 expr(z)z mod(z,4)q For a,1,10 For b,1,10 q+(a-1)*4x q+(b-1)*4+2y Text "Try : "&string(mod(x,40))&" - "&string(mod(y,40))&" - "&string(mod(z,40))&" ("&string(10*(a-1)+b)&"/100)" EndFor EndFor Text "mlpick() by Jan Dlabal, houbysoft.com" EndPrgm"äåÜU