S LOGO=""
LOGO1	; IMPRIME LOGO IMPRESSAO DIRETA
        S AAE="C:\IND\LOGO\"_LOGO_".PCL"
	O 10:(FILE=AAE:MODE="R")
        O 11:(FILE="PRN":MODE="W")
        U 10 R AUX#13204
        U 11
        W !?60,$C(32)
	W AUX
        C 11,10
	Q
	;
LOGO    ; IMPRIME LOGO PARA DOSPRINT
        S AAE="C:\IND\LOGO\"_LOGO_".BMP"
        S asp=""""
        S AAE=asp_AAE_asp
        W !?1,$C(32)
        W *27,AAE
        Q
        ;