basic-computer-games

mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-21 23:00:43 -08:00

Files

Dave Burke 15c26cbe09 Limit number of decks to 1

The subroutine to get a card shuffles 52 cards when the deck is run
through:

100 REM--SUBROUTINE TO GET A CARD.  RESULT IS PUT IN X.
110 IF C<51 THEN 230
120 PRINT "RESHUFFLING"
130 FOR D=D TO 1 STEP -1
140 C=C-1
150 C(C)=D(D)
160 NEXT D
170 FOR C1=52 TO C STEP -1
180 C2=INT(RND(1)*(C1-C+1))+C
190 C3=C(C2)
200 C(C2)=C(C1)
210 C(C1)=C3
220 NEXT C1
230 X=C(C)
240 C=C+1
250 RETURN

2022-02-03 08:31:04 -06:00

src

Limit number of decks to 1

2022-02-03 08:31:04 -06:00

test

Limit number of decks to 1

2022-02-03 08:31:04 -06:00

README.md

Removed spaces from top-level directory names.

2021-11-21 18:30:21 -05:00

README.md

Original source downloaded from Vintage Basic

Conversion to Oracle Java