%%HP: T(1)A(G)F(.);
 M KE / 'TSOL' STO
ECC1 TSOL * ECC2 +
'MSOL' STO MSOL 3
RND 0 DB EVAL  MIJ
C NEC NB NA NNA
   "" 1 NEC
    FOR EC 0 'C'
STO
"
ESTADO DE CARGA "
+ EC 1 - + "

" + 1
NB
      FOR B 'BE' B
GET 1 2 SUB EVAL
STR + "= " + "M"
SWAP + 'MIJ' 'C'
INCR EC 2 LIST GET
+ 'BE' B GET 3 GET
        IF
        THEN DUP
SIZE DUP
          IF 15 <
          THEN 16
            FOR I
" " +
            NEXT
          ELSE DROP
" " +
          END 'BE'
B GET 1 2 SUB EVAL
SWAP STR + "= " +
"M" SWAP + 'MIJ'
'C' INCR EC 2 LIST
GET + +
        END "
" + +
      NEXT
    NEXT 'RM' STO
     RM WR
     'MOUT' STO ""
1 NEC
    FOR EC
"
ESTADO DE CARGA "
+ EC 1 - + "

" + 1
NNA
      FOR N ""
'NA' N GET + "= " +
'TSOL' N EC 2 LIST
GET 10 RND + "
" +
+
      NEXT
    NEXT 'RZ' STO
     RZ WR
     'TOUT' STO
  

