Routine to quickly ramp temperature up to the setpoint value

RAMP_UP.ino

'------------------------------------------------------------------------------- 
'  Ramps up to setpoint 
'-------------------------------------------------------------------------------
RAMP_UP:     
    GOSUB StartTimer

    WHILE (curTemp < setpoint)
        IF (SecondsChanged = 1) THEN           
            GOSUB READ_TEMPERATURE
            GOSUB COMPUTE_PID

            TimeOn = (cycleTime * OutVal)/100

            Tvar = Tvar + 1

            IF (Tvar >= outMax) THEN Tvar = outMin

            IF (Tvar < TimeOn) THEN
               PORTPIN = 1 : PINSTATE = 1 : GOSUB SET_PIN
            ELSE 
                PORTPIN = 1 : PINSTATE = 0 : GOSUB SET_PIN
            ENDIF

            GOSUB DISPLAY_STATUS

            SecondsChanged = 0
        ENDIF
    WEND
RETURN