;**********************************************
;*                                            *
;* Program to set 30x90 mode and clear screen *
;*                                            *
;*    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 set 30x90 mode and clear screen'
	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,'y',esc,'E',esc,'H$'
	end