A new, working fine too, version...
Code:
if buton = 0 then 
mode = mode + 1
gosub memo
endif


gosub check
Pause 100                
Goto Main
and
Code:
memo:

if mode = 1 then
 gosub poz
 char = 17
 call    PrintChar
endif

if mode = 2 then  
 gosub poz
 char = 15
 call    PrintChar
 calibra = vt
endif

if mode = 3 then 
 gosub poz
 char = 18
 call printchar
endif

if mode > 3 then 
  mode = 0
 gosub poz
 char = 16
 call printchar
endif

return
'===============================================================================
check:
SELECT CASE  MODE
CASE 1
PWM MOSFET, 255, 300
CASE 2
    if w1 < (calibra-1) then 
          pwm mosfet, 155, 200      
             else
        low mosfet 
    endif
CASE 3
LOW MOSFET
END SELECT
Still have BIG thermal inertia of iron soldering (about 7-8 degree)...