Private const MEM_CALIBRATION_FACTOR As UInt = 0x0033
private Sub LoadSettings()
Dim tmp4Bytes(4) As Byte
Memory.ReadBytes2(MEM_CALIBRATION_FACTOR,4,tmp4Bytes)
Dim RAF As RandomAccessFile
RAF.Initialize(tmp4Bytes,False)
CalibrationFactor = RAF.ReadDouble32(RAF.CurrentPosition)