!2/4/09

!ASCL Junior Division

!ASCL Pinochle

!Takoma Park Middle School

PRINT "Welcome to Audrey's Pinochle Program."

PRINT

PRINT "Use A for Ace, K for King, Q for Queen, J for Jack, T for Ten, and N for Nine."

DO

LET Score=0

INPUT PROMPT "Input in the following order: diamond cards, club cards, spade cards, heart cards: ": Diamond1$,Club1$,Spade1$,Heart1$

LET Diamond$=UCASE$(Diamond1$)

LET Club$=UCASE$(Club1$)

LET Spade$=UCASE$(Spade1$)

LET Heart$=UCASE$(Heart1$)

IF POS(Diamond$,"J")<>0 AND POS(Spade$,"Q")<>0 THEN

LET Score=Score+4

IF POS(Diamond$[POS(Diamond$,"J")+1:LEN(Diamond$)],"J")<>0 AND POS(Spade$[POS(Spade$,"Q")+1:LEN(Spade$)],"Q")<>0 THEN

LET Score=Score+4

LET Score=Score+30

END IF

END IF

FOR Num=1 to 4

IF Num=1 THEN

LET Card$="A"

LET Score1=10

LET Score2=100

ELSE IF Num=2 THEN

LET Card$="K"

LET Score1=8

LET Score2=80

ELSE IF Num=3 THEN

LET Card$="Q"

LET Score1=6

LET Score2=60

ELSE IF Num=4 THEN

LET Card$="J"

LET Score1=4

LET Score2=40

END IF

IF POS(Diamond$,Card$)<>0 AND POS(Club$,Card$)<>0 AND POS(Spade$,Card$)<>0 AND POS(Heart$,Card$)<>0 THEN

LET Score=Score+Score1

IF POS(Diamond$[POS(Diamond$,Card$)+1:LEN(Diamond$)],Card$)<>0 AND POS(Club$[POS(Club$,Card$)+1:LEN(Club$)],Card$)<>0 AND POS(Spade$[POS(Spade$,Card$)+1:LEN(Spade$)],Card$)<>0 AND POS(Heart$[POS(Heart$,Card$)+1:LEN(Heart$)],Card$)<>0 THEN

LET Score=Score+Score1

LET Score=Score+Score2

END IF

END IF

NEXT Num

PRINT "Your score was: ";Score

PRINT

INPUT PROMPT "Do you want to input another hand? (y/n) ":Answer1$

LET Answer$=UCASE$(Answer1$)

LOOP UNTIL Answer$="N"

PRINT

PRINT "Thank you for using Audrey's Pinochle Program."

END