**TI92P*main€Ä €êXÇ<ÂÞá&= ×>pq:pqÚÞ^'=êXRbeta1s°¥ZV() Prgm ClrIO Local x,y,z,t,w,r,s Dialog Title "Electronic Guessing Game av CDS" Text "Vill du själv välja inom vilken ram" Text "talet skall vara?" DropDown "Ja eller Nej?", {"Ja","Nej"}, r EndDlog Lbl a If r=1 Then 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 Else Dialog Title "Electronic Guessing Game" DropDown "Nivå 1-??", {"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 EndIf "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 Dialog Title "EGG Beta1 av Carpe Diem Software" Text "Besök http://surf.to/cds-calc" Text "för nya versioner av EGG" Text "och andra räknarprogram" DropDown "Ny omgång?", {"Ja","Nej"}, w EndDlog If w=1 Then Goto a Else Goto c EndIf Stop EndIf If y