This is a simulation of the Acey Ducey card game. The game was written way back in 1978 and I have re-wrote some of it to be compatible with Liberty BASIC and RunBASIC. In order to play this game in RunBASIC just copy the below to you clipboard and then paste it into the RunBASIC editor.

If you have any comments or questions please let me know.

    CLS
    PRINT "======================================================"
    PRINT "ACEY DUCEY CARD GAME -- CIRCA 1978"
    PRINT "FROM CREATIVE COMPUTING, MORRISTOWN, NJ"
    PRINT "AUTHOR: BILL PALMBY"
    PRINT "REWRITTEN FOR LIBERTY BASIC BY NOBLE D. BELL"
    PRINT "[[http://www.noblebell.com/|HTTP://WWW.NOBLEBELL.COM]]"
    PRINT "======================================================"
    PRINT " "
    PRINT " "
    PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNOR"
    PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP"
    PRINT "YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING"
    PRINT "ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE"
    PRINT "A VALUE BETWEEN THE FIRST TWO."
    PRINT "IF YOU DO NOT WANT TO BET, ENTER A 0 FOR YOUR BET."
    PRINT "YOU CAN ENTER -1 TO QUIT."
    PRINT
 
[START]
    N = 100
    Q = 100
 
[NEXTCARDS]
    PRINT " "
    PRINT "======================================"
    PRINT "YOU HAVE ";Q;" DOLLARS."
    PRINT "HERE ARE YOUR NEXT TWO CARDS."
[NEXTCARDS.ONE]
    A = INT(14*RND(1))+2
    IF A < 2 THEN [NEXTCARDS.ONE]
    IF A > 14 THEN [NEXTCARDS.ONE]
[NEXTCARDS.TWO]
    B = INT(14*RND(1))+2
    IF B < 2 THEN [NEXTCARDS.TWO]
    IF B > 14 THEN [NEXTCARDS.TWO]
    IF A >= B THEN [NEXTCARDS.ONE]
 
[PRINTCARDS]
    PRINT "CARD 1:"
    IF A < 11 THEN PRINT A
    IF A = 11 THEN PRINT "JACK"
    IF A = 12 THEN PRINT "QUEEN"
    IF A = 13 THEN PRINT "KING"
    IF A = 14 THEN PRINT "ACE"
    PRINT " "
    PRINT "CARD 2:"
    IF B < 11 THEN PRINT B
    IF B = 11 THEN PRINT "JACK"
    IF B = 12 THEN PRINT "QUEEN"
    IF B = 13 THEN PRINT "KING"
    IF B = 14 THEN PRINT "ACE"
 
[BET]
    PRINT " "
    INPUT "WHAT IS YOUR BET? ";M
    IF M = 0 THEN
        PRINT "CHICKEN"
        GOTO [NEXTCARDS]
    END IF
    IF M = -1 THEN
        PRINT "OK, HOPE YOU HAD FUN."
        END
    END IF
    IF M > Q THEN
        PRINT "SORRY, MY FRIEND BUT YOU BET TOO MUCH."
        PRINT "YOU ONLY HAVE ";Q;" DOLLARS TO BET."
        GOTO [BET]
    END IF
[GETCARDTHREE]
    C = INT(14*RND(1))+2
    IF C < 2 THEN [GETCARDTHREE]
    IF C > 14 THEN [GETCARDTHREE]
    PRINT "CARD 3:"
    IF C < 11 THEN PRINT C
    IF C = 11 THEN PRINT "JACK"
    IF C = 12 THEN PRINT "QUEEN"
    IF C = 13 THEN PRINT "KING"
    IF C = 14 THEN PRINT "ACE"
    IF C <= A OR C >= B THEN
        PRINT " "
        PRINT "SORRY, YOU LOSE."
        IF M < Q THEN
            Q = Q - M
        ELSE
            PRINT "SORRY, FRIEND BUT YOU BLEW YOUR DOUGH."
            INPUT "TRY AGAIN (Y)ES, (N)O ? ";A$
            A$=UPPER$(A$)
            IF A$="Y" THEN [START]
            PRINT " "
            PRINT "OK, HOPE YOU HAD FUN."
            END
        END IF
        GOTO [NEXTCARDS]
    END IF
    PRINT " "
    PRINT "YOU WIN!!!"
    Q=Q+M
    GOTO [NEXTCARDS]
    END