REM Andrea Liu
REM Freehold High School
REM School code: 9001
REM Intermediate Division
REM Contest 2
REM QBASIC
REM Advisor: J Gill
FOR ai = 1 TO 5
LINE INPUT "Input. "; x$
leng = LEN(x$)
REDIM di$(16)
REDIM cl$(16)
REDIM sp$(16)
REDIM he$(16)
dc = 0
cc = 0
sc = 0
hc = 0
trump$ = LEFT$(x$, 1)
FOR a = 3 TO leng
C = a
IF MID$(x$,
a, 1) = " " THEN GOTO 50
IF MID$(x$,
a, 1) = "," THEN GOTO 100
dc = dc + 1
di$(dc) =
MID$(x$, a, 1)
50 NEXT
100 FOR b = (C + 1) TO leng
C = b
IF MID$(x$,
b, 1) = " " THEN GOTO 150
IF MID$(x$,
b, 1) = "," THEN GOTO 200
cc = cc + 1
cl$(cc) =
MID$(x$, b, 1)
150 NEXT
200 FOR D = (C + 1) TO leng
C = D
IF MID$(x$,
D, 1) = " " THEN GOTO 250
IF MID$(x$,
D, 1) = "," THEN GOTO 300
sc = sc + 1
sp$(sc) =
MID$(x$, D, 1)
250 NEXT
300 FOR e = (C + 1) TO leng
C = e
IF MID$(x$,
e, 1) = " " THEN GOTO 350
IF MID$(x$,
e, 1) = "," THEN GOTO 400
hc = hc + 1
he$(hc) =
MID$(x$, e, 1)
350 NEXT
400
dk = 0
dq = 0
dj = 0
da = 0
dt = 0
dn = 0
ck = 0
cq = 0
cj = 0
ca = 0
ct = 0
sk = 0
sq = 0
sj = 0
sa = 0
st = 0
sn = 0
hk = 0
hq = 0
hj = 0
ha = 0
ht = 0
hn = 0
cn = 0
FOR a = 1 TO dc
IF di$(a) = "K" THEN dk = dk + 1
IF di$(a) = "Q" THEN dq = dq + 1
IF di$(a) = "J" THEN dj = dj + 1
IF di$(a) = "A" THEN da = da + 1
IF di$(a) = "T" THEN dt = dt + 1
IF di$(a) = "N" THEN dn = dn + 1
NEXT
FOR a = 1 TO cc
IF cl$(a) = "K" THEN ck = ck + 1
IF cl$(a) = "Q" THEN cq = cq + 1
IF cl$(a) = "J" THEN cj = cj + 1
IF cl$(a) = "A" THEN ca = ca + 1
IF cl$(a) = "T" THEN ct = ct + 1
IF cl$(a) = "N" THEN cn = cn + 1
NEXT
FOR a = 1 TO sc
IF sp$(a) = "K" THEN sk = sk + 1
IF sp$(a) = "Q" THEN sq = sq + 1
IF sp$(a) = "J" THEN sj = sj + 1
IF sp$(a) = "A" THEN sa = sa + 1
IF sp$(a) = "T" THEN st = st + 1
IF sp$(a) = "N" THEN sn = sn + 1
NEXT
FOR a = 1 TO hc
IF he$(a) = "K" THEN hk = hk + 1
IF he$(a) = "Q" THEN hq = hq + 1
IF he$(a) = "J" THEN hj = hj + 1
IF he$(a) = "A" THEN ha = ha + 1
IF he$(a) = "T" THEN ht = ht + 1
IF he$(a) = "N" THEN hn = hn + 1
NEXT