'(w7anf@qsl.net) (w7anf@qsl.net)
REM crctest.bas Jim FitzSimons W7ANF 9 March, 2001
REDIM crcp&(4095)
OPEN "crctest.out" FOR OUTPUT AS #1
FOR k& = 0 TO 2 ^ 16 - 1
   k1%(1) = k& \ 256&
   k1%(0) = k& AND &HFF
   crc& = 0
   FOR i% = 0 TO 1
      crc& = crc& XOR (k1%(i%) * 256&)
      FOR j% = 0 TO 7
         IF (crc& AND &H8000) <> 0 THEN
            crc& = ((crc& AND &H7FFF) * 2) XOR 4129&
         ELSE
            crc& = crc& * 2
         END IF
      NEXT j%
   NEXT i%
   crc1% = crc& \ 16&
   crc0& = 2 ^ (crc& AND &HF)
   IF (crcp&(crc1%) AND crc0&) <> 0 THEN
      PRINT #1, k&, crc&
   ELSE
      crcp&(crc1%) = crcp&(crc1%) OR crc0&
   END IF
NEXT k&
CLOSE #1
END
'(w7anf@qsl.net) (w7anf@qsl.net)