Print "Enter ROCK(r), PAPER(p), SCISSORS(s), Lizzard(l), Spock(k)"
Sub winner(card$,in_card$)
   win = win+1
   Print card$,in_card$
   Print "You Win"
End Sub
For x = 1 To 5
   card_temp = Int(Rnd*5)+1
Select Case card_temp
       Case 1
           card$="r"
       Case 2
           card$="p"
       Case 3
           card$="s"
       Case 4
           cards$="l"
       Case Else
           card$="k"
   End Select
   Input "Enter your card";in_card$
   deck$=card$+in_card$
   Select Case deck$
       Case "rr","pp","ss","ll","kk"
           tie=tie+1
           Print card$,in_card$
           Print "Draw"
       Case "rs", "pr","sp", "rl", "lk", "sl", "lp", "pk", "sr","ks"
           winner(card$,in_card$)
       Case Else
           loss=loss+1
           Print card$,in_card$
           Print "You lose"
   End Select
Next x
Print "Ties: ", tie
Print "Win: ", win
Print "Losses: ", loss

mode 7,8:r=rgb(white):load bmp "1.bmp":w=26:v=5:b=4:For i=1 To 8:
Blit read i,x,y,w,w:y=y+w:Next i:Blit read 9,w,0,46,120:CLS r:
d$="ChemiChaos/5 Vials vegipete/lizby":text 160,0,d$,c,1,,rgb(red),r:
d$="1=L,2=R;' '=pick/put,r=reload,x=next":text 160,10,d$,c,1,,rgb(red),r:
For j=0 To 4:Blit write 9,j*50,100:next j:dim t(5,4):restore g:
Do:d$="":For i=0 To 3:read l:h$=Str$(l):d$=d$+h$:if l=0 then:cls r:font 5:
s$="S A F E !":text 60,100,s$,,,,rgb(green),r:do:loop:endif:next i:
e: k=1:x=10:For i=0 To 3:h$=mid$(d$,i*4+1,4):for j=1 to b:
c$=mid$(h$,j,1):l=val(c$):t(k,j)=l:t(5,j)=0:blit write l,i*50+10,82+j*w
next j:k=k+1:Next i:blit write 6,9,70:p=1:u=0:do:do:c$=inkey$:
loop until c$<>"":if c$="1" then:if x>50 then: blit x,44,x-50,44,26,52:
box x,44,26,52,0,r,r:x=x-50:p=p-1:endif:elseif c$="2" then:
if x<200 then: blit x,44,x+50,44,26,52:box x,44,26,52,0,r,r:x=x+50:p=p+1:endif
elseif c$="r" then:box 0,44,320,52,,r,r:box 210,108,w,w*4,0,r,r:goto e:
elseif c$="x" then:box 0,44,320,w*2,0,r,r:box 210,108,w,w*4,0,r,r: exit :
elseif c$=" " then:if u then:for i=1 to b:n=t(p,i):if n>0 then:exit for:endif:
next i:if n=z or i=5 then:i=i-1: if i>0 then:t(p,i)=z:blit write z,x,82+i*w
blit write 8,x,44: blit write 6,x,70:u=0:endif:endif:else:for i=1 to b:
z=t(p,i):if z<>0 then:t(p,i)=0:x=(p-1)*50+10:blit write z,x,44:
blit write 7,x,70:blit write 8,x,82+i*w:u=1:exit for:endif:next i:endif:
endif:loop:loop:
g: Data 2321,1412,4412,4333,4232,5235,2443,3554,3124,2121,2444,3331,1224,4232
Data 4311,4133,2141,4333,3242,4121,1314,3424,3231,2142,3233,4141,1241,2243
Data 3324,4421,1123,2431,4552,2444,3255,3332,2422,1434,3313,1241,0

' sprite 1-5:balls; 6 up arrow; 7 down arrow; 8 blank
' a$ utility character
' b is number of balls per vial
' c$ utility character
' d$ saved ball layout for round or utility string
' e: reload label
' g: DATA label
' h$ 4-char string representing balls in vial
' i,j,k,l,m,n utility integers (really floats)

' p vial position of cursor
' r rgb(white)
' s$ scratch string
' t is array of balls by vial (vials,balls)
' u is 0 for no ball moving, 1 for moving
' v is number of vials
' w is width and height of ball, arrow, blank--26 pixels
' x is horizontal pixel position
' y is vertical pixel position
' z is color of moving ball, or zero

' ---------
' BACKSTORY
' ---------
'
' As a young warrior apprentice, you have been chosen by the village elders to
' seek out the evil menace that lurks in some nearby caves. Once found, use any
' means at your disposal to defeat it... Good luck on your quest!
'
' --------
' COMMANDS
' --------
'
' This adventure recognizes the following commands:
'
'     NORTH
'     SOUTH
'     EAST
'     WEST
'     INVENTORY
'     LOOK
'     LOOK <object>
'     GET <object>
'     OPEN <object>
'     KILL <object>

x$="100Cannot doYou walk Opened   Closed   A Sword  A Key    Nothing  A Chest  A Dragon A Corpse "
Cls : Do : Print "You are in a " Mid$("CavePit HallLake",xi(1)*4-3,4) : Input u$ : u$=LCase$(u$)
m=2*(u$="north")*(xi(1)<3)-2*(u$="south")*(xi(1)>2)+(xs$(1)+u$="2west")-(xs$(1)+u$="3east")
a=(3+xi(2)+2*(xi(3)=2))*(xs$(1)+u$="2look chest")+(11+(xi(3)=2))*(xs$(1)+u$="3kill dragon")+(m<>0)
a=a+(5+xi(1))*(u$="look")+(6-xi(3))*(u$="inventory")+(6-(xi(3)=0))*(xs$(1)+u$="4look corpse")
b$=Left$(x$,3) : a=a+10*(b$+u$="400get key")+2*(b$+u$="201open chest")+10*(b$+u$="211get sword")
pk(1,xi(1)+m) : pk(2,xi(2)+(a=2)) : pk(3,xi(3)+(a=10))
Print Mid$(x$+"Taken    You Died You Won. ",4+a*9,9) : Loop While a<11
Function xi(i) : xi=Val(xs$(i)) : End Function : Function xs$(i) : xs$=Mid$(x$,i,1) : End Function
Sub pk(i,a) : Poke Var x$,i,Asc("0")+a : End Sub