See all articles from SYNC v1 n1
This simulation of the Acey Ducey card game. In the game, the dealer (the computer), deals two cards face up. You have an option to bet or not to bet depending whether or not you feel the next card dealt will have a value between the first two.
Your initial money is set at $100. The game keeps going until you lose all your money, or interrupt the program. The original program author was Bill Palmby of Prairie View, Illinois, and David Lubar translated for the ZX-80.
110 LET Q=100
115 RANDOMISE
120 PRINT "YOU HAVE ";Q;" DOLLARS"
140 GO TO 260
210 PRINT "HIT NEWLINE TO CONTINUE"
211 INPUT A$
214 CLS
215 LET Q=Q+M
220 GO TO 120
260 PRINT "HERE ARE THE NEXT TWO CARDS"
270 LET A=RND(13)+1
2S0 LET B=RND(13)+1
300 IF A=B THEN GO TO 270
310 IF A<11 THEN PRINT A,
320 LET C=A
330 GO SUB 500
340 IF B<11 THEN PRINT B;
350 LET C=B
360 GO SUB 500
365 PRINT
370 PRINT "YOUR BET?"
380 INPUT M
390 IF NOT M=0 THEN GO TO 410
395 CLS
400 PRINT "CAUTIOUS"
405 GO TO 250
410 IF M=0 OR M<Q THEN GO TO 450
420 PRINT "SORRY, YOU ONLY HAVE ";Q;" DOLLARS
430 GO TO 370
450 LET D=RND(13)+1
460 IF D<11 THEN PRINT D
465 LET C=D
470 GO SUB 500
480 GO TO 600
500 IF C=11 THEN PRINT "JACK",
510 IF C=12 THEN PRINT "QUEEN",
520 IF C=13 THEN PRINT "KING",
530 IF C=14 THEN PRINT "ACE",
540 RETURN
600 IF D>A AND D<B OR D<A AND D>B THEN GO TO 700
610 PRINT "SORRY, YOU LOSE"
620 IF M>Q OR M=Q THEN GO TO 900
630 LET M=-M
640 GO TO 210
700 PRINT "YOU WIN"
710 GO TO 210
900 PRINT "YOU ARE TAPPED OUT. PLAY AGAIN?"
910 INPUT A*
920 IF NOT CODE (A$)=62 THEN STOP
990 GO TO 110