_________________________________________________________________________

        Title:          Super Slot Machine (SSM)
        Description:    Not just `another' Casio slot machine.. I saw no
                        interesting slot machines available, so I decided to
                        write my own without those boring text interfaces..
                        - Here it is! A fully graphical Slot machine for your
                        Casio.
        Author:         Kim Hedin
        Remarks:        Needs the program "numbers" (numbers.txt) by Kim Hedin
                        The numbered Comments should not be typed in
        Size:           About 800 bytes.
        Translation:    Tristan

_________________________________________________________________________

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)

_________________________________________________________________________

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


Program:


Defm 8
Fix 0
Range 1,127,0,63,1,0            1. might seem like a strange range, but it's
Lbl 0                              very easy to work with.
500 -> M                        2. Start money

Lbl 1
Cls
M <= 0 => Goto L
"TREASURY:":M_
"YOUR BET"? -> B
B > M => "IQ = NONE..?"
B > M => Goto 1
M-B -> M
Int 10Ran# -> A[31]             3. dice one
Int 10Ran# -> A[32]                dice two
Int 10Ran# -> A[33]                dice three
31 -> Z
54 -> V                         4. A "Numbers" variable.
29 -> W

Lbl 2
Plot 2,2                        5. Lbl 2 draws the display in 
Plot 125,2                         which the numbers are shown.
Plot 2,61
Plot 125,61
Plot 51,27
Plot 75,27:Line
Plot 75,35:Line
Plot 51,35:Line
Plot 51,27:Line
Plot 59,27
Plot 59,35:Line
Plot 67,27
Plot 67,35:line

Lbl3
A[Z] -> N                       6. A "Numbers" variable.
Prog N                          7. This is where "Numbers" is stored
Z=33 => Goto 4
Isz Z
V+8 -> V
Goto 3

Lbl 4
0 -> Z
A[31]=A[32] => A[32]=A[33] => Goto 5
A[31]=A[32] => Goto 7
A[32]=A[33] => Goto 7
A[31]=A[33] => Goto 7
A[31]=A[32]+1 => A[32]=A[33]+1 => Goto 7
A[31]=A[32]-1 => A[32]=A[33]-1 => Goto 7
Goto 8

Lbl 5
Plot 49-Z,27-Z                  8. Draws a descending square at Jackpot.
Plot 75+Z,27-Z:Line
Plot 77+Z,35+Z:Line
Plot 49-Z,35+Z:Line
Plot 49-Z,27-Z:Line
Z=16 => Goto 6
Z+2 -> Z
Goto 5

Lbl 6
" "
" "
" "
"    J A C K P O T"
" "
" "_
"YOU GOT:"
Int (A[32]Ran#+1)*10B -> E_
M+E -> M
Goto 1

Lbl 7
Plot 49,25                      9. Draws a square that indicates a win.
Plot 77,25:Line
Plot 77,37:Line
Plot 49,37:Line
Plot 49,25:Line
"YOU GOT:"
Int (A[32]Ran#+1)*3B -> E_
M+E -> M
Goto 1

Lbl 8
Plot 49,25                     10. Draws a square that indicates a loss.
Plot 77,37:Line
Plot 49,37
Plot 77,25:Line_
Goto 1

Lbl 9
" "
" "
" "
"   G A M E   O V E R"
" "
" "_
Goto 0

_________________________________________________________________________