_________________________________________________________________________ Title: The Guesser Author: Peter Jansson Written by: Peter Jansson Description: Guess the number as fast as possible, optional help and upper number sensitive point calculation. _________________________________________________________________________ Command translation: -> Single arrow (located on the keyboard) => Double arrow (press: [shift] [prgm] [f1] [f1]) _ Display, -Disp- (press: [shift] [prgm] [f4]) <= Less or equal (A <= B) >= Greater or equal (A >= B) <> Not equal (A <> B) ^ Raised to the power of / Division or fraction (explain which with a comment) 2rt() Root (2rt(7) is the square root of 7) 4rt() 4th root pi pi (~3.14159265359, low case) e() e(1) (~2.7818281846, low case) E Exponent (5E4 gives 5*10^4) (located on the keyboard, [EXP]) _________________________________________________________________________ Program: Lbl 0:Fix1 " *************** " " * THE GUESSER * " " *************** " " " " " " " "UPPER NUMBER LIMIT:"?->A Int ARan#+1->B Lbl1 "DO YOU WANT HELP" "DURING THE GAME" "1.YES" "2.NO" ?->H H=1=>Goto 2 H=2=>Goto 4 H<1=>Goto 1 H>2=>Goto 1 Lbl 2 "GUESS:"?->D D=B=>"YOU GOT IT"_ D=B=>Goto 3 D<>B=>C+1->C B>D=>"TOO LOW" B"TOO HIGH" Goto 2 Lbl 3 "YOUR SCORE:" A*100\(C+1)->C C<=0=>0-C C_ Goto 0 Lbl 4 "GUESS:"?->D D=B=>"YOU GOT IT"_ D=B=>Goto 3 D<>B=>"WRONG" D<>B=>C+1->C Goto 4 _________________________________________________________________________