This Programs is from Silver Stone BBS
_________________________________________________________________________

                   SilverSTone BBS - Casio Support BBS

 SysOp: Magnus Werner, M.Werner@abc.se
                       Magnus.Werner@f345.n201.z2.fidonet.org
        Casio URL: http://www.abc.se/~m9935/casio.html
        Casio FTP: ftp://ftp.abc.se/pub/casio/
        FidoNet  : 2:201/345

 Open 24 hours/day on 28k8 V34/VFC, Phone +46-(0)8-6417838.
                                                                 951020
_________________________________________________________________________

           Titel: HiLow
          Author: Magnus Werner
      Written by: Magnus Werner

     Description: Guess if the number is higher or lower. You may
                  alter difficultylevel by choosing how many numbers
                  the Casio should randomize.

_________________________________________________________________________

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])
_________________________________________________________________________

All commands which in ASCII-form are two or more characters are to be
seperated from other commands with a space (i.e. -> , => , <> or pi).
Refer to the command standard used in R20_CASIO and set by Magnus
Werner on SilverSTone BBS (2:201/345@fidonet.org).

Everything after a ; is a comment and should not be in the code.

_________________________________________________________________________

 Program:


HILOW
"HILOW"
Fix 0
10 -> L
1 -> X
1 -> Y
"NUMBERS 0-14"_
Lbl 0
0 -> T
T+1 -> T
L=0 => Goto 9
14Ran# -> A
"----------"
"NUMBER:"
A_
"MONEY:"
L_
"BET"? -> F
"----------"
"2 = LESS"
"8 = MORE"
"6 = VIEW SCORE"
"COMMAND"? -> C
F>L => Goto 4
C=6 => Goto 6
C=2 => Goto 2
14Ran# -> G
A <= G => Goto 8
L-F -> L
"PICKED NUMBER:"

G_
Goto 0
Lbl 2
14Ran# -> G
A >= G => Goto 3
L-F -> L
"PICKED NUMBER:"

G_
Goto 0
Lbl 8
"YES!"
"PICKED NUMBER:"

G_
"MONEY:"
L+F -> L
L_
Goto 0
Lbl 3
"YES!"
"PICKED NUMBER:"

G_
"MONEY:"
L+F -> L
L_
Goto 0
Lbl 9
" ~~ GAME OVER ~~ "
Lbl 6
" ~~~ SCORE ~~~ "
"NUMBER OF TURNS:"
T_
"SCORE (M/T):"
L/T -> Z
L_
Goto 0
Lbl 4
"YOU CAN'T BET"
"THAT MUCH!"_
Goto 0

_________________________________________________________________________

 If you need help or information concerning this file, please contact
 Magnus Werner at the addresses above, or the author if possible.

_________________________________________________________________________