// Title: Card Shuffler Name: ~SHUFFLE Version: v1.0 Author: Bungeman (Ben Wagner) Email: bungeman@juno.com Webpage: http://members.tripod.com/~bungeman/casio Model: 9850, 9950 Description: Returns a shuffled deck of cards. Parameters: None Uses: Mat R X and Y as temporary variables Output: Mat R is 1x52 and contains the numbers 1-52 in random order without replacement. // 1->Y:52->X:Prog "~DIM" Mat Ans->Mat R [[0]] For 1->I To 52 I->Mat R[1,I] Next For 1->I To 52 Int (52Ran#)+1->X Mat R[1,I]->Y Mat R[1,X]->Mat R[1,I] Y->Mat R[1,X] Next