10 DEF FN RANDOM(X) = (INT(RND(1) * X) + 1)
20 HOME : TEXT
30 PRINT "PRESS ANY KEY TO START"
40 LET SEED = 0
50 IF (PEEK(49152)) THEN GET K$ : GOTO 90
60 SEED = SEED + 1
70 IF SEED > 32767 THEN SEED = 0
80 GOTO 50
90 HOME : INPUT "Enter 5 for paper, 2 for scissors, or 0 for rock: ";A
100 T = RND (-SEED) : REM initialize RND with SEED
110 LET D = FN RANDOM(3)
120 LET R = 0
130 PRINT ""
140 PRINT ""
150 IF (D = 1) THEN PRINT "Computer chooses ROCK."
160 IF (D = 2) THEN PRINT "Computer chooses PAPER."
170 IF (D = 3) THEN PRINT "Computer chooses SCISSORS."
180 PRINT ""
190 IF (D = 1 AND A = 0) THEN R = 2
200 IF (D = 1 AND A = 0) THEN PRINT "rock defends against ROCK. :/"
210 IF (D = 1 AND A = 2) THEN R = 0
220 IF (D = 1 AND A = 2) THEN PRINT "ROCK smashes scissors. :'("
230 IF (D = 1 AND A = 5) THEN R = 1
240 IF (D = 1 AND A = 5) THEN PRINT "paper covers ROCK. :D"
250 IF (D = 2 AND A = 0) THEN R = 0
260 IF (D = 2 AND A = 0) THEN PRINT "PAPER covers rock. :'("
270 IF (D = 2 AND A = 2) THEN R = 1
280 IF (D = 2 AND A = 2) THEN PRINT "scissors cuts PAPER. :D"
290 IF (D = 2 AND A = 5) THEN R = 2
300 IF (D = 2 AND A = 5) THEN PRINT "paper defends against PAPER. :/"
310 IF (D = 3 AND A = 0) THEN R = 1
320 IF (D = 3 AND A = 0) THEN PRINT "rock smashes SCISSORS. :D"
330 IF (D = 3 AND A = 2) THEN R = 2
340 IF (D = 3 AND A = 2) THEN PRINT "scissors defends against SCISSORS. :/"
350 IF (D = 3 AND A = 5) THEN R = 0
360 IF (D = 3 AND A = 5) THEN PRINT "SCISSORS cuts paper. :'("
370 PRINT ""
380 IF (R = 0) THEN PRINT "YOU LOSE!"
390 IF (R = 1) THEN PRINT "YOU WIN!"
400 IF (R = 2) THEN PRINT "YOU TIE!"
410 PRINT ""
420 PRINT ""
430 PRINT ""
440 PRINT ""
450 PRINT ""
460 PRINT ""
470 PRINT ""
480 PRINT ""
490 PRINT ""
500 PRINT ""
510 PRINT ""
520 PRINT ""
530 PRINT ""
540 PRINT ""
550 INPUT "PRESS ENTER TO REBOOT";P
560 GOTO 10