Guess the Number
PROGRAM: GUESS :
ClrHome
:Disp "TI-GUESS"
:Pause
:ClrHome
:Disp "BY DEUS X"
:Pause
:ClrHome
:Lbl W
:Disp "NUMBER OF TRYS"
:Input Q
:If Q25
:Goto M
:Disp "RANGE=1 TO"
:Input U
:U-.01U
:randX
:U*X+1X
:iPart XX
:ClrHome
:Disp "TRYS-",Q
:Lbl Z
:Disp "GUESS"
:Input A
:If A=X
:Goto D
:If AX
:Then
:ClrHome
:Disp "TRYS-", Q
:Disp "SMALLER"
:Q-1Q
:End
:If Q=0
:Goto T
:If AX
:Goto Z
:If AQ
:End
:If Q=0
:Goto T
:If A<X
:Goto Z
:Lbl D
:Menu("YOU WON!","NEW GAME",W,"QUIT",L)
:Lbl T
:Menu("YOU LOSE","NEW GAME",W,"QUIT",L)
:Lbl L
:ClrHome
:Disp "THE NUMBER WAS-",X
:Disp "THANX FOR"
:Disp "PLAYING!"
:Stop
:Lbl M
:ClrHome
:Disp "LESS THAN 25"
:Goto W