Pete's QBASIC Site

Code: Select all

RANDOMIZE TIMER
? "1.rock"
? "2.paper"
? "3.scissors"
INPUT i
a:
c = INT(RND(1) * 3) + 1
IF c = i OR c < 1 GOTO a
SELECT CASE c
CASE 1
    IF i = 3 THEN r = 1
    if i = 2 then r = 2
CASE 2
    IF i = 1 THEN r = 1
    if i = 3 then r = 2
CASE 3
    IF i = 2 THEN r = 1
    if i = 1 then r = 2
END SELECT
IF r = 1 THEN ? "comp won!"
IF r = 2 THEN ? "You Won!"
SLEEP