REM *****************************

REM **** Christopher Gardner ****

REM ******* Conrad Weiser *******

REM **** Senior 3 Contest 1 ****

REM ******** True Basic ********

REM *****************************

DIM team[2,2], team_gameswon[2]

FOR i = 1 to 2

FOR j = 1 to 2

LET team[i,j] = 0

NEXT j

LET team_gameswon[i] = 0

NEXT i

FOR i = 1 to 5

INPUT teamnumber, bidamount, bidswon, trump$

PRINT

IF trump$ = "H" or trump$ = "S" or trump$ = "T" then

LET trumppoints = 30

ELSE IF trump$ = "C" or trump$ = "D" then

LET trumppoints = 20

END IF

LET totalbidamount = 6 + bidamount

IF totalbidamount = bidswon then

LET team_gameswon[teamnumber] = 1

IF trump$ <> "T" then

LET team[teamnumber,1] = team[teamnumber,1] + bidamount * trumppoints

ELSE IF trump$ = "T" then

LET team[teamnumber,1] = team[teamnumber,1] + 40 + ((bidamount - 1) * trumppoints)

END IF

ELSE IF totalbidamount < bidswon then

LET team_gameswon[teamnumber] = 1

IF trump$ <> "T" then

LET team[teamnumber,2] = team[teamnumber,2] + ((bidswon - totalbidamount) * trumppoints)

LET team[teamnumber,1] = team[teamnumber,1] + (bidamount * trumppoints)

ELSE IF trump$ = "T" then

LET overage = bidswon - totalbidamount

LET team[teamnumber,1] = team[teamnumber,1] + (40 + ((bidamount - 1) * trumppoints))

LET team[teamnumber,2] = team[teamnumber,2] + (trumppoints * overage)

END IF

ELSE IF totalbidamount > bidswon then

IF teamnumber = 1 then

IF team_gameswon[teamnumber] = 0 then

LET team[2,2] = team[2,2] + ((totalbidamount - bidswon) * 50)

ELSE IF team_gameswon[teamnumber] = 1 then

LET team[2,2] = team[2,2] + ((totalbidamount - bidswon) * 100)

END IF

ELSE IF teamnumber = 2 then

IF team_gameswon[teamnumber] = 0 then

LET team[1,2] = team[1,2] + ((totalbidamount - bidswon) * 50)

ELSE IF team_gameswon[teamnumber] = 1 then

LET team[1,2] = team[1,2] + ((totalbidamount - bidswon) * 100)

END IF

END IF

END IF

FOR m = 1 to 2

FOR n = 1 to 2

PRINT str$(team[m,n]);

IF (m <> 2) or (n <> 2) then PRINT ", ";

NEXT n

NEXT m

PRINT

PRINT

PRINT

IF (team[1,1] >= 100) or (team[2,1] >= 100) then

LET team[1,1] = 0

LET team[2,1] = 0

LET team_gameswon[1] = 0

LET team_gameswon[2] = 0

END IF

NEXT i

END