I made a little Russian Roulette program for TI-84+ calculators (actually, it might work on other models, but I have only tested it on TI-84+). It is written in TI-BASIC, so it's pretty easy to use.

## Controls Edit

The controls are pretty simple and are listed on the screen.

## Download Edit

You can download the program at RapidShare here: http://rapidshare.com/files/402147285/RR.8XP.

## Code Edit

Here's the code in case you can't connect your calculator to your computer and transfer the file.

:ClrHome :Output(1,1,"Russian Roulette") :Output(3,2,"Made by Abcorn") :Output(5,6,"Visit") :Output(6,2,"www.abcorn.tk") :Output(8,1,"Press any key...") :0→K :While K=0 :getKey→K :End :ClrHome :Output(1,1,"Russian Roulette") :Output(3,1,"Press number of") :Output(4,1,"bullets to load") :Output(5,6,"(1-6)") :Output(7,2,"Press Clear at") :Output(8,1,"any time to quit") :0→K :While K≠92 and K≠93 and K≠94 and K≠82 and K≠83 and K≠84 and K≠45 :getKey→K :End :If K=45:Then :ClrHome :Stop :End :If K=92 :1→B :If K=93 :2→B :If K=94 :3→B :If K=82 :4→B :If K=83 :5→B :If K=84 :6→B :ClrHome :Output(1,1,B) :Output(1,3,"bullets loaded") :Output(3,2,"Press Clear at") :Output(4,1,"any time to quit") :Output(6,1,"Press any key to") :Output(7,1,"pull the trigger") :Lbl 1 :0→K :While K=0 :getKey→K :End :If K=45:Then :ClrHome :Stop :End :ClrHome :randInt(B,6)→A :If A=6:Then :B-1→B :Output(1,6,"BANG!") :If B=0:Then :Output(3,4,"Press Enter") :Output(4,6,"to end") :Output(8,2,B) :Output(8,4,"bullets left") :Pause :ClrHome :Stop :Else :Output(3,1,"Press any key to") :Output(4,1,"pull the trigger") :Output(6,1,"Push CLR to quit") :End :Output(8,2,B) :Output(8,4,"bullets left") :Goto 1 :End :Output(1,6,"Click") :Output(3,1,"Press any key to") :Output(4,1,"pull the trigger") :Output(6,1,"Push CLR to quit") :Output(8,2,B) :Output(8,4,"bullets left") :Goto 1

## Credits Edit

The opening screen of the program has credits to my website. I shamelessly ask that you leave the credits intact.

This program was made by Abcorn. Visit http://www.abcorn.tk

Enjoy!