_______________________________________________________________________
           
	     Title: Double or Nothing
         Version: 1.0
          Author: Farid Golmohammadi / bmgi@Kiruna.Se
           Model: Casio 7700+
     Description: Double or Nothing, the forever gambling question
                  
_______________________________________________________________________

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 :

"DOUBLE OR NOTHING"
1000->X
7->B_
Lbl 4
B->A
"DOLLARS":X_
"1.LOWER"
"2.SAME"
"3.HIGHER"
"4.COLLECT"?->C
C=3D4=3D>Goto 6
Int 13Ran#+1->B_
C=3D1=3D>Goto 1
C=3D2=3D>Goto 2
C=3D3=3D>Goto 3
Lbl 1
B>=3DA=3D>Goto 9
B<A=3D>Goto 5
Lbl 2
B/=3DA=3D>Goto 9
B=3DA=3D>Goto 6
Lbl 3
B<=3DA=3D>Goto 9
B>A=3D>Goto 5
Lbl 6
"COLLECT MONEY"
"DOLLARS":X_
Goto 4
Lbl 5
X*2->X
Goto 4
Lbl 6
X*10->X
Goto 4
Lbl 9
"Y O U  L O S E"
"YOU HAD":X_
"YOU HAVE":0_
" "
_______________________________________________________________________