3633 CLS
INPUT "How many?", cc
IF cc MOD 2 = 0 THEN 333
dd = cc \ 2 + 1
CLS
RANDOMIZE TIMER
PRINT "1:ROCK", "2:SISSOR", "3:PAPER"
DO UNTIL x = dd OR y = dd
i = INT(RND * 3)
SELECT CASE i
CASE 0
a$ = "r"
CASE 1
a$ = "s"
CASE 2
a$ = "p"
END SELECT
DO UNTIL c$ = "1" OR c$ = "2" OR c$ = "3"
c$ = INKEY$
LOOP
SELECT CASE c$
CASE "1"
b$ = "r"
CASE "2"
b$ = "s"
CASE "3"
b$ = "p"
END SELECT
c$ = ""
IF a$ = b$ THEN
PRINT "TIE",
ELSEIF a$ = "r" AND b$ = "s" THEN
PRINT "FAILED", : x = x + 1
ELSEIF a$ = "s" AND b$ = "p" THEN
PRINT "FAILED", : x = x + 1
ELSEIF a$ = "p" AND b$ = "r" THEN
PRINT "FAILED", : x = x + 1
ELSEIF (a$ = "r" AND b$ = "p") OR (a$ = "p" AND b$ = "s") OR (a$ = "s" AND b$ = "r") THEN
PRINT "WIN", : y = y + 1
END IF
IF a$ = "r" THEN
a$ = "ROCK"
ELSEIF a$ = "s" THEN
a$ = "SISSOR"
ELSE
a$ = "PAPER"
END IF
IF b$ = "r" THEN
b$ = "ROCK"
ELSEIF b$ = "s" THEN
b$ = "SISSOR"
ELSE
b$ = "PAPER"
END IF
PRINT "You:"; b$,
PRINT "Com:"; a$
LOOP
PRINT y; ":"; x
IF x = dd THEN
PRINT "You lose"
ELSEIF y = dd THEN
PRINT "You win"
END IF
PRINT TAB(30); :PRINT "Do you want to play again?"
PRINT TAB(30); : PRINT "1:YES 3:NO"
DO UNTIL g$ = "1" OR g$ = "3"
g$ = INKEY$
IF g$ = "1" THEN
g$ = "": x = 0: y = 0: GOTO 333
ELSEIF g$ = "3" THEN
END
END IF
LOOP