Lbl Y
ClrHome
Menu("MAKE YOUR CHOICE","ROCK",A,"PAPER",B,"SCISSORS",C)
Lbl A
1→U
Disp "YOU CHOSE ROCK"
Goto θ
Lbl B
2→U
Disp "YOU CHOSE PAPER"
Goto θ
Lbl C
3→U
Disp "U CHOSE SCISSORS"
Goto θ
Lbl θ
randInt(1,3)→C
If C=1
Then
Disp "COMPUTER CHOSE","ROCK"
End
If C=2
Then
Disp "COMPUTER CHOSE","PAPER"
End
If C=3
Then
Disp "COMPUTER CHOSE","SCISSORS"
End
If U=1
Then
If C=1
Then
Disp "TIE"
End
If C=2
Then
Disp "COMPUTER WINS"
End
If C=3
Then
Disp "YOU WIN"
End
End
If U=2
Then
If C=1
Then
Disp "YOU WIN"
End
If C=2
Then
Disp "TIE"
End
If C=3
Then
Disp "COMPUTER WINS"
End
End
If U=3
Then
If C=1
Then
Disp "COMPUTER WINS"
End
If C=2
Then
Disp "YOU WIN"
End
If C=3
Then
Disp "TIE"
End
End
Pause 
Menu("PLAY AGAIN?","YES",Y,"NO",N)
Lbl N
Stop