NOLIST
WaitForChar  MACRO             ; 10 Jan 88
*------------------------------; Start of WaitForChar macro.
                               ; Put file handle in D1.
     MOVE.L \1,D1
                               ; Put timeout in D2.
     MOVE.L #\2*10000,D2
     CallLib WaitForChar,dos   ; Call WaitForChar.
     TST.L D0                  ; Make the Z-flag indicate char availability.
*------------------------------; End of WaitForChar macro.
     ENDM
     LIST