**TI92P*mainGa('PXGa&'=G^''=XRbeta2eZC() Prgm ClrIO Local x,y,z,t,r,s Lbl begin Output 5,10,"Electronic Guessing Game" Output 15,10,"by Carpe Diem Software" Output 35,10,"Press F1 to start" Output 45,10,"a new game." Toolbar Title " New Game ",start Title " About ",om Title " Quit ",end EndTBar Lbl start Toolbar Title " Range ",ram Title " Skill level ",lms endTBar Lbl ram Dialog Title "Electronic Guessing Game" Text "Within wihich range shall the right" Request "number be, 1-?? ",t EndDlog expr(t)t rand(t)x Goto start Lbl lms Dialog Title "Electronic Guessing Game" DropDown "Skill", {"Easy","Medium","Hard"}, s EndDlog If s=1 Then rand(10)x 10t ElseIf s=2 Then rand(100)x 100t ElseIf s=3 Then rand(1000)x 1000t EndIf lbl Start "1- "&string(t)&" "y ClrHome Dialog Title "Electronic Guessing Game" Request "Your guess",y EndDlog 0z Lbl b 1+zz expr(y)y If y=x Then Dialog Title "Well done, you made it!" Text "You guessed the right number!" Text "You needed "&string(z)&" tries." EndDlog Goto begin Stop EndIf If y