5 Card Showdown Poker

Gallery

Source Code

   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