BCG101/factory/ACEYDU.BAS

  10 REM *** GAME OF ACEY-DUCEY WRITTEN BY BILL PALMBY
  30 REM *** TRANSLATED TO RSTS/E BY DAVE AHL, DIGITAL
  40 REM *** EDUSYSTEM 50 REFACTORING BY RENAUD FIVET
  80 DIM D$(3)\ D$(0)="JACK"\ D$(1)="QUEEN"\ D$(2)="KING"\ D$(3)="ACE"
  90 DEF FNC(C)=INT(13*RND(1))+2
 100 RANDOMIZE
 101 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER:"
 102 PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP."
 103 PRINT "YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDING"
 104 PRINT "ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAVE"
 105 PRINT "A VALUE BETWEEN THE FIRST TWO."
 106 PRINT "IF YOU DO NOT WANT TO BET, INPUT A 0."
 110 PRINT
 160 Q=100
 190 PRINT "YOU NOW HAVE"Q"DOLLARS."
 195 PRINT
 260 PRINT "HERE ARE YOUR NEXT TWO CARDS..."
 270 A=FNC(A)
 300 B=FNC(B)
 330 IF A>=B THEN 270
 340 C=A\ GOSUB 760
 500 C=B\ GOSUB 760
 650 PRINT
 660 PRINT "WHAT IS YOUR BET";\INPUT M
 670 IF M>0 THEN 680
 675 PRINT "CHICKEN!!"\PRINT
 677 GOTO 260
 680 IF M<=Q THEN 730
 690 PRINT "SORRY, MY FRIEND, BUT YOU BET TOO MUCH"
 700 PRINT "YOU HAVE ONLY"Q"DOLLARS TO BET."
 710 GOTO 650
 730 C=FNC(C)\ GOSUB 760
 740 GOTO 910
 760 IF C<11 THEN 810
 770  PRINT " ";D$(C-11)
 780  RETURN
 810 PRINT C
 820 RETURN
 910 IF C<=A THEN 970
 930  IF C>=B THEN 970
 950   Q=Q+M\ PRINT "YOU WIN!!!"
 960   GOTO 190
 970 Q=Q-M\ PRINT "SORRY, YOU LOSE."
 980 IF Q>0 THEN 190
1000 PRINT
1010 PRINT "SORRY, FRIEND, BUT YOU BLEW YOUR WAD."
1020 PRINT "TRY AGAIN (YES OR NO)";\INPUT A$
1030 IF A$="YES" THEN 110
1040 PRINT\PRINT "O.K. HOPE YOU HAD FUN!!"
1050 END