%%HP: T(1)A(D)F(.);
 "INTRO t (C)" ""
INPUT OBJ
[[ 0 59.6 ]
 [ 1 59.6 ]
 [ 2 59.5 ]
 [ 3 59.5 ]
 [ 4 59.4 ]
 [ 5 59.3 ]
 [ 6 59.3 ]
 [ 7 59.2 ]
 [ 8 59.1 ]
 [ 9 59.1 ]
 [ 10 59 ]
 [ 11 59 ]
 [ 12 58.9 ]
 [ 13 58.9 ]
 [ 14 58.8 ]
 [ 15 58.8 ]
 [ 16 58.7 ]
 [ 17 58.7 ]
 [ 18 58.6 ]
 [ 19 58.6 ]
 [ 20 58.5 ]
 [ 21 58.5 ]
 [ 22 58.4 ]
 [ 23 58.3 ]
 [ 24 58.3 ]
 [ 25 58.2 ]
 [ 26 58.2 ]
 [ 27 58.2 ]
 [ 28 58.1 ]
 [ 29 58.1 ]
 [ 30 58 ]]
0  t T c
  
    IF t 0 < t 30 >
OR
    THEN
"out of rank"
MSGBOX
    ELSE
      DO 'c' INCR
      UNTIL 'T'
SWAP { } + 1 + GET
t ==
      END 'T' { } c
+ 2 + GET '1_cal' *
"calor vaporizacin
para t="
t + "_C" + TAG
    END
  

