Dim Dummy As Eram Byte At &H00 : Dummy = 255
Dim Ifantempeconf As Integer At &H60
Dim Efantempconf As Eram Integer : Ifantempeconf = Efantempconf

Dim Ifantempnormal As Integer
Dim Efantempnormal As Eram Integer : Ifantempnormal = Efantempnormal

Dim Ifantempecon As Integer
Dim Efantempecon As Eram Integer : Ifantempecon = Efantempecon

Dim Iheatconsuptionconf As Integer
Dim Eheatconsuptionconf As Eram Integer : Iheatconsuptionconf = Eheatconsuptionconf

Dim Iheatconsuptionormal As Integer
Dim Eheatconsuptionormal As Eram Integer : Iheatconsuptionormal = Eheatconsuptionormal

Dim Iheatconsuptionecono As Integer
Dim Eheatconsuptionecono As Eram Integer : Iheatconsuptionecono = Eheatconsuptionecono

Dim Imixedtempconf As Integer
Dim Emixedtempconf As Eram Integer : Imixedtempconf = Emixedtempconf
Dim Imixedtempnormal As Integer
Dim Emixedtempnormal As Eram Integer : Imixedtempnormal = Emixedtempnormal
Dim Imixedtempeco As Integer
Dim Emixedtempeco As Eram Integer : Imixedtempeco = Emixedtempeco
Dim Iwintertempconf As Integer
Dim Ewintertempconf As Eram Integer : Iwintertempconf = Ewintertempconf
Dim Iwintertemp As Integer
Dim Ewintertemp As Eram Integer : Iwintertemp = Ewintertemp
Dim Iwintertempecono As Integer
Dim Ewintertempecono As Eram Integer : Iwintertempecono = Ewintertempecono
Dim Isummertempconf As Integer
Dim Esummertempconf As Eram Integer : Isummertempconf = Esummertempconf
Dim Isummertemp As Integer
Dim Esummertemp As Eram Integer : Isummertemp = Esummertemp
Dim Isummertempecono As Integer
Dim Esummertempecono As Eram Integer : Isummertempecono = Esummertempecono
Dim Icoldmode As Integer
Dim Ecoldmode As Eram Integer : Icoldmode = Ecoldmode
Dim Iheatmode As Integer
Dim Eheatmode As Eram Integer : Iheatmode = Eheatmode
Dim Imanual As Integer
Dim Emanual As Eram Integer : Imanual = Emanual
Dim Icoldconsumptiontempecono As Integer
Dim Ecoldconsumptiontempecono As Eram Integer : Icoldconsumptiontempecono = Ecoldconsumptiontempecono
Dim Idummy As Integer
Dim Edummy As Eram Integer : Idummy = Edummy
Dim Blastmode As Byte
Dim Elastmode As Eram Byte : Blastmode = Elastmode