	  mov	 ax, 0
	  int	 33h

	  mov	 ax, 1
	  int	 33h

mo:	  mov	 ax, 3
	  int	 33h

	  push	 bx
	  push	 dx
	  mov	 al, cl
	  mov	 cx, 1
	  mov	 bl, 04h
	  mov	 dh, 0
	  mov	 dl, 78
	  call	 paint

	  pop	 dx
	  mov	 al, dl
	  mov	 dl, 79
	  call	 paint
	  pop	 bx
	  or	 bx, bx
	  jz	 mo
;  Routine to set cursor position
;
;	 (DH,DL)	     Cursor line, column
;	 call  setpos
;
setpos:  push  ax	     ;save registers
	 push  bx
	 mov   bh,0	     ;set cursor
	 mov   ah,2
	 int   10h
	 pop   bx	     ;restore registers
	 pop   ax
	 ret		     ;return to caller
;
;  Routine to paint characters on screen
;
;	 (DH,DL)	     Line, column of start of area to paint
;	 (CX)		     Number of characters to paint
;	 (BL)		     Required color
;	 (AL)		     Character code
;	 call  paint
;
paint:	 push  ax	     ;save registers
	 push  bx
	 cmp   cx,0	     ;skip if no chars to paint
	 je    paint1
	 call  setpos	     ;set cursor position
	 mov   bh,0	     ;write the characters
	 mov   ah,9
	 int   10h
paint1:  pop   bx	     ;restore registers
	 pop   ax
	 ret		     ;return to caller
	  end

