.MODEL small
	.STACK 100h
	.DATA
	include aplfont.txa
	include aplfont.txb
	.CODE
	mov	ax,@data
	mov	ds,ax
	mov	es,ax
	mov	ah,00h		; function 00h = Set video mode
	mov	al,03h		; 80-by-25, 16 colors, text
	int	10h			; transfer to MS-DOS
; ---------------------------------------------------------------------
	mov	ah,11h		; function 11h = Load user font
	mov	al,10h		; 80-by-25, 16 colors, text
	mov  bh,16		; bytes per character
	mov	bl,00h		; block
	mov	cx,220		; number of characters in table
	mov	dx,34		; first character code in table
	mov	bp,offset font	; offset of font table, es loaded above.
	int	10h			; transfer to MS-DOS
; ---------------------------------------------------------------------
	mov	ah,4ch		; DOS terminate program function
	int	21h			; terminate the program
	END