; This routine display my image (skull&cool)

Display_Image	proc	near

	push	bx dx es		; Save es

	mov	ax,0b800h		; Goto CGA video buffer
	mov	es,ax

	mov	ax,0700h		; Standart background color
	mov	cx,2000			; Clear screen
	xor	di,di
	repnz	stosw

	mov	ah,0dh			; New Background color
	mov	cx,80*9
	xor	di,di
	repnz	stosw			; Fill first nine strings

	mov	ah,2			; Move cursor on nine line
	mov	dx,0800h
	xor	bx,bx
	int	10h

	call	$+3
	pop	bx
	sub	bx,Offset $-1

	lea	si,[bx+C00L_BOTTOM]
	xor	di,di
Rep_Display_Image:
	lodsw
	stosw
	push	si
	sub	si,bx
	cmp	si,Offset C00L_TOP
	pop	si
	jb	Rep_Display_Image

	pop	es dx bx		; Restore es
	retn

C00L_BOTTOM	=	$

        DB      ' ',12,'[',11,'$',11,'U',11,'P',11,'D',11,'û',11,'2',11
        DB      '.',11,'2',11,']',11,',',11,' ',11,' ',13,'N',9,'i',9
        DB      'g',9,'h',9,'t',9,' ',9,'$',9,'p',9,'i',9,'r',9,'i',9
        DB      't',9,39,9,'s',9,' ',9,'U',9,'n',9,'i',9,'v',9,'e',9,'r'
        DB      9,'s',9,'a',9,'l',9,' ',9,'P',9,'o',9,'l',9,'y',9,'m'
        DB      9,'o',9,'r',9,'p',9,'h',9,'i',9,'c',9,' ',9,'D',9,'e'
        DB      9,'v',9,'i',9,'c',9,'e',9,',',11,' ',11,' ',14,'V',11
        DB      'e',11,'r',11,'s',11,'i',11,'o',11,'n',11,' ',11,'2',11
        DB      '.',11,'2',11,' ',11,' ',11,' ',11,' ',11,' ',11,' ',11
        DB      ' ',11,' ',11,' ',11,' ',14,' ',15,'Ü',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,'Ü',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',13
        DB      ' ',13,' ',13,' ',13,' ',13,' ',13,' ',13,' ',13,' ',13
        DB      ' ',13,' ',13,' ',13,' ',13,' ',13,' ',13,' ',13,' ',13
        DB      ' ',13,' ',13,' ',13,' ',14,'ß',15,'ß',15,'Ü',15,'Ü',7
        DB      'Ü',7,'Ü',7,'Ü',7,' ',15,'Ü',15,'ß',15,'ß',15,' ',13,' '
        DB      12,' ',12,' ',7,' ',12,' ',12,'Ü',12,' ',1,'Ü',1,'Ü',1
        DB      'Ü',1,'Ü',1,' ',1,' ',7,' ',1,'Ü',1,'Ü',1,'Ü',1,' ',7
        DB      ' ',7,'Ü',12,'Ü',12,' ',1,'Ü',1,'Ü',1,'Ü',1,' ',1,' '
        DB      7,'Ü',12,'Ü',12,' ',12,'Ü',1,'Ü',1,'Ü',1,' ',7,' ',7,' '
        DB      7,' ',7,' ',7,' ',7,' ',7,' ',7,' ',7,' ',7,' ',0,' '
        DB      15,' ',0,' ',0,' ',0,' ',0,' ',0,' ',0,' ',0,' ',0,' '
        DB      0,' ',0,' ',0,' ',0,' ',0,' ',0,' ',7,' ',7,' ',7,' '
        DB      7,' ',7,' ',7,' ',7,' ',7,'Ú',14,'Ä',14,'Ü',7,'Û',7,'Û'
        DB      7,'Û',7,'Û',7,'Û',7,'Û',7,'Ü',7,'Ä',14,'Ä',14,'Ä',14,'Ä'
        DB      14,'Ä',14,'Ä',14,'Ä',14,'Û',12,' ',12,'Û',1,'ß',1,'Ü'
        DB      12,'Ä',14,'ß',1,'Û',1,'Ä',14,'Û',1,'Ä',14,'Ä',14,'Ä',14
        DB      'ß',1,'Û',12,'Ü',1,'Ä',14,'Û',1,'Ä',14,'Ä',14,'Ä',14,'ß'
        DB      1,'Û',12,'Ü',1,'Ä',14,'ß',12,'Þ',1,'Û',1,'Ä',14,'Ä',14
        DB      'Ä',14,'Ä',14,'Ä',14,'Ä',14,'Ä',14,'Ä',14,'Ü',12,'Ä',14
        DB      'Ä',14,'Ä',14,'(',14,'C',14,')',14,'Ä',14,'1',14,'9',14
        DB      '9',14,'5',14,'Ä',14,'1',14,'9',14,'9',14,'6',14,'Ä',14
        DB      '¿',14,' ',7,' ',7,' ',7,' ',7,' ',7,' ',7,' ',0,' ',0
        DB      '³',14,' ',15,'Û',7,'Û',7,'Û',7,' ',15,'Û',7,' ',15,'Û'
        DB      7,'Û',7,' ',15,' ',13,' ',13,' ',15,'ß',12,'Ü',12,'ß'
        DB      12,' ',7,'Û',1,'Û',1,' ',7,' ',12,'ß',12,'ß',12,'Ü',12
        DB      'Ü',12,' ',12,'Û',1,' ',12,'Ü',12,'ß',12,' ',12,' ',1
        DB      'Û',1,'Ü',1,'Û',1,' ',12,'Ü',12,'ß',12,' ',7,' ',7,'Û'
        DB      1,' ',7,'Þ',1,'Û',1,' ',7,'ß',12,'Ü',12,'Ü',12,' ',12
        DB      ' ',7,'Ü',12,'ß',12,' ',12,'ß',12,' ',0,' ',7,' ',7,' '
        DB      7,' ',7,' ',7,' ',14,'b',13,'y',13,' ',14,' ',14,' ',0
        DB      ' ',0,' ',15,' ',15,' ',15,'³',14,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,'À',14,'Ä',14,'Ü',15
        DB      'ß',7,'Û',7,'Û',7,'Ü',7,'Û',7,'Û',7,'ß',7,'Ü',15,'Ä',14
        DB      'Ä',14,'Ä',14,'Ä',14,'Ä',14,'Ä',14,'Ä',14,'Ä',14,'Û',1
        DB      'Ü',1,'Ä',14,'Ä',14,'Ü',1,'Û',1,'Ä',14,'ß',12,'Ü',12,'ß'
        DB      1,'Ü',1,'Ü',1,'Ä',14,'Ä',14,'Ä',14,'Û',1,'Ü',12,'ß',1
        DB      'Ü',1,'Ü',1,'Ä',14,'Ä',14,'Ä',14,'Û',1,'Þ',1,'Û',1,'Ü'
        DB      1,'Ä',14,'Ä',14,'Ü',1,'ß',12,'Ü',12,'ß',12,'Ä',14,'Ä'
        DB      14,'Ä',14,'Ä',14,'Ä',14,'N',14,'i',14,'g',14,'h',14,'Ø'
        DB      14,'Ä',14,'Ä',14,'$',14,'p',14,'i',14,'r',14,'i',14,'Ø'
        DB      14,'Ä',14,'Ù',14,' ',14,' ',14,' ',14,' ',14,' ',14,' '
        DB      0,' ',0,' ',11,'ß',15,'Û',15,' ',12,' ',15,'ß',7,' ',15
        DB      'ß',7,' ',15,'ß',7,' ',13,' ',13,'Û',15,'ß',15,' ',11
        DB      ' ',11,' ',11,' ',7,' ',7,' ',7,' ',7,'ß',1,'ß',1,'ß'
        DB      1,'ß',1,' ',7,' ',7,' ',7,' ',7,' ',7,' ',7,' ',7,'ß'
        DB      1,'ß',1,'ß',1,' ',1,' ',12,' ',7,' ',7,' ',7,'ß',1,'ß'
        DB      1,'ß',1,' ',7,'ß',1,'ß',1,'ß',1,'ß',1,'ß',1,'ß',1

C00L_TOP	=	$

Display_Image	endp