%%HP: T(1)A(G)F(.);
  I
  
"
      ESTADO DE CARGA "
I 1 - + "

" + 1 D
1 GET
    FOR J "N" J +
"=" + x J I 2
LIST GET + DUP
SIZE DUP
      IF 15 <
      THEN 15
        FOR T " " +
        NEXT
      END
      IF J 2 MOD 0
==
      THEN "
" +
      END +
    NEXT "
" + D 1
GET 1 + 2 D 2 GET *
    FOR J "R(" KA J
D 1 GET - 2 * 1 -
GETI ";" + 3 ROLLD
GET + ")= " + + x
J I 2 LIST GET +
"    " +
      IF J D 1 GET
- 2 MOD 0 ==
      THEN "
" +
      END +
    NEXT "
" + +
  

