10 REM Rock Paper or Scissors \@jbarneo
20 BORDER 5: PAPER 5: INK 0: CLS : RANDOMIZE 
30 PRINT AT 4,0;"Choose Rock(1) Paper(2) or Scissors(3)": PAUSE 0: INPUT INKEY$
40 IF INKEY$<>"1" AND INKEY$<>"2" AND INKEY$<>"3" THEN GO TO 40
50 LET j$=INKEY$: LET a=INT (1+RND*3)
60 LET p$="You lost": LET g$="You win ": LET e$="Tie     "
70 IF a=1 AND j$="1" OR a=2 AND j$="2" OR a=3 AND j$="3" THEN LET r$=e$
80 IF a=1 AND j$="2" OR a=2 AND j$="3" OR a=3 AND j$="1" THEN LET r$=g$
90 IF a=1 AND j$="3" OR a=2 AND j$="1" OR a=3 AND j$="2" THEN LET r$=p$
100 PRINT "You choose:";j$;" me:";a;" ";r$: BEEP 0.3,a: GO TO 30
