;**********************************************
;*                                            *
;* Program to clear screen and set 24x80 mode *
;*                                            *
;*    written by Ray Gale, March 31st 1990    *
;*                                            *
;*      and placed in the Public Domain       *
;*                                            *
;**********************************************
	org	0100h
bdos	equ	5
esc	equ	1bh

	jp	start
title:	defb	'Program to clear the screen and set 24x80 mode'
	defb	'written by Ray Gale, March 31st, 1990'
	defb	'placed in the Public Domain'
	defb	'This program is absolutely FREE'
	defb	'No charge must be made'
start:	ld	c,9
	ld	de,string
	call	bdos
	ret
string:	defb	esc,'E',esc,'H',esc,'x$'
	end