Content
Image Gallery
5 Card Showdown Poker
5 REM 5 CARD SHOWDOWN POKER
10 DIM D(4,13)
20 FOR H=1 TO 5
25 GOSUB 100
30 NEXT H
31 PRINT
32 PRINT "SAME DECK: PRESS Y YES, N NO"
36 INPUT A$
37 IF A$="Y" THEN GOTO 20
38 PRINT "NEW DECK PRESS Y YES "
39 PRINT
40 INPUT A$
41 IF A$="N" THEN STOP
50 FOR J=1 TO 4
51 FOR K=1 TO 13
52 LET D(J,K)=0
53 NEXT K
54 NEXT J
55 GOTO 20
100 LET K=INT (13*RND)+1
110 LET J=INT (RND*4)+1
120 IF D(J,K)=-1 THEN GOTO 100
130 LET D(J,K)=-1
131 IF K=1 THEN GOTO 200
132 IF K=2 THEN GOTO 210
133 IF K=3 THEN GOTO 210
134 IF K=4 THEN GOTO 210
135 IF K=5 THEN GOTO 210
136 IF K=6 THEN GOTO 210
137 IF K=7 THEN GOTO 210
138 IF K=8 THEN GOTO 210
139 IF K=9 THEN GOTO 210
140 IF K=10 THEN GOTO 210
141 IF K=11 THEN GOTO 220
142 IF K=12 THEN GOTO 230
143 IF K=13 THEN GOTO 240
150 IF J=1 THEN GOTO 300
151 IF J=2 THEN GOTO 310
152 IF J=3 THEN GOTO 320
153 IF J=4 THEN GOTO 330
200 PRINT "ACE ";
205 GOTO 150
210 PRINT K;
215 GOTO 150
220 PRINT "JACK ";
225 GOTO 150
230 PRINT "QUEEN ";
235 GOTO 150
240 PRINT "KING ";
245 GOTO 150
300 PRINT " OF CLUBS"
306 RETURN
310 PRINT " OF SPADES"
316 RETURN
320 PRINT " OF HEARTS"
326 RETURN
330 PRINT " OF DIAMONDS"
335 RETURN
340 CLEAR
350 SAVE "1030%8"
360 RUN
People
No people associated with this content.