'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
 
    ch=128    'Binär: 10000000
    crc = 10  'Binär: 00000000 00001010
 
    '1. Den alten CRC mit 1 Left-Shiften (wenn nicht vorhanden dann &H0)
    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
    '4. Wenn das erste BIT des wertes bei 1. gesetzt ist dann 3. per XOR mit 
    ' &H1021 verbinden
    IF (crc AND 2^0) THEN
        crc = crc XOR &H1021
    ELSE
        crc = crc OR ch
    END IF
END FUNCTION