'1. Den alten CRC mit 1 Left-Shiften (wenn nicht vorhanden dann &H0)
'2. Das das zu addierende Byte mit 7 Right-Shiften
'3. Die werte aus 1 & 2 mit OR verbinden
'4. Wenn das erste BIT des wertes bei 1. gesetzt ist dann 3. per XOR mit &H1021 
' verbinden
'5. Punkt 1. bis 4. für jedes Bit wierholen (Also 8 Schleifen)
 
PRIVATE FUNCTION CrcTest()
    DIM crc AS INTEGER
    DIM ch  AS BYTE
    DIM tmp AS INTEGER
 
    ch=128    'Binär: 10000000
    crc = 10  'Binär: 00000000 00001010
 
    '1. Den alten CRC mit 1 Left-Shiften (wenn nicht vorhanden dann &H0)
    tmp = crc 'siehe Bedingung aus 4. (bei oder nach?)
    crc = crc * 2^1 'Binär: 00000000 00010100
    '2. Das das zu addierende Byte mit 7 Right-Shiften
    ch = ch \ 2^7   'Binär: 00000001
    '3. Die werte aus 1 & 2 mit OR verbinden
    crc = crc OR ch
    '4. Wenn das erste BIT des wertes bei 1. gesetzt ist dann 3. per XOR mit 
    ' &H1021 verbinden
    IF (tmp AND 2^0) THEN crc = crc XOR &H1021
    '5. ?
END FUNCTION