_____________________________________________________________________________ Title: Fruit Machine Xtra Version: 2.2 Author: Maverick - 106053.2370@compuserve.com Size: Unknown - sorry! At least 1000 bytes. Model: Designed on a 7700. Description: 4 digit fruit machine with numbers + bonus game. ----------------------------------------------------------------------------- COMMAND TRANSLATION: # 'display' (SHIFT, 7, F5) <> 'not equal to' (SHIFT, 7, F2, F2) <= 'less than or equal to'(SHIFT, 7, F2, F6) >= 'more than or equal to'(SHIFT, 7, F2, F5) -> 'put in to' => 'then' (SHIFT, 7, F1, F1) Ran# gives a random number. (SHIFT, 5, F2, F4) / divide ----------------------------------------------------------------------------- PROGRAM: Prog 0 'Main Program ------ "FRUIT MACHINE" Norm 20->E Lbl 0 Prog C : X->A Prog C : X->B Prog C : X->C Prog C : X->D Lbl 4 : A# B# C# D# "CASH = " : E# 0->K : Prog D K=1 => Goto 4 Lbl 5 : "1= GO AGAIN." "2= STOP NOW"?->X X=1 => E-1->E E<0 => Goto 6 X=1 => Goto 0 X=2 => Goto 9 Goto 5 Lbl 6 "NO MONEY LEFT!!" Goto 8 Lbl 9 "FINAL CASH:" : E# Lbl 8 Prog 1 ' To play the bonus game on ------ ' it's own, run this Program. 'HIGHER OR LOWER' 0->L : 0->E Prog J Prog C ------ Int (Ran#*10)->X Prog D ------ 0->L : 0->Q A=B => 1->Q A=C => 2->Q A=D => 3->Q A=B => Goto 1 A=C => Goto 1 A=D => Goto 1 B=C => Goto 2 B=D => Goto 2 C=D => Goto 6 Goto 9 Lbl 1 B=C => Q=3 => A<>C => Goto 5 B=D => Q=2 => A<>B => Goto 5 C=D => Q=1 => A<>D => Goto 5 B=C => Goto 3 B=D => Goto 3 C=D => Goto 8 Goto 6 Lbl 2 C=D => Goto 8 Goto Lbl 3 C=D => Goto 7 Goto 8 Lbl 5 A=B => C=D => 5->L A=C => B=D => 5->L A=D => B=C => 5->L L<>5 => Goto 6 "TWO PAIRS" Prog E : Goto 0 Lbl 6 "ONE PAIR" : 2->L Prog C X>=4 => Prog F Goto 0 Lbl 7 "JACKPOT!!!!!!!!!" 4->L : Prog E : Goto 0 Lbl 8 "THREE OF A KIND" 3->L : Prog F : Goto 0 Lbl 9 A=1 => B=2 => C=3 => D=4 => 6->L A=9 => B=8 => C=7 => D=6 => 6->L L<>6 => Goto 0 "STRAIGHT!!!!!!" Prog E Lbl 0 Prog E ------ "1= CASH IN" "2= GAMBLE"?->X L=5 => Goto 1 L=6 => Goto 2 L=4 => Goto 3 Goto 0 Lbl 1 X=2 => Goto 4 E+5->E Goto 0 Lbl 2 X=2 => Goto 4 E+15->E Goto 0 Lbl 3 X=2 => Goto 4 E+10->E A=0 => E+10->E Goto 0 Lbl 4 Prog J Lbl 0 Prog F ------ E<1 => Goto 0 Lbl 1 "1= HOLD" "2= NUDGE" L=3 => "3= CASH IN" "4= IGNORE"?->X X=1 => Prog G X=2 => Prog H L=3 => X=3 => E+3->E Lbl 0 Prog G ------ 0->M : 0->N : 0->O "HOLD WHAT"?->M L=1 => Goto 1 "AND"?->N L=2 => Goto 1 "AND"?->O Lbl 1 Prog C M<>1 => N<>1 => O<>1 => X->A Prog C M<>2 => N<>2 => O<>2 => X->B Prog C M<>3 => N<>3 => O<>3 => X->C Prog C M<>4 => N<>4 => O<>4 => X->D 1->K : E-1->E : 0->X Prog H ------ 0->M "NUDGE WHAT"?->M Int (Ran#*2)->X X=0 => -1->X M=1 => A+X->A M=2 => B+X->B M=3 => C+X->C M=4 => D+X->D A=-1 => 9->A A=10 => 0->A B=-1 => 9->B B=10 => 0->B C=-1 => 9->C C=10 => 0->C D=-1 => 9->D D=10 => 0->D 1->K : E-1->E : 0->X Prog J 'Bonus Game ------ 'Any ideas for any other games "HIGHER, LOWER" 'I could add would be appreciated. 0->S : 5->R L=4 => 10->R Lbl 1 "CREDIT =" : R# Prog C " ==" : X# " ==" S<>0 => Goto 2 Lbl 3 "1= HIGHER" "2= LOWER" "3= RETIRE"?->T X->U : 1->S T<>3 => Goto 1 E+R->E : Goto 0 Lbl 2 U=X => Goto 9 T=1 => U>X => Goto 9 T=1 => U Goto 9 "RIGHT!" R+1->R : Goto 3 Lbl 9 : "WRONG." R-1->R : Goto 3 Lbl 0 "BONUS CASH" : R# "TOTAL CASH" : E# _____________________________________________________________________________ If you encounter any problems with this program, contact: MAVERICK 106053.2370@compuserve.com Also contact me with any ideas you may have for improvement. Ver 2.4 is being tested at the moment, and features many bonus games, as well as a shorter code. Ver 3 should have full graphics - but we'll see. THANX to SEFTON and GILL for testing this, and many other programs. Hallo to SANGSTER - wherever you are. Interested in any Mathematical programs? Give us an e-mail for details. _____________________________________________________________________________