Back to main page If this is useful to you, Email me at: Genewright143@hotmail.com

Instructions:
1) Store a decimal number for the random number seed. STO 1.
2) Key in Bet. Press A. Display shows the total dice roll.
3) To roll again, press R/S.

Repeat step 3 until total winnings are shown. Then go to step 2 again. To start over with $0 winnings, store a zero in memory 4 and go to step 2.

Rules: Rolling a 7 or 11 on the first roll wins. Rolling a 2, 3, or 12 lose on the first roll. Rolling your "point" before a 7 on subsequent rolls wins. Rolling a 7 before getting your point again loses.

Line   Function Keycode
01	STO 3	33 03
02	DSP	21
03	1	01
04	B	12
05	STO 2	33 02
06	B	12
07	STO	33
08	+	61
09	2	02
10	C	13
11	R/S	84
12	7	07
13	RCL 2	34 02
14	g X=Y?	35 23
15	GTO	22
16	2	02
17	1	01
18	1	01
19	g X=Y?	35 23
20	GTO	22
21	2	02
22	RCL 2	34 02
23	g X>Y?	35 24
24	GTO	22
25	3	03
26	4	04
27	g X>Y	35 24
28	GTO	22
29	3	03
30	GTO	22
31	4	04
32	LBL	23
33	1	01
34	R/S	84
35	7	07
36	RCL 5	34 05
37	g X=Y?	35 23
38	GTO	22
39	3	03
40	RCL 2	34 02
41	g X=Y?	35 23
42	GTO	22
43	2	02
44	LBL	23
45	4	04
46	B	12
47	STO 5	33 05
48	B	23
49	STO	33
50	+	61
51	5	05
52	C	13
53	GTO	22
54	1	01
55	LBL	23
56	B	12
57	RCL 1	34 01
58	9	09
59	9	09
60	7	07
61	*	71
62	F-1	32
63	INT	83
64	STO 1	33 01
65	6	06
66	*	71
67	1	01
68	+	61
69	F	31
70	INT	83
71	RTN	24
72	LBL	23
73	C	13
74	1	01
75	0	00
76	/	81
77	+	61
78	RCL 2	34 02
79	F-1	32
80	LOG	08
81	*	71
82	RTN	24
83	LBL	23
84	3	03
85	RCL 3	34 03
86	CHS	42
87	STO 3	33 03
88	LBL	23
89	2	02
90	RCL 4	34 04
91	RCL 3	34 03
92	+	61
93	STO 4	33 04
94	DSP	21
95	.	83
96	2	02
97	RTN     24