**TI92P*mainGaéßÙ('PêXGaþßá&'=¶ßxygExyà^''=êXRbeta2s¥¥ZK() Prgm ClrIO Local x,y,z,t,r,s Lbl begin Output 5,10,"Electronic Guessing Game" Output 15,10,"av Carpe Diem Software" Output 35,10,"Tryck på F1 för att" Output 45,10,"starta ett nytt spel" Toolbar Title " Nytt spel ",start Title " Om ",om Title " Avsluta ",end EndTBar Lbl start Toolbar Title " Ram ",ram Title " Svårighetsgrad ",lms endTBar Lbl ram Dialog Title "Electronic Guessing Game" Text "Inom vilken ram ska det rätta" Request "talet vara, 1-?? ",t EndDlog expr(t)t rand(t)x Goto start Lbl lms Dialog Title "Electronic Guessing Game" DropDown "Nivå", {"Lätt","Medel","Svår"}, 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 "Din gissning",y EndDlog 0z Lbl b 1+zz expr(y)y If y=x Then Dialog Title "Bra gjort, du klarade det!" Text "Du gissade det rätta nummret!" Text "Du behövde "&string(z)&" försök." EndDlog Goto begin Stop EndIf If y