DBLOCK2
     HL=ROAD2.TBL
D4ROAD
     A=(CMPTR.DIRC) A- A=A+A D=0 E=A HL=HL+DE
     E=(HL+) D=(HL)
     A=(DARK.POS.X) A=A+E H=A
     A=(DARK.POS.Y) A=A+D L=A
     A=H IF A<SMALLX  GOTO LRB2
         IF A>=LARGEX GOTO LRB2
     A=L IF A<SMALLY  GOTO LRB2
         IF A>=LARGEY GOTO LRB2
     A=H !MAP.ADDRESS !CHECK.MAP
     IF A=0 GOTO LRB1
     BIT(6,A) IF NZ GOTO LRB2
     BIT(5,A) IF Z  GOTO LRB1
     BIT(4,A) IF NZ GOTO LRB2
     CY=0 RETURN