randomize timer()
text 0,0,"Press any key to start"
print "To quit the game press the Esc key"
suspend for key
do
input "1 for paper / 2 for sissors / 3 for stone :",pick
a = rnd(3) : a= rnd(3)
if pick = 1 : if a = 1 then result$ = "Dead game, try again" : if a = 2 then result$ = "You lose!" : if a = 3 then result$ = "You win!" : endif
if pick = 2 : if a = 1 then result$ = "You win!" : if a = 2 then result$ = "Dead game, try again" : if a = 3 then result$ = "You lose!" : endif
if pick = 3 : if a = 1 then result$ = "You lose!" : if a = 2 then result$ = "You win!" : if a = 3 then result$ = "Dead game, try again" : endif
print result$
input "Clear the screen for the next game? y/n :",yn$
if yn$ = "y" then cls
loop

14 lines, not bad eh?