%%HP: T(1)A(D)F(.);
 { C1 C2 C3 "" ""
Qj } TMENU
"TRNSITO D HIDROGRAMA
Intro C1 C2 C3 [ Qj ]"
"" INPUT 0 MENU
OBJ OBJ EVAL
LIST DUP SIZE { }
 c1 c2 c3 Q n Qs
   Qs 'Q' 1 GET +
'Qs' STO 2 n
    FOR I Qs 'Q' I
GET c1 * 'Q' I 1 -
GET c2 * + 'Qs' I 1
- GET c3 * + + 'Qs'
STO
    NEXT Qs
"Q(j+1)" TAG
  

