;Copyright 2000 - Mark McDonald All rights reserved
; DECLARE: FUNCTION isprint() AS INTEGER
; DESC:    Returns true if PRINT.COM is installed.
; EXAMP:   IF isprint THEN

MCODE   Segment Byte
        Assume  CS: MCODE

        Public  isprint

isprint Proc Far

        push    DS                      ;

        mov     AX, 00100h              ; is PRINT.COM installed?
        int     2Fh                     ; call DOS multiplexor
        xor     BX, BX                  ; assume not installed
        cmp     AL, 0FFh                ; does AL = FF?
        jne     Exit                    ; no, exit
        inc     BX                      ; yes, return  1
Exit:
        mov     AX, BX                  ;
        pop     DS                      ;
        retf                            ;
isprint EndP
MCODE   EndS
        End