{> Cut here. FileName= PRNREADY.PAS }
{From: "Murow Mike" <prp@prp.rosten.djug.pyatigorsk.su>

 Примитив конечно, но вполне проверяет готовность принтера.
 Меня по крайней мере вполне устраивает.
}

function printerready:boolean;
var check:byte;
begin
Delay(10);
        asm
        push cx
        push es
        push dx
        push ax
        mov ax,40h
        mov es,ax
        mov dx,es:[8]
        inc dx
        in al,dx
        and al,80h
        mov cx,7
@loop1: shr al,1
        loop @loop1
        mov check,al
        pop ax
        pop dx
        pop es
        pop cx
    end;
printerready:=(check=1)
end;