**TI92P*mainÏ<­ÞÙ(<êXÏ<ÂÞá&?Iº7=o·FoÚÞ^'?IêXRalpha2?¥Zå() Prgm ClrIO Local x,y,z,t Dialog Title "Carls super-bra gissnings-spel" Request "Nivå [1,2,3]",t EndDlog If t=1 Then rand(10)x EndIf If t=2 Then rand(100)x EndIf If t=3 Then rand(1000)x EndIf "0"y ClrHome Dialog Title "Carls super-bra gissnings-spel" Request "Din gissning",y EndDlog 0z Lbl a 1+zz expr(y)y If y=x Then Dialog Title "Bra!! Du klarade det, blablabla" Text "Fan va smart du är, rätt igen!" Text "Du behövde "&string(z)&" försök." EndDlog Stop EndIf If y