Number Guess 1.4 Source Code

> = STO key

::"Number Guess 1.4
:Lbl A
:ClrHome
:Menu("NUMBER GUESS 1.4","1-10",B,"1-50",C,"1-100",D,"1-500",E,"CUSTOM",F,"QUIT",G
:Lbl B
:10>A
:Goto H
:Lbl C
:50>A
:Goto H
:Lbl D
:100>A
:Goto H
:Lbl E
:500>A
:Goto H
:Lbl F
:ClrHome
:Input "DIFFICULTY=",A
:Goto H
:Lbl H
:randInt(1,A>B
:0>A
:Lbl I
:ClrHome
:Input "GUESS=",C
:A+1>A
:If C>B
:Then
:Pause "TOO HIGH!
:Goto I
:End
:If C<B
:Then
:Pause "TOO LOW!
:Goto I
:If C=B
:Then
:Disp "CORRECT!
:Disp "IT TOOK YOU
:Output(3,13,A
:Pause "TRIES.
:Goto A
:End
:Lbl F
:ClrHome
:DelVar A
:DelVar B
:DelVar C
:Stop