_________________________________________________________________________ Title: Bandit Version: 1.0 Author: Bard Henriksen / rolhenri@aft.sn.no Model: 9850+ Description: A slot machine game for the Casio 9850 _________________________________________________________________________ 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 : Cls ViewWindow 1,127,0,1,63,0 Text 3,22,"BANDIT" Plot 1,55 Plot 127,55 Line Plot 40,55 Plot 40,40 Line Plot 54,55 Plot 54,40 Line Plot 68,55 Plot 68,40 Line Plot 82,55 Plot 82,40 Line 0 -> M 0 -> I 1000 -> P Text 30,1,"MONEY:" Text 30,45,p Lbl 1 0 -> G Int 4Ran#+1 -> A Int 4Ran#+1 -> B Int 4Ran#+1 -> C Text 14,46,A Text 14,60,B Text 14,74,C If A=B ;If you think it's to hard to win, just add "Or B=C" Then Int (I*(2rt A+2rt B+2rt C)) -> G IfEnd A=B=>B=C=>I*(2+A) -> G P+G -> P Text 40,1,"INCOME:" Text 40,45," " ;17 spaces Text 40,45,G Text 30,45," " ;17 spaces Text 30,45,P P>M => P -> M Plot 0,0_ P<=0 =>Goto 3 Lbl 2 Clrtext "BET"? -> I P Goto 2 P-I -> P Goto 1 Lbl 3 ClrText "SORRY...." For 1 -> X To 150 Next Locate 1,3,"NO MORE MONEY" Locate 1,5,"YOU HAD" Locate 1,6,M Locate 1,7,"AT YOUR BEST" _________________________________________________________________________