Path: utzoo!attcan!uunet!wuarchive!zaphod.mps.ohio-state.edu!samsung!umich!sharkey!tygra!wbks
From: wbks@tygra.UUCP (Sean Burke)
Newsgroups: comp.sys.handhelds
Subject: HP-32S Card Dealer
Keywords: HP-32S, Cards
Message-ID: <131@tygra.UUCP>
Date: 19 Mar 90 02:32:20 GMT
Organization: CAT-TALK Conferencing Network, Detroit, MI
Lines: 32

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