org #1300               ; de

caracteres:	
	db ' !-+'
inicio	
	ld hl, cadena
	ld b, 11      
loop0	
	ld a, (hl)
	inc hl         
	call #bb5a     
	djnz loop0     

	ld c, d           ;cont lin
loop1	
	ld b, d           ;cont col
loop2	
	ld l, e   
	ld a, b
	call check
	jr nz, next
	inc l          
next	
	ld a, c
	call check
	jr nz, print_chr
	set 1,l
print_chr
	ld a, (hl)
	call #bb5a
	djnz loop2
	dec c          
	jr nz, loop1   
check	
	cp 1
	ret z
	cp 10
	ret z
	cp d
	ret
cadena:	
	db 31, 24,1         ;3 locate
	db '\O/'            ;3 lazo
	db 26, 15,33,1,24   ;5 ventana

print $-caracteres