64 lines
743 B
Text
64 lines
743 B
Text
PROGRAM:RPS
|
|
:{0,0,0}→L1
|
|
:{0,0,0}→L2
|
|
:Lbl ST
|
|
:Disp "R/P/S"
|
|
:Disp "1/2/3"
|
|
:Lbl EC
|
|
:Input A
|
|
:If A>3 or A<1
|
|
:Then
|
|
:Goto NO
|
|
:End
|
|
:randInt(1,3+L1(1)+L1(2)+L1(3)→C
|
|
:If C≤1+L1(1)
|
|
:Then
|
|
:2→B
|
|
:Goto NS
|
|
:End
|
|
:If C>2+L1(2)
|
|
:Then
|
|
:1→B
|
|
:Else
|
|
:3→B
|
|
:End
|
|
:Lbl NS
|
|
:L1(A)+1→L1(A)
|
|
:If A=B
|
|
:Then
|
|
:Disp "TIE GAME"
|
|
:L2(3)+1→L2(3)
|
|
:Goto TG
|
|
:End
|
|
:If (A=1 and B=2) or (A=2 and B=3) or (A=3 and B=1)
|
|
:Then
|
|
:Disp "I WIN"
|
|
:L2(1)+1→L2(1)
|
|
:Else
|
|
:Disp "YOU WIN"
|
|
:L2(2)+1→L2(2)
|
|
:End
|
|
:Lbl TG
|
|
:Disp "PLAY AGAIN?"
|
|
:Input Str1
|
|
:If Str1="YES"
|
|
:Then
|
|
:ClrHome
|
|
:Goto ST
|
|
:Else
|
|
:Goto EN
|
|
:End
|
|
:Lbl NO
|
|
:ClrHome
|
|
:Pause "PICK 1,2, or 3"
|
|
:ClrHome
|
|
:Goto EC
|
|
:Lbl EN
|
|
:ClrHome
|
|
:Disp "I WON:"
|
|
:Disp L2(1)
|
|
:Disp "YOU WON:"
|
|
:Disp L2(2)
|
|
:Disp "WE TIED:"
|
|
:Disp L2(3)
|
|
:Disp "BYE"
|