[P0]
10 S=0: PRINT "Po-N:HI";H;:GOSUB 310
20 X=0:C=0:Y=11:D=0
30 X=X+C:N=INT(X+.5): IF N*(11-N)<0 THEN 200
40 Y=Y+D:M=INT(Y+.5): IF M*(11-M)<0; GOSUB 300: GOTO 20
50 K$=KEY: PRINT: PRINT CSR N;"\CI";CSR M;"*";
60 IF N=M;A=C:C=D:D=A:S=S+1
70 IF K$="4";C=C-.2*SGN(1+C)
80 IF K$="6";C=C+.2*SGN(1-C)
90 IF RAN#<.1 THEN 30
100 IF Y<X;D=D+.2*SGN(1-D): GOTO 30
110 D=D-.2*SGN(1+D):GOTO 30
200 PRINT: PRINT "OUT!:SC";S;: IF H<S;H=S: PRINT "!";
210 GOSUB 310: END
300 PRINT CSR 4;"WIN";:S=S+5
310 FOR I=0 TO 99: NEXT I: RETURN