wbks@tygra.UUCP (Sean Burke) (03/19/90)
Here's a little program for the 32-S that draws cards from a deck of 52. Kind of convenient when you're bored. To reshuffle the deck, just execute a CLRVARS command. -------------------------------- Cut Here ---------------------------------- D01 LBL D D02 RANDOM D03 14 D04 * D05 IP D06 X=0? D07 GTO D DO8 STO i D09 1 D10 STO + (i) D11 4 D12 RCL(i) D13 X>Y? D14 GTO D D15 VIEW i D16 GTO D Total Bytes 24.0 Checksum D72C -- = CAT-TALK Conferencing Network, Prototype Computer Conferencing System = - 1-800-825-3069, 300/1200/2400/9600 baud, 8/N/1. New users use 'new' - = as a login id. <<Redistribution to GEnie PROHIBITED!!!>>> = E-MAIL Address: wbks%tygra.uucp@sharkey.cc.umich.edu