Stone, Scissor And Bag.
Made by Bengt and Jefa from Transmission Productions.
"->" is the STO>-button.
Prgm8:STONE
:O->C
:Lbl A
:ClrHome
:Disp " 1.STONE"
:Disp " 2.SCISSORS"
:Dsip " 3.BAG"
:Disp "*---------*"
:Disp " 4.QUIT"
:Disp "SCORE"
:Disp C
:Input A
:ClrHome
:Int Rand3->M
:If A>4
:Goto A
:If A=4
:Stop
:Disp "YOU"
:If A<1
:Goto A
:If A=1
:Disp "STONE"
:If A=2
:Disp "SCISSORS"
:If A=3
:Disp "BAG"
:Disp ""
:Disp "COMPUTER"
:If M=0
:Goto E
:If M=1
:Goto F
:If M=2
:Goto G
:Lbl E
:Disp "STONE"
:If A=1
:Goto N
:If A=2
:Goto O
:If A=3
:Goto Q
:Lbl F
:Disp "SCISSORS"
:If A=1
:Goto Q
:If A=2
:Goto N
:If A=3
:Goto O
:Lbl G
:Disp "BAG"
:If A=1
:Goto O
:If A=2
:Goto Q
:If A=3
:Goto N
:Lbl N
:Disp ""
:Disp "A DRAW"
:Goto R
:Lbl O
:Disp ""
:Disp "YOU LOSE"
:C-1->C
:Goto R
:Lbl Q
:Disp ""
:Disp "YOU WON"
:C+1->C
:Goto R
:Lbl R
:Pause
:Goto A
End of file...