%%HP: T(1)A(G)F(.);
 " BARRA " I +
" " + { {
"EXTREMO I:"
"NUDO ACTIVO COMO EXTREMO I"
} "EXTREMO J:" { }
{ "EE:"
"0 SI BARRA NO ES EE"
} "RIJ:" "IJ:"
"RJI:" "JI:" } 2 {
} { NOVAL NOVAL 1
-1 -1 -1 -1 }
  IF INFORM
  THEN PRX0 DUP 4 7
SUB SWAP 1 3 SUB
DUP
    IF NOVAL POS 0

    THEN 0 DOERR
    END 'BE' SWAP
I SWAP PUT EVAL 
RIJ IJ RJI JI
     0
      IF RIJ -1 
      THEN 'RGB' I
{ 1 } + RIJ PUT 1 +
      END
      IF RJI -1 
      THEN 'RGB' I
{ 2 } + RJI PUT 1 +
      END
      IF IJ -1 
      THEN 'RGB' I
{ 3 } + RIJ IJ *
PUT 1 +
      END
      IF JI -1 
      THEN 'RGB' I
{ 4 } + RJI JI *
PUT 1 +
      END
      IF 0 ==
      THEN 0 DOERR
      END
    
  ELSE 0 DOERR
  END

