23) ACEY DEUCEY (In-Between) (644 B)
Player wins if third card lies between two cards.
To use: LOAD 10, RUN

10 REM
20 REM ACEY DEUCEY
30 REM
40 RANDOMISE
50 LET Q=100
60 GOTO 120
70 PRINT "HIT NEWLINE (Y=BREAK)"
80 INPUT A$
90 IF CODE(A$)=62 THEN STOP
100 CLS
110 LET Q=Q+M
120 PRINT "YOU HAVE ";Q;" DOLLARS"
130 IF Q>0 THEN GOTO 190
140 PRINT "YOU ARE TAPPED OUT."
150 PRINT "PLAY AGAIN? (Y)"
160 INPUT A$
170 IF CODE(A$)=62 THEN GOTO 50
180 STOP
190 PRINT "HERE ARE 2 CARDS:"
200 LET A=RND(13)+1
210 LET B=RND(13)+1
220 IF A<B THEN GOTO 260
230 LET C=B
240 LET B=A
250 LET A=C
260 LET C=A
270 GOSUB 500
280 LET C=B
290 GOSUB 500
300 PRINT
310 LET M=2
320 IF A=B THEN GOTO 480
330 IF M>Q THEN LET M=Q
340 IF A+1=B THEN GOTO 450
350 PRINT "YOUR BET? (1-";Q;")"
360 INPUT M
370 IF M<1 THEN LET M=1
380 IF M>Q THEN LET M=Q
390 PRINT "NEXT CARD IS ";
400 LET D=RND(13)+1
410 LET C=D
420 GOSUB 500
430 PRINT
440 IF D>A AND D<B THEN GOTO 480
450 PRINT "YOU LOSE ";M
460 LET M=-M
470 GOTO 70
480 PRINT "YOU WIN ";M
490 GOTO 70
500 IF C<11 THEN PRINT C,
510 IF C=11 THEN PRINT "JACK",
520 IF C=12 THEN PRINT "QUEEN",
530 IF C=13 THEN PRINT "KING",
540 IF C=14 THEN PRINT "ACE",
550 RETURN