_________________________________________________________________________

           Titel: Bandit
          Author: ?
      Written by: Sent in R20_CASIO by Sten Ulfsson
                  ASCII-file by Magnus Werner.
     Description: Slotmachine
 
_________________________________________________________________________

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:


" --=>BANDIT<=--"
Lbl 0
0 -> N
2000 -> X
Lbl 1
Isz N
"DU HAR:":X_
N=7 => Goto 5
"INSATS? -> S
S>X => Goto 1
S<0 => Goto 1
Int (1+5Ran#) -> A_
Int (1+5Ran#) -> B_
Int (1+5Ran#) -> C_
A=B => B=C => Goto 2
A=B => Goto 3
B=C => Goto 3
Goto 4
Lbl 2
"JACKPOT!"
10S -> S
S+X -> X
Goto 1
Lbl 3
"DU VINNER"
2S -> S
S+X -> X
Goto 1
Lbl 4
"DU F0RLORAR"
S_
X-S -> X
X <= 0 => "PENGARNA SLUT"
X <= 0 => Goto 6
Lbl 5
0 -> N
Goto 1
Lbl 6
"NYTT SPEL (1-0)"? -> H
H=1 => Goto 0

_________________________________________________________________________