10 CALL &BC00:MODE 1:INK 2,10:q=1 20 SYMBOL 254,192,168,213,145,149,9,1:SYMBOL 255,192,168,182,181,212,13,2:GOTO 100 30 i=VAL(INKEY$):IF i=0THEN 30 40 x=i MOD 3:x=x-3*(x=0):y=1-(i<4)-(i<7):z=z+1 50 f(x,y)=3-f(x,y):IF x*y=4THEN 70ELSE IF x=2 OR y=2THEN 60ELSE f(x,2)=3-f(x,2):f(2,y)=3-f(2,y):f(2,2)=3-f(2,2):GOTO 80 60 a=(x<3)*2+3:b=(y<3)*2+3:f(a,b)=3-f(a,b):a=(x=1)*2+3:b=(y=1)*2+3:f(a,b)=3-f(a,b):GOTO 80 70 f(1,2)=3-f(1,2):f(2,1)=3-f(2,1):f(3,2)=3-f(3,2):f(2,3)=3-f(2,3) 80 q=3:GOTO 100 90 q=2 100 FOR s=1 TO 3:FOR t=1 TO 3:ON q GOTO 130,110,140 110 IF f(s,t)>1THEN 30ELSE IF s*t=9THEN PRINT"Zuege:"z:CALL &BB18:RUN 120 NEXT t,s:ON q GOTO 30,30,90 130 f(s,t)=INT(RND*2)+1 140 p=f(s,t):PEN p:LOCATE 2*s+16,2*t+9:PRINT CHR$(253+p):GOTO 120