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