' ---------------------------------------------------------------
' Test, ob FIFO verfuegbar, by R. Genster 1996
' ---------------------------------------------------------------

if isfifo%(1) then print "COM1: FIFO erkannt" else print "COM1: -kein- FIFO"
if isfifo%(2) then print "COM2: FIFO erkannt" else print "COM2: -kein- FIFO"

function isfifo% (ComPort%)
local Test%, IOPort%

if ComPort% = 1 then
    IOPort%=&h3FA
  elseif ComPort% = 2 then
    IOPort%=&H2FA
  else
   isfifo% = 0
   exit function
end if

Test% = peek(IOPort%)

if bit(Test%,6) and bit(Test%,7) then
    isfifo%=-1
  else
    isfifo%=0
end if

end function