16 IFB1>0THEN18ELSEPRINT@140,"I FORFEIT MY MOVE ":PRINT@180,K$
17 IFZ=1THEN30ELSEZ=1:GOTO19
18 I=I3:J=J3:U=1:GOSUB46:C1=C1+S1+1:H1=H1-S1:N1=N1+1:GOSUB52:Z=0:PRINT@140,"I MOVED TO "I3","C$(J3):PRINT@220,"THAT GIVES ME "S1;:PRINT@260,"OF YOUR PIECES":IFH1=0THEN30ELSEIFN1=64THEN30
26 GOSUB44:IFF1=1THEN27ELSEPRINT@100,"SORRY MUST BE NEXT";:PRINT@140,"TO ONE OF MY PIECES";:GOTO19
27 U=-1:GOSUB46:IFS1>0THEN28ELSEPRINT@100,"DOESN'T FLANK A ROW ":GOTO19
28 Z=0:U=1:GOSUB46:H1=H1+S1+1:C1=C1-S1:N1=N1+1:GOSUB52:PRINT@20,"THAT GIVES YOU ";:PRINT@60,S1" OF MY PIECES";:PRINT@140,"YOU HAVE"H1" PIECES":PRINT@180,"I HAVE "C1" PIECES":IFC1=0THEN30ELSEIFN1=64THEN30ELSE5
29 'END OF GAME WRAPUP
30 GOSUB52:PRINT@20,"YOU HAVE"H1" PIECES";:PRINT@60,"I HAVE "C1" PIECES";:PRINT@100,K$;:IFH1=C1THEN32ELSEIFH1>C1THEN33
31 PRINT@140,"SORRY, I WON. ":GOTO34
32 PRINT@140,"A TIE!!!":GOTO42
33 PRINT@140,"YOU WON !!!"
34 C1=C1-H1:IFC1>0THEN35ELSEC1=-C1
35 C1=(64*C1)/N1:PRINT@180,"THAT WAS A ";:IFC1<11THEN41ELSEIFC1<25THEN40ELSEIFC1<39THEN39
36 IFC1<53THEN38
37 PRINT@220,"PERFECT GAME":GOTO42
38 PRINT@220,"WALKAWAY":GOTO42
39 PRINT@220,"FIGHT":GOTO42
40 PRINT@220,"HOT GAME":GOTO42
41 PRINT@220,"SQUEAKER !!":GOTO42
42 PRINT@260,"";:INPUT"PLAY AGAIN ";X$:IFX$="y"THEN4ELSEPRINT@300,"THANKS FOR PLAYING":