Ok folx, here's ROULETTE for the TI-81 (Finished a week ago, more or less. Actually about 2 days ago) -> Store as =/ Inequal => Greater or equal to =< Lesser or equal to ~ Omega (Alpha + 3) ROULETTE ClrHome 100->~ Disp "Welcome" Disp " to" Disp "Roulette" Round(Int (Rand*50))->A Pause ClrHome Disp "Instructions?" Disp "Y=1, N=2" Input B If B=1 Prgm2 If B=2 Goto A ClrHome Lbl A Disp "You Have" Disp ~ Disp "Dollars" Pause Lbl U ClrHome Disp "Enter your bet" Input D If D<1 Goto U If D>~ Goto P Lbl B Disp "Bet on" Disp "1 Red" Disp "2 Black" Input C ClrHome Disp "1 Even" Disp "2 Odd" Input H ClrHome Disp "Spinning the wheel..." Lbl Q Round(Int (Rand*3))->E If E=0 Goto Q If E=1 Goto C If E=2 Goto M Lbl C Disp "It lands on a Red and" Goto N Lbl M Disp "It lands on a black and" Lbl N Round(Int (Rand*3))->F If F=0 Goto N F/2->G Round(Int (G))->W If 2W=F Goto R If 2W=/F Disp "Odd number" Pause ClrHome Disp F Lbl E If C=E 1->U If C=/E 2->U If H=F 9->T If H=/F 6->T If T+U=7 Goto H If T+U=10 Goto J If T+U=8 Goto K If T+U=11 Goto L Lbl H Disp "You win on color and Number!" Pause ClrHome Disp "You win four times your bet" 4D+~->~ If ~>1e12 Goto S Goto A Lbl J Disp "Your color won~" Pause ClrHome Disp "You win two times your bet!" 2D+~->~ If ~>1e12 Goto S Puase ClrHome Goto A Lbl K Disp "Your number wins!" Pause ClrHome Disp "You win double your bet!" 2D+~->~ If ~>1e12 Goto S Pause ClrHome Goto A Lbl L Disp "You lose the bet..." ~-D->~ Goto O Pause ClrHome Goto A Lbl O ClrHome Disp "All your money is gone, sucker." End Lbl P Disp "That is more money than you have!" Goto A Lbl R Disp "Even Number" Goto E Lbl S DIsp "I am sorry, but we do not carry more than a trillion dollars." Pause ClrHome Disp "Thanks for playing" End Prgm2 (Feel free to do what you wish with instructions) ClrHome Disp "You dont know how to play Roulette?" Pause ClrHome Disp "Loser. Ask the author." Pause ClrHome End END Ok, folx, there you go. Yes, I know it's sloppy and not very space-efficient, but it is fun, and people will enjoy it. Please don't write me with improvements unless they save over onehundred bytes. I like my programs the way I write them. :) Comments, Questions, Concerns? Write to: madeboar@indy1.indy.net OR sikriste@indyvax.iupui.edu OR deboardm@cyberspace.com Thanks. L8rs, and enjoy. Matt