27 lines
649 B
Plaintext
27 lines
649 B
Plaintext
10 PRINT "WELCOME TO ROCK PAPER SCISSORS"
|
|
20 DIM V$(10)
|
|
30 INPUT "ROCK OR PAPER OR SCISSORS", V$
|
|
40 IF V$ = "ROCK" THEN 100
|
|
50 IF V$ = "PAPER" THEN 200
|
|
60 IF V$ = "SCISSORS" THEN 300
|
|
100 A= RND (2)
|
|
105 IF A = 0 THEN 120
|
|
110 IF A = 1 THEN 130
|
|
120 PRINT "PAPER YOU LOSE"
|
|
125 GOTO 30
|
|
130 PRINT "SCISSORS YOU WIN"
|
|
135 GOTO 30
|
|
200 A= RND (2)
|
|
205 IF A = 0 THEN 220
|
|
210 IF A = 1 THEN 230
|
|
220 PRINT "SCISSORS YOU LOSE"
|
|
225 GOTO 30
|
|
230 PRINT "ROCK YOU WIN"
|
|
235 GOTO 30
|
|
300 A= RND (2)
|
|
305 IF A = 0 THEN 320
|
|
310 IF A = 1 THEN 330
|
|
320 PRINT "ROCK YOU LOSE"
|
|
325 GOTO 30
|
|
330 PRINT "PAPER YOU WIN"
|
|
335 GOTO 30 |