%%HP: T(1)A(G)F(.);
 DB EVAL 0  NEC
NB NA NNA C
   { } 1 NB
    FOR B NOVAL +
    NEXT 'LL' STO
NB 2 * NEC 2 LIST
0 CON 'QSOL' STO ""
1 NEC
    FOR EC 0 'C'
STO
" Estado de carga "
EC 1 - + CLLCD 4
DISP .5 WAIT
"
ESTADO DE CARGA "
+ EC 1 - + "

" + 1
NB
      FOR B B PRE71
'MSOL' 'C' INCR EC
2 LIST GET +
        IF 'BE' B
GET 3 GET
        THEN 'MSOL'
'C' INCR EC 2 LIST
GET +
        ELSE 0 +
        END
        IF INFORM
        THEN PRX0
EVAL + SWAP DUP
'LL' SWAP B SWAP
PUT / EC B PRE72 +
        ELSE DROP 0
DOERR
        END
      NEXT "
" +
    NEXT
   'RQ' STO
   RQ WR
   'QOUT' STO
"Resultados en:

QOUT: cortantes"
MSGBOX

