 A=2 JMP LNE
;
; See if the two icons lie on the a diagonal
LNW
     (CMPTR.DIRC)=A A=D A=A-H B=A A=E A=A-L JMP CHK.DRC
LNE
     (CMPTR.DIRC)=A A=H A=A-D B=A A=E A=A-L JMP CHK.DRC
LSW
     (CMPTR.DIRC)=A A=D A=A-H B=A A=L A=A-E JMP CHK.DRC
LSE
     (CMPTR.DIRC)=A A=H A=A-D B=A A=L A=A-E
CHK.DRC
     C=A
     A=A-B A=A+3 IF A>=7 GOTO BLOCKED
     IF A>=0 THEN A=(CMPTR.DIRC) GOTO CHK4BARRIERS
;
; Opponent doesn't lie in-line.
BLOCKED
     A=0 RETURN
;
; Opponent is in-line.  See if there are a