1 ift=0thenkeyoff:cls:color5,1,5:inputa$(1),a$(2):t=1:goto1elseift=1thenscreen3:definta-z:s=4:m=2:x=110:w=145:y=96:z=y:line(0,0)-(255,191),,b:t=2elsefork=0to999:nextk:screen0:print"Vainqueur:";a$(l):forh=0to1:ifinkey$="J"thent=1:goto1elseh=h-1:next
2r=stick(0):s=-(R>0)*(R+1)\2-s*(R=0):l=2:x=x+4*(s=4)-4*(s=2):y=y+4*(s=1)-4*(s=3):ifpoint(x,y)>1then1elsepset(x,y),7:p=stick(1):m=-(p>0)*(p+1)\2-m*(p=0):l=1:w=w+4*(m=4=-4*(m=2):z=z+4*(m=1)-4*(m=3):ifpoint(w,z)>1then1elsepset(w,z),8:goto2